Скрипт на серию разных пакетов

[червь]

что-то набросал, не знаю точно что получилось, не тестил, но в любом случае затея твоя херня)

PHP код:

const
  nik='ник';

var
  timer : TTimer;
  packet:array of string;
  i,j:integer;

procedure OnTimer(Sender: TObject);
begin
  for i:=1 to 20 do begin //сколько раз отправлять пакеты
    for j:=1 to length(packet) do begin
    buf:=packet[j];
    sendtoserverex(nik);  
    end;
  end;
end;

procedure Init;
begin
  packet[1]:=Hstr('D0 0F 00 D3 04 00 00 91 01 00 00');// собственно твои пакеты
  packet[2]:=Hstr('D0 0F 00 D3 04 00 00 92 01 00 00');
  packet[3]:=Hstr('D0 00 00 00 00 00');
  timer:=TTimer.Create(nil);
  timer.OnTimer:=@OnTimer;
  timer.enabled:=false;
  timer.interval:=300; //время задержки
  j:=1; 
  i:=1;
end;

procedure Free; 
begin
  timer.free;
end;

begin
end.