elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Temas
Páginas: [1]
1  Seguridad Informática / Wireless en Linux / generador claves en perl en: 25 Marzo 2012, 22:34 pm
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
  1. [
  2. #!/usr/bin/perl
  3. 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");
  4.  
  5. my $i;
  6. my $z;
  7. my $j;
  8. my $x;
  9. my $d;
  10. my $f;
  11. my $k;
  12. my $n;
  13. my $a;
  14. my $b;
  15. my $c;
  16. my $e;
  17. my $g;
  18. my $h;
  19. my $j;
  20. my $l;
  21.  
  22. for ($i=0;$i<=35;$i++)
  23.         {
  24.                 for ($z=0;$z<=35;$z++)
  25.                  {
  26.                         for ($j=0;$j<=35;$j++)
  27.                         {
  28.                                 for ($x=0;$x<=35;$x++)
  29.                                 {
  30.                                         for ($d=0;$d<=35;$d++)
  31.                                          {
  32.                                                 for ($f=0;$f<=35;$f++)
  33.                                                  {
  34.                                                         for ($k=0;$k<=35;$k++)
  35.                                                          {
  36.                                                                 for ($n=0;$n<=35;$n++)
  37.                                                                  {
  38. for ($a=0;$a<=35;$a++)
  39.         {
  40.                 for ($b=0;$b<=35;$b++)
  41.                  {
  42.                         for ($c=0;$c<=35;$c++)
  43.                         {
  44.                                 for ($e=0;$e<=35;$e++)
  45.                                 {
  46.                                         for ($g=0;$g<=35;$g++)
  47.                                          {
  48.                                                 for ($h=0;$h<=35;$h++)
  49.                                                  {
  50.                                                         for ($j=0;$j<=35;$j++)
  51.                                                          {
  52.                                                                 for ($l=0;$l<=35;$l++)
  53.                                                                  {
  54.  
  55.  
  56.  
  57.                                                                         #for ($x=0;$x<=35;$x++)
  58.                                                                         # {
  59.  
  60.  
  61.  
  62.  
  63.                         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]";
  64.                         print "$WAP_KEY\n";
  65.                         open(FILEHANDLE, ">>fichero_wpakey.txt") or die 'cannot open file!';
  66.                         print  FILEHANDLE  $WAP_KEY , "\n";
  67.                         close(FILEHANDLE);
  68.                                                                 }
  69.  
  70.                                                         }
  71.  
  72.                                                 }
  73.  
  74.                                         }
  75.  
  76.                                 }
  77.  
  78.                         }
  79.  
  80.                 }
  81.  
  82.         }
  83.  
  84.                                                                 }
  85.  
  86.                                                         }
  87.  
  88.                                                 }
  89.  
  90.                                         }
  91.  
  92.                                 }
  93.  
  94.                         }
  95.  
  96.                 }
  97.  
  98.         }]
  99.  
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines