Cara Membuat Source Dasar Injek Menggunakan Delphi 7

Beberapa hal yang perlu kalian ketahui sebelum kalian melangkah lebih jauh, pusing lebih jauh, peralatan yang perlu anda miliki adalah sebagai berikut

• Personal Computer (PC) Atau Laptop (wajib),
• Charger  Laptop (siapa tahu Lowbad),
• Aplikasi Borland Delphi 7 Enterpirse (wajib)
• Kesabaran dan Ketekunan untuk memecahkan masalah.

Yang terpenting disini adalah aplikasi yang bernama Delphi 7 Enterprise sebagai alat untuk merancang pembuatan injek nantinya. Nah, berikut saya sudah sediakan alat-alat untuk membuat injek tersebut.

• Download Delphi 7 Enterprise
• Download Bitvise SSH Client (sebagai tunneling ssh account)
• Download Proxifier (sebagai pengontrol dan penghubung Bitvise SSH Client)
• Source Code Praktek 
• Ebook Belajar Offline 

Jika Kalian sudah mendownload delphi 7, selanjutnya kalian Install Delphi 7 tersebut. Jika kalian belum tahu cara menginstall delphi 7, silahkan baca materi pertama tentang 'cara menginstall delphi 7 enterprise'. Jika kalian sudah menginstall delphi 7 tersebut, selanjutkan kita mulai proses pembuatan injek.

• Jalankan program delphi 7 enterprise
• Pada form1, buatlah 1 button,  seperti gambar di bawah ini. (button terletak pada tab atau menu standard), seperti gambar berikut:

 

• Seleteh kalian membuat button, selanjutnya kalian buat 1 buah TCP Servers, lihat seperti gambar berikut ini. (TCP terletak pada menu Indy Servers), seperti gambar berikut:

 

• Setelah memasang kedua komponen utama tersebut, selanjutnya kita masukkan source code berikut caranya.
• Pertama, Beri private Injek Boolean, caranya beri source berikut di bawah Private

Injek:boolean; //Kata Injek bisa kalian ganti sesuka hati

• Jadi, seperti gambar dibawah ini:

•  Kedua, klik dua kali pada button1 yang telah kalian buat, dan masukkan source code berikut :

If Injek then
begin
Injek :=False;
Button1.Caption :='CONNECT'; // fungsinya pemberian label status pada button1
IdMappedPortTCP1.Active := False; // fungsinya untuk menonaktifkan TCP Servers
IdMappedPortTCP1.Bindings.Clear; // fungsinya untuk membersihkan koneksi TCP Servers
end else
begin
Injek:=True;
Button1.Caption :='DISCONNECT'; // fungsinya untuk pemberian label setelah button1 di klik
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1'; // merupakan default IP
IdMappedPortTCP1.Bindings.Add.Port := StrToInt ('9009'); // ini adalah Listen Port Injek dan bisa di ganti sesui keinginan
IdMappedPortTCP1.MappedHost := ('DISINI IP OPERATOR'); // isikan dengan IP Operator
IdMappedPortTCP1.MappedPort := StrToInt('Port IP Operator'); // isikan dengan Port IP Operator
IdMappedPortTCP1.Active := True; // fungsinya untuk mengaktifkan TCP Servers
end;
Berikut adalah beberapa daftar IP dan Port operator di Indonesia:

Operator	IP Operator	Port operator
3	10.4.0.10	3128
Axis	10.8.3.8	80
Indosat	10.19.19.19	8080
Telkomsel	10.1.89.130	8000
XL Axiata	202.152.240.50	8080

Jadi source pada button1 seperti gambar dibawah ini, saya contohkan memasukkan operator telkomsel:

• Selanjutnya kita masukkan source pada TCP Servers,
• Disini kita menggunakan 2 Properties TCP Server, yaitu TCP Servers OnExecute dan OnOutBoundData.
• Silahkan klik TCP Server, pada Object Inspector pilih Events selanjutnya klik 2 kali pada OnExecute dan masukkan source berikut ini

if (pos('CONNECT',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) or (pos('http',athread.NetData)<>0) or (pos('https',athread.NetData)<>0) then begin
header:=Addheader(Athread.NetData,'Proxy-Connection: Keep-Alive'+#13#10#13+'Connection: Keep-Alive'+#13#10#13);
payload :='GET http://BUGSHOST OPERATOR/ HTTP/1.1'+#13#10'Set-Cookie: BIGipServerPL_TBSBRN_IST_WAP_GW_PROXY=289319104.16415.0000; path=/'+#13#10'Host : BUGS HOST OPERATOR'+#13#10+'User-Agent: Mozilla/5.0 (Linux; U; Android 4.0.3; ko-kr; LG-L160L Build/IML74K) AppleWebkit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30'+#13#10'Connection: Keep-Alive'+#13#10;
athread.OutboundClient.Write(header); Sleep (1000);
athread.NetData:=payload;
end;

• Kemudian, diatas begin beri hak Payload dan Header ke String seperti  berikut:

var
Payload,Header:String;

• Maka akan jadi seperti gambar berikut ini:

• Nah, selanjutnya tambahkan fungsi header berikut di Onexecute:

function AddHeader(header, Newheader:string):string;
begin
header := StringReplace(header, #13#10 + #13#10, #13#10 + Newheader + #13#10 + #13#10, [rfReplaceAll]); Result := header;
end;

• Maka seperti gambar dibawah ini:

• Selanjutnya, masih pada TCP Servers, pada Object Inspector tab events klik 2 kali OnOutboundData dan masukkan source code berikut:

AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 301 Moved Permanently','HTTP/1.1 200 OK', [rfReplaceAll]);
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 302 Found','HTTP/1.1 200 OK', [rfReplaceAll]);
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 400 Bad Request','HTTP/1.1 200 OK', [rfReplaceAll]);
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 400 Bad Request','HTTP/1.1 200 OK', [rfReplaceAll]);
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 400 Bad request','HTTP/1.1 200 OK', [rfReplaceAll]);
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 504 Gateway Timeout','HTTP/1.1 200 OK', [rfReplaceAll]);
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 500 Internal Server Error','HTTP/1.1 200 OK', [rfReplaceAll]);
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 403 not authenticated','HTTP/1.1 200 OK', [rfReplaceAll]); AThread.NetData :=StringReplace(AThread.NetData, 'HTTP/1.1 100 Connection established', 'HTTP/1.0 200 Connection established',[rfReplaceAll]);
AThread.NetData :=StringReplace(AThread.NetData, 'HTTP/1.1 200 Connection established', 'HTTP/1.0 200 Connection established',[rfReplaceAll]);

• Maka akan seperti gambar dibawah ini:

• Setelah itu, kita simpan semua file ke folder tertentu

• Setelah kalian simpan, silahkan build Project. Caranya klik Tab Project dan Build Project1
• Setelah build Project, cek di folder penyimpanan tadi Project.exe dan coba, apakah work atau tidak.
• Begitulah ceritanya membuat Source dasar Injek menggunakan delphi 7
• Jika teman-teman ingin source dasar hasil praktek disini, silahkan
  Download Disini
• Semoga bermanfaat dan semoga mengerti agar di materi berikutnya akan lebih paham.

source

Subscribe to receive free email updates: