Membuat PLINK Sebagai Pengganti Bitvise Delphi 7

Halo Kawan2, Jumpa lagi bersama ' The Nubitol '

Kali ini kita akan 5 menit membuat PLINK 

Apakah PLINK itu ,.. bahasa cepatnya = Plink adalah sebagai pengganti Bitvise

Kalo Tun2Sock adalah pengganti Proxifier

Keduanya bisa di gunakan Untuk Update AV, Wds , Game online.
Tggl penyesuain dgn injek nya aja,.
kdng untuk kasus2 tertentu,.plink jg ndak bisa konek aka bengong,.
jd harus bener2 pas antara injek, bug, dan ip koneksion modem nya

Bagaimana kelanjutan,. yokk.. Tarik manggg...

( Kebetulan semua sdh sy tulis di sini,untuk merpersingkat waktu )

Pertama2 kita buka dulu Delphi 7 nya,.

Kita set dl output exe nya sekalian ico nya

Selanjutnya,  kita tambahakn di Uses dulu,.  Tlhelp32, Registry,ShellAPI;

Terus kita tambahkan :

1. 1 buah Memo

2. 2 buah Button

3. 6 buah Edit

4. 1 buah checkbox

5. 1 buah Doscommand

Kemuadian kita tambahkan dulu,. function killtask buat nge kils si anu aka Pf bila kita Tekan tombol STOP :

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;

Nah , Sekarang kita lsng ke tombol Button,.

Buton1 kita ksh nama START di caption nya, kemudian kita klik 2x  dan tambahkan :

var
Reg: TRegistry;
Path: String;
cmd1: String;
proxymetode: Integer;
proxy: string;
UserName,password,porthost,host,portproxy:string;
Proxifier,plinkplonk : string;
begin
Proxifier:='Proxifier\Proxifier.exe';
plinkplonk:='Proxifier\Profiles\nubitol.ppx silent-load';
shellexecute(handle,'open',pchar(Proxifier),pchar(plinkplonk),nil,SW_HIDE);
username:=sEdit1.Text ;
password:=sEdit2.Text;
host:=sEdit3.Text;
porthost:=sEdit4.Text;
proxy:=sEdit5.Text;
portproxy:=sEdit6.Text;
sButton2.Enabled := true;
sButton1.Enabled := false;
if sCheckBox1.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)+'Plink.exe -v -N -C -D 1080 ' +username+ '@' +host+ ' -P ' +porthost+ ' -pw ' +password;
DosCommand1.CommandLine:=CMD1;
DosCommand1.OutputLines := sMemo1.Lines;
DosCommand1.Execute;
end;

Kemudian Button2 , kita ksh nama STOP, dan klikk 2x ,trs tambahkan

var
Reg: TRegistry;
Path: String;
host:string;
begin
Killtask('Proxifier.exe');
sButton1.Enabled := true;
sButton2.Enabled := false;
sMemo1.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;

Skrng kita cek Fungsi tombol2nya

Ok,skrng kita coba tester

Kita ksh nama dl tool kita

oke,sudah konek,,skrng kita save project kita

Oke, Demikian tutorial ala ' The Nubitol '
Nantikan tutor2 lainya,.

Kalo Kurang jelas, Silahkan di lihat video tutorial nya di bawah

Cheeerrrrrrrssss.......

Download Plink