word文档密码恢复器之VB源代码[原创]
原始url：http://bugeyes.blog.edu.cn/user1/20989/archives/2006/1111529.shtml
很简单的东西，见笑，写出来玩玩。
Dim jm As New Word.Application
Dim wd As New Word.Document
Private Sub Command1_Click()
On Error GoTo BugEyes '异常处理
Dim Password As String * 10
Open "dic.txt" For Input As #1 'dix.txt是自定义的字典，存放在当前文件夹中
Do While Not EOF(1) '依次测试字典中的每一个密码
BugEyes:
Line Input #1, Password
i = jm.Documents.Open(File1.Path + "\" + File1.FileName, , , , LTrim(RTrim(Password))) '用当前密码打开
jm.Visible = False
Label3.Caption = Password '显示密码
Exit Sub
Loop
Label3.Caption = "抱歉，破解不成功": Exit Sub
End Sub
程序截图：
本程序在word2k/word2003+win2kpro平台下通过测试。
