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="177"/>
-        <CursorPos X="76" Y="199"/>
+        <TopLine Value="186"/>
+        <CursorPos X="19" Y="210"/>
         <UsageCount Value="38"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

sshuttle-gui/backup/unit1.pas

@@ -207,7 +207,7 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
       Trim(PortEdit.Text) + ' -x ' + Trim(ServerEDit.Text) + ':' +
       Trim(PortEdit.Text) + ' 0/0 ' + Trim(Pars));
 
-    S.Add('exit 0');
+    S.Add('exit 0;');
 
     S.SaveToFile('/etc/sshuttle-gui/connect.sh');
 

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

@@ -49,8 +49,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="186"/>
-        <CursorPos X="19" Y="210"/>
+        <TopLine Value="171"/>
+        <CursorPos X="19" Y="178"/>
         <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('killall sshpass; systemctl stop sshuttle.service');
+    StartProcess('systemctl stop sshuttle.service');
   end
   else
   try