Scribd
Upload
126 views1 page

Code Breaker

This VBA code attempts to break passwords by systematically trying all combinations of characters from A-Z, a-z, and 32-126 (the ASCII code range for special characters) to unprotect a sheet. It tries unlocking the sheet with each combination and displays the password if successful. The nested For loops iterate through all possible character combinations up to a length of 12 characters to uncover the password.

Uploaded by

Pedro Vargas Negrillo Jr.
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
126 views1 page

Code Breaker

This VBA code attempts to break passwords by systematically trying all combinations of characters from A-Z, a-z, and 32-126 (the ASCII code range for special characters) to unprotect a sheet. It tries unlocking the sheet with each combination and displays the password if successful. The nested For loops iterate through all possible character combinations up to a length of 12 characters to uncover the password.

Uploaded by

Pedro Vargas Negrillo Jr.
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

codebreaker

Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

You might also like