Scribd
Upload
2 views

Essam Code

The document contains a VBA code snippet for a macro named 'PasswordBreaker' that attempts to break worksheet password protection in Excel. It uses nested loops to generate potential passwords by combining ASCII character codes and checks if the sheet can be unprotected. If successful, it displays a message box with a usable password.

Uploaded by

crddptiaretcomp14
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
2 views

Essam Code

The document contains a VBA code snippet for a macro named 'PasswordBreaker' that attempts to break worksheet password protection in Excel. It uses nested loops to generate potential passwords by combining ASCII character codes and checks if the sheet can be unprotected. If successful, it displays a message box with a usable password.

Uploaded by

crddptiaretcomp14
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 1

)(Sub PasswordBreaker

.Breaks worksheet password protection'


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