Membuat Inject Bagian 1
www.mbahhanif.site - Berikut ini saya akan menjabarkan tentang bagaimana cara membuat inject dasar menggunakan delphi 7. Dasar dasar delphi 7 anda harus di kuasai dulu sebelum membuat inject dan menerapkannya.
Berikut ini cara membuat inject bagian 1. Silahkan Simak penjelasan berikut ini:
Cara Membuat Inject
1. Berdoa Terlebih Dahulu2. Anda Harus Mempunyai Delphi-7 Terlebih Dahulu
3. Beberapa Script Yang Sudah Mbah Siapkan
4. Letak Script Jangan Sampai Salah
Langkah Langkah Pembuatannya
1. Setelah Membuka Aplikasi Delphi 7. Kemudian Pilih 1 Button Dan Ganti Nama Pada Button Tersebut Dengan Start. Lihat Contoh Berikut Ini :
2. Setelah Itu Pilih Edit1 Letakkan Di Pada Form Tepat Di Samping Kanan Button, Setelah Itu Ganti Nama Pada Edit1 Tersebut Menjadi 8080 Pada Pilihan Text. Lihat Gambar Berikut Ini:
3. Kemudian Pada Button Start Klik 2 kali Sampai Muncul Plihan Unit 1 Seperti Berikut Ini.
Catatan: Apabila Nama Tidak Sesuai, Ketika Anda RUN Ganti Nama Letakknya Tepat Sesuai Nama Yang Sesuai Pada Delphi Anda, Karena Setiap Pc .if Btn1.Caption = 'Start' then begin idmpdprtcp1.Bindings.Add.IP := '127.0.0.1'; idmpdprtcp1.Bindings.Add.Port := StrToInt('1234'); //Contoh Listen Port Pada Inject idmpdprtcp1.MappedHost := '22.0.0.192'; //Contoh Proxy ISP Indosat idmpdprtcp1.MappedPort := StrToInt(edt1.Text); idmpdprtcp1.Active := True; Btn1.Caption := 'Stop'; end else begin idmpdprtcp1.Active := False; idmpdprtcp1.Bindings.Clear; Btn1.Caption := 'Start'; end;
4. Kemudian Tambahkan Komponen TCP Pada Letak Indy Server. Setelah Itu Letakkan Pada Form. Lihat Gambar Berikut Ini:
5. Setelah Itu Klik TCP, Kita Pergi Ke Bagian Events, Cari Bagian One Execute. Setelah Itu Klik 2 kali.. Nanti Akan Muncul Unit1. Dan Masukkan Script yang Sudah Disediakan.
6. Nah Berikut Ini Scriptnya:
var
payload:String;
begin
if (pos('CONNECT',AThread.NetData)<>0) or (pos('HTTP',AThread.NetData)<>0) then
begin
payload := 'GET http://Bug.com/ HTTP/1.1'#13#10+
'Host: Bug.com'+#13#10#13#10;
AThread.NetData := payload + AThread.NetData;
end;
7. Langkah Selanjutnya Klik Tcp Lagi, Kemudian Pilih OnOutbound Data, Selanjutnya Klik 2 Kali. Lihat Contoh Berikut:
8. Masukkan Script Setelah Klik 2 Kali Masukkan Script Seperti Dibawah Ini:
begin
AThread.NetData := StringReplace(AThread.NetData,'400 Bad Request','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'302 Found','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
end;
9. Langkah Selanjutnya Pilih Run Yang Berwarna Hijau Segitiga Atau F9. Sebelum Itu Kita Rapikan Injek Kita Supaya Simple Dan Enak Dipandang. Lihat Gambar Berikut:
10. Kalau Berhasil, Maka Akan Muncul Seperti Ini.... Taraaaa Projek Siap Digunakan :D
11. Nah, Mudah Bukan. Untuk Sourcodenya Ada Di Bawah Ini
Catatan :
1. Jangan Lupa Memasukkan Bug Yang Masih Aktif
2. Payload Tersebut Sebagai Contoh, Anda Bisa Menggantinya Sendiri
3. Kalau Masih Bingung Tanyakan Di Komentar
Semoga Bermanfaat