Пятница, 29.03.2024, 09:06 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » Delphi » Вирусология Delphi » Delphi и DDoS (dd0s)
Delphi и DDoS
gravitasДата: Вторник, 30.11.2010, 12:08 | Сообщение # 1
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Вобщем струдом нашел в инете код для HTTP ддоса. Может кому нитьи понадобиться.
Code
uses
     Windows,
     winsock;

type
     ip_option_information = packed record
         Ttl,
         Tos ,
         Flags ,
         OptionsSize : byte;
         OptionsData : Pointer;
     end;

    icmp_echo_reply = packed record
         Address : u_long;
         Status : u_long;
         RTTime : u_long;
         DataSize : u_short;
         Reserved : u_short;
         Data : Pointer;
         Options : ip_option_information;
     end;

     PIPINFO = ^ip_option_information;
     PVOID = Pointer;

function m_ping_host(address: string): string;
function InStr(I: longint): string;
function InInt(S: string): longint;

implementation

function InStr(I: longint): string;
var
   S: string;
begin
   Str(I, S);
   InStr := S;
end;

function InInt(S: string): longint;
var
   I, Code: longint;
begin
   Val(S, I, Code);
   InInt := I;
end;

function IcmpCreateFile() : THandle; stdcall; external 'ICMP.DLL' name 'IcmpCreateFile';
function IcmpCloseHandle(IcmpHandle : THandle) : BOOL; stdcall; external 'ICMP.DLL'  name 'IcmpCloseHandle';
function IcmpSendEcho(IcmpHandle   : THandle;
                       DestAddress  : u_long;
                       RequestData  : PVOID;
                       RequestSize  : Word;
                       RequestOptns : PIPINFO;
                       ReplyBuffer  : PVOID;
                       ReplySize    : DWORD;
                       Timeout      : DWORD ) : DWORD; stdcall; external 'ICMP.DLL' name 'IcmpSendEcho';

function m_ping_host(address: string): string;
var
     hIP                       : THandle;
     pingBuffer                : array [0..32767] of Char;
     pIpe                      : ^icmp_echo_reply;
     pHostEn                   : PHostEnt;
     wVersionRequested, error  : WORD;
     lwsaData                  : WSAData;
     destAddress               : In_Addr;

begin
     hIP := IcmpCreateFile();
     GetMem(pIpe, sizeof(icmp_echo_reply) + sizeof(pingBuffer));
     pIpe.Data := @pingBuffer;
     pIpe.DataSize := sizeof(pingBuffer);
     wVersionRequested := MakeWord(1,1);
     error := WSAStartup(wVersionRequested,lwsaData);
     if (error <> 0) then
     begin
          result := '';
          Exit;
     end;
     pHostEn := gethostbyname(pchar(address));
     error := GetLastError();
     if (error <> 0) then
     begin
          result := '';
          Exit;
     end;
       
     destAddress := PInAddr(pHostEn^.h_addr_list^)^;
     result :=  pHostEn^.h_name + ' [' + inet_ntoa(destAddress) + ']' + ' size: ' +  InStr(sizeof(pingBuffer))  +  ' bytes, ' ;
     IcmpSendEcho(hIP, destAddress.S_addr, @pingBuffer, sizeof(pingBuffer), Nil, pIpe, sizeof(icmp_echo_reply) + sizeof(pingBuffer), 5000);
     error := GetLastError();
     if (error <> 0) then
     begin
          result := 'host not reply. error code: ' + InStr(error);
          Exit;
     end;
     result := result + InStr(pIpe.RTTime) + 'ms';
     IcmpCloseHandle(hIP);
     WSACleanup();
     FreeMem(pIpe);
end;

Использование:
Code
m_ping_host('delfcode.ru');

З.Ы. Свои (или нагугленные) сорсы для ддоса (не только по HTTP) тож кидайте сюда.


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
Not_Bad_ManДата: Четверг, 22.11.2012, 14:11 | Сообщение # 2
Группа: Удаленные



По моему это просто пинг.
Если не прав - тыкните носом пожалуйста.
 
Волк-1024Дата: Четверг, 22.11.2012, 18:05 | Сообщение # 3
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
Да. Это пинг, а не Http flood, но спомощью этого кода можно сделать ICMP DDOS.
 
antbertДата: Пятница, 23.11.2012, 11:37 | Сообщение # 4
Участник
Зарегистрирован: 19.09.2012
Группа: Пользователи
Сообщений: 60
Статус: Offline
Гадость)
 
Not_Bad_ManДата: Пятница, 23.11.2012, 14:45 | Сообщение # 5
Группа: Удаленные



antbert, согласен smile
Не в обиду ТС, но правда, это просто пинг wink
 
MASДата: Суббота, 26.04.2014, 21:39 | Сообщение # 6
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
Цитата Волк-1024 ()
но спомощью этого кода можно сделать ICMP DDOS.

как? Можете сделать такой и выложить пожалуйста?) Или http flooder )


За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
 
Волк-1024Дата: Понедельник, 28.04.2014, 20:38 | Сообщение # 7
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
А ещё что хотите? Помочь сделать - это одно. Написать за вас - совсем другое. Тем более в инете есть множество примеров.

Pascal, C\C++, Assembler, Python
 
delphicode » Delphi » Вирусология Delphi » Delphi и DDoS (dd0s)
  • Страница 1 из 1
  • 1
Поиск:

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