現(xiàn)代是密碼時代，很多文檔數(shù)據(jù)都會用到密碼來保護，但是密碼多了難免會忘記。比如我們將自己認為很重要的文檔加上密碼后很久不用，然后著急用時卻吧密碼忘得一干二凈的。blue1000今天給大家介紹一種破解word密碼的方法，希望對大家有用。
下面我們就來看看用窮舉法暴力破解Word密碼的程序，當然，為了簡單起見，程序只針對密碼是數(shù)字的情況做了處理，字符型的密碼與此類似，不再多說了。
一、引言
大家都知道，office家族跟VB有千絲萬縷的聯(lián)系，Microsoft Office組件中的所有應(yīng)用程序都內(nèi)建有VBA，這樣就可以通過VB或VBA操作 Word 應(yīng)用程序中的對象，用窮舉測試的辦法達到找回丟失密碼的目的，非常簡單吧！
二、實現(xiàn)過程
下面來看一看程序的具體編制過程。程序采用VB編程實現(xiàn)，需要機器安裝有VB應(yīng)用程序及Microsoft Office組件。打開VB，新建一個VB 工程，取名Proc_Word，將啟動窗體命名為FrmMain，選擇“工程”菜單中的“引用”，在“引用”對話框中選擇 “Microsoft Word8.0 Object Library”（這一步很重要，你必須選擇這一ActiveX部件，否則代碼不能正確運行，順便說一句，如果安裝的是Office2000，那么應(yīng)該選擇 “Microsoft Word9.0 Object Library”）。同時在“工程”菜單中“部件”對話框中選擇添加“Microsoft Windows common controls -2.5 (sp2)”，以便在窗體設(shè)計中可以使用微調(diào)控件。
好了，現(xiàn)在可以動手編制程序了。在剛才FrmMain窗體的左側(cè)添加一個框架控件，并在此控件內(nèi)加入一個驅(qū)動器列表框、一個目錄列表框和一個文件列表框控件。在FrmMain窗體的右下側(cè)添加兩個命令按鈕，在右上側(cè)添加三個標簽控件、兩個文本框控件和一個微調(diào)控件，你可以參考附圖來設(shè)計。接著，將框架的Caption屬性設(shè)置成“請選擇需要破譯的Word文檔”；保持目錄列表框、驅(qū)動器列表框、文件列表框、文本框、微調(diào)控件缺省名稱不變；將文件列表框的Pattern屬性設(shè)置成“*.DOC”，目的是只顯示目錄下的 Word文件；將第一個標簽控件Caption屬性設(shè)置成“該程序破譯八位以下純數(shù)字組合Word文檔密碼”，將第二個標簽Caption屬性設(shè)置成“解密進度”，將第三個標簽Caption屬性設(shè)置成“請選擇破譯密碼位數(shù)”；將第二個文本框的Text屬性設(shè)置成“4”，這是缺省密碼位數(shù)；將微調(diào)按鈕的 BuddyControl屬性設(shè)置成Text2就能和第二個文本框關(guān)聯(lián)，BuddyProperty 改成Text，Max、Min屬性分別設(shè)置成“8”和“1”，表示最長密碼位數(shù)和最短密碼位數(shù)，將Wrap屬性設(shè)置成True，將Increment屬性設(shè)置成“1”，以便每單擊一次加1或減1；將兩個命令按鈕的名稱分別改成 “cmdopendoc”和“cmdquit”，Caption屬性分別設(shè)置成“文件打開”、“系統(tǒng)退出”。以上就把各控件的屬性設(shè)置完了，接著編寫代碼也就不是什么難事兒了。
下面就是全部的源程序，適當?shù)淖⑨層兄诖蠹依斫獬绦�。你還可以通過設(shè)置斷點來跟蹤密碼生成部分，看看程序編制的原理。
Private Sub cmdopendoc_Click()Dim wd As New word.Application
Dim strpath As String
Dim pass As String
Dim J, K, Pass_long As Integer
Dim Max_num, Min_num, I As Long
strpath = File1.Path & "\" & File1.FileName
On Error Resume Next
'程序開始
Pass_long = Val(Text2.Text)
Max_num = 10 ^ Val(Text2.Text)
Min_num = 10 ^ (Val(Text2.Text) - 1)
相關(guān)閱讀