Os presento un pequeño manual para crear un generador de claves WPA-PSK TKIP/AES y WPA2-PSK TKIP/AES para redes wireless, cada vez que se ejecute la macro de Word, creará una clave totalmente distinta.

Lo haremos con el propio Word de Microsoft, más adelante crearemos una aplicación en Java (por ser multiplataforma) para crear estas claves pseudo-aleatorias.

Primera opción

Lo primero de todo abrimos Microsoft Word, yo he utilizado la versión 2007.

Generador Claves WPA

Generador Claves WPA

Copiais el siguiente código en el portapapeles:

Randomize
 For k = 1 To 1000000
 cont = 0
 a = Rnd(k)
 a = Int(1000 * a)
 If a > 39 Then cont = 1
 If a < 127 Then cont = cont + 1
 If cont = 2 Then b$ = Chr$(a): c$ = c$ + b$
 If Len(c$) = 63 Then GoTo final:
 Next k
 final:
 Selection.TypeParagraph: Selection.TypeText Text:=c$: Selection.TypeParagraph '
 ' Macro1 Macro
 ' a
 '
 Selection.TypeText Text:="a"

Generador Claves WPA

Generador Claves WPA

Generador Claves WPA

Aquí tenéis unas cuantas claves de ejemplo:

GV?@+|;tL-X{qOjw1aWwh[9~RbPwZ?>aHbMrvUhk0n-Vk2]`jPw=IulH~t4/w7L

/m`vD`M?c64)P~P;z4h~oE,~*FGg3E2Xf2S/aKH*)5a+US`0H~rwktzOb1N=2~m

0bOSar=)e=WL)3^X76(1-X@@+[EQ|DtKnyMHJ

Segunda opción y la más sencilla

Para el que no use o tenga Microsoft Word.

También os recomendamos leer el Generador de claves WPA hecho en Java por nosotros: Generador de claves en Java

Publicado por Sergio De Luz el 03 octubre 2010 , actualizado el 02 diciembre 2014

  • Eddy

    Que tal intente varias veces, pero al ejecutar el macro me tira este error:

    “Error de Compilación”

    El numero de argumentos es incorrecto o la asignación de propiedad no es valida

    La Verdad tengo el Windows 7 Ultimate y tengo Office 2007 no se porque no me funciona…a ver si alguien me puede resolver el problemita…saludos

  • Anónimo

    prueba con ese código, lo mismo pero quitando los signos de comentario:

    Randomize
    For k = 1 To 1000000
    cont = 0
    a = Rnd(k)
    a = Int(1000 * a)
    If a > 39 Then cont = 1
    If a < 127 Then cont = cont + 1
    If cont = 2 Then b$ = Chr$(a): c$ = c$ + b$
    If Len(c$) = 63 Then GoTo final:
    Next k
    final:
    Selection.TypeParagraph: Selection.TypeText Text:=c$: Selection.TypeParagraph

    Selection.TypeText Text:=”a”

    • JOSERI

      Saludos probe con la primera y daba error, pero la corrección segunda si funciona correctamente, gracias

  • Tekillero

    gracias por el codigo…. me genero un codigo bastante etenso…. jjejeje espero me funcione….

  • anonimo

    0bOSar=)e=WL)3^X76(1-X@@+[EQ|DtKnyMHJ

  • Larry

    con los 2 codigos me sale erros de sintaxis

    • Lo probé en su día y funcionaba, tal vez usas otra versión de Office (más nueva o más antigua).

      ¿Dónde te sale el error de sintaxis?

  • felipe

    con el segundo me funcionó.

  • ferfusta

    El segundo codigo fuciona 100% el primero tambien me da error en ofice 2010
    ejemplo:
    cs[5:ER`xhc6a;It5\sw/U}Hpc+XW]=|D_C;wUYviGXDq5dQSthH718J`Lu(,i_

    vZoRDjMp“oGTaH}G}}/|E98XX6pfR_Nn8ih}+)4lkPLG1HFCQg(

    ;*?0/fyfDGF`?^~hnz~i_o=_.=JB\.oq~ZrqO*,9b0584qOV0e8mDb08

    9K~lP.|wd\pbW(BpKWhRC,~1Z*DTK<::1_?GIbs[3=j24*G/^X\1|T22M-7=.se

  • Pingback: Generador de claves WPA y WPA2 en Java()

  • jech

    muy buen post, se agradece por todo gracias pero si me funciono

  • Pingback: Hoy es el Día Mundial de las Contraseñas, asegura tu identidad online con estos consejos()

  • Pingback: Los propietarios de equipos TRENDnet en peligro: Descubren el algoritmo de generación de claves WPA2()

  • carlos carvajal

    a mi me funciona haciéndole unas correcciones me podría indicar
    como programo para que me salga mayúsculas y numero

    • Creo que deberian salir sin problemas máyusculas y números, genera varios passwords a ver.

Últimos análisis

Valoración RZ
9
Valoración RZ
8
Valoración RZ
8
Valoración RZ
8
Valoración RZ
8
Valoración RZ
10
Valoración RZ
8