Assalamu'alaikum...
kali ini saya 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);
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
- 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
SINI!!??
8. tinggal anda test deh project Tunnel SSH nya
sekian ..dulu dari post kali ini.....tanang celekker ponnnnn
jika ada sesuatu yg belum anda tau atau maksud tinggal koment......
atau jika ada Eror dalam code tinggal coment..aja
Wassalamu'alaikum.kang massssssssssss
