暴力破解word密碼
時(shí)間：2005-03-22 10:23 來源：未知 作者：未知 閱讀：次
工作繁忙難免產(chǎn)生意外，比如對(duì)重要的Word文檔加密之后卻把密碼忘得一干二凈，這幾乎會(huì)發(fā)生在每個(gè)人的身上。這時(shí)你可能會(huì)焦急萬分，不過我勸你不要太緊張，有空來程序谷坐坐，一定會(huì)有好的答案的。下面我們就來看看用窮舉法暴力破解Word密碼的程序，當(dāng)然，為了簡(jiǎn)單起見，程序只針對(duì)密碼是數(shù)字的情況做了處理，字符型的密碼與此類似，不再多說了。
一、引言
大家都知道，Office家族跟VB有千絲萬縷的聯(lián)系，Microsoft Office組件中的所有應(yīng)用程序都內(nèi)建有VBA，這樣就可以通過VB或VBA操作Word 應(yīng)用程序中的對(duì)象，用窮舉測(cè)試的辦法達(dá)到找回丟失密碼的目的，非常簡(jiǎn)單吧！
二、實(shí)現(xiàn)過程
下面來看一看程序的具體編制過程。程序采用VB編程實(shí)現(xiàn)，需要機(jī)器安裝有VB應(yīng)用程序及Microsoft Office組件。打開VB，新建一個(gè)VB工程，取名Proc_Word，將啟動(dòng)窗體命名為FrmMain，選擇“工程”菜單中的“引用”，在“引用”對(duì)話框中選擇 “Microsoft Word8.0 Object Library”（這一步很重要，你必須選擇這一ActiveX部件，否則代碼不能正確運(yùn)行，順便說一句，如果安裝的是Office2000，那么應(yīng)該選擇“Microsoft Word9.0 Object Library”）。同時(shí)在“工程”菜單中“部件”對(duì)話框中選擇添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗體設(shè)計(jì)中可以使用微調(diào)控件。
好了，現(xiàn)在可以動(dòng)手編制程序了。在剛才FrmMain窗體的左側(cè)添加一個(gè)框架控件，并在此控件內(nèi)加入一個(gè)驅(qū)動(dòng)器列表框、一個(gè)目錄列表框和一個(gè)文件列表框控件。在FrmMain窗體的右下側(cè)添加兩個(gè)命令按鈕，在右上側(cè)添加三個(gè)標(biāo)簽控件、兩個(gè)文本框控件和一個(gè)微調(diào)控件，你可以參考附圖來設(shè)計(jì)。接著，將框架的Caption屬性設(shè)置成“請(qǐng)選擇需要破譯的Word文檔”；保持目錄列表框、驅(qū)動(dòng)器列表框、文件列表框、文本框、微調(diào)控件缺省名稱不
暴力破解
變；將文件列表框的Pattern屬性設(shè)置成“*.DOC”，目的是只顯示目錄下的 Word文件；將第一個(gè)標(biāo)簽控件Caption屬性設(shè)置成“該程序破譯八位以下純數(shù)字組合Word文檔密碼”，將第二個(gè)標(biāo)簽Caption屬性設(shè)置成“解密進(jìn)度”，將第三個(gè)標(biāo)簽Caption屬性設(shè)置成“請(qǐng)選擇破譯密碼位數(shù)”；將第二個(gè)文本框的Text屬性設(shè)置成“4”，這是缺省密碼位數(shù)；將微調(diào)按鈕的 BuddyControl屬性設(shè)置成Text2就能和第二個(gè)文本框關(guān)聯(lián)，BuddyProperty 改成Text，Max、Min屬性分別設(shè)置成“8”和“1”，表示最長(zhǎng)密碼位數(shù)和最短密碼位數(shù)，將Wrap屬性設(shè)置成True，將Increment屬性設(shè)置成“1”，以便每單擊一次加1或減1；將兩個(gè)命令按鈕的名稱分別改成 “cmdopendoc”和“cmdquit”，Caption屬性分別設(shè)置成“文件打開”、“系統(tǒng)退出”。以上就把各控件的屬性設(shè)置完了，接著編寫代碼也就不是什么難事兒了。
下面就是全部的源程序，適當(dāng)?shù)淖⑨層兄诖蠹依斫獬绦颉Ｄ氵�可以通過設(shè)置斷點(diǎn)來跟蹤密碼生成部分，看看程序編制的原理。
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)
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 "密碼位數(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)說明
需要說明的是，窮舉法解密對(duì)系統(tǒng)資源的耗用是十分驚人的，在解密的過程中最好不要運(yùn)行其他應(yīng)用程序。針對(duì)其巨大的資源耗用量，我在程序中采用了一個(gè)小技巧，那就是用密碼位數(shù)作為循環(huán)的步長(zhǎng)進(jìn)行刺探。也就是說如果你的密碼是3位的話，那么程序?qū)⒁来螄L試100、103、106……997、 101、104……998、102、105……999結(jié)束，加快了查找密碼的速度（東漸: 其實(shí)大家可以動(dòng)手算一算，到底是快了許多，還是快了一點(diǎn)，還是根本沒有提高速度^_^）。
該程序在Win98/NT＋VB6.0環(huán)境下測(cè)試通過，筆者隨便試了一個(gè)5位數(shù)密碼，在PⅡ300、128MB內(nèi)存的機(jī)器上，10分鐘左右即可解開。當(dāng)然，程序并不十分完善，比如還可以加入解密過程中的中斷，以及中斷后解密進(jìn)度的保存等，有興趣的讀者可以自己加以完善。
一、引言
大家都知道，Office家族跟VB有千絲萬縷的聯(lián)系，Microsoft Office組件中的所有應(yīng)用程序都內(nèi)建有VBA，這樣就可以通過VB或VBA操作Word 應(yīng)用程序中的對(duì)象，用窮舉測(cè)試的辦法達(dá)到找回丟失密碼的目的，非常簡(jiǎn)單吧！
二、實(shí)現(xiàn)過程
下面來看一看程序的具體編制過程。程序采用VB編程實(shí)現(xiàn)，需要機(jī)器安裝有VB應(yīng)用程序及Microsoft Office組件。打開VB，新建一個(gè)VB工程，取名Proc_Word，將啟動(dòng)窗體命名為FrmMain，選擇“工程”菜單中的“引用”，在“引用”對(duì)話框中選擇 “Microsoft Word8.0 Object Library”（這一步很重要，你必須選擇這一ActiveX部件，否則代碼不能正確運(yùn)行，順便說一句，如果安裝的是Office2000，那么應(yīng)該選擇“Microsoft Word9.0 Object Library”）。同時(shí)在“工程”菜單中“部件”對(duì)話框中選擇添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗體設(shè)計(jì)中可以使用微調(diào)控件。
好了，現(xiàn)在可以動(dòng)手編制程序了。在剛才FrmMain窗體的左側(cè)添加一個(gè)框架控件，并在此控件內(nèi)加入一個(gè)驅(qū)動(dòng)器列表框、一個(gè)目錄列表框和一個(gè)文件列表框控件。在FrmMain窗體的右下側(cè)添加兩個(gè)命令按鈕，在右上側(cè)添加三個(gè)標(biāo)簽控件、兩個(gè)文本框控件和一個(gè)微調(diào)控件，你可以參考附圖來設(shè)計(jì)。接著，將框架的Caption屬性設(shè)置成“請(qǐng)選擇需要破譯的Word文檔”；保持目錄列表框、驅(qū)動(dòng)器列表框、文件列表框、文本框、微調(diào)控件缺省名稱不
暴力破解
變；將文件列表框的Pattern屬性設(shè)置成“*.DOC”，目的是只顯示目錄下的 Word文件；將第一個(gè)標(biāo)簽控件Caption屬性設(shè)置成“該程序破譯八位以下純數(shù)字組合Word文檔密碼”，將第二個(gè)標(biāo)簽Caption屬性設(shè)置成“解密進(jìn)度”，將第三個(gè)標(biāo)簽Caption屬性設(shè)置成“請(qǐng)選擇破譯密碼位數(shù)”；將第二個(gè)文本框的Text屬性設(shè)置成“4”，這是缺省密碼位數(shù)；將微調(diào)按鈕的 BuddyControl屬性設(shè)置成Text2就能和第二個(gè)文本框關(guān)聯(lián)，BuddyProperty 改成Text，Max、Min屬性分別設(shè)置成“8”和“1”，表示最長(zhǎng)密碼位數(shù)和最短密碼位數(shù)，將Wrap屬性設(shè)置成True，將Increment屬性設(shè)置成“1”，以便每單擊一次加1或減1；將兩個(gè)命令按鈕的名稱分別改成 “cmdopendoc”和“cmdquit”，Caption屬性分別設(shè)置成“文件打開”、“系統(tǒng)退出”。以上就把各控件的屬性設(shè)置完了，接著編寫代碼也就不是什么難事兒了。
下面就是全部的源程序，適當(dāng)?shù)淖⑨層兄诖蠹依斫獬绦颉Ｄ氵�可以通過設(shè)置斷點(diǎn)來跟蹤密碼生成部分，看看程序編制的原理。
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)
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 "密碼位數(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)說明
需要說明的是，窮舉法解密對(duì)系統(tǒng)資源的耗用是十分驚人的，在解密的過程中最好不要運(yùn)行其他應(yīng)用程序。針對(duì)其巨大的資源耗用量，我在程序中采用了一個(gè)小技巧，那就是用密碼位數(shù)作為循環(huán)的步長(zhǎng)進(jìn)行刺探。也就是說如果你的密碼是3位的話，那么程序?qū)⒁来螄L試100、103、106……997、 101、104……998、102、105……999結(jié)束，加快了查找密碼的速度（東漸: 其實(shí)大家可以動(dòng)手算一算，到底是快了許多，還是快了一點(diǎn)，還是根本沒有提高速度^_^）。
該程序在Win98/NT＋VB6.0環(huán)境下測(cè)試通過，筆者隨便試了一個(gè)5位數(shù)密碼，在PⅡ300、128MB內(nèi)存的機(jī)器上，10分鐘左右即可解開。當(dāng)然，程序并不十分完善，比如還可以加入解密過程中的中斷，以及中斷后解密進(jìn)度的保存等，有興趣的讀者可以自己加以完善。
(責(zé)任編輯：admin)
頂一下
(0)
0%
踩一下
(0)
0%
相關(guān)內(nèi)容
- ·在Word文檔中插入Cad圖的三種方法
- ·觸手可及的 Word 20
- ·在Word中利用Access的數(shù)據(jù)
- ·讓新建Word文檔直接設(shè)置好格式
- ·數(shù)值、文本、時(shí)間格式相互轉(zhuǎn)換的方法
- ·Word中輸入文字后面顯示的拼音
- ·快速打開Word文檔 “三板斧”
- ·Word文檔隱私保護(hù)必學(xué)七招
- ·Word超鏈接在教學(xué)中的應(yīng)用
- ·Word與Excel組合打印信封
- ·用Word編兒童看圖識(shí)字手冊(cè)
- ·在Word中輸入英語音標(biāo)
- ·WORD技巧百分百之另類篇
- ·Word文檔中快速插入分隔線的技巧
- ·Word 2007博客功能使用教程
- ·Word2007新功能SmartArt 造極品美
最新內(nèi)容
推薦內(nèi)容