Minggu, 14 Juni 2015

Cara Buat Injek IdMappedPortTCP Digabungkan Dengan IDHTTP 2015

Ini Dia Cara Buat Injek IdMappedPortTCP1 Digabungkan Dengan IDHTTP1 2015 ini adalah Tutorial Tentang Cara Membuat Injek Inject All Semua Operator Baik Operator XL 3 Indosat XL Telkomsel cara berikut ini bisa diterapkan dan sebelumnya juga mimin sudah share seputar Kumpulan Bug Internet Gratis Telkomsel Indosat Axis Xl 2015 ok disini mimin hanya akan share sedikit potongan potongannya saja yang mungkin ingin anda pelajari juga dan injek yang dibahas disini adalah injek internet gratis dengan model paling terbaru di tahun 2015 dan mungkin belum pernah ada yang bahas ditempat lainnya karena konsep injek ini memang mimin yang pecahkan sendiri, jadi kalau dirasa postingan ini bermanfaat silahkan share ulang di blog atau website website saudara agar para newbiters bisa ikut belajar juga tapi harap beri link ke halaman postingan ini jika tidak mau kena DMCA Take Down, silahkan disimak yah.

Cara Internet Gratis Terbaru 2015

Daftar Komponen Delphi 7 Yang digunakan: IdAntiFreeze1, IdHTTP1, IdMappedPortTCP1, XPManifest1, Bevel1, Memo1, Timer1, Button1, Button2 (Masukan Semua Komponen Tersebut Pada Form Delphi). harap jadi catatan sebagian kode telah mimin hilangkan untuk menjaga penyalahgunaan yang berlebihan saja jadi di dibawah ini mimin hanya membagikan sebagian kodenya atau petunjuknya untuk dipelajari kembali.

1. Masukan Dulu Komponennya yang sudah dijelaskan diatas.

2. Tambahkan Kode Fungsi Sendiri Dulu setelah kode {$R *.dfm}

function AddHeader(Header, Newheader:string):string;
begin
Header := StringReplace(Header, #13#10 + #13#10, #13#10 + Newheader + #13#10 + #13#10, [rfReplaceAll, rfIgnoreCase]);
Result := Header;
end;
function LowerCase(const netdata: string): string;
begin
result:=LowerCase(netdata);
end;

3. Klik Pada Button 1 atau kasih nama start Lalu Masukan Kode:

memo1.Lines.Add('Connected');
Timer1.enabled := true;
IdMappedPortTCP1.Bindings.Add.IP := ('');
IdMappedPortTCP1.Bindings.Add.Port := StrToInt ('');
IdMappedPortTCP1.MappedHost := ('');
IdMappedPortTCP1.MappedPort := StrToInt('');
IdMappedPortTCP1.Active := True; sleep (10);
IDHTTP1.OnConnected := IdHTTP1Connected;
IDHTTP1.Request.UserAgent := ('');
IDHTTP1.Request.Host := ('' + '');
IDHTTP1.BoundIP := ('' + '');
IDHTTP1.ReadTimeout := strtoint('' + '');
IDHTTP1.ProxyParams.ProxyServer := ('');
IDHTTP1.ProxyParams.ProxyPort := StrToInt('');
// Isi Setiap Parameter yang ada didalam tanda '' tersebut.

4. Klik Pada Button 2 atau kasih nama stop Lalu Masukan Kode:

Timer1.enabled := false;
IdMappedPortTCP1.Active := False;
IdMappedPortTCP1.Bindings.Clear;
IDHTTP1.OnDisconnected := IdHTTP1Disconnected;

5. Klik Pada IdMappedPortTCP1Execute lalu masukan kode:

var
LowerCase: string;
UA : string;
begin
Memo1.Lines.Add(AThread.NetData);
 if pos('User-Agent',athread.NetData)<>0 then begin
UA:=athread.NetData;
delete(UA,1,(pos('User-Agent',UA)-1));
athread.NetData := StringReplace(athread.NetData,copy(UA,1,(pos(#13#10,UA)-1)),'Isi Dengan User Agent dan Samakan Dengan User Agent IdHTTP', [rfReplaceALL]);
end else
if pos('POST',athread.NetData)<> 0 then begin
LowerCase := Idhttp1.Get('GET http:// Isi Dengan Bug Host  /HTTP/1.1' + #13#10);
end else
if (pos('CONNECT',athread.NetData)<> 0 ) then begin
LowerCase :=('GET http:// Isi Dengan Bug Host  /HTTP/1.1' + #13#10);
athread.NetData:= LowerCase;
end else
 If Pos('HTTP/1.', Athread.NetData) = 1 then begin
 If LowerCase <> '' then begin
 athread.OutboundClient.Write(LowerCase);
 LowerCase:='';
    //if athread.netdata contain 'server: apache' then athread.netdata := '';
   end;
  end;
end;

6. Klik Pada IdMappedPortTCP1OutboundData lalu masukan kode:

var
header: string;
begin
Memo1.Lines.Add(AThread.NetData);
if (pos(' Isi Dengan Replace Header ',athread.NetData)> 0 ) then begin
header:=StringReplace(AThread.NetData,' Isi Dengan Replace Header ',' HTTP/1.1 200 OK ',[rfReplaceAll]);
AThread.NetData := Header;
end else
 If Pos('HTTP/1.', Athread.NetData) = 1 then begin
 If Header <> '' then begin
 athread.OutboundClient.Write(Header);
 Header:='';
    //if athread.netdata contain 'server: apache' then athread.netdata := '';
   end;
  end;

7. Klik Pada IdHTTP1Connected Lalu masukan kode:

var Header, LowerCase: string;
begin
memo1.Lines.Add('Connected');
LowerCase := '';
Header := '';
button1.Enabled := True;
button2.Enabled := False;

8. Klik Pada IdHTTP1Disconnected lalu masukan kode:

var Header, LowerCase: string;
begin
memo1.Lines.Add('Disconnected.');
LowerCase := '';
Header := '';
button1.Enabled := False;
button2.Enabled := True;

Jadi itu Contoh kodenya yang bisa anda pelajari dan silahkan kembangkan kembali atau anda bisa share ulang ke teman teman anda yang ingin mempelajarinya dan sebagian besar kode pentingnya telah mimin hilangkan karena payload tersebut adalah payload sakti terbaru 2015 nan mandraguna yang penting anda mau mengembangkannya dan banyak bug yang awalnya sulit di tembus dan dengan model payload tersebut banyak bug host bisa ditembus dan dijebol hingga lubangnnya besar, untuk contoh source code jadinya silahkan bisa didownload via tusfiles DISINI.

Hanya Itu Saja informasi seputar Cara Buat Injek IdMappedPortTCP1 Digabungkan Dengan IDHTTP1 2015 semoga bermanfaat dan terima kasih "salam gretongers".

Selanjutnya; Contoh Source Code Tcp Connection Exception Client