Codigo Simple Para Averiguar Contraseñas De Word

Hola amigos aquí esta el código de mi script para averiguar contraseñas de word, aclaro el programa solo esta hecho para contraseñas numéricas, pero si lo modifican un poco lo pueden hacer para letras o símbolos

option explicit
On Error Resume Next

Dim pass,objword,x,mata,process
Set objword = CreateObject("Word.Application")

objword.Visible = False

For x = 0 To 2000
   pass = CStr(x)
   objword.Documents.Open "Ruta Del Archivo Word", , , , pass, , , , , , , False  ' Cambiar la ruta del archivo word'
   If Err.Number = 0 Then
      MsgBox("La Contraseña es: " & x)
      set mata = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
   For each process in mata
         If process.name = "WINWORD.EXE" then
         Process.terminate
         End If
      Next
      Exit For
   Else
      Err.Number = 0
   End If
Next

Nota Importante: no loe hecho con letras y no se quien sera mas rápido si el programa Passware Kit Forensic 13.5 o el script utilizando letras


bueno espero que a alguien le sirva, saludos Flamer y aqui pueden ver el video: Ver Video