Membuat Inject Bagian 1

Dasar dasar delphi 7 anda harus di kuasai dulu sebelum membuat inject dan menerapkannya.
Berikut ini cara membuat inject bagian 1. Silahkan Simak penjelasan berikut ini:
Cara Membuat Inject
1. Berdoa Terlebih Dahulu2. Anda Harus Mempunyai Delphi-7 Terlebih Dahulu
3. Beberapa Script Yang Sudah Mbah Siapkan
4. Letak Script Jangan Sampai Salah
Langkah Langkah Pembuatannya
1. Setelah Membuka Aplikasi Delphi 7. Kemudian Pilih 1 Button Dan Ganti Nama Pada Button Tersebut Dengan Start. Lihat Contoh Berikut Ini :
2. Setelah Itu Pilih Edit1 Letakkan Di Pada Form Tepat Di Samping Kanan Button, Setelah Itu Ganti Nama Pada Edit1 Tersebut Menjadi 8080 Pada Pilihan Text. Lihat Gambar Berikut Ini:
3. Kemudian Pada Button Start Klik 2 kali Sampai Muncul Plihan Unit 1 Seperti Berikut Ini.
Letakkan Script Tersebut Seperti Gambar Diatas:
Catatan: Apabila Nama Tidak Sesuai, Ketika Anda RUN Ganti Nama Letakknya Tepat Sesuai Nama Yang Sesuai Pada Delphi Anda, Karena Setiap Pc .
if Btn1.Caption = 'Start' then
begin
idmpdprtcp1.Bindings.Add.IP := '127.0.0.1';
idmpdprtcp1.Bindings.Add.Port := StrToInt('1234'); //Contoh Listen Port Pada Inject
idmpdprtcp1.MappedHost := '22.0.0.192'; //Contoh Proxy ISP Indosat
idmpdprtcp1.MappedPort := StrToInt(edt1.Text);
idmpdprtcp1.Active := True;
Btn1.Caption := 'Stop';
end else begin
idmpdprtcp1.Active := False;
idmpdprtcp1.Bindings.Clear;
Btn1.Caption := 'Start';
end;
4. Kemudian Tambahkan Komponen TCP Pada Letak Indy Server. Setelah Itu Letakkan Pada Form. Lihat Gambar Berikut Ini:
5. Setelah Itu Klik TCP, Kita Pergi Ke Bagian Events, Cari Bagian One Execute. Setelah Itu Klik 2 kali.. Nanti Akan Muncul Unit1. Dan Masukkan Script yang Sudah Disediakan.
6. Nah Berikut Ini Scriptnya:
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;
7. Langkah Selanjutnya Klik Tcp Lagi, Kemudian Pilih OnOutbound Data, Selanjutnya Klik 2 Kali. Lihat Contoh Berikut:
8. Masukkan Script Setelah Klik 2 Kali Masukkan Script Seperti Dibawah Ini:
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;
9. Langkah Selanjutnya Pilih Run Yang Berwarna Hijau Segitiga Atau F9. Sebelum Itu Kita Rapikan Injek Kita Supaya Simple Dan Enak Dipandang. Lihat Gambar Berikut:
10. Kalau Berhasil, Maka Akan Muncul Seperti Ini.... Taraaaa Projek Siap Digunakan :D
11. Nah, Mudah Bukan. Untuk Sourcodenya Ada Di Bawah Ini
Catatan :
1. Jangan Lupa Memasukkan Bug Yang Masih Aktif
2. Payload Tersebut Sebagai Contoh, Anda Bisa Menggantinya Sendiri
3. Kalau Masih Bingung Tanyakan Di Komentar
Semoga Bermanfaat
Belum ada Komentar untuk "Membuat Inject Bagian 1"
Posting Komentar