Initial commit

This commit is contained in:
NightBits 2018-12-19 20:50:29 +01:00
commit 046e9c92d9
1 changed files with 46 additions and 0 deletions

46
Crack_Excel_Passwords.txt Normal file
View File

@ -0,0 +1,46 @@
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