Cara Membuat Injek Mapping Proxy All Operator Terbaru

Berikut adalah Tips Tentang Cara Membuat Injek Mapping Proxy All Operator Terbaru 2019 Yang akan admin Cara Apa Saja share buat teman teman semuanya dan sebelumnya juga admin sudah share dengan Website Phreaker World Tidak Bisa di Akses ok bagi sahabat semuanya yang ingin buat atau bikin inject dengan perpaduan konsep terbaru silahkan bisa langsung simak dibawah ini, silahkan disimak saja ya.

1. Langkah Pertama silahkan download dulu file capsa.pas, capsa.dcu dan capsa.~pas DISINI kemudian silahkan ekstrak pada project yang akan anda buat pada halaman ini dan pastikan 3 file tersebut berada 1 baris dengan project yang akan anda buat sekarang, kemudian buka delphi masing masing disini admin contohkan dengan delphi 7, lalu silahkan tambahkan Komponen: 

IdMappedPortTCP1:  Button1: Button2: StatusBar1:  Button3: Label1: Label2: Label3: Label4: Label5: 

2. Yang kedua lalu tambahkan kode dibawah ini lihat samakan dengan gambar saja.

var

  Form1: TForm1;

    in_,out_,all_:integer;

  _1,_2,_3,_4,_5:integer;

implementation

uses

Capsa;

{$R *.dfm}

3. Kemudian yang ketiga silahkan klik Button1 lalu tambahkan kode dibawah ini, lihat gambarnya.

in_:=0;

out_:=0;

all_:=0;

_1:=0;

_2:=0;

_3:=0;

_4:=0;

_5:=0;

with IdMappedPortTCP1.Bindings.Add do begin

  IP:='127.0.0.1';

  Port:=strtoint('80'); // Listen Port

end;
// IdMappedPortTCP1.MappedHost:='10.1.89.130';
// IdMappedPortTCP1.MappedPort:=StrToInt('8000');

IdMappedPortTCP1.Active:=true;

4. Yang keempat lalu klik Button2 lalu Tambahkan kode dibawah ini, lihat gambar.

IdMappedPortTCP1.Active:=false;

IdMappedPortTCP1.Bindings.Clear;

5. Yang Kelima lalu kemudian klik Button3 lalu tambahkan kode dibawah ini, lihat gambar.

_1:=0;

_2:=0;

_3:=0;

_4:=0;

_5:=0;

StatusBar1.Panels[0].Text:=('0');

StatusBar1.Panels[1].Text:=('0');

StatusBar1.Panels[2].Text:=('0');

label1.Caption:=('0');

label2.Caption:=('0');

label3.Caption:=('0');

label4.Caption:=('0');

label5.Caption:=('0');

6. Yang keenam lalu kemudian silahkan menuju Object Inspector > Events > Lalu klik pada OutboundData lalu tambahkan kode dibawah ini:

AThread.NetData:=RemoveSub(AThread.NetData,'<a ','</a>','[link]',_1);

AThread.NetData:=RemoveSub(AThread.NetData,'<A ','</A>','[link]',_1);

AThread.NetData:=RemoveSub(AThread.NetData,'<img ','>','[img]',_2);

AThread.NetData:=RemoveSub(AThread.NetData,'<IMG ','>','[img]',_2);

AThread.NetData:=RemoveSub(AThread.NetData,'<script ','</script>','[script]',_3);

AThread.NetData:=RemoveSub(AThread.NetData,'<SCRIPT ','</SCRIPT>','[script]',_3);

AThread.NetData:=RemoveSub(AThread.NetData,'<noscript>','</noscript>','[noscript]',_3);

AThread.NetData:=RemoveSub(AThread.NetData,'<object ','</object>','[object]',_4);

AThread.NetData:=RemoveSub(AThread.NetData,'<OBJECT ','</OBJECT>','[object]',_4);

AThread.NetData:=RemoveSub(AThread.NetData,'<embed ','</embed>','[embed]',_4);

AThread.NetData:=RemoveSub(AThread.NetData,'<EMBED ','</EMBED>','[embed]',_4);

AThread.NetData:=RemoveSub(AThread.NetData,'<iframe ','>','[iframe]',_5);

AThread.NetData:=RemoveSub(AThread.NetData,'<IFRAME ','>','[iframe]',_5);

// AThread.NetData:=AThread.NetData;

inc(In_,length(AThread.NetData));

StatusBar1.Panels[0].Text:=inttostr(In_);

StatusBar1.Panels[2].Text:=inttostr(in_+Out_);

label1.Caption:=inttostr(_1);

label2.Caption:=inttostr(_2);

label3.Caption:=inttostr(_3);

label4.Caption:=inttostr(_4);

label5.Caption:=inttostr(_5);

7. Ynag ketujuh masih di IdMappedPortTCP1 > Object Inspector > Events > Lalu klik pada OnExecute lalu tambahkan kode dibawah ini:

if Pos('CONNECT',AThread.NetData)<>0 then

{
GET / HTTP/1.1
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; ru) Opera 8.51
Host: 127.0.0.1
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: ru,en;q=0.9
Accept-Charset: windows-1252, utf-8, utf-16, iso-8859-1;q=0.6, *;q=0.1
Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0
Referer: http://127.0.0.1/
Connection: Keep-Alive
}

AThread.NetData:=ReplaceSub(AThread.NetData,'GET','CONNECT');

AThread.NetData:=ReplaceSub(AThread.NetData,'HTTP/1.0','HTTP/1.1');

AThread.NetData:=ReplaceSub(AThread.NetData,'Referer: http://facebook.com/','Referer: http://google.com/');

AThread.NetData:=ReplaceSub(AThread.NetData,'Host: facebook.com','Host: google.com');

AThread.NetData:=ReplaceSub(AThread.NetData,'Accept-Encoding: deflate, gzip, identity, *;q=0','Accept-Encoding: gzip, deflate');

AThread.NetData:=ReplaceSub(AThread.NetData,'TE: deflate, gzip, chunked, identity','TE: gzip');

AThread.NetData:=ReplaceSub(AThread.NetData,'image/png, ','');

AThread.NetData:=ReplaceSub(AThread.NetData,'image/jpeg, ','');

AThread.NetData:=ReplaceSub(AThread.NetData,'image/gif, ','');

// AThread.NetData:=AThread.NetData;

inc(Out_,length(AThread.NetData));

StatusBar1.Panels[1].Text:=inttostr(Out_);

StatusBar1.Panels[2].Text:=inttostr(in_+Out_);

8. Yang kedelapan masih di  IdMappedPortTCP1 > Object Inspector > Events > Lalu klik pada OutboundConnect lalu tambahkan kode dibawah ini:

if pos ('HTTP/1.1 503 Service Unavailable', AThread.NetData) <>0 then

AThread.NetData := StringReplace(AThread.NetData,'HTTP/1.1 503 Service Unavailable','HTTP/1.1 200 OK',[rfReplaceAll]);

9. Oh iya hampir lupa yang kesembilan silahkan klik statusbarnya lalu buat 3 panel pada statusbarnya seperti gambar dibawah ini:

10. Yang terakhir silahkan di run atau dibuild projectnya, dan silahkan kembangkan dan oprek lagi, hanya itu saja dulu konsep dasar dari inject mapping proxy tersebut, dan 90% itu sudah jadi untuk 10%nya silahkan anda selesaikan dan untuk nama nama komponennya silahkan sesuaikan saja dengan selera anda, itu saja dulu.

Ya Hanya Itu saja dulu informasi Dengan Tips Cara Membuat Injek Mapping Proxy All Operator Terbaru 2019 semoga bermanfaat dan terima kasih dan selamat menjelang tahun baru 2016.

Lihat Juga: Proxy Gratis 2016