Home » , » Cara Membuat Injek Dasar dengan Delphi 7

Cara Membuat Injek Dasar dengan Delphi 7

Written By edi website on Tuesday, 19 August 2014 | 21:52

Assalamualaikkum Warohmatullahi Wabarokaatuh
Salam Bahagia Teman-Teman
Pada Kesempatan ini saya akan memberikan Tutorial Membuat Injek Internet Gratis dari Delphi 7.
Injek ini menggunakan Indy Server.
Bahan yang kalian Butuhkan 
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


Semoga Bermanfaat Buat Kalian Semua





New Post

Powered by Blogger.