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
Este truco me lo dijo un Zoner@ llamado isimartin .
Espero que os sirva de ayuda para impedir que nuestros queridos vecinos se aprovechen de nuestra conexión a internet.
Lo primero de todo abrimos Microsoft Word, yo he utilizado la versión 2007.
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”
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 by Enopen
Para el que no use/tenga Microsoft Word: http://www.yellowpipe.com/yis/tools/WPA_key/generator.php
Manual realizado por Sergio de Luz (Bron) para REDESZone.net
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
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”
gracias por el codigo…. me genero un codigo bastante etenso…. jjejeje espero me funcione….
0bOSar=)e=WL)3^X76(1-X@@+[EQ|DtKnyMHJ
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?
con el segundo me funcionó.
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
muy buen post, se agradece por todo gracias pero si me funciono