ANTICHAT - Показать сообщение отдельно

Цитата:
Сообщение от Sleep
PHP код:

		
			
#!/usr/bin/perl

#*************************************************  *******************************

#                                                                               #

#                                      ipgenerator                              #

#                                    by UGaS / uni0x                            #

#                                 http://ugas.fatal.ru                          #

#                               IRC: irc.dalnet.ru #UGaS                        #

#

#*************************************************  *******************************

$log='log.txt';

$port='8080';



foreach (@ARGV) {

$log = $1 if ($_=~/^-l(.*)/);

  if ($_=~/-n((.*)\.(.*)\.(.*)\.(.*))/) {

      $netmask = $1;

      $n1 = $2;

      $n2 = $3;

      $n3 = $4;

      $n4 = $5;

  }

}

sub quit{

print

"\n ipgenerator by UGaS team / uni0x\n      mif88[at]inbox.ru\n usage: ./ipgenerator.pl -lLogfile -nNetmask \n ex:./ipgenerator.pl -lLog.txt -n127.0.0.*\n\n";

}



&quit unless $netmask;



  for ($i=0;$i<=254;$i++) 

  {  

    $ipi = $i; 

    if ($n2 ne '*')  

     { 

       $i = 254,$ipi = $n2

     }  

     for ($j=0;$j<=254;$j++) 

     { 

      $ipj = $j; 

      if ($n3 ne '*')  { $j = 254,$ipj = $n3 } 

        for ($k=1;$k<=254;$k++) 

    {

          $ipk = $k;

          if ($n4 ne '*') 

       { 

         $k = 254,$ipi = $n2 

       }  

          my($ipaddr) = "$n1\.$ipi\.$ipj\.$ipk"; 

      open(LOG,">>$log");

      print LOG "$ipaddr:$port\n";

      close(LOG);

       }

    }

  }
А программой можно?)