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

Author: AKotov-dev

sshuttle-gui/backup/pingtrd.pas

@@ -61,7 +61,7 @@ procedure CheckPing.Execute;
   end;
 end;
 
-//Индикация - светодиод
+//Индикация: Cветодиод, Режим
 procedure CheckPing.ShowStatus;
 begin
   with MainForm do

sshuttle-gui/backup/sshuttle_gui.lpi

@@ -4,7 +4,7 @@
     <Version Value="12"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
-      <Title Value="SShuttle-GUI v0.1"/>
+      <Title Value="SShuttle-GUI v0.3"/>
       <Scaled Value="True"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>

sshuttle-gui/backup/sshuttle_gui.lpr

@@ -17,8 +17,8 @@
 
 begin
   RequireDerivedFormResource := True;
-  Application.Title := 'SShuttle-GUI v0.1';
-  Application.Scaled := True;
+  Application.Title:='SShuttle-GUI v0.3';
+  Application.Scaled:=True;
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);
   Application.Run;

sshuttle-gui/backup/sshuttle_gui.lps

@@ -39,7 +39,7 @@
         <Filename Value="sshuttle_gui.lpr"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="1"/>
-        <UsageCount Value="37"/>
+        <UsageCount Value="38"/>
         <Loaded Value="True"/>
       </Unit>
       <Unit>
@@ -49,20 +49,20 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="144"/>
-        <CursorPos X="29" Y="146"/>
-        <UsageCount Value="37"/>
+        <CursorPos X="68" Y="9"/>
+        <ComponentState Value="1"/>
+        <UsageCount Value="38"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
       <Unit>
         <Filename Value="pingtrd.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="PingTRD"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <CursorPos X="33" Y="59"/>
-        <UsageCount Value="33"/>
+        <CursorPos X="15"/>
+        <UsageCount Value="34"/>
         <Loaded Value="True"/>
       </Unit>
       <Unit>
@@ -73,7 +73,7 @@
         <UsageCount Value="35"/>
       </Unit>
     </Units>
-    <JumpHistory HistoryIndex="27">
+    <JumpHistory HistoryIndex="29">
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="189" Column="20" TopLine="167"/>
@@ -186,6 +186,14 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="149" Column="76" TopLine="144"/>
       </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="154" Column="28" TopLine="144"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="190" Column="78" TopLine="174"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

sshuttle-gui/backup/unit1.lfm

@@ -1,15 +1,15 @@
 object MainForm: TMainForm
-  Left = 263
-  Height = 175
-  Top = 126
+  Left = 287
+  Height = 189
+  Top = 125
   Width = 531
   Caption = 'SShuttle-GUI'
-  ClientHeight = 175
+  ClientHeight = 189
   ClientWidth = 531
   OnCreate = FormCreate
   OnShow = FormShow
   SessionProperties = 'IPv6Box.Checked;LatencyBox.Checked;Left;PasswordEdit.Text;PortEdit.Text;RouterEdit.Text;ServerEdit.Text;Top;UserEdit.Text'
-  LCLVersion = '2.2.4.0'
+  LCLVersion = '3.2.0.0'
   object Label1: TLabel
     AnchorSideTop.Side = asrCenter
     Left = 8
@@ -87,13 +87,13 @@ object MainForm: TMainForm
     AnchorSideRight.Side = asrBottom
     Left = 283
     Height = 32
-    Top = 134
+    Top = 135
     Width = 242
     Anchors = [akTop, akRight]
     BorderSpacing.Right = 6
     Caption = 'Clear browser cookies on start GUI'
-    OnChange = ClearBoxChange
     TabOrder = 7
+    OnChange = ClearBoxChange
   end
   object AutoStartBox: TCheckBox
     AnchorSideLeft.Control = StartBtn
@@ -107,8 +107,8 @@ object MainForm: TMainForm
     Anchors = [akTop, akRight]
     BorderSpacing.Right = 6
     Caption = 'Autostart VPN on reboot'
-    OnChange = AutoStartBoxChange
     TabOrder = 5
+    OnChange = AutoStartBoxChange
   end
   object StartBtn: TSpeedButton
     AnchorSideLeft.Control = Shape1
@@ -134,7 +134,7 @@ object MainForm: TMainForm
   object StaticText1: TStaticText
     Left = 0
     Height = 20
-    Top = 155
+    Top = 169
     Width = 531
     Align = alBottom
     BorderStyle = sbsSingle
@@ -205,9 +205,9 @@ object MainForm: TMainForm
     AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 32
-    Top = 134
+    Top = 135
     Width = 161
-    BorderSpacing.Top = 2
+    BorderSpacing.Top = 3
     Caption = '--no-latency-control'
     Checked = True
     State = cbChecked

sshuttle-gui/backup/unit1.pas

@@ -54,9 +54,9 @@ implementation
 
 uses pingtrd;
 
-{$R *.lfm}
+  {$R *.lfm}
 
-{ TMainForm }
+  { TMainForm }
 
 //Общая процедура запуска команд (асинхронная)
 procedure TMainForm.StartProcess(command: string);
@@ -178,37 +178,45 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
     StartProcess('systemctl stop sshuttle.service');
   end
   else
-    try
-      S := TStringList.Create;
-
-      S.Add('#!/bin/bash');
-      S.Add('');
-
-      //Содаём пускач для systemd (Type=simple)
-      S.Add('# Проверка наличия валидных ключей /root/.ssh/{known_hosts,known_hosts.old}');
-      S.Add('if [[ ! -f /root/.ssh/known_hosts.old ]] || [[ -z $(ssh-keygen -F ' +
-        Trim(ServerEDit.Text) + ') ]]; then');
-      S.Add('sshpass -p "' + Trim(PasswordEdit.Text) +
-        '" ssh -o StrictHostKeyChecking=No ' + Trim(UserEdit.Text) +
-        '@' + Trim(ServerEDit.Text) + ' -p ' + Trim(PortEdit.Text) + ' exit 0; fi');
-      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('exit 0;');
-
-      S.SaveToFile('/etc/sshuttle-gui/connect.sh');
-
-      //Запускаем скрипт через systemd
-      StartProcess('chmod +x /etc/sshuttle-gui/connect.sh; systemctl restart sshuttle.service');
-
-    finally
-      S.Free;
-    end;
+  try
+    S := TStringList.Create;
+
+    S.Add('#!/bin/bash');
+    S.Add('');
+
+    //Содаём пускач для systemd (Type=simple)
+    S.Add('# Проверка наличия валидных ключей /root/.ssh/{known_hosts,known_hosts.old}');
+
+    //Очистка прежних ключей (мог измениться пароль или хост)
+    S.Add('sed -i "/^' + Trim(ServerEDit.Text) + '/d" /root/.ssh/known_hosts');
+
+   { S.Add('if [[ ! -f /root/.ssh/known_hosts.old ]] || [[ -z $(ssh-keygen -F ' +
+      Trim(ServerEDit.Text) + ') ]]; then'); }
+
+    S.Add('sshpass -p "' + Trim(PasswordEdit.Text) +
+      '" ssh -o StrictHostKeyChecking=No ' + Trim(UserEdit.Text) +
+      // '@' + Trim(ServerEDit.Text) + ' -p ' + Trim(PortEdit.Text) + ' exit 0; fi');
+      '@' + Trim(ServerEDit.Text) + ' -p ' + Trim(PortEdit.Text) + ' exit 0');
+
+    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('exit 0;');
+
+    S.SaveToFile('/etc/sshuttle-gui/connect.sh');
+
+    //Запускаем скрипт через systemd
+    StartProcess('chmod +x /etc/sshuttle-gui/connect.sh; systemctl restart sshuttle.service');
+
+  finally
+    S.Free;
+  end;
 end;