Tutorial Membuat Injek Internet Menggunakan Delphi 7

Bahan yang kalian Butuhkan

Software Delphi 7 Download disini
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