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

Author: AKotov-dev

sshuttle-gui/backup/sshuttle_gui.lps

@@ -39,7 +39,7 @@
         <Filename Value="sshuttle_gui.lpr"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
-        <UsageCount Value="39"/>
+        <UsageCount Value="40"/>
       </Unit>
       <Unit>
         <Filename Value="unit1.pas"/>
@@ -49,9 +49,7 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="183"/>
-        <CursorPos X="8" Y="159"/>
-        <UsageCount Value="39"/>
+        <UsageCount Value="40"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
@@ -60,9 +58,8 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="PingTRD"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="54"/>
-        <CursorPos Y="76"/>
-        <UsageCount Value="35"/>
+        <CursorPos X="15"/>
+        <UsageCount Value="36"/>
         <Loaded Value="True"/>
       </Unit>
       <Unit>

sshuttle-gui/backup/unit1.pas

@@ -157,10 +157,17 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
   Pars: string;
   S: TStringList;
 begin
+  //Форматируем содержимое полей
+  UserEdit.Text := Trim(UserEdit.Text);
+  PasswordEdit.Text := Trim(PasswordEdit.Text);
+  ServerEdit.Text := Trim(ServerEdit.Text);
+  PortEdit.Text := Trim(PortEdit.Text);
+
   //Проверка на пустоту
-  if (Trim(UserEdit.Text) = '') or (Trim(PasswordEdit.Text) = '') or
-    (Trim(ServerEdit.Text) = '') or (Trim(PortEdit.Text) = '') then Exit;
+  if (UserEdit.Text = '') or (PasswordEdit.Text = '') or
+    (ServerEdit.Text = '') or (PortEdit.Text = '') then Exit;
 
+  //Сохранение параметров
   IniPropStorage1.Save;
 
   //Дополнительные параметры
@@ -183,10 +190,10 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
     S.Add('#!/bin/bash');
     S.Add('');
 
-    S.Add('# Пересоздание ключей в /root/.ssh/known_hosts (пароль мог измениться)');
+    S.Add('# Пересоздать ключи в /root/.ssh/known_hosts (параметры подключения могли измениться)');
 
     //Очистка прежних ключей (мог измениться пароль или хост)
-    S.Add('sed -i "/^' + Trim(ServerEDit.Text) + '/d" /root/.ssh/known_hosts');
+    S.Add('sed -i "/^' + ServerEDit.Text + '/d" /root/.ssh/known_hosts');
     S.Add('');
 
     //Пересоздать ключи для хоста (пароль мог измениться) + отмена зависших sshpass и очистка NAT
@@ -196,17 +203,16 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
       Trim(PortEdit.Text) + ' exit 0'); }
 
     S.Add('pidof sshpass && killall sshpass; iptables -t nat -F');
-    S.Add('ssh-keyscan -p ' + Trim(PortEdit.Text) + ' ' +
-      Trim(ServerEDit.Text) + ' >> /root/.ssh/known_hosts');
+    S.Add('ssh-keyscan -p ' + PortEdit.Text + ' ' + ServerEDit.Text +
+      ' >> /root/.ssh/known_hosts');
 
     S.Add('');
 
     S.Add('# Запуск vpn');
     S.Add('[[ "$?" -eq "0" ]] && \');
-    S.Add('sshpass -p "' + Trim(PasswordEdit.Text) + '" sshuttle --dns --remote ' +
-      Trim(UserEdit.Text) + '@' + Trim(ServerEDit.Text) + ':' +
-      Trim(PortEdit.Text) + ' -x ' + Trim(ServerEDit.Text) + ':' +
-      Trim(PortEdit.Text) + ' 0/0 ' + Trim(Pars));
+    S.Add('sshpass -p "' + PasswordEdit.Text + '" sshuttle --dns --remote ' +
+      UserEdit.Text + '@' + ServerEDit.Text + ':' + PortEdit.Text +
+      ' -x ' + ServerEDit.Text + ':' + PortEdit.Text + ' 0/0 ' + Trim(Pars));
 
     S.Add('exit 0;');
 
@@ -220,5 +226,4 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
   end;
 end;
 
-
 end.

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

@@ -49,6 +49,9 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
+        <TopLine Value="196"/>
+        <CursorPos X="13" Y="217"/>
+        <ComponentState Value="1"/>
         <UsageCount Value="40"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

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

@@ -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');