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
