Cara membuat Tunnel SSH / Multi SSH di Delphi 7

kali ini maknyus blogger akan berbagi Cara membuat multi SSH atau Tunnel SSH..
apa sih tunnel ssh itu ..?? tunnel SSH itu alat/tool yg mempermudah untuk mengkoneksikan internetan gratis menggunakan SSH ( secure sheel )..
langsung saja gan nggak usah lama'' lagi langsunge cara caranya saja gan...

1. Buka software delphi 7 agan
2. tambahkan " Uses " seperti beikut : " Tlhelp32, ShellApi, Sockets " ,
   setelah di tambahkan jadinya seperti gambar di bawah ini :

3. kita tambahkan function KillTask buat close/kill Proxifier jika kita menekan tombol Stop/Logout dengan memasukan code di bawah ini :

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;

dan setelah di tambahkan jadinya seperti gambar di bawah ini :

 4. tambahkan komponen-komponen seperti di bawah ini  
   *  2 komponen Button
   * 7 komponen Edit
   * 6 komponen Label
   * 1 komponen CheckBox
   * 3 komponen RadioButton

dan jadinya seperti gambar di bawah ini :

 

5. kita kasih code untuk masing-masing komponen :

• pada komponen Button1 agan kasih caption " Login " atau terserah anda, 

 dan masukan code di bawah ini [ hilangkan code " BEGIN " ] :

var
HostSSH,PortSSH,UserSSH,PassSSH,ProxySSH,lportSSH,loginSSH,loginSSH1,ptype,Bitvise,akunSSH1,akunSSH2,akunSSH3,akunSSH4:String;
begin
UserSSH:= edit1.Text;
PassSSH:= edit2.Text;
HostSSH:= edit3.Text;
PortSSH:= edit4.Text;
ProxySSH:= edit5.Text;
lportSSH:= edit6.Text;
ptype := edit7.Text;
begin
edit1.Enabled := False;
edit2.Enabled := False;
edit3.Enabled := False;
edit4.Enabled := False;
if Checkbox1.Checked then
begin
Edit5.Enabled := False;
edit6.Enabled := False;
Edit7.Enabled := False;
loginSSH:=' -host='+HostSSH+' -port='+PortSSH+' -loginOnStartup'+ ' -username='+UserSSH+' -password='+PassSSH+' -proxy=y -proxyType='+ptype+' -ProxyServer='+ProxySSH+' -ProxyPort='+lportSSH+' -menu=small';
end;
if RadioButton1.Checked then begin
Bitvise:='Bitvise\BvSSh.exe';
akunSSH1:=' -profile=Bitvise\1080.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH1),nil,sw_hide);
akunSSH2:=' -profile=Bitvise\1081.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH2),nil,sw_hide);
end
else
if RadioButton2.Checked then begin
Bitvise:='Bitvise\BvSSh.exe';
akunSSH1:=' -profile=Bitvise\Profiles\1080.bscp'+loginSSH; //1080-1083 adlh nama profile bitvise client
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH1),nil,sw_hide);
akunSSH2:=' -profile=Bitvise\Profiles\1081.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH2),nil,sw_hide);
akunSSH3:=' -profile=Bitvise\Profiles\1082.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH3),nil,sw_hide);
end
else
if RadioButton3.Checked then begin
Bitvise:='Bitvise\BvSSh.exe';
akunSSH1:=' -profile=Bitvise\Profiles\1080.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH1),nil,sw_hide);
akunSSH2:=' -profile=Bitvise\Profiles\1081.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH2),nil,sw_hide);
akunSSH3:=' -profile=Bitvise\Profiles\1082.bscp'+loginSSH;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH3),nil,sw_hide);
akunSSH4:=' -profile=Bitvise\Profiles\1083.bscp'+loginSSH1;
shellexecute(handle,'open',pchar(Bitvise),pchar(akunSSH4),nil,sw_hide);
end;
if RadioButton1.Checked then
begin
shellexecute(handle,'open',PChar('Proxifier\Proxifier.exe'),PChar(' Proxifier\Profiles\2Akun.ppx silent-load'),NIL,SW_HIDE); //2Akun adalah nama profile Proxifier
end
else
if RadioButton2.Checked then
begin
shellexecute(handle,'open',PChar('Proxifier\Proxifier.exe'),PChar(' Proxifier\Profiles\3Akun.ppx silent-load'),NIL,SW_HIDE); //3Akun adalah nama profile Proxifier
end
else
if RadioButton3.Checked then
begin
shellexecute(handle,'open',PChar('Proxifier\Proxifier.exe'),PChar(' Proxifier\Profiles\4Akun.ppx silent-load'),NIL,SW_HIDE); //4Akun adalah nama profile Proxifier
end;
end;

• pada komponen Button2 agan kasih caption " Logout " atau terserah anda,

         dan masukan code di bawah ini :

Edit1.Enabled := True;
edit2.Enabled := True;
edit3.Enabled := True;
edit4.Enabled := True;
if CheckBox1.Checked then
begin
Edit7.Enabled := True;
edit5.Enabled := True;
edit6.Enabled := True;
end;
killtask('BvSSH.exe'); //code kill 
killtask('Proxifier.exe');

6. beri caption dan nama pada masing-masing komponen :

Label1 : anda kasih caption [ Username ] atau terserah anda
Label2 : anda kasih caption [ Password ]atau tererah anda
Label3 : anda kasih caption [ Proxy ] atau terserah anda
Label4 : anda kasih caption [ Port ] atau terserah anda
Label5 : anda kasih caption [ Host ] atau terserah anda
Label6 : anda kasih caption [ Port ] atau terserah anda
CheckBox1 : anda kasih caption [ Use Proxy ] atau terserah anda
RadioButton1 : anda bisa kasih caption [ Masuk 2 Akun ] atau terserah anda
RadioButton2 : anda bisa kasih caption [ Masuk 3 Akun ] atau terserah anda
RadioButton3 : anda bisa kasih caption [ Masuk 4 Akun ] atau terserah anda
Kemudian.....anda kasih Text/tulisan [ " http " ] pada komponen " Edit7 "

dan jadinya seperti gambar di bwah ini :

 7. kemudian anda " SAVE ALL " project Tunnel SSH ,
ke folder Tunnel SSH yg bisa anda download di bawah :
Multi SSH

8. tinggal anda test deh project Tunnel SSH nya


sekian ..dulu dari post kali ini.....
jika ada sesuatu yg belum anda tau atau maksud tinggal koment......
atau jika ada Eror dalam code tinggal coment..aja

Anda baru saja membaca artikel tentang - Cara membuat Tunnel SSH / Multi SSH di Delphi 7. Silahkan baca artikel berikutnya Tentang - Next - Jangan lupa g+1 / fb / twit :)