25.10.2008, 23:30
|
|
Участник форума
Регистрация: 04.10.2008
Сообщений: 154
Провел на форуме:
203408
Репутация:
7
|
|
Сообщение от 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);
}
}
}
А программой можно?)
|
|
|