www.mbahhanif.site - Pertama – tama Mbah, Marilah Kita Sampaikan Rasa Puji dan Syukur Kita Kehadirat Allah SWT, Tuhan Semesta Alam Yang Tak Henti – Hentinya Telah Memberikan Hidayah dan Nikmatnya Sehingga Kita Semua Dapat Berkumpul Dalam Web Ini Tanpa Halangan Sedikitpun Dan Dalam Kondisi Sehat Walafiat. Tak Lupa Marilah Kita Sanjungkan Shalawat Serta Salam Kepada Junjungan Kita, Nabi Besar Muhammad SAW Yang Telah Membawa Kita Ke Luar Dari Zaman Kegelapan Menuju Zaman Yang Terang Benderang Saat Ini. Semoga Kita Diberikan Syafaatnya Pada Yaumil Akhir Kelak amin Mbah.
Oke Mbah-Mbah Hanif Yang Sangat Berbahagia Saat ini. Dengan Izin Tuhan Yang Maha Esa, Pada Kesepatan Kali Ini, Mbah Akan Memberikan Postingan Yang Sangat Bermakna Dan Banyak Di Cari Orang Untuk Di Buat Referensi Dari Kalngan Muda Hingga Kalangan Mbah :D. Untuk Itu Disini Mbah Hanif Akan Memberikan Sebuah Karya Digital Untuk Anda Pelajari Tahap Demi Tahap, Itu Maupun Tools Terbaru Yang DiBerikan Mbah Saat 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.
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
Labels:
Delphi
Anda Telah Menyimak Membuat Inject Bagian 1 Matur Thank You
0 Comment for "Membuat Inject Bagian 1"