Tutorial Membuat Inject Internet Gratis XL Menggunakan Delpi 7

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 

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

Proxy & Port Provider 

XL                    : 202.152.240.50:8080

TELKOMSEL        : 10.1.89.130:8000

INDOSAT           : 10.19.19.19:8080

THREE               : 10.4.0.10:3128

AXIS                 : 10.8.3.8:8080

SMARTFREN       : 10.17.27.250:8080

Sumber : http://cyberpamekasan.blogspot.com/2014/04/cara-buat-inject-dengan-delphi-7.html