word密码破解的方法(2)

　　Flag = 0

　　For K = 0 To Pass_long - 1

　　Max_num = 10 ^ (Pass_long - K)

　　Min_num = 10 ^ (Pass_long - (K + 1))

　　For J = 0 To Pass_long - 1

　　cmdopendoc.MousePointer = 11

　　For I = IIf(Pass_long - K = 1, 0, Min_num) + J To Max_num Step Pass_long

　　Text1.Text = pass

　　Text1.Refresh

　　pass = String(K, "0") & I

　　Flag = wd.Documents.Open(FileName:=strpath, passworddocument:=pass)

　　'如果解密成功,打开文档,显示密码,退出过程

　　If Flag <> 0 Then

　　Label1.Caption = "文档密码"

　　Label1.Refresh

　　Text1.Text = pass

　　wd.Visible = True

　　cmdopendoc.MousePointer = 0

　　Exit Sub

　　End If

　　Next I

　　Next J

　　Next K

　　MsgBox "密码位数不对,请重新输入"

　　End Sub

　　Private Sub cmdquit_Click()

　　End

　　End Sub

　　Private Sub Dir1_Change()

　　File1.Path = Dir1.Path

　　End Sub

　　Private Sub Drive1_Change()

　　Dir1.Path = Drive1.Drive

　　End Sub

　　Private Sub File1_DblClick()

　　Call cmdopendoc_Click

　　End Sub

　　三、几点说明

　　需要说明的是，穷举法解密对系统资源的耗用是十分惊人的，在解密的过程中最好不要运行其他应用程序。针对其巨大的资源耗用量，我在程序中采用了一个小技巧，那就是用密码位数作为循环的步长进行刺探。也就是说如果你的密码是3位的话，那么程序将依次尝试100、103 、106……997、 101、104……998、102、105……999结束，加快了查找密码的速度（东渐: 其实大家可以动手算一算，到底是快了许多，还是快了一点，还是根本没有提高速度^_^）。

　　该程序在Win98/NT＋VB6.0环境下测试通过，笔者随便试了一个5位数密码，在PⅡ300、128MB内存的机器上，10分钟左右即可解开。当然，程序并不十分完善，比如还可以加入解密过程中的中断，以及中断后解密进度的保存等，有兴趣的读者可以自己加以完善。