generador claves en perl

Iniciado por baronobus, 25 Marzo 2012, 22:34 PM

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

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]
[
#!/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  :rolleyes:


Saludos  :D
ANBU暗部   Ansatsu Senjutsu Tokushu Butai暗殺戦術特殊部隊 Fuerza militar especial táctica de eliminación........MyDarker Sid3

<firma retirada, no la vuelvas a poner o se te sancionara>  <- - Amenazas

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 :)
ANBU暗部   Ansatsu Senjutsu Tokushu Butai暗殺戦術特殊部隊 Fuerza militar especial táctica de eliminación........MyDarker Sid3

<firma retirada, no la vuelvas a poner o se te sancionara>  <- - Amenazas

baronobus

Si ok...

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

baronobus

#5
Ejemplo modificado para algunos routers/wepkeys  de jazztel:
(no incluir los corchetes)
Código (perl) [Seleccionar]
[#!/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

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

Código (bash) [Seleccionar]
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]
#!/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]
#!/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 × 1024. Ocho cuatrillones de claves... Dudo mucho que se pueda generar un archivo de 135 yottabytes, en un ordenador casero...  ;D