#!/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); } } }
#!/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); } } }