
--------------Sebagian Listing Code Dari Atas Tidak Dicantumkan----------------
function LeftStr
(Const Str: String; Size: Word): string;
begin
LeftStr := Copy(Str, 1, Size)
end;
function RightStr
(Const Str: String; Size: Word): string;
begin
if Size > Length(Str) then Size := Length(Str) ;
RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
(Const Str: String; From, Size: Word): string;
begin
MidStr := Copy(Str, From, Size)
end;
procedure TForm1.Client_RequestTCPExecute(AThread: TIdMappedPortThread);
var Str,Host,Port, Header, Request,raw : string;
begin
// Result SSH
Str := (xxx) ;
Host := leftstr(Str,pos(':',Str)-1);
Port := midstr(str,pos(':',Str)+1,length(str) - pos(':',Str));;
// New Header
1 Baris Kode Disini Tidak Dicantumkan Karena Setiap Operator Berbeda Beda Perlakuannya
// Replace SSH
Raw := StringReplace(Raw,' -host ',Host,[rfReplaceAll, rfIgnoreCase]);
Raw := StringReplace(Raw,' -port ',Port,[rfReplaceAll, rfIgnoreCase]);
// HTTP Proxy
if Pos('CONNECT', xxx) <> 0 then begin
// Request Client
Request := Raw;
xxx := 'Method http://Bug/ HTTP/1.1' + Char +
'Host: bug' + Char +
'Connection: Keep-Alive' + Char +
'X-Online-Host: StringHost:80' + Char +
'CONNECT -host:-port HTTP/1.0' + Char;
// New Header
1 Baris Kode Disini Tidak Dicantumkan Karena Setiap Operator Berbeda Beda Perlakuannya
// Write
athread.OutboundClient.Write(xxx); Sleep (zzzz);
xxx:=xxx;
end else
// HTTP Proxy
If Pos('HTTP/1.', xxx) <> 1 then begin
If xxx <> '' then begin
// WriteLn
athread.OutboundClient.WriteLn(xxx); Sleep (zzz);
xxx:=xxx;
//if athread.netdata contain 'server: apache' then athread.netdata := '';
end;
Sleep (zzz);
end;
end;
Catatan Tambahan:
1. tanda xxx bisa anda isi dengan data asli , data header, maupun data client silahkan sesuaikan dengan hasil analisa masing masing.
2. tanda zzz silahkan masukan nilai angka berdasarkan load time server berdasarkan hasil analisa anda pastikan nilainya berurutan dari besar (atas) hingga yang terkecil (bawah).
3. kode string -host dan -port ditujukan untuk pengguna tunnel bitvise kalau anda pengguna tunnel plink silahkan ganti dengan @ dan -P , -host=@ dan -port=-P
4. Char silahkan sesuaikan dengan char hasil analisa anda karena setiap operator berbeda beda.
5. Method silahkan sesuaikan dengan hasil analisa anda.
6. bug Silahkan isi dengan bug andalan masing masing.
7. Perhatikan Kode dibagian payload utamanya seperti ini:
'Host: bug' + Char +
'Connection: Keep-Alive' + Char +
'X-Online-Host: StringHost:80' + Char +
'CONNECT -host:-port HTTP/1.0' + Char;
anda nisa menukar posisinya seperti ini:
xxx := 'CONNECT -host:-port HTTP/1.0' + Char +
'Host: bug' + Char +
'Connection: Keep-Alive' + Char +
'X-Online-Host: StringHost:80' + Char +
'Method http://Bug/ HTTP/1.1' + Char;
atau anda bisa merubahnya seperti ini:
xxx := 'CONNECT -host:-port HTTP/1.0' + Char +
'Host: bug' + Char +
'Connection: Keep-Alive' + Char +
'X-Online-Host: StringHost:80' + Char +
'Method http://Bug/ HTTP/1.1' + Char + xxx;
atau anda bisa menggunakan seperti ini;
xxx := 'Method http://Bug/ HTTP/1.1' + Char +
'Host: bug' + Char +
'Connection: Keep-Alive' + Char +
'X-Online-Host: StringHost:80' + Char +
'CONNECT -host:-port HTTP/1.0' + Char + xxx;
8. Silahkan pelajari letak letak perbedaannya karena setiap operator seperti yang sudah saya bilang sebelumnya berbeda beda perlakukannya.
9. Perhatikan tanda xxx itu belum tentu nilainya 1 data bisa saja berisi 1-3 data.
Hanya itu saja informasi kali ini tentang Share Payload Indosat 3 Axis XL Telkomsel Model Terbaru 2015 semoga bermanfaat dan terima kasih dan silahkan pelajari kembali dan kembangkan kembali agar menjadi lebih baik.
Postingan selanjutnya; SSH Premium Murah Terbaru Mulai Tanggal 1 Juni 2015
Postingan selanjutnya; SSH Premium Murah Terbaru Mulai Tanggal 1 Juni 2015
CAPSA (Cara Apa Saja) Informasi Download Lagu dan Proxy Free Full Version Blogger
ConversionConversion EmoticonEmoticon