Форум АНТИЧАТ - Генератор IP адресов.

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Безопасность (https://forum.antichat.xyz/forumdisplay.php?f=41)

- - Генератор IP адресов. (https://forum.antichat.xyz/showthread.php?t=74297)

Генератор IP адресов.

нужен ген ип адресов из диапозонов в список...

wwwguru.net/sandbox/tools/ip-generator/i.xhtml
FYI: первый результат в поисковике

на залил, тоже долго искал
http://exfile.ru/5107

Код:

#!/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
ну с портом в смысле :)

Код:

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

       }

    }

  }

Цитата:

Сообщение от 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);

       }

    }

  }

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

А поставить себе АктивПерл ни как ?

Цитата:

Сообщение от Sleep

А поставить себе АктивПерл ни как ?

стоит! ошибка на 57 линии!
Мне надо сгенерировать вот так 92.125.*.*:8080
Если кто может помочь.... буду весьма благодарен

хз у мну всё нормально пашет юзай:
pelr namescript.pl -n92.125.*.*