Code: #!/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); } } }
А есть генератор который генерирует вот так например 92.125.48.0:8080 92.125.48.1:8080 92.125.48.2:8080 92.125.48.3:8080 92.125.48.4:8080 92.125.48.5:8080 92.125.48.6:8080 92.125.48.7:8080 92.125.48.8:8080 ну с портом в смысле
Code: #!/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); } } }
стоит! ошибка на 57 линии! Мне надо сгенерировать вот так 92.125.*.*:8080 Если кто может помочь.... буду весьма благодарен
Ликбез простой - диапазон 0.0.0.0-255.255.255.255 содержит 4, 3 млрд. адресов. Столько же в базе ripe.db. Текстовый файл со списком займет места около 80 Гиг. Генерить тупо по диапазонам стран - муторно. Прога IPv4 Generator может работать с базами диапазонов и извлекать генерить адреса хоть Гондураса, хоть Новосибирска, чего скрипты не умеют. Да и продукты типа Excel, хоть со школой, хоть без. На сайте все описано подробно.