Completely Out of Context (Not Access) (1 Viewer)

[Shallo9]

Does this code really works to break or recover Excel Passwords?

Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 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
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
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

 

[DevastatioN]

I've used code that looks nearly identical to this. And yes it works (at least in Excel 2003), it exploits the way Excel passwords are stored, and will give your password as a series of A's and B's, with a symbol or other letter at the end.

This password also correlates to the real password. For example if the real password is "kitten" the password it gives you may be "AABABBABABABA~", if you use "AABABBABABABA~" to relock the Excel sheet, the other person can still use 'kitten" to unlock it. This means you could unlock it, edit it, relock it, and give it back. You never knew the original password, but because it still works, the other person never knows you unlocked it.

 

[Shallo9]

How to use this even before opening the file ....as the password is to get into the spreadsheet and not to unprotect it...any Idea?