Tutorial Mudah dan Lengkap Cara Membuat Inject Pc Dengan Menggunakan Delphi7 Pemula Wajib Coba

Tutorial Mudah dan Lengkap Cara Membuat Inject Pc Dengan Menggunakan Delphi7 Pemula Wajib Coba || Hkgankz - Hay Gankz, Jumpa lagi pada kesempatan kali ini, dimana ini adalah artikel pertama saya untuk mengulas sesuai dengan judul ya Gankz, Cara Membuat Inject Pc dengan menggunakan Delphi7, saya akan buat tutorial ini dengan sangat mudah dan lengkap menurut versi hkgankz.

Sepertinya masih banyak ya yang masih belum paham atau masih bingung bagaimana sih cara internetan di PC/LAPTOP, apa sih aplikasinya, dan bagaimana cara mengkoneksikannya. itu sudah menjadi pertanyaan yang tidak asing lagi sih bagi pada pemula (newbie) ya Gankz. Termasuk saya pribadi waktu dahulu (doloe) saya juga sempat merasakan seperti kalian Gankz, bingung, kok bisa, pke apa sih, gmn caranya ya itu. Banyak pertanyaan yang timbul dalam benak dan nyata dalam lubuk hati ini. Sungguh Terlaluh kau Romaaa.. diam kau aniiiii. *ea ea ea :v

Singkat cerita sih, dengan menebus segala rasa penasaran saya. Akhirnya saya mencari dan terus mencari, belajar dan terus belajar hingga akhirnya saya bisa mengetahui beberapa trik dan tips maupul aplikasi-aplikasi yang digunakan, perlahan dan bertahap hingga saya tau cara mencari bug host, dan sebagainya lah ya. begitulah. *krik krik krik...


Oke kembali lagi ke pembahasan.
Apa saja yang harus dilakukan untuk membuat sebuah Inject.
1. Berdoa terlebih dahulu
2. Siapkan Air Minum jika suatu saat Haus, tinggal Minum aja gak perlu ke dapur dulu.
3. PC/Laptop kamu harus sudah terinstal "Delphi7"
4. Perhatikan dan simak denga baik-baik

Langkap Pertama :
- Buka "Delphi7" nya terlebih dahulu. Pilih "Run Program". Tunggu sebentar lalau akan muncul halaman awal suatu Project. Pada Tab "Stadard" Pilih "Button" lalu letakan pada Form. Ubah "Button 1" menjadi "START" karena ini akan berfungsi sebagai Tombol Start pada Inject nantinya. Lihat Gambar :

Langkah ke-Dua :
- Masih pada Tab" Standard" Tambahkan "Edit" dan letakan juga pada Form. Ubah "Edit 1" menjadi "8080", Ini kita gunakan sebagai Listen Port pada Inject yang akan kita buat. Lihat Gambar :

Langkah ke-Tiga :
- Kemudian pada tombol "START" kalian klik 2x, sehingga akan muncul tampilan Coding.

Lihat Gambar diatas, sudah saya masukan Script nya. Silahkan kalian masukan terlebih dahulu Scriptnya dan bisa kalian Copy Paste dibawah ini Script yang sudah saya Sediakan.

begin
if Button1.Caption = 'Start' then
begin
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt('8080');//Contoh Listen Port Pada Inject
IdMappedPortTCP1.MappedHost := '22.0.0.192';//Contoh Proxy ISP Indosat
IdMappedPortTCP1.MappedPort := StrToInt(edit1.Text);
IdMappedPortTCP1.Active := True;
Button1.Caption := 'Stop';
end else begin
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Caption := 'Start';
end;

Noted : Perhatikan dan jangan sampai ada yang salah atau terlewatkan. Nanti akan Error jika ada kesalahan saat di Run.

Langkah ke-Empat :
- Kemudian Tambahkan Komponen "TCP" pada Tab "Indy Server", Letakan pada Form. Seperti pada Gambar :

Langkah ke-Lima :
- Selanjutnya kalian Klik Komponen "TCP" lalu lihat pada kolom sebelah kiri layar, Klik Tab "Events" lalu cari bagian "OnExecute" Klik 2x dibagian ini. Maka akan muncul jendela Codingan "Unit1".
Seperti pada Gambar :

Masukan Script dibawah ini pada kolom Codingan "Unit1".

var
  payload:String;
begin
  if (pos('CONNECT',AThread.NetData)<>0) or (pos('HTTP',AThread.NetData)<>0) then
  begin
    payload := 'GET http://Bug.com/ HTTP/1.1'#13#10+
               'Host: Bug.com'+#13#10#13#10;
    AThread.NetData := payload + AThread.NetData;
end;

Note: Ganti tulisan "http://Bug.com/" dengan Bug Host yang masih aktif sesuai Operatornya.

Langkah ke-Enam :
- Selanjutnya kalian Klik lagi Komponen "TCP" pilih lagi tab "Events" dan Klik 2x pada "OnOutBound Data", akan tampil Jendala Codingan. Seperti pada Gambar :

Pastekan Script dibawah ini, kedalam kolom Codingan yang muncul pada "OnOutBound Data".

begin
  AThread.NetData := StringReplace(AThread.NetData,'400 Bad Request','200 OK',[rfReplaceAll]);
  AThread.NetData := StringReplace(AThread.NetData,'302 Found','200 OK',[rfReplaceAll]);
  AThread.NetData := StringReplace(AThread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
end;

Langkah ke-Tujuh :
- Jika menurut kalian sudah semua Langkah dilakukan dengan benar, Sekarang saatnya menguji Inject yang sudah kalian coba buat ini, dengan cara meng-Klik tombol segitiga kanan berawarna Hijau. Seperti Gambar dibawah ini :

Langkah ke-Delapan :
- Jika tidak terjadi Error, maka Run Project akan langsung bekerja atau aktif. tampilannya akan seperti gambar dibawah ini:

Note: Jika terjadi Error, lihat apa yang salah, biasanya akan diberkan tanda blok "warna merah" yang memberitahukan bahwa Script tersebut salah atau ada yang kurang, silahkan di sesuaikan dengan Name Komponen nya, biasanya ada miss disana.

Bagaimana? Tutorial Mudah dan Lengkap Cara Membuat Inject Pc Dengan Menggunakan Delphi7 Pemula Wajib Coba ini? kalo masih belum bisa atau ada pertanyaan lainnya, silahkan meluncur ke Komentar ya Gankz ^^

Terimakasih sudah mengunjungi hkgankz.blogspot.com