#!/usr/bin/perl
#********************************************************************************
#                                                                               #
#                                      ipgenerator                              #
#                                    by UGaS / uni0x                            #
#                                 http://ugas.fatal.ru                          #
#                               IRC: irc.dalnet.ru #UGaS                        #
#
#********************************************************************************
$log='log.txt';

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\n";
	  close(LOG);
       }
    }
  }