Next J
ArrayLen = ArrayLen 6
For J = ArrayLen To ArrayLen 6 '58 to 64
all_char(J) = Chr(58 J - ArrayLen)
Next J
ArrayLen = ArrayLen 7
all_char(ArrayLen) = Chr(92)
ArrayLen = ArrayLen 1
For J = ArrayLen To ArrayLen 2 '94 to 96
all_char(J) = Chr(94 J - ArrayLen)
Next J
ArrayLen = ArrayLen 3
all_char(ArrayLen) = Chr(124)
all_char(ArrayLen 1) = Chr(126)
ArrayLen = ArrayLen 2
End If
If ArrayLen = 0 Then
MsgBox "错误：没有选择'密码使用的字符'", , "请选择密码使用的字符范围..."
Exit Sub
End If
If blnProcessing Then
If MsgBox("真的要中断解密过程吗？", vbYesNo, "用户中断任务") = vbYes Then blnProcessing = False
Else
CmdStartCrack.Caption = "中断破解"
blnProcessing = True
strpath = Combo1.Text
If strpath = "" Then
MsgBox "错误：没有选择'需要解密的文件'", , "请选择需要解密的文件..."
Exit Sub
End If
strpath = Trim(strpath)
Password_Start_Long = Val(txtPasswordStartLong.Text)
Password_End_Long = Val(txtPasswordEndLong.Text)
If Password_Start_Long > Password_End_Long Then
Password_Start_Long = Val(txtPasswordEndLong.Text)
Password_End_Long = Val(txtPasswordStartLong.Text)
End If
Label1.Caption = "破解进度："
Label1.Refresh
On Error Resume Next
If UCase(Right(strpath, 3)) = "XLS" Then
For K = Password_Start_Long To Password_End_Long '破解excel开始
For I = 0 To ArrayLen ^ K - 1
pass = ""
Temp = I
For J = 1 To K - 1
Temp = Temp \ ArrayLe
pass = all_char(Temp Mod ArrayLen) pass
Next J
pass = pass all_char(I Mod ArrayLen)
Set OpenReturn = xls.Workbooks.Open(FileName:=strpath, Password:=pass)
Text1.Text = pass '显示破解进度
Text1.Refresh
If Err.Number <> 0 Then '如果解密成功,打开文档,显示密码,退出过程
Err.Clear
Else
Label1.Caption = "文档密码："
Text1.Text = pass
Me.Refresh
xls.Visible = True
CmdStartCrack.MousePointer = 0
CmdStartCrack.Caption = "开始破解"
blnProcessing = False
Set xls = Nothing
Exit Sub
End If
DoEvents
If Not blnProcessing Then Exit For
Next I
If Not blnProcessing Then Exit For
Next K
xls.Quit
Set xls = Nothing
Else
For K = Password_Start_Long To Password_End_Long '破解word开始
For I = 0 To ArrayLen ^ K - 1
pass = ""
Temp = I