Penulis
Minggu, 2 Oktober 2016 - www.indoblog.me Silahkan Cekidot Cara Membuat Source Code Bug Host Checker Delphi 7 Terbaru 2019 dan Lalu Lantas Apa maksudnya Sosmed Analyzer? pertanyaan yang sangat bagus? lah yang nanya admin sendiri, seperti yang kita ketahui bahwa sosial media adalah media yang trend yang sedang banyak digunakan saat ini, yang dimana yang termasuk BBM, Whatsapp, Facebook, Yahoo Messengger, Line, Vlog, Instagram, Twitter dan situs situs IRC yang lainnya.
Yang dimana disini saya tidak akan berbagi source codenya akan tetapi disini mimin akan berbagi cara buatnya, ada beberapa hal yang harus anda perhatikan dalam penggunaannya agar hasilnya benar-benar akurat, alat ini sangat cocok bagi anda yang ingin mengecek sebuah host apakah bisa kita gunakan atau tidak.
Beberapa hal yang harus anda perhatikan dalam menggunakan alat/tools ini yaitu, ketika melakukan pengecekan pastikan kartu anda tidak ada pulsanya sama sekali, apalagi jika sampai ada paket data regularnya tidak dibenarkan karena hasil pengecekannya tidak akurat, karena bug host tidak diremote via lokal justru bug host di remote via server langsung (IP Statis), catatan bahwa jaringan internet itu bersifat client-server, ok itu adalah syarat utamanya.
Baca Juga: Cara Membuat Inject Sendiri Dengan Delphi 7 Dengan Tekhnik Random Host
Kemudian misalkan bagaimana kalau kartu yang saya gunakan misal punya paket BB, ingat paket BB dengan paket data regular itu berbeda, jika paket data regular bisa akses all network, kalau paket BB hanya network tertentu saja terutama hanya bisa digunakan untuk mengakses host BB saja, tetapi paket bb juga bisa anda manfaatkan dan anda gunakan.
Sebenarnya saya juga ingin memperjelas masalah ini tapi agak bingung juga karena bakalan panjang, ya sudahlah langsung saja simak tipsnya dibawah ini, atau cara buat alat bug host checker dan scanner sederhana dengan delphi, silahkan disimak :D
1. Pertama silahkan buka delphi anda, lalu silahkan tambahkan 3 Komponen yaitu: 1 Memo, 1 Button, 1 Edit, yang dimana Edit1 tersebut adalah untuk URL'nya, untuk pengecekannya gunakan url lengkap bukan www.example.com tetapi gunakan http://www.example.com/ atau http://www.example.com/index.html dll, kemudian caption button1 ganti menjadi Test atau terserah anda deh :D
2. Yang kedua kemudian silahkan tambahkan uses Wininet di atas kode {$R *.dfm} contohnya bisa anda perhatikan gambar saja.
3. Yang ketiga kemudian silahkan Double Klik Button1 tadi lalu masukan source code/listing dibawah ini, contoh bisa lihat gambar saja.
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
received : string;
receivebuffer : array[0..255] of char;
dwsize, resv : dword;
begin
Memo1.Text:='';
Button1.Enabled:=False;
Edit1.Enabled:=False;
Sleep(10);
NetHandle := InternetOpen('Search Data', INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0);
If Assigned(NetHandle) Then UrlHandle := InternetOpenUrl(NetHandle, PChar(Edit1.Text), Nil, 0, INTERNET_FLAG_RELOAD, 0) else Memo1.Lines.Add('Internet Connection Error');
if Assigned(urlHandle) then
begin
ReceiveBuffer := '';
dwSize := sizeof(ReceiveBuffer);
Resv := 0;
HttpQueryInfo(URLHandle, HTTP_QUERY_RAW_HEADERS_CRLF, @ReceiveBuffer, dwSize, resv);
received := receivebuffer;
if pos('301'',''302'',''304'',''400'',''404'',''403'',''404'',''408'',''500'',''502'',''503'',''504', received) > 0 then
Memo1.Lines.Add('Respone -->> Direct!')
else Memo1.Lines.Add('Respone -->> 200 OK');
end else Memo1.Lines.Add('Respone -->> Error!');
Button1.Enabled:=True;
Edit1.Enabled:=True;
InternetCloseHandle(NetHandle);
InternetCloseHandle(URLHandle);
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
received : string;
receivebuffer : array[0..255] of char;
dwsize, resv : dword;
begin
Memo1.Text:='';
Button1.Enabled:=False;
Edit1.Enabled:=False;
Sleep(10);
NetHandle := InternetOpen('Search Data', INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0);
If Assigned(NetHandle) Then UrlHandle := InternetOpenUrl(NetHandle, PChar(Edit1.Text), Nil, 0, INTERNET_FLAG_RELOAD, 0) else Memo1.Lines.Add('Internet Connection Error');
if Assigned(urlHandle) then
begin
ReceiveBuffer := '';
dwSize := sizeof(ReceiveBuffer);
Resv := 0;
HttpQueryInfo(URLHandle, HTTP_QUERY_RAW_HEADERS_CRLF, @ReceiveBuffer, dwSize, resv);
received := receivebuffer;
if pos('301'',''302'',''304'',''400'',''404'',''403'',''404'',''408'',''500'',''502'',''503'',''504', received) > 0 then
Memo1.Lines.Add('Respone -->> Direct!')
else Memo1.Lines.Add('Respone -->> 200 OK');
end else Memo1.Lines.Add('Respone -->> Error!');
Button1.Enabled:=True;
Edit1.Enabled:=True;
InternetCloseHandle(NetHandle);
InternetCloseHandle(URLHandle);
4. Yang terakhir silahkan build atau run, kemudian jangan lupa test, dan kira-kira penampakan dan hasilnya seperti dibawah ini, ini contoh paket sosial media facebook (Bug Sawer).
Oh iya nanti juga kalau sudah sempet saya akan kasih tahu cara pembuatan bug host checker yang check hostnya tidak satu-satu dan sudah support mode front. disable, back, query dll jadi nanti ketahuan bug bersangkutan tersebut nyangkutnya di string mana apakah di mode front atau disable nanti ketahuan.
Lihat Juga: Kumpulan Daftar Proxy Gratis Terbaru Oktober 2019
