Selasa, 16 Juni 2015

Cara Buat Injek Payload Telkomsel Indosat XL Axis 3 Model Terbaru 2017

Berikut adalah Info Tentang Cara Buat Membuat Inject Injek Payload Telkomsel 3 Aon Indosat XL Axis Model Terbaru 2015 yang aka mimin share buat anda dan sebelumnya mimin sudah share seputar Source Code Delphi 7 Proxy Server With IdHTTP 2015 ok dan berikut adalah cara bikin injek operator yang paling terbaru dengan model yang paling terbaru juga mungkin atau anda baru pertama kali melihat model injek yang seperti ini nah dari pada kelamaan silahkan langsung praktek saja.

Harap jadi catatan bahwa payload dibawah ini adalah payload model terbaru dan anti limit tentunya, berlaku untuk semua operator yang ada saat ini karena payload dibawah ini menggunakan 3 konsep onexecute yaitu Perekaman Paket data, Pengiriman paket data dan Pemerosesan Paket Data dan tentunya berbeda dengan payload payload yang sudah banyak dibahas di google masih menggunakan 2 konsep execute, bagi yang ingin share ulang silahkan berikan link sumbernya kesini (WAJIB). 

1. Pertama Buka Program Desktop Delphi anda, lalu Masukan daftar komponen di pallete ke form : Memo (1), Indy Server TCP (1), Indy Misc AntiFreeze (1) , Checkbox (1), Edit (4), Button (2), nama Checkbox ganti dengan Log , Caption Button1 ganti dengan Start, Caption Button2 ganti dengan Stop, nama edit1 ganti dengan DefaultHost, nama edit2 ganti dengan DefaultPort, nama edit3 ganti dengan LocalPort, nama edit4 ganti dengan LocalHost , lihat gambar dibawah yang sebelah kirinya.

Cara Atasi Limit Telkomsel Terbaru 2015

2. Kedua tambahkan kode dibawah ini tepat dibawah { Private declarations }

     function ReceiveData(Athread: TIdMappedPortThread):boolean;
     function SendData(Athread:TIdMappedPortThread):boolean;
     function ProcessData(AThread: TIdMappedPortThread):boolean;

Cara Atasi Limit Telkomsel Terbaru 2015

3. Ketiga tambahkan kode dibawah ini tepat dibawah kode {$R *.dfm}

function Tform1.ReceiveData(Athread: TIdMappedPortThread):boolean;
    begin 
       with Athread do begin
          NetData:='';
          result:=false;
          try
          Connection.ReadFromStack(true,-1,true);
          NetData:=Connection.InputBuffer.Extract(Connection.InputBuffer.Size);
          result:=true;
          except
          end;
       end;
    end;

function Tform1.SendData(Athread:TIdMappedPortThread):boolean;
    begin
       result:=false;
       if Assigned(Athread.OutboundClient) and Athread.OutboundClient.Connected then begin
          try
          if Athread.Connection.Tag=1 then begin
          Athread.NetData:='';
          // Dukungan Untuk HTTP Tunneling dan Jika Sambungan Berhasil Maka Pengiriman Paket Data Akan dilanjutkan
          Athread.Connection.WriteLn('HTTP/1.1 200 OK'+EOL);
          end;
          if length(Athread.NetData)<>0 then
          Athread.OutboundClient.Write(Athread.NetData);
          result:=true;
          except
          memo1.Lines.Add ('Pengembalian Kesalahan Paket Data');
     end;
   end;
 end;

function Tform1.ProcessData(AThread: TIdMappedPortThread):boolean;
    var
       TempURI,RemoteHost:TIdURI;
       InputLine,HttpCmd,HttpVer:string;
       HttpHeader:TIdHeaderList;
       TempHeader:TStringList;
       Proxy:boolean;
    begin
       HttpHeader:=TIdHeaderList.Create; 
       TempHeader:=TStringList.Create;
       result:=true;
       try
          HttpHeader.UnfoldLines:=false;
          HttpHeader.FoldLines:=false;
          HttpHeader.Text:=Athread.NetData;// Bagian Dimana Untuk Mengambil Pengolahan Request Paket Data
          RemoteHost:= TIdURI.Create ('http://www.example.com/' + HttpHeader.Values['www.example.com']);
          TempHeader.CommaText:=HttpHeader.Strings[0];//Get HTTP request line
          Proxy:=length(HttpHeader.Values['Proxy-Connection'])>0;
          // Menghindari Pelacakan Paket Proxy Oleh Server Operator
          // Permintaan Line Setidaknya Ada 3 Bagian dan Terpisah Oleh Versi URL HTTP Command, sehingga jumlah kebutuhan > 2
          if TempHeader.Count>2 then begin
          HttpCmd:=UpperCase(TempHeader.Strings[0]);//HTTP command
          HttpVer:=TempHeader.Strings[TempHeader.count-1];//HTTP protocol version
          InputLine:=TempHeader.Strings[1];//URI request
          // Permintaan Pake Proxy
          if Proxy then
          begin
          // Membangun Kembali Permintaan Koneksi HTTP
          TempURI:=TIdURI.Create(InputLine);
          if (HttpCmd='HEAD') or (HttpCmd='GET') or (HttpCmd='POST') then begin

          HttpHeader.Strings[0]:=HttpCmd+' '+TempUri.Path+TempUri.Document+TempUri.Params;
          if TempUri.Bookmark<>'' then
          HttpHeader.Strings[0]:=HttpHeader.Strings[0]+'#'+TempUri.Bookmark;
          HttpHeader.Strings[0]:=HttpHeader.Strings[0]+' '+HttpVer;
          end;

          if HttpCmd='OPTIONS' then begin
          end;
          if HttPCmd='TRACE' then begin
          end;
          if HttpCmd='PUT' then begin
          end;
          if HttpCmd='DELETE' then begin
          end;
          // Permintaan Peghapusan Paket Proxy
          HttpHeader.Delete(HttpHeader.IndexOfName('Proxy-Connection'));
          if HttpCmd='CONNECT'then begin
          RemoteHost.URI:= 'http://www.example.com/' + InputLine;
          Athread.Connection.Tag:=1;
          // OnOutBoundConnect di Hubungkan Pada HTTP tunneling Ke Server Bug Host Client
          end;
          TempURI.free;
          end;

          if Assigned(AThread.OutboundClient) and Athread.Connection.Connected  then begin
          if not Athread.OutboundClient.Connected then begin
          TidTcpClient(AThread.OutboundClient).Host:=trim(RemoteHost.Host);
          TidTcpClient(AThread.OutboundClient).Port:=StrToIntDef(RemoteHost.Port,TidTcpClient
(AThread.OutboundClient).Port);
          end;
          end;
          end;

          Athread.NetData:=HttpHeader.Text;
         // Jika Sebuah Permintaan Tidak Berisi Paket Data Pada Dua Byte Terakhir Adalah bernilai #CR#LF
         // Dan Jika Sebuah Permintaan Berisi Paket Data Dua Byte Terakhir Adalah Athread.Netdata
         // if StrToIntDef(Trim(HttpHeader.Values['Content-Length']), -1)>0 then begin
         // SetLength(Athread.NetData,Length(Athread.NetData)-2);
         // Menghapus Line Terakhir #CR#LF (Carriage Return Line Feed)
         // end
          RemoteHost.Free;
       finally
          TempHeader.Free;
          HttpHeader.Free;
       end;
    end;

Cara Atasi Limit Telkomsel Terbaru 2015

 www.example.com silahkan ganti dengan bug host milik anda, harap jadi catatan seperti yang sudah dijelaskan Jika Target tidak ada paketnya gunakan CRLF kalau Target ada paketnya langsung tutup dengan Athread.Netdata contoh:

http://www.example.com/+#13#10 (Non Paket Transmiter Data)
http://www.example.com/+Athread.etdata (Paket Transimiter Data)


4. Keempat Klik Tombol Start Lalu Masukan kode dibawah ini:

try
 if not form1.IdMappedPortTCP1.Active then begin
 form1.IdMappedPortTCP1.Bindings.Add.IP := LocalHost.Text;
 form1.IdMappedPortTCP1.Bindings.Add.Port := form1.IdMappedPortTCP1.DefaultPort;
 form1.IdMappedPortTCP1.DefaultPort:= strtointdef (LocalPort.Text, 80);
 form1.IdMappedPortTCP1.MappedHost:= DefaultHost.Text;
 form1.IdMappedPortTCP1.MappedPort:= StrTointDef (DefaultPort.Text, 80);
 end;
 form1.IdMappedPortTCP1.Active:=true;
 form1.IdAntiFreeze1.Active:=true;
 form1.IdAntiFreeze1.OnlyWhenIdle:=true;
 form1.IdAntiFreeze1.IdleTimeOut:=10;
 except
 end;

Cara Atasi Limit Telkomsel Terbaru 2015

5. Kelima Lalu klik tombol Stop lalu masukan kode dibawah ini:

try
 if not form1.IdMappedPortTCP1.Active then begin
 form1.IdMappedPortTCP1.Bindings.Clear;
 end;
 form1.IdMappedPortTCP1.Active:=False;
 form1.IdAntiFreeze1.Active:=False;
 sleep (100);
 memo1.Clear;
 except
 end;

Cara Atasi Limit Telkomsel Terbaru 2015

6. Keenam klik On Connect pada Propertiest TCP lalu masukan kode dibawah ini:

ReceiveData (Athread);
if log.Checked then begin
memo1.Lines.BeginUpdate;
memo1.Lines.Add ('Permintaan Paket Data Koneksi Di Kirim');
memo1.Lines.Add (athread.NetData);
memo1.Lines.EndUpdate;
end;

If Athread.Connection.Connected then
ProcessData (Athread);
if log.Checked then begin
memo1.Lines.BeginUpdate;
memo1.Lines.Add ('Permintaan Modifikasi Koneksi Paket Data');
memo1.Lines.Add (athread.NetData);
memo1.Lines.EndUpdate;
end;

Cara Atasi Limit Telkomsel Terbaru 2015

7. Ketujuh lalu klik On Disconect pada properties TCP lalu masukan kode dibawah ini:

AThread.Connection.Intercept.Free;

Cara Atasi Limit Telkomsel Terbaru 2015

8. Kedelapan lalu Klik Out bound Connect pada propertiest TCP lalu masuka kode dibawah ini:

 if not Assigned (AException) then
if not SendData (Athread) then begin
memo1.Lines.Add ('Permintaan Paket Data Koneksi Gagal')
end;

Cara Atasi Limit Telkomsel Terbaru 2015

9. Kesembilan lalu Klik Out Bound Data Pada Propertiest TCP lalu masukan kode dibawah ini:

 if log.Checked then begin
memo1.Lines.Add ('Paket Di Kembalikan Oleh Server');
memo1.Lines.Add (athread.NetData);
end;

Cara Atasi Limit Telkomsel Terbaru 2015

10. Yang terakhir silahkan build projectnya da berikut adalah contoh projectnya yang 10000% work pasti.

Cara Atasi Limit Telkomsel Terbaru 2015


Dan hanya Itu Saja Informasi Seputar Cara Buat Membuat Inject Injek Payload Telkomsel Indosat XL Axis Model Terbaru 2015 Silahkan digunakan dengan sangat Bijaksana Saja.

Selanjutnya;  Share Payload Injek Socks5 Untuk Internet Gratis Terbaru 2015