generador claves en perl

[baronobus]

dejo aqui un generador de claves en perl por si alguien necesita adaptarselo para algo...este genera claves de 16 caracteres , mezclando letras mayusculas  y numeros.
guardarlo como generador.pl y ejecutar como
#perl generador.pl

se ira generando un fichero llamado fichero_wpakey.txt y a medida que va aumentando de peso por el numero de keys ya podeis enfrentarlo a vuestro *.cap de la siguiente manera:
#aircrack-ng -w fichero_wpakey.txt  *captura.cap

suerte
(no incluir los corchetes)

Código (perl) [Seleccionar] Expandir

[
#!/usr/bin/perl
my @alpha = ("A", "B", "C", "D", "E","F", "G", "H", "I", "J" , "K" , "L", "M", "N", "O", "O", "Q", "R", "S", "T", "U", "V","W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0");

my $i;
my $z;
my $j;
my $x;
my $d;
my $f;
my $k;
my $n;
my $a;
my $b;
my $c;
my $e;
my $g;
my $h;
my $j;
my $l;

for ($i=0;$i<=35;$i++)
       {
               for ($z=0;$z<=35;$z++)
                {
                       for ($j=0;$j<=35;$j++)
                       {
                               for ($x=0;$x<=35;$x++)
                               {
                                       for ($d=0;$d<=35;$d++)
                                        {
                                               for ($f=0;$f<=35;$f++)
                                                {
                                                       for ($k=0;$k<=35;$k++)
                                                        {
                                                               for ($n=0;$n<=35;$n++)
                                                                {
for ($a=0;$a<=35;$a++)
       {
               for ($b=0;$b<=35;$b++)
                {
                       for ($c=0;$c<=35;$c++)
                       {
                               for ($e=0;$e<=35;$e++)
                               {
                                       for ($g=0;$g<=35;$g++)
                                        {
                                               for ($h=0;$h<=35;$h++)
                                                {
                                                       for ($j=0;$j<=35;$j++)
                                                        {
                                                               for ($l=0;$l<=35;$l++)
                                                                {



                                                                       #for ($x=0;$x<=35;$x++)
                                                                       # {




                       my $WAP_KEY="@alpha[$i]@alpha[$z]@alpha[$j]@alpha[$x]@alpha[$d]@alpha[$f]@alpha[$k]@alpha[$n]@alpha[$a]@alpha[$b]@alpha[$c]@alpha[$e]@alpha[$g]@alpha[$h]@alpha[$j]@alpha[$l]";
                       print "$WAP_KEY\n";
                       open(FILEHANDLE, ">>fichero_wpakey.txt") or die 'cannot open file!';
                       print  FILEHANDLE  $WAP_KEY , "\n";
                       close(FILEHANDLE);
                                                               }

                                                       }

                                               }

                                       }

                               }

                       }

               }

       }

                                                               }

                                                       }

                                               }

                                       }

                               }

                       }

               }

       }]


[MasterPM2]

creo que se veria mejor si usas la etiqueta de codigo correspondiente 


Saludos 

[baronobus]

Me encantaria modificarlo como dices pero no veo como...sabes como hacerlo MasterPM2¿

[MasterPM2]

hay una  dropbox, o mmm no se como se dice en espanol..
cuando estas creando tu mensaje ves 5 lineas principales..
1) asunto
2)icono del mensaje
3) una serie de opciones para formato de texto, justo al final del extremo derecho de esta linea esta un menu que por defecto dice "GeSHi" cambialo en funcion del lenguaje que utilizas

[baronobus]

Si ok...

tienes razon..se ve mas bien y mas claro..gracias.

[baronobus]

Ejemplo modificado para algunos routers/wepkeys  de jazztel:
(no incluir los corchetes)

Código (perl) [Seleccionar] Expandir

[#!/usr/bin/perl
my @alpha = ("0", "1", "2", "3", "4", "5", "6", "7", "8", "9" );

my $a;
my $b;
my $c;
my $d;
my $e;

               for ($a=0;$a<=10;$a++)
                {
                       for ($b=0;$b<=10;$b++)
                       {
                               for ($c=0;$c<=10;$c++)
                               {
                                       for ($d=0;$d<=10;$d++)
                                        {
for ($e=0;$e<=10;$e++)
{
                                                                       

                       my $WAP_KEY="@alpha[$a]@alpha[$b]@alpha[$c]@alpha[$d]@alpha[$e]";
                       print "$WAP_KEY\n";
                       open(FILEHANDLE, ">>wpakey-jazztel.txt") or die 'cannot open file!';
                       print  FILEHANDLE  $WAP_KEY , "\n";
                       close(FILEHANDLE);
                                                               }

                                                       }

                                               }

                                       }

                               }]

[P4nd3m0n1um]

y si lo ejecutas en paralelo, como con el john o el crunch:

Código (bash) [Seleccionar] Expandir

perl generador.pl | aircrack-ng -w -  *captura.cap

en ves de crear el archivo.

[baronobus]

si claro..por supuesto es mas comodo P4nd3m0n1um ..

mi idea era dejar el generador por el motivo q explico al inicio.

salutaciones

[explorer]

El segundo código, si solo consiste en recorrer los valores numéricos entre 00000 y el 99999, vale ponerlo como

Código (perl) [Seleccionar] Expandir

#!/usr/bin/perl
open my $FILEHANDLE, ">>", "wpakey-jazztel.txt"  or  die 'cannot open file!';

for my $WAP_KEY ( "00000" .. "99999" ) {
    print $FILEHANDLE $WAP_KEY , "\n";
}

close $FILEHANDLE;
Además, dejamos fuera del bucle las sentencias open() y close(), por lo que se ejecutará mucho más rápido.

En el primer código hay un error: falta la 'P'. Y es demasiado largo para lo que se quiere hacer.

Esta es una versión un poco más corta:

Código (perl) [Seleccionar] Expandir

#!/usr/bin/perl
use Modern::Perl '2012';
use autodie;
use Algorithm::Combinatorics 'variations_with_repetition';

my @data = ( 'A' .. 'Z', '0' .. '9');

my $iterador = variations_with_repetition(\@data, 16);

open $fh, '>', 'fichero_wpakey.txt';

while (my $v = $iterador->next) {
    say $fh @{$v};
}

close $fh;

P.D.: El fichero resultante es realmente grande... 36^16 = 7,95866111 × 10²⁴. Ocho cuatrillones de claves... Dudo mucho que se pueda generar un archivo de 135 yottabytes, en un ordenador casero...