Membuat Inject Bagian 3
www.mbahhanif.site - Pembuatan Inject 1 & 2, Lebih praktisnya bisa menggunakan proses pembuatan inject ini lebih praktis dan simple. Dikarenakan semakin banyak script yang udah dibuat ini sangat dibuat lebih simple dan beberapa diantaranya sangat banyak digunakan untuk beberapa metode inject yang ini.
Simak pembelajaran inject bagian 1 dan bagian 2. Kuasai metode yang mbah hanif berikan, Jangan sampai telat akan pembelajaran sebelumnya. Yakni bisa mengembangkan sourcode yang mbah hanif berikan. Mari simak pembelajaran pembuatan inject bagian 3
1. Berdoa Dahulu (Wajib)
2. Aplikasi Delphi 7
3. Script Yang Sudah Disediakan :
Cara Membuat Inject Bagian 3 dengan simple
Langkah Demi Langkah :1. Setelah Anda Mempelajari Injek Bagian Pertama Dan Kedua, Langsung Saja Kita Tambahkan 1 Lagi Tombol Edit. Dan Ganti Nama Dengan Manual Proxy. Pada Komponen Lainnya Pada Form Sudah Dijelaskan Pada Pembelajaran Bagian 1 Dan 2. Lihat Contoh Berikut Ini:
2. Setelah Itu Tambahkan 1 Tcp. Lihat Tata Letak Pada Bagian Gambar Dibawah Ini:
3. Klik 2 Kali Pada Bagian Button Start, Dan Tambahkan Script Berikut Ini Seperti Gambar Berikut Ini :
Script :
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 := edt2.text; //Contoh Manual Proxy
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 Klik Tcp. Pergi Bagian Event Lalu Cari Bagian Onexecute, Setelah Itu Tambahkan Scrip Berikut Ini:
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;
5. Kemudian Cari OnOutbond Data, Lalu lik 2 Kali Dan Tambahkan Script Berikut 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;
6. Setelah Itu Run: Lihat Gambar Berikut Ini:
7. Apabila Sukses Maka Tampilan Seperti Ini:
8. Anda Berhasil Membuat Inject...
Catatan:
1. Apabila Anda Belajar Pada Bagian Inject 1 dan 2 , Pada Inject 3 Hanya Penambahan Mode Manual Proxy Yang Dapat Diubah Ubah.
2. Masukkan Payload Anda Yang Masih Aktif Sekarang Ini
Semoga Bermanfaat