word文檔加密、解密方法（大俠藏書）

《word文檔加密、解密方法（大俠藏書）》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在學術(shù)論文-天天文庫。

1、WORD文檔加密、解密方法加密方法：如果自己的文檔中有不愿讓人看見的小秘密，可以對Word文檔進行加密。加密的方法主要有以下兩種：由文件菜單設置：1、打開需要加密的Word文檔。2、選“文件”的“另存為”，出現(xiàn)“另存為”對話框，在“工具”中選“常規(guī)選項”，出現(xiàn)“保存”選項卡。3、分別在“打開權(quán)限密碼”和“修改權(quán)限密碼”中輸入密碼（這兩種密碼可以相同也可以不同）。4、再次確認“打開權(quán)限密碼”和“修改權(quán)限密碼”。按“確定”退出“保存”選項卡。5、文件存盤。由工具菜單設置：1、打開需要加密的Word文檔。2、選“工具”菜單的“選項”命令，出現(xiàn)“選項對話框”。3、在“選項”對話框中選“保存”選項卡。

2、4、分別在“打開權(quán)限密碼”和“修改權(quán)限密碼”中輸入密碼，點“確定”退出。5、將文件保存。解密方法：1、用簡單的方法：首先創(chuàng)建一個word文檔，使用窗體保護的方式保護文檔，工具->保護文檔->Check“僅允許在文檔中進行此類編輯”->Choose“填寫窗體”，此時會彈出一個密碼框，輸入2次密碼（我這里選擇123作為word文件密碼），這樣，該文檔就已經(jīng)被保護起來了。然我們來破解它，打開剛才創(chuàng)建的word文檔，文件->另存為->選擇HTML格式，存為一個HTML文檔，用記事本打開該HTML文件，搜索""，你會看到5BCECF7A的字樣（如果你的密碼是用

3、的123的話）。接著我們用UltraEdit或其他類似的工具打開最初受保護的Word文檔，搜索7ACFCE5B，搜索到后，都用8個0來代替，存盤。此時的Word文檔的密碼就被清空了，你就可以自己取消文檔保護了，密碼就不用輸入了，按個回車了事。2、用編程的方法：下面來看一看程序的具體編制過程。程序采用VB編程實現(xiàn)，需要機器安裝有VB應用程序及MicrosoftOffice組件。打開VB，新建一個VB工程，取名Proc_Word，將啟動窗體命名為FrmMain，選擇“工程”菜單中的“引用”，在“引用”對話框中選擇“MicrosoftWord8.0ObjectLibrary”（這一步很重要，你必須

4、選擇這一ActiveX部件，否則代碼不能正確運行，順便說一句，如果安裝的是Office2000，那么應該選擇“MicrosoftWord9.0ObjectLibrary”）。同時在“工程”菜單中“部件”對話框中選擇添加“MicrosoftWindowscommoncontrols-2.5(sp2)”，以便在窗體設計中可以使用微調(diào)控件。好了，現(xiàn)在可以動手編制程序了。在剛才FrmMain窗體的左側(cè)添加一個框架控件，并在此控件內(nèi)加入一個驅(qū)動器列表框、一個目錄列表框和一個文件列表框控件。在FrmMain窗體的右下側(cè)添加兩個命令按鈕，在右上側(cè)添加三個標簽控件、兩個文本框控件和一個微調(diào)控件，你可以參考附

5、圖來設計。接著，將框架的Caption屬性設置成“請選擇需要破譯的Word文檔”；保持目錄列表框、驅(qū)動器列表框、文件列表框、文本框、微調(diào)控件缺省名稱不變；將文件列表框的Pattern屬性設置成“*.DOC”，目的是只顯示目錄下的Word文件；將第一個標簽控件Caption屬性設置成“該程序破譯八位以下純數(shù)字組合Word文檔密碼”，將第二個標簽Caption屬性設置成“解密進度”，將第三個標簽Caption屬性設置成“請選擇破譯密碼位數(shù)”；將第二個文本框的Text屬性設置成“4”，這是缺省密碼位數(shù)；將微調(diào)按鈕的BuddyControl屬性設置成Text2就能和第二個文本框關(guān)聯(lián)，BuddyPro

6、perty改成Text，Max、Min屬性分別設置成“8”和“1”，表示最長密碼位數(shù)和最短密碼位數(shù)，將Wrap屬性設置成True，將Increment屬性設置成“1”，以便每單擊一次加1或減1；將兩個命令按鈕的名稱分別改成“cmdopendoc”和“cmdquit”，Caption屬性分別設置成“文件打開”、“系統(tǒng)退出”。以上就把各控件的屬性設置完了，接著編寫代碼也就不是什么難事兒了。下面就是全部的源程序，適當?shù)淖⑨層兄诖蠹依斫獬绦颉Ｄ氵€可以通過設置斷點來跟蹤密碼生成部分，看看程序編制的原理。PrivateSubcmdopendoc_Click()DimwdAsNewWord.Applic

7、ationDimstrpathAsStringDimpassAsStringDimJ,K,Pass_longAsIntegerDimMax_num,Min_num,IAsLongstrpath=File1.Path&""&File1.FileNameOnErrorResumeNext'程序開始Pass_long=Val(Text2.Text)Max_num=10^Val(Text2.Text)Min_num