Notifikasi

Cara Membuat Inject Dasar Dengan Delphi7

cara mudah membuat inject dasar dengan delphi7
Assalamu'alaikum wr.wb...
Selamat malam sobat info jumpa lagi nih bersama saya, Pada kesempatan ini saya akan berbagi tentang bagaimana cara membuat inject/suntikan untuk berinternet gratisan full speed, Untuk tahap pertama saya akan share membuat "Inject Dasar dengan Delphi7" . Tentang pembuatan ini kita memerlukan Applikasi Software yaitu Borland Delphi7 bagi sobat yang belum mempunyai bisa download terlebih dahulu silahkan banyak di share di mbah Google tapi kalo tidak mau ribed silahkan bisa download pada link yang sudah saya siapkan.

1. Download Borland Delphi7 Disini

2. Kemudian Extract filenya dan Instal sampai dengan selesai, Untuk langkah penginstalan sudah saya sertakan dalam file RAR.

3. Buka program Delphi7 dan automatis keluar " Form1 " (halaman project) yang bisa kita sesuaikan ukurannya.

Cara Membuat Inject Dasar Dengan Delphi7

4. Kemudian kita mulai menyiapkan bahan, dalam arti disini adalah komponen untuk pembuatan "Project"

5.  Periapkan 2 buah komponen " Button " pada tab " Standard " yang berada di taskbar menu atas

Cara Membuat Inject Dasar Dengan Delphi7


6. Kemudian tambahkan komponen " TCP Indy Server " pada tab " Indy Server " yang berada pada menu atas sobat bisa klik di bagian segitiga hitam di samping paling kanan.

Cara Membuat Inject Dasar Dengan Delphi7

7. Kemudian klik 2x pada " Button1 " dan isi script di bawah ini yang nantinya berfungsi untuk memanggil atau menjalankannya.

IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('1982');
IdMappedPortTCP1.MappedHost:='10.1.89.130';
IdMappedPortTCP1.MappedPort:=StrToInt('8000');
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=True;

Lihat gambar untuk posisi penempatannya.

Cara Membuat Inject Dasar Dengan Delphi7

8. Kemudian klik 2x pada " Button2 " kemudian masukan script berikut

IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;

Lihat gambar untuk posisi penempatannya.

Cara Membuat Inject Dasar Dengan Delphi7

9. Kemudian klik 1x pada " TCP Indy Server " dan lihat pada menu " Opject Inspector " yang berada di sebelah kiri dan klik di bagian " Events " klik " OnExecute " terus klik 2x pada boax sebelahnya dan masukan script dibawan ini:

var
ESIND:string;
Begin
ESIND:='GEThttp://BUG-SOBAT/HTTP/1.1'+#13#10+'User-Agent:Mozilla/5.0(WindowsNT6.1;rv:14.0)Gecko/20100101Firefox/14.0Host: HOS-SOBAT'#13#10#13#10#13#10+athread.NetData;
if pos('CONNECT',athread.NetData) <>0 then
athread.NetData:=athread.NetData+ESIND;
Untuk penempatan lihat gambar.

Cara Membuat Inject Dasar Dengan Delphi7

10. Kemudian masih di tab " Events " klik di bagian " OnOutbound Connect " dan masukan script di bawah ini :

AThread.NetData := stringreplace(AThread.NetData,' 403 Forbidden',' 200 OK',[rfReplaceAll]);
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1302Found','HTTP/1.1200Ok'[rfReplaceAll, rfIgnoreCase]);

Untuk penempatan lihat gambar.

Cara Membuat Inject Dasar Dengan Delphi7

11. Nah sampai disini langkah membuat Inject dasar sudah selesai tinggal kita tes apakah ada yang error, dengan mengeklik button segitiga hijau pada menu "RUN" atau bisa juga menggunakan tombol "F9" pada Keyboard sobat kalo tidak ada error maka tampilan akan berubah.

Cara Membuat Inject Dasar Dengan Delphi7

Ket : Ganti tulisan merah ( BUG-SOBAT ) dengan BUG sobat info yang work dan Ganti ( HOST-SOBAT ) sesua dengan BUG.

Sekirannya Tutorial di atas kurang jelas sobat bisa melihat Tutorial secara langsung yang sudah saya kemas dengan format Vidio :


Selamat mencoba semoga bermanfaat,,,

"Pesan saya nanti kalo sudah mahir janganlah sombong dan bantu temen-temen supaya bisa membuat Inject sendiri dan bisa menikmati Internet secara gratisan, karena tau sendiri sekarang harga data paket kuota lebih mahal dibandingkan Emas" wkwkwkwkwk......
Delphi
Join the conversation (4)
4 comments
Top comments
Newest first
  1. Eka Ikhsanudin
    saya belum pernah nyoba membuat inject kang ixixii... nanti saya ikutan belajar ah... :)
    • Admin+
      Hehe Saya juga belajar kang ... sejak libur ngoprek php sy mendalamin pemrograman jaringan internet...
  2. Sahrul Parawie
    Ijin sedot gan, ane dah belajar satu hari satu malam belum tembus juga, sapa tau pake tutor agan bs tembus!kl ada masalah bs complain gak gan?
    • Admin+
      Monggo ms,,, klo ada masalah kita cari tau bareng"
Table of Contents
Link copied successfully.