Cara Mudah Membuat Injek Menggunakan Delphi 7 Work
Kali ini saya akan mengeposkan sedikit cara membuat injek lewat delphi 7 dengan mudah. Fungsi injek antara lain untuk perantara berinternetan murah / bisa juga di bilang gratis menggunakan SSH. Jangan Lupa ctrl + D dulu agar tidak hilang halamannya. Untuk membuatnya kalian membutuhkan Delphi 7 Bisa download Disini.
Tombol Stopnya juga di kasih
Tata cara : ( Atau liat Gambar di bawah Kode )
Jika Sudah Di tambahkan Maka Hasilnya akan Seperti Ini :
Kalo Belum Work Bisa Di oprek Lagi Methodenya ( GET, HEAD, GETS, POST dll ) ato bugsnya bisa di ganti, dan Line ( #13#10)
Kalo Mau injek jadinya Belum ada BUGS nya Silahkan Download Di bawah :
Kalo udah mendownload silahkan install.
Selesai Install langsung aja buka delphi 7 nya.
Dibutuhkan :
- 2 Button
- 1 Edit
- 1 idmappedportTCP
Tutorial :
Pertama, Pasang 2 Button dan 1 Edit
Button 1 Caption : Start
Button 2 Caption : Stop
Edit 1 Text = Sesuai Selera
 |
| Opsi Button |
 |
| Opsi Edit |
Kedua, Pasangkan Komponent Indinya, Soalnya codingnya pakai Indy.
 |
| Indy TCP |
Kalau sudah, kita mulai memberika Perintah pada tmbol2nya
Klik 2 kali Pada Tombol START
Dan tambahkan kode Berikut
IdMappedPortTCP1.Active := False;
Sleep(300);
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt('Edit1.text'); //Listen Port Injek
IdMappedPortTCP1.MappedHost := '10.19.19.19'; //Proxy Isat
IdMappedPortTCP1.MappedPort := StrtoInt ('8080'); //Portnya
IdMappedPortTCP1.Active := True;
Button1.Enabled :=False; // Tombol Start
Button2.Enabled :=True; // Tombol Stop
 |
| Opsi Koding Button Start |
Langkah masih seperti tombol start tapi kodenya berbeda
Button1.Enabled := True; // Tombol StartPerintah Tombol Sudah Jadi, Sekarang tinggal penempatan Payload dan Replace
Button2.Enabled := False; // Tombol Stop
Sleep(400); // Jeda second
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
Codingnya (Payload)
Tata cara : ( Atau liat Gambar di bawah Kode )
Klik 1 kali d bagian IdmappedportTCP
Terus Klik bagian Event
Terus Klik 2 kali bagian Execute
Terus Kopi Kode Berikut Kedalamnya
if (pos('CONNECT',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) thenbeginAthread.NetData :=Athread.NetData+'GET http:// Bugs Kamu/ HTTP/1.1'#13#10+'Connection: Keep-Alive'#13#10+'User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:14.0) Gecko/20100101 Firefox/14.0'#13#10+'Host: Bugs kamu '#13#10#13#10#13#10+Athread.NetData;Keterangan :
end;
Warna Merah bisa juga di ganti : HEAD, GETS, POST, OPTION, DELETE ( sesuai dengan kegunaan )
Warna Biru : Bugs provider ( misal Tsel : Telkomsel.com )
Warna Ijo : Line
 |
| Opsi Koding TCP |
Jika Sudah Di tambahkan Maka Hasilnya akan Seperti Ini :
Procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);Sekarang Coba RUn ato tekan F9
if (pos('CONNECT',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) then
begin
Athread.NetData :=Athread.NetData+'GET http://Bugs Kamu/ HTTP/1.1'#13#10+'Connection: Keep-Alive'#13#10+'User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:14.0) Gecko/20100101 Firefox/14.0'#13#10+'Host: Bugs Kamu'#13#10#13#10#13#10+Athread.NetData;
end;
Jika ada Warna Merah berarti ada yang salah dan silahkan di teliti lagi
Kalo Belum Work Bisa Di oprek Lagi Methodenya ( GET, HEAD, GETS, POST dll ) ato bugsnya bisa di ganti, dan Line ( #13#10)
Kalo Mau injek jadinya Belum ada BUGS nya Silahkan Download Di bawah :
Share Dulu Ya . Link Otomatis Kebuka Setelah Di Share
Pass Rar : ( No reupload Plis )
Saya cuma sekedar share dan bukan bermaksud pamer :D
Share juga Yah di G+, Like , Share, Tweet, Dll <------- Terima Kasih
Tunggu Juga Episode Berikutnya :D
ReplyDeletepertamax nih gan :D
ReplyDeleteSolar Juga gpp
Deletesebaiknya listen port injek di langsungin aja.. dri pada eror value ^_^
ReplyDeleteya terima kasih saran mastah akan ane coba di tutorial berikutnya
Deletelangsung source code telkomselnya aja gan..
ReplyDeletemaaf saya ngga share yang mentahan, kalo mau yang telkomsel nanti kemanbagin aja :D
DeleteJika Ada pertanyaan Gunakan WIdget Yang berada di pojok kanan Bawah
ReplyDeleteyang bertuliskan ' Chat With Us'
Terima kasih :>)
Ini sih bukan mudah bikin bang, tapi mudah ngopy -_-
ReplyDeleteSalam kenal kawan :) --- Irfan Andriarto ---
Kalau mau ng'blog sambil bisnis Daftar di sini broh, GRATIS ! Lumayan kok di sini >> Daftar <<
tapi setidaknya bisa membuat injeknya
Deleteklo 1 button aja gimana source nya?
ReplyDeletegambar atas kok g ada indy-nya, yg satunya kok ada indy-nya gan....? soalnya punya ane g da indy-nya......
ReplyDeleteada gambar indynya gan
Deleteyang Indy TCP itu
selalu muncul tulisan [Fatal Error] Unit1.pas(8): File not found: 'sMemo.dcu'
ReplyDelete