Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Info] tsel
#1
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
Reply