Membuat Inject Bagian 2


www.mbahhanif.site - Pembuatan Inject versi 2 dua ini. tak luput peran dari pembuatan inject bagian pertama, Akan tetapi pembuatan inject ke 2 lebih baik dari yang sebelumnya. Oleh karena itu berdasarkan script scrupt yang ada. Mbah hanif akan memberikan tutorial Cara membuat inject bagian 2.

Jika anda sudah mempelajari pembuatan inject bagian pertama, Langkah selanjutnya yakni memastikan penambahan penambahan komponen dan script supaya dalam pembelajaran ini bisa berkembang. Berikut ini cara membuat inject bagian 2:

Persiapan Yang Perlu Disiapkan Terlebih Dahulu

1. Doa Terlebih Dahulu (wajib)
2. Aplikasi Delphi 7
3. Script
4. Sourcode

Cara Membuat Inject Bagian 2 Full

1. Buka Terlebih Dahulu Delphinya, Kemudian Dikasih Form Kosong, Isikan 1 Button Dan Ganti Dengan Tombol Start.


2. Setelah Itu Klik Tombol ab, UntukMengetahui Portnya Pada Injeknya. LLihat Gambar Contoh DiBawah ini:

3. Kemudian Klik Combobox Pada Gambar Tersebut, Ganti Dengan Pilih Server. Lihat Gambar Berikut Ini:


4. Klik 2X Pada Tombol Button Start, Maka Isikan Script Seprti Dibawah Ini
Scriptnya:
begin
  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 := '202.152.240.50'; //Contoh Proxy XL
    idmpdprtcp1.MappedPort := StrToInt(edt1.Text);
    idmpdprtcp1.Active := True;
    Btn1.Caption := 'Stop';
  end else begin
  idmpdprtcp1.Active := False;
  idmpdprtcp1.Bindings.Clear;
  Btn1.Caption := 'Start';
  end;

5. Setelah Itu Klik Componen Idmapertport Atau Tcp, Setelah Itu Klik Onexecute Masukkan Script Seperti Berikut Ini:

Scriptnya :


var
  payload:String;
begin
if Cbb1.Text = 'Server 1' then
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;
  if Cbb1.Text = 'Server 2' then
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;
Contoh Sebagai Berikut Ini:



6. Kemudia Pilih Bagian Outbond Data Klik 2 Kali Dan Akan Dimasukkan Scriptnya Dibawah Ini

Scriptnya:


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;

Seperti Contohnya:

7. Masih Ingat Dengan Pilih Server, Klik Kemudian Pilih Item Lalu Klik, Setelah Itu Tulis Seperti Gambar Dibawah ini:

8. Setelah Itu Run Atau F9:

9. Kalau Sukses Maka Akan Seperti Gambar Dibawah Ini

10. Sukses Membuat Injek :D Pada Injek Ini Kita Bisa Memasukkan Beberapa Payload Aktif :D

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