你好,游客 登錄 注冊 搜索
背景:
閱讀新聞

破解Word密碼

[日期:2018-02-26] 來源:  作者: [字體: ]

  工作繁忙難免產生意外,比如對重要的word文檔加密之后卻把密碼忘得一干二凈,這幾乎會發生在每個人的身上。這時你可能會焦急萬分,不過我勸你不要太緊張,有空來程序谷坐坐,一定會有好的答案的。下面我們就來看看用窮舉法暴力破解Word密碼的程序,當然,為了簡單起見,程序只針對密碼是數字的情況做了處理,字符型的密碼與此類似,不再多說了。

  一、引言

  大家都知道,office家族跟VB有千絲萬縷的聯系,Microsoft Office組件中的所有應用程序都內建有VBA,這樣就可以通過VB或VBA操作 Word 應用程序中的對象,用窮舉測試的辦法達到找回丟失密碼的目的,非常簡單吧!

  二、實現過程

  下面來看一看程序的具體編制過程。程序采用VB編程實現,需要機器安裝有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)”,以便在窗體設計中可以使用微調控件。

  好了,現在可以動手編制程序了。在剛才FrmMain窗體的左側添加一個框架控件,并在此控件內加入一個驅動器列表框、一個目錄列表框和一個文件列表框控件。在FrmMain窗體的右下側添加兩個命令按鈕,在右上側添加三個標簽控件、兩個文本框控件和一個微調控件,你可以參考附圖來設計。接著,將框架的Caption屬性設置成“請選擇需要破譯的Word文檔”;保持目錄列表框、驅動器列表框、文件列表框、文本框、微調控件缺省名稱不變;將文件列表框的Pattern屬性設置成“*.DOC”,目的是只顯示目錄下的 Word文件;將第一個標簽控件Caption屬性設置成“該程序破譯八位以下純數字組合Word文檔密碼”,將第二個標簽Caption屬性設置成“解密進度”,將第三個標簽Caption屬性設置成“請選擇破譯密碼位數”;將第二個文本框的Text屬性設置成“4”,這是缺省密碼位數;將微調按鈕的 BuddyControl屬性設置成Text2就能和第二個文本框關聯,BuddyProperty 改成Text,Max、Min屬性分別設置成“8”和“1”,表示最長密碼位數和最短密碼位數,將Wrap屬性設置成True,將Increment屬性設置成“1”,以便每單擊一次加1或減1;將兩個命令按鈕的名稱分別改成 “cmdopendoc”和“cmdquit”,Caption屬性分別設置成“文件打開”、“系統退出”。以上就把各控件的屬性設置完了,接著編寫代碼也就不是什么難事兒了。

  下面就是全部的源程序,適當的注釋有助于大家理解程序。你還可以通過設置斷點來跟蹤密碼生成部分,看看程序編制的原理。

  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 "密碼位數不對,請重新輸入"

  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

  三、幾點說明

  需要說明的是,窮舉法解密對系統資源的耗用是十分驚人的,在解密的過程中最好不要運行其他應用程序。針對其巨大的資源耗用量,我在程序中采用了一個小技巧,那就是用密碼位數作為循環的步長進行刺探。也就是說如果你的密碼是3位的話,那么程序將依次嘗試100、103 、106……997、 101、104……998、102、105……999結束,加快了查找密碼的速度(東漸: 其實大家可以動手算一算,到底是快了許多,還是快了一點,還是根本沒有提高速度^_^)。

  該程序在Win98/NT+VB6.0環境下測試通過,筆者隨便試了一個5位數密碼,在PⅡ300、128MB內存的機器上,10分鐘左右即可解開。當然,程序并不十分完善,比如還可以加入解密過程中的中斷,以及中斷后解密進度的保存等,有興趣的讀者可以自己加以完善。



本文《破解Word密碼》的網址是http://www.3190358.live/n41387c22.aspx

收藏 推薦 打印 | 錄入:admin | 閱讀:
相關新聞       wps 
本文評論   查看全部評論 (0)
表情: 表情 姓名: 字數
點評:
       
評論聲明
  • 尊重網上道德,遵守中華人民共和國的各項有關法律法規
  • 承擔一切因您的行為而直接或間接導致的民事或刑事法律責任
  • 本站管理人員有權保留或刪除其管轄留言中的任意內容
  • 本站有權在網站內轉載或引用您的評論
  • 參與本評論即表明您已經閱讀并接受上述條款
赌场赠品 单头双头中特 四肖期期中准免费心水 11选5遗漏北京 黑龙江11选五玩法 鞭打快牛打一生肖 刘伯温期期精选一肖 平指什么生肖动物 何仙姑期期准免费资料精选 精准5码中特绝不改料 云南11选五5前三直选一定牛