Cara membuat inject dengan mudah menggunakan delphi7
Thursday 5 January 2017
Add Comment
yang belom punya silahkan download di atas dan Semangat dalam belajar okay. Setelah unduhan dan penginstalan selesai mari kita buka delphinya. Ok saya disini akan menjelaskan step by step.
- Buka delphi, akan muncul form1 dan taruhlah sebuah button pada form dengan cara klik button pada pallete standart
*cara menggunakan Buffalo injector KLIK SINI*
*cara membuat config HPI sederhana*
*cara membuat Hotspot menggunakan PC HPI*
*kumpulan config HPI selalu Update*
- Double klik pada button tersebut lalu masukkan koding berikut
if Button1.Caption = 'START' then
begin
button1.Caption:= 'STOP';
IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('1602');//isi dengan listen port kalian
IdMappedPortTCP1.MappedHost:='10.19.19.19';//proxy provider
IdMappedPortTCP1.MappedPort:=StrToInt('8080');//port provider
IdMappedPortTCP1.Active:=True;
end
else if Button1.Caption = 'STOP' then
begin
button1.Caption:= 'START';
IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
end
- Disini saya contohkan provider isat dimana proxy dan port isat adalah 10.19.19.19 dan8080. Lihat gambar jika bingung :)
- Tambahkan komponen TCP pada pallete Indy Server
- Klik TCP tadi, pada bagian object inspector pilih events --> OnExecute double klik lalu masukkan koding berikut
payload := 'GET http://BUG Provider HTTP/1.1'+#13#10+'Host: BUG Provider'+#13#10#13#10;AThread.NetData := payload + AThread.NetData;
- Tambahkan koding var payload : String; diatas begin. Lihat gambar jika bingung
AThread.NetData := StringReplace(AThread.NetData,'502 Bad Gateway','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'500 Internal Server Error','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'408 Request Time-out','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'404 Not Found','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'400 Bad Request','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'408 Request Time-out','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'307 Temporary Redirect','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'302 Found','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'302 Moved Temporarily','200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'301 Moved Permanently','200 OK',[rfReplaceAll]);
- Gunanya untuk mereplace apapun respon yang dikirim oleh header HTTP.
- Nah sekarang tinggal sedikit ditata lagi ya tampilannya biar terlihat bagus dilihat. Klik Form1 pada object Treeview
- Klik Properties pada object inspector. Yang perlu kalian edit adalah caption,BorderStyle pilih BsSingle saja agar tidak bisa diubah-ubah nanti ukurannya, siapkan ikon yang cantik tentunya format ico lalu klik icon ok. Dah itu saja sih jika kalian mau berkreasi tentu saja dipersilahkan :)
- Sekarang save Ctrl + S dulu kalian simpan di direktori mana saja asalkan kalian tidak lupa tempatnya. Build projeknya. Tekan F9 pada keyboard. Tada project sudah jadi menjadi exe.
- Cari project.exe tinggal ubah namanya sesuai dengan yang kalian inginkan. Sekarang tinggal berbagi dengan teman-teman bersama.
Mudah bukan membuat inject. Kalo dasarnya sudah mengerti nanti saya akan share ke tingkat yang lebih tinggu lagi seperti penambahan alpha skin, teknik pengaman agar tidak mudah di intip/disnif/dibongkar istilahnya.
Dibawah berikut adalah contoh provider yang ada di negeri kita tercinta Indonesia
- Urutan pertama ialah telkomsel dengan proxy ip 10.1.89.130 dan port 8000
- Urutan kedua ialah indosat dengan proxy ip 10.19.19.19 dan port 8080
- Urutuan ketiga ialah xl dengan proxy ip 202.152.240.50 dan port 8080
- Urutuan keempat yang sebenarnya sudah menjadi punya xl sekarang ialah axis dengan proxy ip 10.8.3.8 dan port 3128
- Urutuan kelima ialah 3 dengan proxy ip 10.4.0.10 dan port 8080
0 Response to "Cara membuat inject dengan mudah menggunakan delphi7"
Post a Comment