Cara membuat Inject sederhana dengan delphi 7

oke langsung saja..

HARUS SABAR TELATEN TELITI TEKUN DAN TIDAK SOMBONG

Pertama buka delphi 7 anda.
Ditampilan pertama anda akan melihat from kosong,lalu dimenu standard anda klik tombol button untuk memasang buttonnya

sehingga menjadi

lalu pasang lagi button kedua dengan cara yang sama sehingga menjadi

sekarang rubah nama buttonnya,klik satu kali pada button1 lalu pada properties dimenu caption kalian rubah namanya sesuai dengan keinginan.Saya akan merubah namanya pada button1 menjadi HIDUP dan button2 menjadi MATI

sehingga menjadi

lalu kalian klik dua kali pada button1 tadi sehingga akan terbuka tempat meletakan kode-kodenya
Nah pada button1 kalian masukan kode ini

IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1';
IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('8080');  ///disini angka 8080 ada listen portnya bisa kalian ganti sesuka hati
IdMappedPortTCP1.MappedHost:='10.1.89.130'; ///disini angka 10.1.89.130 ada proxy operator bisa kalian ganti sesuai dengan operator apa yang ingin kalian coba injectnya
IdMappedPortTCP1.MappedPort:=StrToInt('8000'); ///disini angka 8000 ada port operator bisa kalian ganti sesuai dengan operator apa yang ingin kalian coba injectnya
IdMappedPortTCP1.Active:=True;
Button1.Enabled:=False;
Button2.Enabled:=True;

ini adalah daftar proxy dan port operator yang sangat sering digunakan

Telkomsel
proxy                     port
10.1.89.130           8000
Indosat
10.19.19.19           8080
XL
202.152.240.50     8080
THREE 3
10.4.0.10               3128
AXIS
10.8.3.8                 8080

kemudian kalian klik dua kali di button2 tadi,masukan kode ini

IdMappedPortTCP1.Active:=False;
IdMappedPortTCP1.Bindings.Clear;
Button1.Enabled:=True;
Button2.Enabled:=False;

sehingga

lalu kalian masukan TCP terletak dimenu indy servers

klik satu kali di TCP nya lalu menu events klik dua kali menu OnExecute

kemudian diatas tulisan begin kalian letak kode

var
ESIND:string;

setelah itu dibawah tulisan begin kalian letak

ESIND:='GET http://BUGSKAMU/ HTTP/1.1'+#10#13#10#13#10#13+'Connection: Keep-Alive'+#10#13+'Host : BUGSKAMU'#10#13;
if pos('CONNECT',athread.NetData) <>0 then
athread.NetData:=athread.NetData+ESIND;


tulisan BUGSKAMU kalian ganti dengan bug yg kalian ketahui
sehingga

masih dimenu events TCP kalian klik dua kali dimenu ONOUTBOUNDDATA lalu masukan kode

 if (Pos('HTTP', AThread.NetData) <> 0) then
  begin
 AThread.NetData := AThread.NetData;
 AThread.NetData := 'HTTP/1.0 200 Connection established' + #13#13#13 + AThread.NetData;
 AThread.NetData := StringReplace(AThread.NetData,':109',':443',[rfReplaceAll]);

sehingga

terakhir kalian save as dimenu file
lalu kalian buildproject1 di menu project

ingat perhatikan gambar itu baik2,dan liat berapa banyak tulisan end;nya,biasa kita sering salahnya disitu,sehingga project kita error

lalu silahkan coba dengan ssh/openvpn kalian...