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]";
open(FILEHANDLE
, ">>fichero_wpakey.txt") or die 'cannot open file!'; print FILEHANDLE
$WAP_KEY , "\n"; }
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}]
Mostrar Mensajes
