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)
'如果解密成功,打開(kāi)文檔,顯示密碼,退出過(guò)程
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 "密碼位數(shù)不對(duì),請(qǐng)重新輸入"
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
三、幾點(diǎn)說(shuō)明
需要說(shuō)明的是，窮舉法解密對(duì)系統(tǒng)資源的耗用是十分驚人的，在解密的過(guò)程中最好不要運(yùn)行其他應(yīng)用程序。針對(duì)其巨大的資源耗用量，我在程序中采用了一個(gè)小技巧，那就是用密碼位數(shù)作為循環(huán)的步長(zhǎng)進(jìn)行刺探。也就是說(shuō)如果你的密碼是3位的話，那么程序?qū)⒁来螄L試100、103 、106……997、 101、104……998、102、105……999結(jié)束，加快了查找密碼的速度（東漸: 其實(shí)大家可以動(dòng)手算一算，到底是快了許多，還是快了一點(diǎn)，還是根本沒(méi)有提高速度^_^）。
該程序在Win98/NT＋VB6.0環(huán)境下測(cè)試通過(guò)，筆者隨便試了一個(gè)5位數(shù)密碼，在PⅡ300、128MB內(nèi)存的機(jī)器上，10分鐘左右即可解開(kāi)。當(dāng)然，程序并不十分完善，比如還可以加入解密過(guò)程中的中斷，以及中斷后解密進(jìn)度的保存等，有興趣的讀者可以自己加以完善。
相關(guān)閱讀