Tutorial Cara Membuat Inject di Delphi Sederhana

Assalamualaikum Wr. Wb.
Salam bahagia teman-teman semuanya
Dikesempatan ini saya akan membagikan tutorial cara membuat inject sendiri dengan delphi 7
Inject itu sebagai aplikasi utuk inet gratis, kurang lebihnya begitu lah :v hehe..
Bahan yang dibutuhkan delphi 7 untuk yang belum punya download dulu

Langsung saja kita ke tkp

1. Jalankan program delphi 7
2. Buat 2 Button dan 1 TCP, Button1 ganti Caption START dan Button2 STOP



3. Kalau sudah klik 2x Button1dan Button2 isi code source berikut taruh di bawah begin dan diatas end; : Untuk Button1 :

IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';                   // proxy default

IdMappedPortTCP1.Bindings.Add.Port := StrToInt('3030');           // listen port inject

IdMappedPortTCP1.MappedHost := '10.1.89.130';                // Sesuaikan proxy provider

IdMappedPortTCP1.MappedPort := StrToInt('8000');                 // Port proxy provider

IdMappedPortTCP1.Active := True;

Button1.Visible := False;

Button2.Visible := True;

Untuk Button2 :

IdMappedPortTCP1.Active := False;

IdMappedPortTCP1.Bindings.Clear;

Button1.Visible := True;

Button2.Visible := False;

4. Terus gantian ke TCP klik pilih tab bagian Event terus klik 2x OnExecute isi code berikut :

var

Payload,Header:String;

begin

if (pos('CONNECT',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('https',athread.NetData)<>0) or (pos('ALIVE',athread.NetData)<>0) then begin

payload:= 'GETS http://BUG/ HTTP/1.1'+#13#10+'Connection: Keep-Alive'+#13#10#13#10#13#10+'Host: BUG'+#13#10;

athread.OutboundClient.Write(header); Sleep (1000);

athread.NetData:=payload;

end;

NB: Untuk tulisan BUG yang saya kasih warna merah itu ganti sesuai bughost masing" provider.

Kemudian Klik 2x pilih OnOutboundData isi code berikut :

if Pos (' 400 Bad Request', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(AThread.NetData,' 400 Bad Request',' 200 OK',[rfReplaceAll]);

   end;

if Pos (' 403 forbidden', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(AThread.NetData,' 403 forbidden',' 200 OK',[rfReplaceAll]);

   end;

if Pos (' HTTP/1.1', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(AThread.NetData,' HTTP/1.1',' HTTP/1.0',[rfReplaceAll]);

   end;

if Pos (' %2f', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(AThread.NetData,' %2f',' /',[rfReplaceAll]);

   end;

if Pos (' %20', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(AThread.NetData,' %20',' _',[rfReplaceAll]);

   end;

if Pos (' Set-Cookie', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(AThread.NetData,' Set-Cookie',' 200 OK',[rfReplaceAll]);

   end;

If Pos('HTTP/1.1 302 Found', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(athread.NetData,'HTTP/1.1 302 Found','HTTP/1.1 200 OK',[rfReplaceAll]);

  end;

if Pos (' 302 Found', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(AThread.NetData,' 302 Found',' 200 OK',[rfReplaceAll]);

   end;

if Pos (' 302 Found   200', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(AThread.NetData,' 302 Found   200',' 200 OK',[rfReplaceAll]);

   end;

if Pos (' :22', AThread.NetData) <>0 then begin

     AThread.NetData := StringReplace(AThread.NetData,' :22',' :443',[rfReplaceAll]);

   end;

if pos (' 405 Method', AThread.NetData) <>0 then begin

AThread.NetData := StringReplace(AThread.NetData,' 405 Method',' 200 OK',[rfReplaceAll]);

  end;

If Pos('HTTP/1.', Athread.NetData) = 1 then

begin

  If Pos('HTTP/1.1 200 OK', Athread.NetData) = 1 then

end;

5. Terakhir simpan dulu projectnya terus Klik Run / tekan F9. dan ini hasilnya :)

Tutorial diatas ini hanya sederhana kalau mau lebih keren lagi bisa dikreasikan sendiri lagi yah :)

semoga postingan ini bermafaat dan jangan disalah gunakan hehehe...

Untuk yang mau download source codenya disini
Wassalamualaikum Wr. Wb.