Belajar Membuat Injek Internet

BELAJAR MEMBUAT INJEK





Sudah berpengalaman di dunia Phreaker pasti sudah tidak asing dengan yang namanya Inject. Inject adalah wadah bug yang dicompress kedalam suatu aplikasi, yang nanti akan di gunakan sebagai alat penghantar untuk menuju Internet Gratis
Sebelumnya Download dulu Delphi7 silahkan cari sendiri =D Delphi 7Langkah-langkah membuat Inject di Delphi7

1. Pertama rubah nama Form delphi, yang nanti akan menjadi nama Tool nject itu sendiri.
   


2. Selanjutnya buat agar Form tidak bisa di Resize, dan hilangkan System bar Maximize di Tool Inject yang akan di buat. agar tidak bisa di resize Form - Object Inspector > Border  Style > bsSingle, untuk menghilangkan Maximize Form - Onject Inspector > Border Icon > Un-ceklist Maximize. atau bisa liat GIF di bawah ini.
   
   


3. Sekarang tambahkan 1 Button (sebagai Start/Stop) 1 Edit (untuk Listen Port). atur besar kecil atau posisi sesuai selera kamu.
   


4. Selanjut-nya rubah Captions Button menjadi "Start" dan Text di Edit menjadi listenport yang akan di gunakan, misalnya "8080". *Ingat tanpa tanda petik. Caranya liat gambar GIF di bawah ini.
   
   


5. Kemudian tambahkan Tool IdMappedPortTCP , Klik kanan di komponen > Tabs > Indy Server > IdMappodPortTCP. atau liat GIF di bawah ini.
   


6. Setelah itu klik 2x pada Button dan masukkan cooding-nya.

if Button1.Caption = 'Start' then
begin
IdMappedPortTCP1.Bindings.Add.IP := '127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port := StrToInt(Edit1.Text);
IdMappedPortTCP1.MappedHost := 'MASUKKAN PROXY OPERATOR';
IdMappedPortTCP1.MappedPort := PORT DARI PROXY OPERATOR;
IdMappedPortTCP1.Active := True;
Button1.Caption := 'Stop';
end else begin
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Caption := 'Start';
end;

Ganti Text yang berwarna Merah dengan Proxy Operator. Ganti Text yang berwarna Biru dengan Port dari Proxy yang di pakai.


7. Selanjutnya adalah memasukkan Payload, Caranya Klik IdMappedPortTCP1 > tab Events > OnExecute. jelasnya liat GIF di bawah ini.
   


8. nah Sekarang masukkan payload nya, sebelumnya buat variable String Payload.

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var
payload:String;
begin


Setelah kamu tambahkan, selanjutnya masukkan payload nya. disini akan saya berikan contoh payload sederhana.

payload := 'GET http://Bug.com/ HTTP/1.1'#13#10+
Host: Bug.com'+#13#10#13#10;
AThread.Netdata := payload + AThread.Netdata;


Jadi nanti FULL hasilnya seperti ini.

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var
payload:String;
begin
payload := 'GET http://Bug.com/ HTTP/1.1'#13#10+
Host: Bug.com'+#13#10#13#10;
AThread.Netdata := payload + AThread.Netdata
end;



9. Setelah itu kita masuk ke OnOutBoundData, caranya sama seperti masuk ke OnExecute tadi. IdMappedPortTCP1 > tab Events > OnOutBoundData. jelasnya liat GIF dibawah ini.
   


10. Untuk fungsi di event ini adalah, mereplace error ke 200 OK ,error biasanya terjadi kalau payload yang kita kirim tidak sesuai / tidak di terima server. jadi saya kasih contoh error yang sering muncul saja. Copas coodng di bawah ini.

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]);



11. Sampai sini Tool Inject kamu sudah jadi, sekarang tekan F9 di delphi, jika tidak ada error, maka Inject kamu sudah jadi. Selanjutnya Klik tab Project > Build Project.

Author : Unknown

Share this

Related Posts