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 Dahulu
2. 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.

Letakkan Script Tersebut Seperti Gambar Diatas:

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;

Catatan: Apabila Nama Tidak Sesuai, Ketika Anda RUN Ganti Nama Letakknya Tepat Sesuai Nama Yang Sesuai Pada Delphi Anda, Karena Setiap Pc .

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

Join Member VVIP MH Grup Premium

Join

Cara Internet Gratis Pc/Laptop Full Lengkap MH Tips Berinternetan

Baca Juga

Cara Internet Gratis Android Full Lengkap MH Tips Berinternetan

Baca Juga

Cara Membuat Koneksi Internet Gratis Menjadi Stabil MH Tips Berinternetan

Baca Juga

Tutorial Delphi 7 MH Delphi 7

Baca Juga

42 Situs dan Cara Membuat SSH Yang Sangat Direkomendasi MH Tips Berinternetan

Baca Juga