v0.3 + Re-creating SSH keys (changing server password, etc.)

Author: AKotov-dev

sshuttle-gui/backup/sshuttle_gui.lps

@@ -49,8 +49,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="195"/>
-        <CursorPos X="21" Y="212"/>
+        <TopLine Value="174"/>
+        <CursorPos X="36" Y="178"/>
         <UsageCount Value="38"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

sshuttle-gui/backup/unit1.pas

@@ -209,8 +209,6 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
 
     S.Add('exit 0');
 
-    showmessage('111');
-
     S.SaveToFile('/etc/sshuttle-gui/connect.sh');
 
     //Запускаем скрипт через systemd

sshuttle-gui/lib/x86_64-linux/unit1.o

@@ -49,8 +49,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="193"/>
-        <CursorPos Y="212"/>
+        <TopLine Value="165"/>
+        <CursorPos X="13" Y="180"/>
         <UsageCount Value="38"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

sshuttle-gui/lib/x86_64-linux/unit1.ppu

@@ -175,7 +175,7 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
   if StartBtn.Caption = SStop then
   begin
     Shape1.Brush.Color := clYellow;
-    StartProcess('systemctl stop sshuttle.service');
+    StartProcess('killall sshpass; systemctl stop sshuttle.service');
   end
   else
   try