Cara Membuat Inject Auto Rolling Bug atau Payload Secara Otomatis

Assalamualaikum...
KENEONO - Dikesempatan kali ini saya akan share Cara Membuat Inject Rolling Bug atau Payload Secara Otomatis. Mungkin sahabat sahabat membutuhkan tutorial sederhana ini.
Dengan menggunakan tekhnik rolling maka bug server atau payload yang kita miliki bisa kita rolling secara otomatis tanpa harus kita memasukan secara manual satu satu akan tetapi dengan cara ini maka akan lebih efektif. Contoh bug 1 DC setelah itu nanti akan auto rolling ke bug 2 ke bug 3 dan seterusnya.

Berikut adalah caranya dan silahkan langsung dicoba.
Kali ini saya coba dengan bug indosat

1. Silahkan Tambahkan 1 TCP  ada di palette indy server, tambahkan 1 timer, 1 combobox, 1 edit.

2. Kemudian kita beralih pada variable form disini kita akan menambahkan data bertype string lalu silahkan masukan coding dibawah ini tepat diatas implementation

rollingbug: string='indosat.com'; // bug pertama anda boss

3. kemudian double klik timer 1 nya, lalu masukan coding dibawah ini:

Timer1.Interval:= StrToInt(ComboBox1.text);
  Edit1.Text := rollingbug;
 if rollingbug = 'indosat.com' then // samakan bug yang pertama tadi- ini hanya contoh boss
    rollingbug := 'facebook.com' else
 if rollingbug = 'facebook.com' then
    rollingbug := 'opx-opera.com.com' else
 if rollingbug = 'opx-opera.com' then
    rollingbug := 'indosatooredoo.com' else
 if rollingbug = 'indosatooredoo.com' then
    rollingbug := 'www.internet.org' else
 if rollingbug = 'www.internet.org' then
    rollingbug := 'youtube.com' else
 if rollingbug = 'youtube.com' then
    rollingbug := 'indosat.com';  // Rolling akan dikembalikan lagi ke atas

bug diatas bisa diganti dengan bug yang work boss..

4. Kemudian masukan variable tadi pada payload punya kamu contohnya seperti dibawah ini:

if (pos('CONNECT',AThread.NetData)<>0) or (pos('HTTP',AThread.NetData)<>0) then
  begin
    payload := 'GET http://'+rollingbug+'/ HTTP/1.1'+#13#10+
               'Host: '+rollingbug+#13#10+
               'Connection: Keep-Alive'+#13#10#13#10;
    AThread.NetData := AThread.NetData + Payload;
  end;

5. Terakhir pada bagian items > combobox1 masukan line misalkan: ket: ganti sesuka hati :)

100
250
500
1000
1500
2000
2500
3000

Nah Kemudian silahkan dicoba di run / F9 maka dengan begitu maka bug host akan dirolling secara otomatis dan kecepatan rollingnya juga bisa anda atur dengan sesuka hati.

Sedikit tambahan Untuk menghentikan timernya agar bug tidak terus-terusan di rolling setelah konek maka anda bisa menggunakan atau menambahkan 1 buah button lalu masukan coding:
timer1.enabled:= false;

Atau bisa anda tambahkan pada button start:
timer1.enabled:= true;

Atau pada bagian stop tinggal tambahkan:
timer1.enabled:= false;

Agar secara otomatis rolling berhenti jika bug sudah terhubung maka bisa anda tambahkan pada bagian events milik IdMappedPortTCP1 > onConnect misalkan dengan menambahkan coding:

if (pos('200 OK',AThread.NetData)<>0)  then
  begin
 timer1.enabled:= false; // Menghentikan rolling secara otomatis jika bug sudah terhubung
  end;

Sekian... semoga bermanfaat ya boss... artikel Cara Membuat Inject Rolling Bug atau Payload Secara Otomatis.
Yang mau comot sourche code delphinya dibawah ini

Download

Wassalamualaikum...