Pay Load Telkomsel 2014 Delphi

Silahkan Lo Kombinasikan Sendiri 
....
 
procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);
var
Spoiler :
payload:string;
begin
payload:='HEAD http://bug.opsel.com/ HTTP/1.1' + #10#13 + 'Connection: Keep-alive' + #10#13 + 'Host : bug.opsel.com/' +#10#13#10#13#10#13;

if Pos('HTTP',AThread.NetData)<>0 then
AThread.NetData := AThread.NetData+payload+AThread.NetData;

end;

Semoga Bermanfaat...

Advertiser