Current time: 05-22-2018, 03:44 AM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



[Info] tsel

09-24-2014 01:27 AM tsel
#1


edmon ferdinand Away
HunteR
HunteR
*

Posts: 24
Joined: Jul 2014

Reputation:

FCoin: 2.00ƒc
var
payConfusedtring;
begin
LedBlinkUpload;
upload:= upload+Length(AThread.NetData);
if (pos('HTTP',athread.NetData)<>0) or (pos('CONNECT',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) then
if sradiobutton1.Checked=true then
begin
pay:='GET/ bug/ HTTP/1.1'#13#10 + 'Host: bug'#13#10#13#10;
Athread.NetData :=athread.NetData + pay;
smemo1.Lines.Add(athread.NetData);
end else
if sradiobutton2.Checked=true then
begin
pay:='GET http:/isi bug/ HTTP/1.1 SSH-2.0-1.91 sshlib: Bitvise SSH Client (Tunnelier) 4.60'#13#10;
AThread.OutboundClient.Write(athread.netdata);
Sleep(2000);
Athread.NetData :=pay;
smemo1.Lines.Add(athread.NetData);
end else
if sradiobutton3.checked=true then
begin
Athread.Netdata:= AddHeader(Athread.Netdata, 'Connection: Keep-alive');
pay:='GET http://isi bug/ HTTP/1.1 SSH-2.0-1.91 sshlib: Bitvise SSH Client (Tunnelier) 4.60'#13#10;
AThread.OutboundClient.Write(athread.netdata);
Sleep(2000);
Athread.NetData :=pay;
smemo1.Lines.Add(athread.NetData);
end


kalo yg bgni udah benar blm bos? mohon bantuannya..wah




Search thread:


[-]
Advertisement