Sunday, 11 September 2016

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
Wassalamualaikum...

BERITA LENGKAP DI HALAMAN BERIKUTNYA

Halaman Berikutnya

3 komentar

inject manual yang multy bug atau bisa di masukan banyak bug yg udah jadi... ada ga mbah?...

itu udah ada sourcenya diatas tinggal download.
iya itu coba di terapkan sendiri om, biar lebih jooss,..

>> PERHATIKAN !!! <<

- Gunakan kata-kata yang bijak saat berkomentar ya sob.
- Berkomentar dengan Foto <i rel="image">URL_GAMBAR</i>
- Berkomentar dengan Code HTML silakan Parse dulu.