Cara Buat Inject dengan Delphi 7
Assalamualaikum Wr.Wb.
Selamat Pagi sobat Blogger .. kali ini saya akan share sebuah tutorial buat para pengguna SSH ..
yaitu adalah cara membuat Inject sendiri .. di jamin gampang gan .. :D
Langsung Saja Kita Ke Tutorialnya :
1. Jalankan Program Delphi 7
2. Buat 2 Button dan 1 TCP
2. Beri Caption Pada Button1 : Start atau Connect atau Terserah
Kamu.
3. Beri Caption Button2 : Stop atau Disconnect atau terserah Kamu
4. Kemudian, Klik 2 Kali Button 1 dan Masukkan Source Code Berikut
IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1'; // ini adalah
Proxy Default
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('8080'); // ini Listen
Port, bisa Kalian Ubah Sesuka hati
IdMappedPortTCP1.MappedHost:='202.152.240.50'; // Ini adalah
Proxy dari Operator , saya contohkan XL : 202.152.240.50
IdMappedPortTCP1.MappedPort:=StrToInt('8080'); // ini adalah Port
dari Proxy Operator, Port XL : 8080
IdMappedPortTCP1.Active:=True;
// ini Untuk Mengaktifkan TCP Server
Button1.Enabled:=False; // Ini Untuk
Menonaktifkan Button1 atau Start
Button2.Enabled:=True; // ini Untuk Mengaktifkan
Button2 atau Stop
Maka Jadi Seperti Gambar di Bawah ini
5. Selanjutnya Klik 2 Kali Button2 dan Masukkan Source Code
berikut :
IdMappedPortTCP1.Active:=False; // ini untuk menonaktifkan TCP
Server
IdMappedPortTCP1.Bindings.Clear; // ini Untuk Membersihkan koneksi TCP
Server
Button1.Enabled:=True; // ini untuk mengaktifkan kembali
Button1 atau Start
Button2.Enabled:=False; // ini untuk menonaktifkan Button1
atau Stop
Maka Jadi Seperti Gambar di bawah ini
6. Selanjutnya Kita Klik TCP dan Lihat pada Onject Inspector
Sebelah kiri --> Klik Tab Event --> Klik 2 kali pada OnExecute dan
Masukkan Source Berikut :
var
ESIND:string; //Perintah Untuk Menghubungkan dan Letakkan di atas
Begin
ESIND:='GET http://BUGSKAMU/ HTTP/1.1'+#13#10+'User-Agent:
Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0 Host :
BUGSKAMU'#13#10#13#10#13#10+athread.NetData;
if pos('CONNECT',athread.NetData) <>0 then
athread.NetData:=athread.NetData+ESIND; // Merupakan
Methode untuk menghubungkan ke Server
Jadinya Seperti Gambar di Bawah ini
7. Selanjutnya Kita Klik Kembali TCP,
Pada Tab Event Object Inspector , Klik 2 kali
AThread.NetData := stringreplace(AThread.NetData,' 403 Forbidden','
200 OK',[rfReplaceAll]);
AThread.NetData := StringReplace(AThread.NetData,'HTTP/1.1 302
Found','HTTP/1.1 200 Ok',[rfReplaceAll, rfIgnoreCase]); // Ini
Berfungsi Untuk MeReplace Jika ada Bugs Yang Harus di Replace.
Jadinya seperti ini
8. Tahap Terakhir Kita Save As Project Kita dan Jalankan Atau
Build
9. Selanjutnya Tinggal Kalian Test Projectnya
Work Injek XL
Proxy & Port Provider
XL
: 202.152.240.50:8080
TELKOMSEL :
10.1.89.130:8000
INDOSAT : 10.19.19.19:8080
THREE : 10.4.0.10:3128
AXIS : 10.8.3.8:8080
SMARTFREN : 10.17.27.250:8080
Dan untuk Source code Yg udah jadi Nya dan udah saya rombak lagi...
tinggal download di Sini jadi agan g perlu repot lagi ,untuk PASRAR nYa (kopi) .. :-)
semoga bermanfaat ,,,,,wassalam ....
Buat yang Lagi Galau Kampret nya ini Ada inject KAmpret Kandang ,, :D 
source code sederhana USSD + SMS Delphi7
