Tutorial To Make Free Internet Injek From Delphi 7

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

Software Delphi 7 Download disini :
Download Video Tutorial disini
Download Source Manual disini
Nonton Video Tutorial di Youtube 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

Semoga Bermanfaat Buat Kalian Semua

Sumber : Edisukarman