Minggu, 27 Desember 2015

Cara Membuat Injek Mapping Proxy All Operator Terbaru 2017

Berikut adalah Tips Tentang Cara Membuat Injek Mapping Proxy All Operator Terbaru 2016 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: 

Payload Internet Gratis 2016

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}

Payload Internet Gratis 2016

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;

Payload Internet Gratis 2016

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

IdMappedPortTCP1.Active:=false;
IdMappedPortTCP1.Bindings.Clear;

Payload Internet Gratis 2016

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');

Payload Internet Gratis 2016

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);

Payload Internet Gratis 2016

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_);

Payload Internet Gratis 2016

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]);

Payload Internet Gratis 2016

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

Payload Internet Gratis 2016

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 2016 semoga bermanfaat dan terima kasih dan selamat menjelang tahun baru 2016.

Lihat Juga: Proxy Gratis 2016