47 lines
1.4 KiB
Plaintext
47 lines
1.4 KiB
Plaintext
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
|
|
|