Desproteger un excel y conseguir la contraseña

Les paso un truco de como desproteger un excel y conseguir la contraseña:

dale click derecho en la hoja que quieres desbloquear (en la pestaña de abajo, no en la hoja misma), luego en «ver codigo», se abre visual basic y pega el procedimiento de abajo llamado «breakit». Luego cierra visual basic y en la hoja que quieres desbloquear apreta «alt+f8» y elegi el procedimiento breakit y dale ejecutar. si me entendiste e hiciste todo bien te aparece una ventana con el codigo y te desprotege la hoja. Para los que sepan un poco de programación notarán que no es mas que un vil metodo de bucles anidados intentando todas las convinaciones posibles de caracteres hasta que encuentra una que si lo puede desproteger. Espero les sirva. Funciona en todas las versiones.

Sub breakit()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

On Error Resume Next

For i = 65 To 66

For j = 65 To 66

For k = 65 To 66

For l = 65 To 66

For m = 65 To 66

For i1 = 65 To 66

For i2 = 65 To 66

For i3 = 65 To 66

For i4 = 65 To 66

For i5 = 65 To 66

For i6 = 65 To 66

For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then

MsgBox «One usable password is » & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

End Sub

También te podría gustar...

Escribeme un comentario

Tu dirección de correo electrónico no será publicada.