PWD = LowerCase & UpperCase & SpesChars & Digits Private Declare Function GetTickCount Lib "kernel32" () As Longĭim lSta, lCur As Long, test, str, PWD As String
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long MsgBox "One usable password is " & Chr(i) & Chr(j) & _Ĭhr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Ĭhr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)Ĭonst MaxTimeInSeconds = 600 ' 10 MinutesĬonst TargetFile = "D:\Dropbox\Excel stuff\crack\test.xls"Ĭonst LowerCase = "abcdefghijklmnopqrstuvwxyzæøå"Ĭonst UpperCase = "ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ" If ActiveSheet.ProtectContents = False Then Replace the Macro with the whole function below: Sub PasswordBreaker()ĭim i As Integer, j As Integer, k As Integerĭim l As Integer, m As Integer, n As Integerĭim i1 As Integer, i2 As Integer, i3 As Integerĭim i4 As Integer, i5 As Integer, i6 As Integerįor i = 65 To 66: For j = 65 To 66: For k = 65 To 66įor l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66įor i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66įor i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ĪctiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _Ĭhr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Macros -> take the macro you created for edit.
I successfully executed this script in Excel-2013 on a password protected workbook created in Excel 2003.ĭeveloper -> Record Macro (give a name, then do some clicks)
0 kommentar(er)
