穷举破解EXCEL、WORD文档密码(1)(3)
2015-01-28 01:18
导读：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(ArrayL
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
