Cara Membuat Injek Sendiri Dengan Delphi 7 Random Host Injector
Sabtu, 1 Oktober 2016 - www.indoblog.me Apa itu Random Host Injector? Pertanyaan yang bagus, lah yang nanya itu admin sendiri :D Silahkan Disimak Tips Cara Membuat Injek Sendiri Dengan Delphi 7 Terbaru 2016 yang dimana Random Host Injector adalah sebuah cara agar list host yang dimasukan ke listing tidak perlu kita inputkan dan cek secara satu-satu bahkan anda bisa cek kumpulan bug server tanpa perlu cek satu-satu bahkan anda bisa cek hingga ribuan dan tak terbatas jumlahnya.
Konsep pembuatan random injector ini belum pernah ada yang bahas, bahkan admin menyarankan pengembangan http injector untuk menggunakan modul ini, untuk random host injector ini juga sebenarnya pernah admin bahas hanya saja kita membuatnya berdasarkan jumlah timer yang kita gunakan maka misal kita menggunakan 10 timer maka maksimum pengecekannya adalah 10 bug host maka jika anda kebetulan membaca tutorial ini sangat beruntung sekali, karena list host yang anda cek tidak akan ada batasan dan ditutorial ini kita hanya cukup menggunakan 1 timer.
Saya jamin tutorial random injector ini belum pernah ada yang bahas, kalaupun nanti ada yang bahas kemungkinan tutorialnya ngambil dari website cara apa saja ini, :D , awalnya admin ragu membagikan trik random host ini karena jujur konsep ini yang selama ini admin gunakan untuk cek bug server.
Baca Juga: Cara Membuat Save Config Registry Windows Dengan Delphi 7
Tetapi jika tutorial ini bermanfaat, silahkan anda bagikan ke teman-teman anda, share ke facebook, twitter, instagram, whatsapp, bbm, googleplus, agar bisa dipelajari secara bersama-sama, sebenarnya admin juga bingung kalau bikin tutorial delphi karena sebenarnya tutorial-tutorial delphi sudah banyak dibahas di tahun-tahun sebelumnya.
Tapi admin pastikan tutorial random hos injector ini baru pertama kali admin bahas dan bahkan belum ada 1 forum dan blogpun yang membahasnya, semoga anda semakin sakti dalam mengembangkan lsiting coding dasarnya yang akan dibahas dibawah ini:
Oh iya dan adminpun akan berikan contoh payload terbarunya, tetapi harap diingat untuk payloadnya silahkan anda kembangkan lagi, atau bisa anda edit atau tambahkan sesuai dengan kebutuhan dan admin hanya bisa memberikan modul dasarnya jika ingin payload terbaru work berdasarkan isp masing-masing semisal payload telkomsel, payload indosat, payload xl, payload axis, payload three silahkan gabung saja di grup facebook.
Berikut adalah tutorial dasar cara membuat inject random host dengan bantuan delphi 7 dan untuk delphi XE tinggal konversi string saja, silahkan langsung disimak.
1. Pada tahap pertama silahkan buka Dephi 7 anda, kemudian anda membutuhkan 1 Listbox, 2 Button, 1 IdMappedPortTCP, 1 Timer, dan 1 Opendialog dan untuk letak letak komponen tersebut admin asumsikan anda mengetahuinya karena pada standart delphi semua komponen tersebut harusnya ada, beberapa parameter komponen tersebut harus anda setting seperti dibawah ini:
Button1 Captionnya ganti menjadi = Start
Button1 Enabled dari True ganti menjadi = false;
Button2 Captionnya ganti menjadi = Add List
Timer1 Enabled dari True ganti menjadi = False
Timer1 intervalnya dari 1000 ganti menjadi = 5000
OpenDialog1 filternya masukan data ini = Text Files|*.txt
OpenDialog1 DefaultEXT masukan data ini = Text Files|*.txt
Dan untuk nama-nama komponennya itu sendiri biarkan default saja, atau jika anda sudah memahami penerapannya silahkan anda gonta-ganti juga tidak apa-apa tetapi jika anda belum paham silahkan ikuti panduan ini saja.
2. Yang kedua kemudian pada variable form utama silahkan masukan coding dibawah ini, atau anda bisa perhatikan gambar sebagai contoh penempatannya.
ListHost, IndexHost, BacaHost: Integer;
Bug: string;
3. Lalu kemudian yang ketiga kita akan menambahkan fungsi baru terutama ini untuk fungsi header baru, letakan coding dibawah ini tepat dibawah {$R *.dfm} contohnya bisa anda lihat digambar saja.
function AddHeader(Payload, Header:string):string;
begin
Payload:= StringReplace(Payload, #13#10 + #13#10, #13#10 + Header + #13#10 + #13#10, [rfReplaceAll]);
Result:= Payload;
end;
4. Lalu yang keempat silahkan masuk dan beralih pada Button1 > Object Inspector > Events > OnClick atau double klik button1 saja, lalu masukan coding dibawah ini, contoh perhatikan gambar saja;
if Button1.Caption = Start then begin
Button1.Caption := Stop;
with IdMappedPortTCP1.Bindings.Add do begin
IP:=127.0.0.1;
Port:=strtoint(9201);
end;
IdMappedPortTCP1.MappedHost:=10.1.89.130;
IdMappedPortTCP1.MappedPort:=StrToInt(8000);
IdMappedPortTCP1.Active:=true;
Timer1.Enabled:=True;
end else
begin
IdMappedPortTCP1.Active:=false;
IdMappedPortTCP1.Bindings.Clear;
Timer1.Enabled:=False;
Button1.Caption := Start;
end;
Penjelasan singkat diatas;
Port:=strtoint(9201); 9201 adalah listen on portnya dan silahkan ganti dan sesuaikan saja dengan listen port yang anda inginkan.
IdMappedPortTCP1.MappedHost:=10.1.89.130;
IdMappedPortTCP1.MappedPort:=StrToInt(8000);
10.1.89.130 dan 8000 adalah proxy default dari Telkomsel dan silahkan anda ganti dengan proxy server dari isp yang anda gunakan.
StrToInt = String To Integer, anda juga bisa menggantinya dengan mode trim misal StrToInt(Trim(8000)); atau anda juga bisa menggantinya dengan mode Squid Proxy contohnya StrToIntDef(8000,80); atau anda juga bisa menggabungkan antara mode squid dengan mode trim contohnya menjadi StrToIntDef(Trim(8000),80);
5. Kemudian yang kelima silahkan beralih ke IdMappedPortTCP1 > Object Inspector > Events > OnExecute > IdMappedPortTCP1Execute lalu masukan kode dibawah ini contohnya bisa anda perhatikan gambar saja, dan untuk payloadnya sendiri silahkan dikembangkan lagi, apakah mau menggunakan mode front, back, middle, disable, dan untuk penambahan request header atau parameter payload lainnya silahkan dikembangkan lagi admin hanya bisa memberikan yang standarnya saja..
var
payload: string;
begin
If (Pos(CONNECT, Athread.NetData) = 1) then begin
If Payload <> then begin
Athread.OutboundClient.Write(Payload);
Sleep (500);
Payload:=;
end else
if (Pos(CONNECT,Athread.NetData) > -1) then begin
Payload:=GET http://+Bug+/favicon.ico HTTP/1.1#13#10Host: +Bug+#13#10Referer: http://+Bug+/#13#10#13#10;
AddHeader(AThread.NetData,Proxy-Connection: Keep-Alive);
AThread.NetData := payload +
AThread.NetData;
end;
end;
6. Yang keenam lalu silahkan masuk ke IdMappedPortTCP1 > Object Inspector > Events > OnExecute > OnOutBoundData > IdMappedPortTCP1OutboundData , lalu masukan kode dibawah ini:
AThread.NetData := StringReplace(AThread.NetData,HTTP/1.0,HTTP/1.1 200 OK,[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,HTTP/1.1,HTTP/1.1 200 OK,[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,HTTP/2.0,HTTP/1.1 200 OK,[rfReplaceAll]);
if (Pos(HTTP/1.1 200,AThread.NetData)<>0) then begin
Timer1.Enabled:=False;
end;
Penjelasan singkat diatas:
Diatas mode replace menggunakan universal replace, untuk mode replace silahkan anda ubah dengan mode replace keinginan anda, tetapi jika anda ingin menerapkan konsep diatas tidak ada-apa karena setiap ada kesalahan pasti akan direplace, dan untuk timer = false yaitu ketika koneksi 200 OK maka list index dari lisbok akan dihentikan, jadi ketika bug tersambung maka timer akan terhenti dan pengecekan bug server akan terhenti secara otomatis.
7. Yang ketujuh kemudian silahkan masuk ke Button2 > Object Inspector > Events > OnClick atau double klik button2 saja, lalu masukan kode dibawah ini, contohnya bisa lihat gambar saja, contohnya ini untuk load list tetapi anda juga bisa menggunakan modul popupmenu yang seperti pada VHE X6 menggunakan popupmenu untuk import list hostnya nanti kita bahas karena jika dicampur adukan lumayan panjang.
var
i : integer;
begin
If OpenDialog1.Execute then
begin
for i:=0 to OpenDialog1.Files.Count-1 do
Listbox1.Items.LoadFromFile(OpenDialog1.FileName);
Listbox1.ItemIndex := 0;
Button1.Enabled:=True;
end;
8. Kemudian yang kedelapan masuk ke komponen Listbox1 > Object Inspector > Events > OnDbClick > ListBox1DblClick , lalu masukan code dibawah ini, contohnya perhatikan gambar saja.
BacaHost:=listbox1.itemindex;
Bug:=listbox1.Items.Strings[BacaHost];
9. Kemudian yang kesembilan dan terakhir beralih ke Timer1 > Object Inspector > Events > OnTimer, atau double klik timernya lalu masukan kode dibawah ini, contohnya bisa sahabat perhatikan gambar saja.
var
FileHost , ListHost :integer;
begin
FileHost:=listbox1.Items.Count;
if FileHost=0 then
for ListHost := 0 to listbox1.items.Count - 1 do begin
ListBox1.ItemIndex := ListHost;
Application.ProcessMessages;
exit;
end else
begin
if IndexHost=FileHost then begin
IndexHost:=0;
listbox1.ItemIndex:=0;
end else
begin
IndexHost:=IndexHost+1;
listbox1.ItemIndex:=IndexHost;
end;
listbox1.ItemIndex:=BacaHost+1;
BacaHost:=listbox1.itemindex;
Bug:=listbox1.Items.Strings[BacaHost];
end;
10. Yang terakhir silahkan build project anda dan setelah digunakan maka kira-kira contohnya seperti digambar ini, dan dalam pengecekan ini tidak terbatas jumlahnya dan untuk mengatur kecepatan index setiap hostnya anda atur saja pada nilai interval timernya yang saya suruh ganti dengan 5000 tadi.
Ok contoh diatas adalah contoh jadinya dari "Random Host Injector" yang kebetulan pengujiannya saya menggunakan CMD Bitvise yang tutorial pembuatan tunnel bisa anda baca di
Cara Membuat Tunnel SSH CMD Bitvise Auto Reconnecting silahkan dibaca baca disana.
Baca Juga: Cara Membuat Alat dan Tools Bug Host Checker Terbaru 2016 Dengan Delphi
Ok Guys Sekian Tips dan Trik Cara Membuat Injek Sendiri Dengan Delphi 7 Terbaru 2016 semoga bermanfaat dan membantu dan jika bermanfaat silahkan share ke teman-teman dan saudara-saudara anda yang membutuhkannya, Wassalam.
Go to link Download
Assalamualaikum wr.wb . . . .
