Minggu, 04 September 2016

Cara Buat Injek Rolling Bug Secara Otomatis Terbaru 2016 With Delphi

04 September 2016 - www.indoblog.me ok  Guys Langsung saja disimak Informasi dengan Cara Buat Injek Rolling Bug Secara Otomatis Terbaru 2016 With Delphi dan yang dimana mungkin sahabat sahabat membutuhkan tutorial sederhana ini dan silahkan langsung disimak saja ya bray.

Dengan menggunakan tekhnik rolling maka bug server 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 kita lakukan dan berikut adalah caranya dan silahkan langsung dicoba.

Lihat Juga: Cara Buat Program Anti Bongkar Inject Terbaru 2016
Cara Bikin Program Internet Gratis Terbaru 2016

Ok dan yang dimana disini kita akan mencoba dengan rolling yang timer intervalnya bisa kita setting kecepatan rollingnya dengan tujuan agar bisa diatur mungkin terlalu lambat atau terlalu cepat dan silahkan dicoba saja ok bray.

1. Silahkan Tambahkan 1 mapped  ada di palette indy server tetapi harusnya komponen ini sudah ada sebelumnya agar anda tinggal menambahkan saja kemudian silahkan untuk percobaannya silahkan tambahkan 1 timer, 1 combobox, 1 edit.

Cara Mudah Belajar Menggunakan Internet Secara Gratis

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

putarbug: string='telkomsel.com'; // Hanya Contoh saja bray

Cara Mudah Belajar Menggunakan Internet Secara Gratis

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

 Timer1.Interval:= StrToInt(ComboBox1.text);
  Edit1.Text := putarbug;
 if putarbug = 'telkomsel.com' then // Hanya Contoh saja bray
    putarbug := 'indosat.com' else // Hanya Contoh saja bray
 if putarbug = 'indosat.com' then
    putarbug := 'xl.com' else // Hanya Contoh saja bray
 if putarbug = 'xl.com' then
    putarbug := 'axis.com' else // Hanya Contoh saja bray
 if putarbug = 'axis.com' then
    putarbug := 'tri.com' else // Hanya Contoh saja bray
 if putarbug = 'tri.com' then
    putarbug := 'smartfren.com' else // Hanya Contoh saja bray
 if putarbug = 'smartfren.com' then
    putarbug := 'telkomsel.com';  // Rolling akan dikembalikan lagi ke atas

Cara Mudah Belajar Menggunakan Internet Secara Gratis

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://'+putarbug+'/ HTTP/1.1'+#13#10+
               'Host: '+putarbug+#13#10+
               'Connection: Keep-Alive'+#13#10#13#10;
    AThread.NetData := AThread.NetData + Payload;
  end;

Cara Mudah Belajar Menggunakan Internet Secara Gratis

5. Terakhir pada bagian items > combobox1 masukan line misalkan:

100
250
500
1000
1500
2000
2500
3000

Cara Mudah Belajar Menggunakan Internet Secara Gratis

Nah Kemudian silahkan dicoba di run maka dengan begitu maka bug host akan dirolling secara otomatis dan kecepatan rollingnya juga bisa anda atur dengan selera anda, semoga sedikit membantu ya gan.

Sekedar tambahan untuk menghentikan timernya agar bug tidak terus-terusan di rolling setelah konek maka anda bisa menggunakan atau menambahkan i 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;

Atau jika 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;

Lihat Juga: Tutorial Cara Buat Program Run As Administrator Dengan Menggunakan Bahasa Delphi

Ok Bagi yang membutuhkan source codenya silahkan comot saja DISINI password rarnya silahkan copas url postingan ini saja dan sekian Cara Buat Injek Rolling Bug Secara Otomatis Terbaru 2016 With Delphi semoga bermanfaat dan membantu dan jika ada yang kurang dipahami silahkan ditanayakan saja ya guys, jangan sungkan sungkan, karena nanti tersesat dijalan lho :D


EmoticonEmoticon