Friday, 29 January 2016

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.

BERITA LENGKAP DI HALAMAN BERIKUTNYA

Halaman Berikutnya

6 komentar

tcp event inoutbond ndak keluar masalahnya apa ya mas

Tidak keluar gmana maksudnya ?
Menunya gak ada ??

Problem merah di bagian var

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

Salah koding itu
Tulisan
begin ganti var
Dan var ganti begin

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

>> 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.