Tutorial Cara Membuat Inject di Delphi Sederhana

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.
Baca Juga
SHARE
Subscribe to get free updates

Related Posts

6 komentar

  1. tcp event inoutbond ndak keluar masalahnya apa ya mas

    BalasHapus
    Balasan
    1. Tidak keluar gmana maksudnya ?
      Menunya gak ada ??

      Hapus
  2. Problem merah di bagian var

    procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
    begin
    Payload,Header:String;
    var

    BalasHapus
    Balasan
    1. Salah koding itu
      Tulisan
      begin ganti var
      Dan var ganti begin

      Hapus
  3. bang gimana caranya bisa mengubah aplikasi delphi kaya abang bagus gak kaya biasanya

    BalasHapus

Posting Komentar

>> PERHATIKAN !!! <<

- Gunakan kata-kata yang bijak saat berkomentar ya sob.
- Berkomentar dengan Foto <i rel="image">URL_GAMBAR</i>
- Berkomentar dengan Code HTML silakan Parse dulu.