Initial commit

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
+