v0.3 + Re-creating SSH keys (ssh-keyscan)

Author: AKotov-dev

sshuttle-gui/backup/sshuttle_gui.lps

@@ -49,9 +49,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="196"/>
-        <CursorPos X="13" Y="217"/>
-        <ComponentState Value="1"/>
+        <TopLine Value="144"/>
+        <CursorPos X="77" Y="147"/>
         <UsageCount Value="40"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -73,7 +72,7 @@
         <UsageCount Value="35"/>
       </Unit>
     </Units>
-    <JumpHistory HistoryIndex="4">
+    <JumpHistory HistoryIndex="5">
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Column="13"/>
@@ -94,6 +93,10 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="199" Column="61" TopLine="181"/>
       </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Column="13"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

sshuttle-gui/backup/unit1.lfm

@@ -1,10 +1,10 @@
 object MainForm: TMainForm
   Left = 287
-  Height = 189
+  Height = 192
   Top = 125
   Width = 531
   Caption = 'SShuttle-GUI'
-  ClientHeight = 189
+  ClientHeight = 192
   ClientWidth = 531
   OnCreate = FormCreate
   OnShow = FormShow
@@ -134,7 +134,7 @@ object MainForm: TMainForm
   object StaticText1: TStaticText
     Left = 0
     Height = 20
-    Top = 169
+    Top = 172
     Width = 531
     Align = alBottom
     BorderStyle = sbsSingle

sshuttle-gui/backup/unit1.pas

@@ -144,7 +144,7 @@ procedure TMainForm.AutoStartBoxChange(Sender: TObject);
 procedure TMainForm.FormShow(Sender: TObject);
 begin
   //Высота/Ширина формы (Auto)
-  MainForm.Height := ClearBox.Top + ClearBox.Height + StaticText1.Height + 5;
+  MainForm.Height := ClearBox.Top + ClearBox.Height + StaticText1.Height + 7;
   MainForm.Width := StartBtn.Left + StartBtn.Height + 25;
 
   AutostartBox.Checked := CheckAutoStart;
@@ -214,6 +214,10 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
       UserEdit.Text + '@' + ServerEDit.Text + ':' + PortEdit.Text +
       ' -x ' + ServerEDit.Text + ':' + PortEdit.Text + ' 0/0 ' + Trim(Pars));
 
+    S.Add('');
+
+    S.Add('iptables -t nat -F');
+
     S.Add('exit 0;');
 
     S.SaveToFile('/etc/sshuttle-gui/connect.sh');

sshuttle-gui/lib/x86_64-linux/sshuttle_gui.or

@@ -1,10 +1,10 @@
 object MainForm: TMainForm
   Left = 287
-  Height = 189
+  Height = 192
   Top = 125
   Width = 531
   Caption = 'SShuttle-GUI'
-  ClientHeight = 189
+  ClientHeight = 192
   ClientWidth = 531
   OnCreate = FormCreate
   OnShow = FormShow
@@ -134,7 +134,7 @@ object MainForm: TMainForm
   object StaticText1: TStaticText
     Left = 0
     Height = 20
-    Top = 169
+    Top = 172
     Width = 531
     Align = alBottom
     BorderStyle = sbsSingle

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

@@ -49,7 +49,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <CursorPos X="13"/>
+        <TopLine Value="144"/>
+        <CursorPos X="77" Y="147"/>
         <UsageCount Value="40"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -71,7 +72,7 @@
         <UsageCount Value="35"/>
       </Unit>
     </Units>
-    <JumpHistory HistoryIndex="4">
+    <JumpHistory HistoryIndex="5">
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Column="13"/>
@@ -92,6 +93,10 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="199" Column="61" TopLine="181"/>
       </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Column="13"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

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

@@ -1,10 +1,10 @@
 object MainForm: TMainForm
   Left = 287
-  Height = 189
+  Height = 192
   Top = 125
   Width = 531
   Caption = 'SShuttle-GUI'
-  ClientHeight = 189
+  ClientHeight = 192
   ClientWidth = 531
   OnCreate = FormCreate
   OnShow = FormShow
@@ -134,7 +134,7 @@ object MainForm: TMainForm
   object StaticText1: TStaticText
     Left = 0
     Height = 20
-    Top = 169
+    Top = 172
     Width = 531
     Align = alBottom
     BorderStyle = sbsSingle