TUTORIAL MEMBUAT INJEK TAHAP DASAR DENGAN DELPHI 7

Assalamu'alaikum wr.wb...

Selamat malam sob, Pada kesempatan ini saya mau berbagi tentang bagaimana cara membuat inject Tahap Dasar dengan Delphi7, Untuk tahap pertama sobat harus punya sofware Borland Delphi7 nya dulu , silahkan Googlink aja ya sob banyak yang share kok.
Ok langsung aja bagi sobat yang sudah mempunyai Delphi7 nya kita langsung ke pemrograman:
 
1. Buka program Delphi7

1.    2. Kemudian tambahkan komponen 2 buah Tombol Button letaknya ada di Menu Komponen standard nantinyaakan di gunaya untuk memutus dan menyambungkan koneksi injeknya.

bingung? nih gambarnya supaya lebih ngerti :

3. Kemudian tambahkan satu komponen  TCP Indy Server  pada tab  Indy Server  yang berada pada menu atas  gunanya untuk sinkron koneksi ke internet,
lihat SS nya :

4.  Kemudian kembali ke menu standar lalu tambahkan :
- 2 Komponen Memo ( untuk mengetahui respon log dari hasil kerja injek yg kamu buat )
- 3 Buah komponen Edit, ( untuk proxy, Listen port, dan port )
- 4 Buah komponen Label.

5. Selanjutnya sobat seting komponen yang tadi buat step by step ya sob ,,,,

kita mulai seting dari komponen button 1 klik 1x, nah di area Windows Object Insfector ubah dari kolom caption nya tadinya tulisan:

** Buttion 1 ubah menjadi START dan Button 2 Menjadi STOP,

** Lable 1 ubah menjadi Proxy Port

** Lable 2 ubah menjadi  Listen Port

** Lable 3 ubah menjadi Request

** Lable 4 ubah menjadi Respons

lihat ss nya :

6. Selanjutnya Klik satu kali Edit1 dan di area windows Object Inspector pada Properti Text, Hapus Tulisan Edit1, begitu juga pada komponen Edit2, dan Edit3 lalu masukan/ ketik :
** Edit 1 ubah dengan Proxy oprator yang kalian pakai
contoh,,, proxy operator nnya
-XL             : 202.152.240.50
-Three         : 10.4.0.10
-Telkomsel  : 10.1.89.130
-Indosat       : 10.19.19.19
-Axis           : 10.8.3.8

** Edit 2 isikan port yang sobat sukai contoh yg slalu saya pakai ' 778 '
** Edit 3 isikan port proxy oprator yg sobat pakai
 contoh,,,  Port proxy operator nnya
-XL             : 8080 bisa juga 80
-Three         : 8080
-Telkomsel  : 8000
-Indosat       : 8080
-Axis           : 8080
liat ssnya: 

7. Selanjutnya sobat save dulu Project nya caranya klik menu File lalu pilih save all dan simpan di tempat yang sobat mau,, dan ane sarankan di kasih nama filenya biar gak lupa heheheh... 

lihat ss nya: 

8. sesudah kamu save project nya sekarang kamu  isi source code buat menjalankan program biar bisa berpungsi dengan baik, caranya doble klik pada komponen Button START dan masukan kode di bawah ini pada area Unit1 pas di bawah begin:

IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1'; // Ip lokal (Jangan di ganti)
IdMappedPortTCP1.Bindings.Add.Port := StrToInt(Edit2.Text); //Listen Port Bisa kamu isi sesukamu
IdMappedPortTCP1.MappedHost := Edit1.Text; //Untuk Free Froxy
IdMappedPortTCP1.MappedPort := StrToInt(Edit3.Text); //Port dari free proxy
IdMappedPortTCP1.Active := True; // Tcp Di aktipkan
Button1.Enabled := False; //Menonaktipkan Tombol Start
Button2.Enabled := True; // Mengaktipkan tombol Stop 

Lihat SS untuk posisi penempatannya.

8. Kemudian klik 2x pada " Button STOP " kemudian masukan source kode berikut

IdMappedPortTCP1.Active := False; // Menonaktipkan Komponen TCP Server
IdMappedPortTCP1.Bindings.Clear; //Membersihkan Data TCP Server
Button1.Enabled := True; //Mengaktipkan Tombol START biar bisa di klik
Button2.Enabled := False; //Menonaktipkan Tombol STOP Tidak bsa di klik

Lihat SS untuk posisi penempatannya.

9. Selanjutnya Klik satu kali komponen TCP dan di windows Object Inspector pilih tab Events dan cari menu onExecute lalu doble klik pada area tersebut dan lihat pada area Unit1 lalu masukan kode berikut:
Kode ini isikan di bawah prosedur:

var
ESIND : string;

Dan yang ini isikan di bawah begin:

ESIND:='metodeSOBAThttp://Bugsobat/HTTP/1.1'#13#10+'Connection:Keep-Alive'+#13#10+'User-Agent:Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0'#13#10+'Host: HostSOBAT'+#13#10#13#10#13#10+athread.NetData;+Athread.NetDara; // Data Payload pengiriman
if  Pos('CONNECT',AThread.NetData)<>0 then //Sistem Mencari Menthod Deengan Benar;
AThread.NetData := AThread.NetData + ESIND; //Mengabungkan Data Data Lain;
Memo1.Lines.Add(AThread.NetData); //Untuk Menampilkan data log request 

Untuk penempatan lihat gambar.

10. Masih di area windows Object Inspector pada tab Events, cari menu OnOutboundData dan dobel klik di kolom tersebut lalu masukan kode ini di bawah begin:

//==Tempat area reflash bila di perlukan==//
//==Contoh Reflash kalo mau di gunakan (Hilangkan tanda doble slashnya kalo mau di pakai (//*)
//* 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]);
Memo2.Lines.Add(AThread.NetData); //Untuk menampilkan log TCP respon
 liat gambar screen shotnya :

11. Nah sampai disini sekarang kita test projectnya apakah sudah benar atau belum source code nya, kita coba jalankan caranya : tekan tombol Run atau di keyboard tekan F9

Cari menu Project dan pilih menu Build Project1

Jika sobat masih bingung sobat bisa langsung melihat videonya

Sudah cukup sob selamat belajar ya smoga cepet bisa ,,, maaf untuk payload sengaja saya gak kasih yang work nya supaya sobat berfikir :D,, 

"SALAM GRENTONGERS"

.