Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Безопасность (https://forum.antichat.xyz/forumdisplay.php?f=41)
-   -   Генератор IP адресов. (https://forum.antichat.xyz/showthread.php?t=74297)

*DeViL* 19.06.2008 21:32

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

iv. 19.06.2008 21:48

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

lords15 30.06.2008 15:39

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

#ИнкогнитО# 30.06.2008 15:42

Код:

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


Vinsik 25.10.2008 22:46

А есть генератор который генерирует вот так например
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
ну с портом в смысле :)

Sleep 25.10.2008 23:01

Код:

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


Vinsik 25.10.2008 23:30

Цитата:

Сообщение от 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 = $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 25.10.2008 23:41

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

Vinsik 26.10.2008 00:25

Цитата:

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

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

Sleep 26.10.2008 00:36

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


Время: 16:17