-->

Cara membuat inject dengan mudah menggunakan delphi7




 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





  • 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
  •  Tetap pada bagian object inspector double klik pada OnOutboundData. Masukkan kode berikut.
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
  1. Urutan pertama ialah telkomsel dengan proxy ip 10.1.89.130 dan port 8000
  2. Urutan kedua ialah indosat dengan proxy ip 10.19.19.19 dan port 8080
  3. Urutuan ketiga ialah xl dengan proxy ip 202.152.240.50 dan port 8080
  4. Urutuan keempat yang sebenarnya sudah menjadi punya xl sekarang ialah axis dengan proxy ip 10.8.3.8 dan port 3128
  5. Urutuan kelima ialah dengan proxy ip 10.4.0.10 dan port 8080 
Semoga bermanfaat dengan pengetahuan di atas tentang masing-masing proxy ip dan port provider. Sedikit bonus dari saya, ada BUG bagi kalian pecinta gratisan tentunya masih work dan sudah saya test pada inject buatan saya yang sebelumnya sudah saya share. Lihat nih dibawah

0 Response to "Cara membuat inject dengan mudah menggunakan delphi7"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel

)<[^<]*)*/gi;a(document).ready(function(){if("item"!=_WidgetManager._GetAllData().blog.pageType&&(d=a("a.blog-pager-older-link").attr("href"))){var c=a('Load more posts');c.click(h);var e=a('');f.scroll(k);b=a('
');b.append(c);b.append(e);b.insertBefore(a("#blog-pager"));a("#blog-pager").hide()}})})(jQuery); //]]>