Belajar Membuat Inject Bagian 3 - Dari dua tutorial yang saya bagikan kemarin Belajar Membuat Inject Bagian 1 dan Belajar Membuat Inject Bagian 2 Inject sudah jadi, sampai situ kamu sudah berhasil membuat inject kamu. Cuma yang harus kamu pikirkan hanyalah cara membuat/meracik payload kamu, sampai benar benar pas dan dapat di terima server tanpa ada error response.
Untuk itu di Belajar Membuat Inject Bagian 3 ini saya akan memberikan beberapa tutorial tambahan saja seperti :
- Cara Membuat LED Upload/Download TCP
- Cara Membuat Manual BUG
- Cara Membuat Log Upload/Download TCP
- Buka Source yang kamu dapat dari 2 tutorial Membuat Inject Sebelumnya. Buat Procedure terlebih dahulu, LEDUpload (untuk led blink upload) & LEDDownload (untuk led blink download).
- Tambahkan 2 komponen Shape , Addtional > Shape
- Setelah itu tambahkan ini di bawah {$R *.dfm}
- Kemudian untuk menerapkan nya, taruh procedure LEDUpload di IdMappedPortTCP > Event > onExecute dan LEDDownload di IdMappedPortTCP > Event > onOutbondData. Jadinya seperti ini:
procedure TForm1.LEDUpload;
begin
shape1.Refresh;
if shape1.brush.color = clWhite then begin
shape1.brush.color := clGreen;
end else begin
shape1.brush.color := clWhite;
end;
end;
procedure TForm1.LEDDownload;
begin
shape2.Refresh;
if shape2.brush.color = clWhite then begin
shape2.brush.color := clBlue;
end else begin
shape2.brush.color := clWhite;
end;
end;
Selanjutnya yang kedua Cara Membuat Manual BUG,
- Tambahkan 1 Edit dan perhatikan nama komponen Edit nya, contoh nama yang saya ambil Edit3
- Masuk ke menu payload, IdMappedPortTCP > Event > onExecute. kemudian buat seperti ini.
Berikutnya Cara membuat Log Upload/Download TCP.
- Tambahkan 2 Komponen memo, atur besar kecilnya sesuai selera.
- Kemudian masuk ke halaman payload kamu, cara nya sama seperti yang di atas. IdMappedPortTCP > event > onExecute, Kemudian tambahkan ini di bawah begin Memo1.Lines.Add(AThread.Netdata); dan cara yang sama di IdMappedPortTCP > event > onOutboundData, kemudian tambahkan ini di bawah begin Memo2.Lines.Add(AThread.Netdata);
Baiklah, dari 3 tutorial membuat inject yang saya buat, saya rasa anda sudah tau dasar-dasar membuat inject dengan Delphi7.
Nantikan update berikutnya..
