Home Delphi Internet Cara Membuat Tunnel Multi Plink ( Bitvise dan Proxifier )

Cara Membuat Tunnel Multi Plink ( Bitvise dan Proxifier )

Jasmine Nur Annisa

Ini Dia Cara Membuat Tunnel Multi Plink 2015 ( Bitvise dan Proxifier ) dimana ini merupakan lebih tepatnya untuk membuat plink multi login atau ssh multi login, karena pada dasarnya plink ini bekerja dengan putty yang sudah barang tentu tidak akan banyak memakan reseources ram komputer kita dan kelebihan dari plink adalah dia akan memiliki kecepatan upload yang sangat baik jadi bagi anda yang hobi upload upload gambar, file,video maka sangat cocok sekali kalau plink ini dijadikan sebagai bahan perantaranya, disini saya akan berikan tutorial multi plink 2 login akun ssh saja jadi kalau anda mau sampai login hingga 3 lebihan tinggal anda tambahkan komponen dosnya saja dan tentunya sesuaikan saja dengan apa yang ingin anda buat, tetapi disini saya akan berikan yang hanya 2 login saja, kalau anda mau login plink 1 login saja sudah saya berikan tutorialnya silahkan di baca Cara Membuat Tunnel Single Plink Pengganti Bitvise dan Proxifier ok tanpa panjang lebar lagi bagi sahabat yang mau mencoba membuatnya silahkan ikuti panduan sederhananya dibawah ini;

1. Langkah pertama silahkan buat dulu sebuah folder kosong kasih nama misal "Latihan Buat Plink" lalu buka software delphi anda kalau anda menggunakan delphi, kalau program delphi 7 tidak ada di windows sebelah kiri silahkan anda cari di C:\Program Files\Borland\Delphi7\Bin\delphi32.exe jika program delphi sudah terbuka silahkan anda buat dan tambahkan komponennya ke form seperti dibawah ini:

Cara Buat Multi Login Plink 2015

Daftar Komponennya:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    CheckBox1: TCheckBox;
    Edit5: TEdit;
    Edit6: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    DosCommand1: TDosCommand;
    DosCommand2: TDosCommand;

2. Yang kedua silahkan tambahkan uses  Tlhelp32, Registry,ShellAPI

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DosCommand, StdCtrls, Tlhelp32, Registry,ShellAPI;


Cara Buat Multi Login Plink 2015

3. Yang ketiga tambahkan function atau kode killer dibawah ini tepat setelah {$R *.dfm} lihat gambar bawah.

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 Multi Login Plink 2015

4. Yang keempat klik button 1 (double klik) atau anda bisa lewat object inspector > event > onclick lalu tambahkan coding dibawah ini:

var
Reg: TRegistry;
Path: String;
cmd1: String;
proxymetode: Integer;
proxy: string;
UserName,password,porthost,host,portproxy:string;
Proxifier,zonkplink : string;
begin
if RadioButton1.Checked=True then begin
Proxifier:='zonksel\Proxifier.exe';
zonkplink:='zonksel\zonksel\zonksel1.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(zonkplink),nil,SW_HIDE);
host:=Edit1.Text;
username:=Edit2.Text;
password:=Edit3.Text;
porthost:=Edit4.Text;
proxy:=Edit5.Text;
portproxy:=Edit6.Text;
Button2.Enabled := true;
Button1.Enabled := false;
if CheckBox1.Checked then
proxymetode:=3
else
begin
proxymetode:=0;
end;
Reg := Tregistry.CReate;

try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPort', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End else
Begin
OpenKey(Path,False);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPor', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;

end else;

if RadioButton2.Checked=True then begin
Proxifier:='zonksel\Proxifier.exe';
zonkplink:='zonksel\zonksel\zonksel1.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(zonkplink),nil,SW_HIDE);
host:=Edit1.Text;
username:=Edit2.Text;
password:=Edit3.Text;
porthost:=Edit4.Text;
proxy:=Edit5.Text;
portproxy:=Edit6.Text;
Button2.Enabled := true;
Button1.Enabled := false;
if CheckBox1.Checked then
proxymetode:=3
else
begin
proxymetode:=0;
end;
Reg := Tregistry.CReate;

try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPort', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End else
Begin
OpenKey(Path,False);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPor', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;

Proxifier:='zonksel\Proxifier.exe';
zonkplink:='zonksel\zonksel\zonksel2.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(zonkplink),nil,SW_HIDE);
host:=Edit1.Text;
username:=Edit2.Text;
password:=Edit3.Text;
porthost:=Edit4.Text;
proxy:=Edit5.Text;
portproxy:=Edit6.Text;
Button2.Enabled := true;
Button1.Enabled := false;
if CheckBox1.Checked then
proxymetode:=3
else
begin
proxymetode:=0;
end;
Reg := Tregistry.CReate;

try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPort', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End else
Begin
OpenKey(Path,False);
WriteInteger('Present', 1);
WriteString('HostName', host);
WriteInteger('PortNumber', strToInt(porthost));
WriteInteger('PingInterval', 0);
WriteInteger('PingIntervalSecs', 10);
WriteInteger('TCPNoDelay', 1);
WriteInteger('TCPKeepalives', 1);
WriteInteger('ProxyMethod', proxymetode);
WriteString('ProxyHost', proxy);
WriteInteger('ProxyPor', strToInt(portproxy));
WriteString('Cipher', 'blowfish');
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
CMD1:=extractfilepath(application.exename)+'zonksel\Plink.exe -v -N -C -D 2080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand2.CommandLine:=CMD1;
DosCommand2.OutputLines := Memo1.Lines;
DosCommand2.Execute;

end;
end;


Cara Buat Multi Login Plink 2015

5. Yang kelima kemudian double klik button2 lalu tambahkan code dibawah ini: (lihat contoh gambar dibawah)

var
Reg: TRegistry;
Path: String;
host:string;
begin
Killtask('Proxifier.exe');
Button1.Enabled := true;
Button2.Enabled := false;
Memo1.Clear;
Reg := Tregistry.CReate;
try
with Reg do
begin
RootKey:=HKEY_CURRENT_USER;
Path := '\Software\SimonTatham\PuTTY\Sessions\'+host;
If Not KeyExists(Path) Then
Begin
DeleteKey(Path);
End else
Begin
DeleteKey(Path);
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
end;


Cara Buat Multi Login Plink 2015

6. Yang keenam silahkan anda ganti tulisan labelnya seperti gambar dibawah ini, untuk tulisan edit edit dan edit silahkan anda kosongkan atau anda bisa langsung isi dengan ssh punya anda, jika sudah selesai silahkan pilih file dan save as projectnya ke folder yang sudah saya suruh buat diawal postingan.

Cara Buat Multi Login Plink 2015

7. Dan terakhir gambar dibawah ini adalah contoh hasil createnya , untuk folder zonkselnya silahkan anda download DISINI dan silahkan dicoba.

Cara Buat Multi Login Plink 2015

Baca Juga: Cara Membuat Plink Agar Bisa Auto Reconnect Otomatis

Dan hanya itu saja info kali ini tentang  Cara Membuat Tunnel Multi Plink 2015 ( Bitvise dan Proxifier ) semoga bermanfaat dan membantu, terima kasih.

CAPSA (Cara Apa Saja) Informasi Download Lagu dan Proxy Free Full Version Blogger

Related Posts