Crack excel passwords
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

46 lines
1.4 KiB

Sub PasswordBreaker()
'Crack excel passwords, created by EonaCat (Jeroen Saey)
Dim key1Try1 As Integer
Dim key2Try1 As Integer
Dim key3Try1 As Integer
Dim key1Try2 As Integer
Dim key2Try2 As Integer
Dim key3Try2 As Integer
Dim key1Try3 As Integer
Dim key2Try3 As Integer
Dim key3Try3 As Integer
Dim key1Try4 As Integer
Dim key2Try4 As Integer
Dim key3Try4 As Integer
On Error Resume Next
For key1Try1 = 65 To 66:
For key2Try1 = 65 To 66:
For key3Try1 = 65 To 66
For key1Try2 = 65 To 66:
For key2Try2 = 65 To 66:
For key1Try3 = 65 To 66
For key2Try3 = 65 To 66:
For key3Try3 = 65 To 66:
For key1Try4 = 65 To 66
For key2Try4 = 65 To 66:
For key3Try4 = 65 To 66:
For key3Try2 = 32 To 126
ActiveSheet.Unprotect Chr(key1Try1) & Chr(key2Try1) & Chr(key3Try1) & _
Chr(key1Try2) & Chr(key2Try2) & Chr(key1Try3) & Chr(key2Try3) & Chr(key3Try3) & _
Chr(key1Try4) & Chr(key2Try4) & Chr(key3Try4) & Chr(key3Try2)
If ActiveSheet.ProtectContents = False Then
MsgBox "Password: " & Chr(key1Try1) & Chr(key2Try1) & _
Chr(key3Try1) & Chr(key1Try2) & Chr(key2Try2) & Chr(key1Try3) & Chr(key2Try3) & _
Chr(key3Try3) & Chr(key1Try4) & Chr(key2Try4) & Chr(key3Try4) & Chr(key3Try2)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub