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: