Cara Membuat Inject Sederhana Menggunakan Delphi XE8 Lengkap Terbaru

Selamat malem temen2, sesuai janji saya tempo hari pada saat share Delphi XE8, nah kali ini saya akan membagikan tips Cara Membuat Inject menggunakan Delphi XE8, sudah tahu apa itu inject?
Wah kalau belum silahkan temen-temen googling dulu deh biar ntar nyambung sama apa yang saya share, alias biar nggak bingung :D

Delphi XE bukan hanya digunakan untuk membuat apps yang dapat dibaca pada sistem operasi Windows saja tapi bisa juga untuk kebutuhan pembuatan aplikasi untuk sistem operasi Android. Tapi bukan itu bahasan kita kali ini, melainkan kali ini kita membahas pembuatan inject untuk dekstop atau untuk sistem operasi Windows.
Ok langsung saja ya..

1. Siapkan dulu Delphi XE, jika temen2 belum punya silahkan download DISINI.
2. Disini kita memanfaatkan komponen bawaan dari delphi xe yaitu Indy 10.

3. Sekarang kita ke pembuatan injectnya, buka delphi XE temen-temen.
4. Klik File => New => VCL Form Application Delphi. dan akan muncul form baru pada project delphi temen2.
5. Tambahkan komponen Indy 10 pada form. Cari komponen Indy 10 pada Tool Pallet yang berada pada pojok kanan bawah.
6. Klik dua kali untuk memindahkan Komponen Indy pada Form Project.
7. Tambahkan 1 Button. 3 EditText. (Lihat gambar dibawah).

8. keterangan untuk gambar diatas:

• Memo1 = Log Request.
• Memo2 = Log Response.
• Edit1 = Tempat edit proxy operator.
• Edit2 = Tempat edit port operator.
• Edit3 = Tepat edit Listen Port inject.
• Button1 = Tempat start dan stop inject.

9. Setelah selesai kita mulai coding pada project inject kita, kita mulai menambahkan pada Uses : IdComponent, IdBaseComponent, IdCoderMIME, IdGlobal.

10. Setelah itu tambahkan function untuk membaca string dari NetData.

function netstring(X: TIdContext): string;
var
S: String;
begin
S := TIdEncoderMIME.EncodeBytes(TIdMappedPortContext(X).NetData); // Base64
S := TIdDecoderMIME.DecodeString(S); // String
Result := S;
end;

function netbyte(S: string): TIdBytes;
var
X: TIdBytes;
begin
S := TIdEncoderMIME.EncodeString(S); // Base64
X := TIdDecoderMIME.DecodeBytes(S); // TIdBytes
Result := X;
end;

11. Sekarang kita membuat tombol start stop, pertama tambahkan Mulai: Boolean pada bagian private. (Lihat Gambar).

12. Jika sudah kembali ke tab Design ubah Caption Button1 menjadi Start dan klik 2x Button1 dan tambahkan code berikut:

if Mulai then
begin
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
Sleep(100);
Button1.Caption := 'Start';
Mulai := False;
end
else
begin
Button1.Caption :='Stop';
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToIntDef(sEdit3.Text, 8000);
IdMappedPortTCP1.MappedHost := sEdit1.Text;
IdMappedPortTCP1.MappedPort := StrToIntDef(sEdit2.Text, 8080);
IdMappedPortTCP1.Active:= True;
Mulai:= True;
end;

13. Jika sudah sekarang kita membuat coding tempat Request dan Response pada inject, pertama klik Tab design dan klik sekali pada komponen Indy 10, perhatikan pada properties yang berada pada kiri bawah, klik saja pada tab Events => OnExecute dan masukkan code dibawah ini:

var
NetData: string;
begin
Memo1.Lines.Add(netstring(AContext));
if (pos('CONNECT',netstring(AContext))<>0) or (pos('HTTP',netstring(AContext))<>0) then
begin
NetData :='GET http://bugdisini.com/ HTTP/1.1'+#13#10'Host: bugdisini.com'#13#10+netstring(AContext);
TIdMappedPortContext(AContext).NetData:= netbyte(NetData);
end;
end;

14. Selanjutnya kita membuat bagian Response agar Log respons bisa muncul pada Memo2, masukkan code berikut pada OnOutboundData :

Memo2.Lines.Add(netstring(AContext));

15. Selesai, sekarang kita tinggal menambahkan Proxy, Port, dan Listen Port iject.

Edit1 = Proxy => kita asumsikan membuat inject tsel berarti isi proxy dengan 10.1.89.130.
Edit2 = Port => kita masukkan port tsel yaitu 8000.
Edit3 = Listen Port => kita masukkan 8088.

Sekarang kita Save Project, setelah itu kita Compile Project untuk mendapatkan file .exe yang nantinya kita jalankan pada dekstop. Jika temen-temen sudah mengikuti step by step tutorial diatas pasti project temen2 sudah jadi tanpa menemukan error, silahkan klik Project1.exe yang terdapat pada folder tempat save file tadi, buka folder Win32 => Debug nah disitu hasil Compile Project temen2.

Hasilnya:

Untuk yang masih bingung silahkan tinggalkan komentar nanti saya jawab sesuai kemampuan saya.
Semoga Bermanfaat.
Source Code : DISINI.

Tweet

Subscribe to receive free email updates: