Kamis, 29 September 2016

Cara Membuat Tunnel SSH Commmand Prompt Bitvise Auto Reconnect

Kamis, 29 September 2016 - www.indoblog.me Sehubung mimin masih sakit sebenarnya masih males ngepost dan agak bingung juga mau ngepost apa, dan ya sudahlah mimin mau kasih Tips Cara Membuat Tunnel SSH Commmand Prompt Bitvise Auto Reconnect sebenarnya tutorial ini sudah dibahas di beberapa pekan lalu hanya saja tunnel CMD Bitvise yang dishareing tidak bisa auto rekonek dengan artian ketika ssh disconnect maka tidak bisa konek ulang, maka di tutorial ini mimin akan kasih listing coding yang auto reconnect yang dimana tutorial ini juga yang sudah admin gunakan pada fiture VHE X6 pada vhe tunnel nah tunnel cmd bitvise inilah yang admin gunakan pada tools tersebut.

Dan untuk versi yang pertama dengan artian pembuatan CMD Bitvise yang pertama bisa anda baca di Cara Bikin Tunnel CMD Bitvise Terbaru 2016 ok dan tutorial ini adalah dengan fiture reconnectnya dan silahkan anda bisa langsung mengikuti pembuatan tunnel ini.

Baca Juga: Cara Membuat Android Virtual Device (AVD) Manager Terbaru 2016
SSH Tunneling Networking 2016

Bahan-bahan yang diperlukan untuk membuat tunnel ssh cmd bitvise ini sangat sederhana yaitu; Bahasa program delphi7 Lite Edition yaitu versi delphi 7 terakhir dan file Bin, dan yang dimana didalam file bin sudah terdapat file proxifier dan virtual stnlc / cmd bitvise yang versi 7.14 untuk file bin nanti bisa anda cek dibawah.

1. Pertama buka Delphi anda kemudian silahkan tambahkan 3 Groupbox, 1 Memo, 7 Label, 6 Edit, 1 Combobox, 1 Button, 1 Doscommand dan desain kira-kira seperti pada gambar dibawah ini;

Cara Buat Tunnel SSH Gratis Terbaru 2016

2. Yang kedua kemudian silahkan ubah nama-namanya kira-kira seperti pada gambar dibawah ini kemudian pada items combobox tambahkan kode:

HTTP
SOCKS5
SOCKS4

Cara Buat Tunnel SSH Gratis Terbaru 2016

3. Yang ketiga kemudian pada uses silahkan tambahkan  TlHelp32, ShellAPI contohnya bisa anda perhatikan pada gambar dibawah ini;

Cara Buat Tunnel SSH Gratis Terbaru 2016

4. Yang keempat kemudian lalu dibawah {$R *.dfm} tambahkan kode dibawah ini;

function processExists(exeFileName: string): Boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;


function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE,
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
    CloseHandle(FSnapshotHandle);
end;


Cara Buat Tunnel SSH Gratis Terbaru 2016

5. Yang kelima buat procedure sendiri silahkan tambahkan procedure ini; dan untuk menggenerate procedure tekan CTRL+SHIFT+C

    procedure openbitvise;
    procedure closebitvise;
    procedure openproxifier;
    procedure closeproxifier;

Cara Buat Tunnel SSH Gratis Terbaru 2016

6. yang keenam pada procedure TForm1.closebitvise; tambahkan kode dibawah ini;

if processExists('Bitvise.exe') then begin
 KillTask('Bitvise.exe');
 end;

Cara Buat Tunnel SSH Gratis Terbaru 2016

7. Yang ketujuh kemudian pada procedure TForm1.openbitvise; silahkan tambahkan kode dibawah ini;

DosCommand1.CommandLine := ExtractFilePath(Application.Exename)+'Bin\Bitvise.exe '+Edit3.Text+'@'+Edit1.Text+':'+Edit2.Text+' -pw='+Edit4.Text+' -proxy=y -proxyType='+ComboBox1.Text+' -proxyServer='+Edit5.Text+' -proxyPort='+Edit6.Text+' -proxyFwding=y -proxyListIntf=127.0.0.1 -proxyListPort=1081';
  DosCommand1.OutputLines := Memo1.Lines;
  DosCommand1.Execute;

Cara Buat Tunnel SSH Gratis Terbaru 2016

8. Yang kedelapan kemudian double klik pada doscommandnya lalu tambahkan kode dibawah ini;

 if (pos('Error',NewLine)>0) or (pos('ERROR',NewLine)>0) then begin
   DosCommand1.CommandLine := ExtractFilePath(Application.Exename)+'Bin\Bitvise.exe '+Edit3.Text+'@'+Edit1.Text+':'+Edit2.Text+' -pw='+Edit4.Text+' -proxy=y -proxyType='+ComboBox1.Text+' -proxyServer='+Edit5.Text+' -proxyPort='+Edit6.Text+' -proxyFwding=y -proxyListIntf=127.0.0.1 -proxyListPort=1081';
   DosCommand1.Execute;
   Memo1.Lines.Add(newline);
   Sleep(10);
   Memo1.Clear;
    end;

Cara Buat Tunnel SSH Gratis Terbaru 2016

9. Yang kesembilan lalu pada procedure TForm1.openproxifier; silahkan tambahkan kode dibawah ini;

var
    Pf, Pf_dir :String;
begin
  pf := 'Bin\Proxifier.exe';
      Pf_dir:='Bin\Profiles\Profiles.ppx silent-load';
      shellexecute(handle,'open',pchar(Pf),pchar(Pf_dir),nil,sw_hide);

Cara Buat Tunnel SSH Gratis Terbaru 2016

10. Yang kesepuluh lalu pada procedure TForm1.closeproxifier; tambahkan kode dibawah ini;

if processExists('Proxifier.exe') then begin
 KillTask('Proxifier.exe');
 end;

Cara Buat Tunnel SSH Gratis Terbaru 2016

11. Yang kesebelas lalu double klik Button1 lalu tambahkan kode dibawah ini;

if Button1.Caption = 'Login' then begin
    Button1.Caption := 'Stop';
    openbitvise;
    openproxifier;
  end else
  begin
   closebitvise;
   closeproxifier;
    Button1.Caption := 'Login';
  end;

Cara Buat Tunnel SSH Gratis Terbaru 2016

12. Yang kedua belas klik pada memo lalu tambahkan kode dibawah ini;

 if Memo1.Lines.Count = 100 then
    Memo1.Clear;

Cara Buat Tunnel SSH Gratis Terbaru 2016

13. Yang terakhir silahkan build dan test hasil project sahabat lalu untuk file bin silahkan simpan dan sejajarkan dengan projectnya dan untuk file bin bisa anda unduh DISINI atau DISINI silahkan kembangkan dan pelajari kembali agar lebih sempurna hasilnya.

Cara Buat Tunnel SSH Gratis Terbaru 2016

Itulah beberapa tahapan tentang cara membuat Tunnel CMD Bitvise untuk anda dan sebenarnya admin sudah menemukan formula baru agar registry menyimpan hasil key public jadi tidak tidak perlu menyimpan file key public lewat tunnel bitvise originalnya nanti akan kita coba bahas kembali, karena belum ada 1 tutorial pun yang membahas tentang menyimpan registry bitvise via cmd bitvise, jadi bagi sahabat yang ingin copy paste artikel dimohon memberikan sumber aslinya dan hargai setiap para pembuatnya.

Bagi sahabat yang ingin agar confignya bisa disimpan secara otomatis sahabat bisa baca panduannya di: Cara Buat Coding Save Edit Delete Untuk Program Delphi 7

Sekiranya itu saja dulu tutorial tentang Cara Membuat Tunnel SSH Commmand Prompt Bitvise Auto Reconnect Terbaru 2016 semoga apa yang sudah disampaikan bermanfaat dan terima kasih, Wassalam.


EmoticonEmoticon