Belajar Cara Membuat Injek Dengan Delphi 7

What's Up bro, Kali ini gue akan Share cara membuat injek dasar dengan delphi 7

Gue share cara bikin injek dengan delphi 7 ini karena gue lihat banyak yang pengen belajar cara buat injek. Enak kalau lu udh bisa buat injek, mau Masukin Bug Host tinggal masukin sendiri. Cekidot

• All Tutorial Download
• Software Delphi 7 Download disini :
• size : 275 MB
  Via Solidfiles
  => Delphi 7 Enterprise Full Keygen ( Sumber Kuyha-android19.com)
  Password :www.kuyhaa-android19.com
• Download Video Tutorial disini
• Download Source Manual disini

Langsung Saja Kita Ke Tutorialnya :

1. Jalankan Program Delphi 7

2. Buat 2 Button dan 1 TCP

2. Beri Caption Pada Button1 : Start atau Connect atau Terserah Kamu.

3. Beri Caption Button2 : Stop atau Disconnect atau terserah Kamu

4. Kemudian, Klik 2 Kali Button 1 dan Masukkan Source Code Berikut

• IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1'; // ini adalah Proxy Default
• IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('8080'); // ini Listen Port, bisa Kalian Ubah Sesuka hati
• IdMappedPortTCP1.MappedHost:='202.152.240.50'; // Ini adalah Proxy dari Operator , saya contohkan XL : 202.152.240.50
• IdMappedPortTCP1.MappedPort:=StrToInt('8080'); // ini adalah Port dari Proxy Operator, Port XL : 8080
• IdMappedPortTCP1.Active:=True; // ini Untuk Mengaktifkan TCP Server
• Button1.Enabled:=False; // Ini Untuk Menonaktifkan Button1 atau Start
• Button2.Enabled:=True; // ini Untuk Mengaktifkan Button2 atau Stop

 Maka Jadi Seperti Gambar di Bawah ini

5. Selanjutnya Klik 2 Kali Button2 dan Masukkan Source Code berikut :

• IdMappedPortTCP1.Active:=False; // ini untuk menonaktifkan TCP Server
• IdMappedPortTCP1.Bindings.Clear; // ini Untuk Membersihkan koneksi TCP Server
• Button1.Enabled:=True; // ini untuk mengaktifkan kembali Button1 atau Start
• Button2.Enabled:=False; // ini untuk menonaktifkan Button1 atau Stop

Maka Jadi Seperti Gambar di bawah ini

6.  Selanjutnya Kita Klik TCP dan Lihat pada Onject Inspector Sebelah kiri --> Klik Tab Event --> Klik 2 kali pada OnExecute dan Masukkan Source Berikut :

• var
• ESIND:string; //Perintah Untuk Menghubungkan dan Letakkan di atas Begin
• ESIND:='GET http://BUGSKAMU/ HTTP/1.1'+#13#10+'User-Agent: Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0 Host : BUGSKAMU'#13#10#13#10#13#10+athread.NetData; 
• if pos('CONNECT',athread.NetData) <>0 then
• athread.NetData:=athread.NetData+ESIND; // Merupakan Methode untuk menghubungkan ke Server

Jadinya Seperti Gambar di Bawah ini

7. Selanjutnya Kita Klik Kembali TCP, Pada Tab Event Object Inspector , Klik  2 Kali OnOutboundConnect , dan Masukkan Source Berikut :

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

AThread.NetData := StringReplace(AThread.NetData,'HTTP/1.1 302 Found','HTTP/1.1 200 Ok',[rfReplaceAll, rfIgnoreCase]); // Ini Berfungsi Untuk MeReplace Jika ada Bugs Yang Harus di Replace.

Jadinya seperti ini

8. Tahap Terakhir Kita Save As Project Kita dan Jalankan Atau Build

9. Selanjutnya Tinggal Kalian Test Projectnya

Work Injek XL

Sumber: Edi Sukarman

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email