Browse Source

Initial commit

master
NightBits 4 years ago
commit
046e9c92d9
  1. 46
      Crack_Excel_Passwords.txt

46
Crack_Excel_Passwords.txt

@ -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
Loading…
Cancel
Save