Cara membuat Tunnel SSH / Multi SSH di Delphi 7

Assalamu'alaikum...
kali ini saya akan berbagi Cara membuat multi SSH atau Tunnel SSH..
apa tunnel ssh itu ..?? tunnel SSH itu alat/tool yg mempermudah untuk mengkoneksikan internet percuma atau limitkan quata menggunakan SSH ( secure shell )..
terus saja tak payah tunggu'' ini caranya...

1. Buka software delphi 7
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 bagi 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 bole anda download di bawah :
Multi SSH 

8. sekarang anda test project Tunnel SSH


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
Wassalamu'alaikum............

Demikianlah Artikel tentang Cara membuat Tunnel SSH / Multi SSH di Delphi 7

Sekian dulu artikel tentang Cara membuat Tunnel SSH / Multi SSH di Delphi 7, mudah - mudahan bisa memberi manfaat untuk anda semua. jika anda masih binggung atau belum jelas tentang artikel yang saya sampaikan anda bisa berkomentar dan jika anda juga ingin requset tentang beberapa ( Akun SSH Premium,inject PC,Config Http injector,Config KPN,config Eproxy.config Open VPN dan tips dan trick ). di kolom komentar. jika artikel yang saya berikan bermanfaat dan berguna anda juga bisa share artikel saya ke teman teman anda semua ( berbagi itu indah )

• Tweet
• Share
• Share
• Share
• Share

About Admin

Halo Sobat Blogger, Saya Hanyalah Seorang Blogger Pemula dan Saya Berharap Anda dan Saya Bisa Berhasil dan Sukses Kedepannya. Selamat Datang Teman Teman Dan Terima Kasih Sudah Berkunjung Diblog Website kami.

Related Post