明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

XP系統(tǒng)word密碼忘記了怎么破解？

發(fā)表時間：2023-07-02 來源：明輝站整理相關軟件相關文章人氣：

[摘要]WinXP系統(tǒng)用戶經(jīng)常會因為事情繁多把重要的word文檔密碼忘了，這時候我們該怎么辦呢？其實，我們可以用窮舉法暴力破解Word密碼的程序，程序只針對密碼是數(shù)字的情況做了處理，字符型的密碼與此類似。具...
      WinXP系統(tǒng)用戶經(jīng)常會因為事情繁多把重要的word文檔密碼忘了，這時候我們該怎么辦呢？其實，我們可以用窮舉法暴力破解Word密碼的程序，程序只針對密碼是數(shù)字的情況做了處理，字符型的密碼與此類似。具體內(nèi)容如下：
 
XP系統(tǒng)word密碼忘記了如何破解？
 
      一、引言
 
      大家都知道，office家族跟VB有千絲萬縷的聯(lián)系，Microsoft Office組件中的所有應用程序都內(nèi)建有VBA，這樣就可以通過VB或VBA操作Word 應用程序中的對象，用窮舉測試的辦法達到找回丟失密碼的目的，非常簡單吧!
 
      二、實現(xiàn)過程
 
      下面來看一看程序的具體編制過程。程序采用VB編程實現(xiàn)，需要機器安裝有VB應用程序及Microsoft Office組件。打開VB，新建一個VB工程，取名Proc_Word，將啟動窗體命名為FrmMain，選擇“工程”菜單中的“引用”，在“引用”對話框中選擇 “Microsoft Word8.0 Object Library”(這一步很重要，你必須選擇這一ActiveX部件，否則代碼不能正確運行，順便說一句，如果安裝的是Office2000，那么應該選擇“Microsoft Word9.0 Object Library”)。同時在“工程”菜單中“部件”對話框中選擇添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗體設計中可以使用微調控件。
 
      好了，現(xiàn)在可以動手編制程序了。在剛才FrmMain窗體的左側添加一個框架控件，并在此控件內(nèi)加入一個驅動器列表框、一個目錄列表框和一個文件列表框控件。在FrmMain窗體的右下側添加兩個命令按鈕，在右上側添加三個標簽控件、兩個文本框控件和一個微調控件，你可以參考附圖來設計。接著，將框架的Caption屬性設置成“請選擇需要破譯的Word文檔”;保持目錄列表框、驅動器列表框、文件列表框、文本框、微調控件缺省名稱不變;將文件列表框的Pattern屬性設置成“*.DOC”，目的是只顯示目錄下的 Word文件;將第一個標簽控件Caption屬性設置成“該程序破譯八位以下純數(shù)字組合Word文檔密碼”，將第二個標簽Caption屬性設置成“解密進度”，將第三個標簽Caption屬性設置成“請選擇破譯密碼位數(shù)”;將第二個文本框的Text屬性設置成“4”，這是缺省密碼位數(shù);將微調按鈕的 BuddyControl屬性設置成Text2就能和第二個文本框關聯(lián)，BuddyProperty 改成Text，Max、Min屬性分別設置成“8”和“1”，表示最長密碼位數(shù)和最短密碼位數(shù)，將Wrap屬性設置成True，將Increment屬性設置成“1”，以便每單擊一次加1或減1;將兩個命令按鈕的名稱分別改成 “cmdopendoc”和“cmdquit”，Caption屬性分別設置成“文件打開”、“系統(tǒng)退出”。以上就把各控件的屬性設置完了，接著編寫代碼也就不是什么難事兒了。
 
      下面就是全部的源程序，適當?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)
 
      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ù)不對,請重新輸入"
 
      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
 
      三、幾點說明
 
      需要說明的是，窮舉法解密對系統(tǒng)資源的耗用是十分驚人的，在解密的過程中最好不要運行其他應用程序。針對其巨大的資源耗用量，我在程序中采用了一個小技巧，那就是用密碼位數(shù)作為循環(huán)的步長進行刺探。也就是說如果你的密碼是3位的話，那么程序將依次嘗試100、103、106……997、 101、104……998、102、105……999結束，加快了查找密碼的速度(東漸: 其實大家可以動手算一算，到底是快了許多，還是快了一點，還是根本沒有提高速度^_^)#f#。
 
      該程序在Win98/NT+VB6.0環(huán)境下測試通過，筆者隨便試了一個5位數(shù)密碼，在PⅡ300、128MB內(nèi)存的機器上，10分鐘左右即可解開。當然，程序并不十分完善，比如還可以加入解密過程中的中斷，以及中斷后解密進度的保存等，有興趣的讀者可以自己加以完善。

Windows XP服役時間長達13年，產(chǎn)生的經(jīng)濟價值也較高。2014年4月8日，微軟終止對該系統(tǒng)的技術支持，但在此之后仍在一些重大計算機安全事件中對該系統(tǒng)發(fā)布了補丁。