Autor Tema: [Ayuda] StrinGenerator  (Leído 4158 veces)

0 Usuarios y 1 Visitante están viendo este tema.

-Dante-

  • Visitante
[Ayuda] StrinGenerator
« en: 17-01-2010, 20:20 (Domingo) »
Saludos desde Venezuela. Estoy usando el StrinGenerator y quisiera saber si es posible hacer una lista de numeros de 8 caracteres pero en un rango dado, por ejemplo entre 10M y 15M. Hize el listado con 8 caracteres pero como es para usarlo para sacar un pass de una red WPA  y las redes WPA usan como minimo 8 caracteres en pass con numeros es tiempo perdido intentarlo en el rango entre 0 y 9999999. Espero su ayuda. Gracias



fluid

  • Visitante
Re: [Ayuda] StrinGenerator
« Respuesta #1 en: 17-01-2010, 21:53 (Domingo) »
Lo incluire en la siguiente version pero de momento...

Copia esto en un archivo de texto:

Código: [Seleccionar]
#!/usr/local/bin/perl
my $tiempoe= time();
my $primer = $ARGV[0];
my $ultimo = $ARGV[1];

open(DICCIONARIO,">diccionario.txt")|| die "No se puede crear\n";

my $caracteres = length($ultimo);

for ($i=$primer;$i != $ultimo+1;$i++)
   {
      my $ceros = $caracteres - length($i);
 
      if  ($ceros > 0)
         {
            for($e=1;$e != $ceros+1;$e++)
               {
                  $i = "0".$i;
               }
                  print DICCIONARIO $i."\n"
         }
      else
         {
            print DICCIONARIO $i."\n"
         }
   }

close(DICCIONARIO);
my $tiempot = time()-$tiempoe;
print "Proceso Terminado\n";
print "Tiempo insumido: $tiempot seg.\n";

Ejecuta en una consola:

perl nombre_archivo <num_inicio> <num_fin>

Ejemplo:

perl generador 00000000 10000000

Saludos

P.D el codigo no es mio, y no cito la fuente por que no se de quien es >:D

|FluiD|

« Última modificación: 17-01-2010, 21:59 (Domingo) por |FluiD| »

-Dante-

  • Visitante
Re: [Ayuda] StrinGenerator
« Respuesta #2 en: 17-01-2010, 23:13 (Domingo) »
Gracias |FluiD|, no eres el Chapulin Colorado pero eres lo Maximo,  >:(  ;D