Menambahkan Inject Di PLINK Delphi 7

Halo kawan2, jmp lg dgn ' The Nubitol '
Kali ini,kita akan membuat injek di plink

bgmn kelanjutanya, yuk, tarik manngg..

buka dl Delphi 7 nya , buka sekalian project plink plonk yg kmrn

selanjutnya,...


Yang kita butuhkan cuman :

1. 1 buah TIdMappedPortTCP
2. 2 buah shape

Tambahkan Prosedur LED di atas dl :

Procedure LedBlinkUpload;
Procedure LedBlinkDownload;

prosedur led nya kita psng :

Trs, Di Bawah :

implementation

{$R *.dfm}

Tambahkan :


procedure TForm1.LedBlinkUpload;
begin
shape1.Refresh;

if shape1.brush.color=$00353535 then
begin
  shape1.brush.color:=clLime;
end else
begin
  shape1.brush.color:=$00353535 ;
end;

end;

procedure TForm1.LedBlinkDownload;
begin
shape2.Refresh;

if shape2.brush.color=$00353535  then
begin
  shape2.brush.color:=clRed;
end else
begin
  shape2.brush.color:=$00353535 ;
end;

end;

Skrng, Ke tombol  :

Tombol START / sButton 1 , klik 2x, masukan :

IdMappedPortTCP1.Active := False; // ini kalo lsng di pasang di sini
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt('2222'); //Port Injek
IdMappedPortTCP1.MappedHost := '10.1.89.130'; //Proxy Injek
IdMappedPortTCP1.MappedPort := StrtoInt ('8000'); //Listen Portnya
IdMappedPortTCP1.Active := True;

{IdMappedPortTCP1.Active := False;  // Ini Kalo Mau menambahkan manual isian edit nya di form exe
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt(sEdit2.Text);
IdMappedPortTCP1.MappedHost := sEdit1.Text;
IdMappedPortTCP1.MappedPort := StrtoInt (sEdit2.Text);
IdMappedPortTCP1.Active := True;}

Tombol STOP nya , masukan :

IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;

TIdMappedPortTCP nya , bagian Execute , klik 2x , masukan :

LedBlinkUpload;
If Pos('HTTP', Athread.NetData) <>0 then
begin
athread.NetData := athread.NetData+'METODE http://BUG/ HTTP/1.1'#13#10'connection: keep-Alive'#13#10'Host: BUG'#10#10#10;
end;


Outbound data nya , klik 2x ,masukan :

LedBlinkDownload;
if Pos ('HTTP/1.1 302 Found', AThread.NetData) <> 0 then
begin
AThread.NetData := '';
end;

skrng kita tester yuk.

skrng,kita make cara yg ke 2 td,.

tester juga...
bgmn,mudah bkn,

Demikian tuorial kali ini,.
smp jmp di kesempatan lainya,

jgn lupa ke thenubitol.blogspot.com

Cheerrrsss........................

Untuk Lebih Jelas nya, Simak Video Tutorial di bawah ini

Download PLINK Inject