Cara Membuat Injek Dasar dengan 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
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
Cara Membuat Injek Dasar dengan Delphi 7
Alternative Link :
Cara Membuat Injek Dasar dengan Delphi 7
[ Click Here to Download ]
![SSH Android Optimus Droid rev.3.1
Link tutor & app:
http://upfile.mobi/697972
Pass : c̶o̶n̶a̶n̶
Trial
- user : trial
- pass : helmy
- port : 443/22
✓ new anu kandang & sakti
✓ new pilot
✓ fix support OS Gingerbird
tutorial sudah ada di dalam folder [komplit]
silahkan di coba :*
note:
- android wajib root
- GB supported
- kandang & sakti
- no pancing no kuota no pulsa
- mau kenceng? erotin dulu cin :v
- knp tsel mulu? ajis, ijah, tere konek tp limit, mau? -_-
- sering dc? banyak faktornya
mau yg premium? sini pm ^_^
yg asal comot ane doain gak konek :v](https://fbcdn-sphotos-b-a.akamaihd.net/hphotos-ak-xap1/v/t1.0-9/p235x165/10013705_10200183793234535_1861599524117959097_n.jpg?oh=52f2a31c15ec19823fff0682e69af0ce&oe=551B0AA4&__gda__=1423988255_c5d601275146b4e13dfdc788ed2cf945)
