窮舉破解excel、word文檔密碼

《窮舉破解excel、word文檔密碼》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。

1、窮舉破解EXCEL、WORD文檔密碼摘要：本文討論了如何使用VB編程，通過(guò)窮舉法解除EXCEL文檔和WORD文檔的密碼。并在破解過(guò)程中加入了中斷，以方便用戶(hù)隨時(shí)中斷破解過(guò)程。oent=1BuddyControl=txtPassonDialogName=Dialog，DialogTitle=請(qǐng)選擇加密的Excel或e=Label1，Caption=破解進(jìn)度：21LabelName=Label3，Caption=從：22LabelName=Label5，Caption=到：ArrayLen+2EndIfIfArrayLen=0The

2、nMsgBox"錯(cuò)誤：沒(méi)有選擇'密碼使用的字符'",,"請(qǐng)選擇密碼使用的字符范圍..."ExitSubEndIfIfblnProcessingThenIfMsgBox("真的要中斷解密過(guò)程嗎？",vbYesNo,"用戶(hù)中斷任務(wù)")=vbYesThenblnProcessing=FalseElseCmdStartCrack.Caption="中斷破解"blnProcessing=Truestrpath=bo1.TextIfstrpath=""ThenMsgBox"錯(cuò)誤：沒(méi)有選擇'需要解密的文件'",,"請(qǐng)選擇需要解密的文件..."

3、ExitSubEndIfstrpath=Trim(strpath)PasseNextIfUCase(Right(strpath,3))="XLS"ThenForK=Passp=IForJ=1ToK-1Temp=TempArrayLepass=all_char(TempModArrayLen)+passNextJpass=pass+all_char(IModArrayLen)SetOpenReturn=xls.e.Refreshxls.Visible=TrueCmdStartCrack.MousePointer=0CmdStar

4、tCrack.Caption="開(kāi)始破解"blnProcessing=FalseSetxls=NothingExitSubEndIfDoEventsIfNotblnProcessingThenExitForNextIIfNotblnProcessingThenExitForNextKxls.QuitSetxls=NothingElseForK=Passp=IForJ=1ToK-Temp=TempArrayLenpass=all_char(TempModArrayLen)+passNextJpass=pass+all_char(

5、IModArrayLen)OpenReturn=ents.Open(FileName:=strpath,passent:=pass)Text1.Text=pass'顯示破解進(jìn)度Text1.RefreshIfErr.Number<>0Then'如果解密成功,打開(kāi)文檔,顯示密碼,退出過(guò)程Err.ClearElse'MsgBox"dStartCrack.MousePointer=0CmdStartCrack.Caption="開(kāi)始破解"blnProcessing=FalseSetdStartCrack.Caption="開(kāi)

6、始破解"IfblnProcessingThenMsgBox"沒(méi)有找到密碼，可能是密碼位數(shù)不對(duì)!",,"提示信息..."blnProcessing=FalseEndSub3.時(shí)間復(fù)雜度分析一個(gè)算法的時(shí)間復(fù)雜度，是指該算法的時(shí)間耗費(fèi)，是該算法所求解問(wèn)題規(guī)模n的函數(shù)。根據(jù)前面講的實(shí)現(xiàn)原理，我們知道，破解算法的時(shí)間耗費(fèi)主要集中在嘗試打開(kāi)OFFICE文檔上，因此，當(dāng)我們假設(shè)破解一個(gè)N位字符串密碼，且選定密碼字符范圍的總字符數(shù)為ArrayLen時(shí)，該算法的時(shí)間復(fù)雜度是O(ArrayLen)。即，當(dāng)N確定后，該算法的時(shí)間復(fù)雜度是N次方階；當(dāng)

7、ArrayLen確定后，該算法的時(shí)間復(fù)雜度是指數(shù)階。都是高數(shù)量級(jí)的時(shí)間復(fù)雜度。4.說(shuō)明窮舉法解密對(duì)系統(tǒng)資源的占用是十分驚人的，在解密的過(guò)程中最好不要運(yùn)行其他應(yīng)用程序。如果安裝有瑞星等殺毒軟件，應(yīng)將殺毒軟件的“office安全助手”去掉，以便加快程序的運(yùn)行速度。該程序在WinXP+OfficeXP+VB6.0環(huán)境下測(cè)試通過(guò)，筆者隨便測(cè)試了一個(gè)5位數(shù)字密碼，在P4機(jī)器上，8分鐘左右即可解開(kāi)口令。