Cara Bikin Injek internet gratis dengan delphi 7

Cara bikin injek internet gratis dengan delphi 7 - Setelah pusing mau bikin posting apalagi kali ini MAKNYUSblogger akan memberi sedikit gambaran tentang Cara bikin injek internet gratis menggunakan Delphi 7 , sebenernya cukup mudah bagi yang sudah mumpuni bikin injek internetg gratis, tapi bagi yang belum mumpunik seperti sayatentunya sangat kesulitan untuk membuat injek dengan delphi 7 apa lagi codingnya itu lohhh yang bikin puyeng kepala barby.

Buat anda yang mau nyoba bikin injek internet gratis bisa anda simak tutorialnya berikut ini :

1. Tentunya komputer anda sudah terinstal Delphi 7
2. aktifkan delphi Klik  File >> New >> Aplication
   
3. Buat 2 Button dan 1 TCP
   
   
   
   
4. Beri caption pada Button 1 = START / CONNECT / Terserah sesuka anda
   
5. Beri Caption Pada Button 2 =  STOP / DISCONNECT / Terserah sesuka anda
   
6. Kemudian Klik 2 kali pada Button 1 dan masukan Source Kode berikut ini : 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                                                   Seperti pada gambar berikut ini :
   
7. Selanjutnya klik 2 kali pada Button 2 Lalu masukan source kode berikut ini :        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                                                                                                         Seperti gambar berikut ini :
   
8. Selanjutnya kita klik  TCP satu kali  dan dan lihat pada Onject Inspector Sebelah kiri >> Klik Tab Event >> Klik 2 kali pada On Execute dan masukan kode berikut ini :                                             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                                 Maka akan tampak seperti gambar berikut ini :
    
9. Selanjutnya kita klik kembali TCP, Pada Tab Events  Object >> OutboundData  Klik 2 kali  Tambahkan Source kode berikut ini :                                                                         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.                                      Hasilnya seperti gambar berikut ini :
   
10. Tahap Terakhir kita Save As Project Kita dan Jalankan Atau Build
    
    
    
    
11. Selanjutnya tinggal anda Test Projectnya
    
    
    Wrok Injek                                                                            
    

Proxy dan 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

Sekian dulu pasting cara Bikin injek internet gratis dengan Delphi 7 Kurang dan lebihnya kira-kira begitu Moga bermanfaat.

Anda baru saja membaca artikel tentang - Cara Bikin Injek internet gratis dengan delphi 7. Silahkan baca artikel berikutnya Tentang - Next - Jangan lupa g+1 / fb / twit :)