From 046e9c92d9d3737539301cc9ceb0fdc8d778e87a Mon Sep 17 00:00:00 2001
From: NightBits <NightBits@gmail.com>
Date: Wed, 19 Dec 2018 20:50:29 +0100
Subject: [PATCH] Initial commit

---
 Crack_Excel_Passwords.txt | 46 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 Crack_Excel_Passwords.txt

diff --git a/Crack_Excel_Passwords.txt b/Crack_Excel_Passwords.txt
new file mode 100644
index 0000000..f0d7212
--- /dev/null
+++ b/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
+