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
Cara Internet Gratis Pc/Laptop Full Lengkap MH Tips Berinternetan
Cara Internet Gratis Android Full Lengkap MH Tips Berinternetan
Cara Membuat Koneksi Internet Gratis Menjadi Stabil MH Tips Berinternetan
Tutorial Delphi 7 MH Delphi 7
42 Situs dan Cara Membuat SSH Yang Sangat Direkomendasi MH Tips Berinternetan
Aplikasi Gretongan MH Aplikasi
Group FB [MH] Mbah Hanif MH Facebook
Inject PC Terbaru MH Inject PC
Jamu Internet MH Trik Internet
Daftar Isi Mbah Hanif MH Daftar Isi
Info Trik Gretongan MH Info

Belum ada Komentar untuk "Membuat Inject Bagian 1"

Posting Komentar