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)

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

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

Si ok...

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

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

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

en ves de crear el archivo.

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

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

#!/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...