miércoles, 13 de septiembre de 2017

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



1 comentario:

  1. bom dia blogger,

    Preciso dá tua ajuda! Esqueci da minha senha de um arquivo excel 2013 ou 2016, não sei se usei letras, números e símbolos, podes enquadrar no código?

    Horácio

    buenos días blogger,

    ¡Necesito de tu ayuda! Olvidé mi contraseña para un archivo de Excel 2013 o 2016, no sé si usé letras, números y símbolos, ¿puedes incluir el código?

    Horácio

    ResponderEliminar