Diccionario de claves .vbs
' Se da por entendido que con el nombrado de las variables no hace falta comentarios Set ObjArchivo =createobject("scripting.filesystemobject") Set Archivo = ObjArchivo.createtextfile("C:\Users\Jorge\Desktop\FuerzaBruta.txt",True) 'ListaDicionario =Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","0","1","2","3","4","5","6","7","8","9") ListaDicionario =Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","0","1","2","3","4","5","6","7","8","9") Longitud = Cint(inputbox("Longitud de lacontraseña","Diccionario","")) If Longitud = 8 Then If IsNumeric(Longitud) Then ContListaDiccionario = Ubound(ListaDicionario) CompletaDiccionario("") FunctionCompletaDiccionario(Caracter) For Cont = 0 to ContListaDiccionario Palabra = Caracter & ListaDicionario(Cont) If Len(Palabra) = Longitud then Archivo.writeline Palabra ElseCompletaDiccionario(Palabra) End If ' Este punto de interupcion es super importante ' para que no explote el procesador jajaja If Cont Mod 10000000 = 0 Then Wscript.sleep(1)End If Next End Function Archivo.close Msgbox "Diccionario Acabado" Else MsgBox "Tiene que rellenar la longitud de la contraseña con un dato numerico yentero" End If Else MsgBox "Tiene que rellenar la longitud de la contraseña" End If
file:///C|/Users/Jorge/Desktop/FuerzaBruta.txt [25/08/2012 01:29:33 a.m.]
Regístrate para leer el documento completo.