EXCEL密码破解Word文档下载推荐.docx
《EXCEL密码破解Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《EXCEL密码破解Word文档下载推荐.docx（17页珍藏版）》请在冰点文库上搜索。
&
NormanHarkerandJEMcGimpsey"
ConstHEADERAsString="
AllInternalPasswordsUserMessage"
ConstVERSIONAsString=DBLSPACE&
"
Version1.1.12003-Apr-04"
ConstREPBACKAsString=DBLSPACE&
Pleasereportfailure"
tothemicrosoft.public.excel.programmingnewsgroup."
ConstALLCLEARAsString=DBLSPACE&
Theworkbookshould"
nowbefreeofallpasswordprotection,somakesureyou:
DBLSPACE&
SAVEITNOW!
DBLSPACE&
andalso"
BACKUP!
BACKUP!
BACKUP"
Also,rememberthatthepasswordwas"
putthereforareason.Don'
tstuffupcrucialformulas"
ordata."
Accessanduseofsomedata"
maybeanoffense.Ifindoubt,don'
t."
ConstMSGNOPWORDS1AsString="
Therewerenopasswordson"
sheets,orworkbookstructureorwindows."
AUTHORS&
VERSION
ConstMSGNOPWORDS2AsString="
Therewasnoprotectionto"
workbookstructureorwindows."
Proceedingtounprotectsheets."
ConstMSGTAKETIMEAsString="
AfterpressingOKbuttonthis"
willtakesometime."
Amountoftime"
dependsonhowmanydifferentpasswords,the"
passwords,andyourcomputer'
sspecification."
Justbepatient!
Makemeacoffee!
ConstMSGPWORDFOUND1AsString="
YouhadaWorksheet"
StructureorWindowsPasswordset."
Thepasswordfoundwas:
$$"
Noteitdownforpotentialfutureuseinotherworkbooksby"
thesamepersonwhosetthispassword."
Nowtocheckandclearotherpasswords."
ConstMSGPWORDFOUND2AsString="
passwordset."
Noteitdownforpotential"
futureuseinotherworkbooksbysamepersonwho"
setthispassword."
Nowtocheckandclear"
otherpasswords."
ConstMSGONLYONEAsString="
Onlystructure/windows"
protectedwiththepasswordthatwasjustfound."
ALLCLEAR&
VERSION&
REPBACK
Dimw1AsWorksheet,w2AsWorksheet
DimiAsInteger,jAsInteger,kAsInteger,lAsInteger
DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger
Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger
DimPWord1AsString
DimShTagAsBoolean,WinTagAsBoolean
Application.ScreenUpdating=False
WithActiveWorkbook
WinTag=.ProtectStructureOr.ProtectWindows
EndWith
ShTag=False
ForEachw1InWorksheets
ShTag=ShTagOrw1.ProtectContents
Nextw1
IfNotShTagAndNotWinTagThen
MsgBoxMSGNOPWORDS1,vbInformation,HEADER
ExitSub
EndIf
MsgBoxMSGTAKETIME,vbInformation,HEADER
IfNotWinTagThen
MsgBoxMSGNOPWORDS2,vbInformation,HEADER
Else
OnErrorResumeNext
Do'
dummydoloop
Fori=65To66:
Forj=65To66:
Fork=65To66
Forl=65To66:
Form=65To66:
Fori1=65To66
Fori2=65To66:
Fori3=65To66:
Fori4=65To66
Fori5=65To66:
Fori6=65To66:
Forn=32To126
.UnprotectChr（i）&
Chr（j）&
Chr（k）&
Chr（l）&
Chr（m）&
Chr（i1）&
Chr（i2）&
Chr（i3）&
Chr（i4）&
Chr（i5）&
Chr（i6）&
Chr（n）
If.ProtectStructure=FalseAnd_
.ProtectWindows=FalseThen
PWord1=Chr（i）&
Chr（l）&
Chr（m）&
Chr（i3）&
Chr（i4）&
MsgBoxApplication.Substitute（MSGPWORDFOUND1,_
PWord1）,vbInformation,HEADER
ExitDo'
Bypassallfor...nexts
Next:
Next:
Next
LoopUntilTrue
OnErrorGoTo0
IfWinTagAndNotShTagThen
MsgBoxMSGONLYONE,vbInformation,HEADER
AttemptclearancewithPWord1
w1.UnprotectPWord1
ChecksforallclearShTagtriggeredto1ifnot.
IfShTagThen
Withw1
If.ProtectContentsThen
Dummydoloop
IfNot.ProtectContentsThen
MsgBoxApplication.Substitute（MSGPWORDFOUND2,_
leveragefindingPwordbytryingonothersheets
ForEachw2InWorksheets
w2.UnprotectPWord1
Nextw2
MsgBoxALLCLEAR&
REPBACK,vbInformation,HEADER
EndSub
穷举破解EXCEL、WORD文档密码
摘要：
本文讨论了如何使用VB编程，通过穷举法解除EXCEL文档和WORD文档的密码。
并在破解过程中加入了中断，以方便用户随时中断破解过程。
关键字：
穷举法、解密、EXCEL文档、WORD文档、密码
Excel和Word提供了多种方法限制访问用户文档，以免XX者的查看和更改。
但在信息化的今天，用户需要记忆的密码太多，一旦密码丢失，用户将无法打开或访问该文档，给用户造成很大的损失。
能否借助计算机的高速运行，解开密码呢？
通过尝试，笔者认为：
在无法弄清Excel和Word加密算法的情况下，利用穷举法尝试解密文档，是解密唯一的选择。
1.实现原理
本程序选用VB6.0编写，并充分利用了Office组件中的对象库，穷举尝试各种口令，达到解密文档的目的。
⑴巧用整数的取整及取余，产生密码字符串
Excel和Word文档密码可以是字母、数字、空格以及符号的任意组合，最长可达15个字符，且区分大小写。
本程序的破解过程利用一个两层循环，产生选定字符的排列组合（尝试密码），其中外层循环控制密码的位数，内层循环生成N位密码的所有排列组合。
产生尝试密码的方法是：
将一个N位字符串密码（password）作为一个“数值”，该“数值”每个位上的“数字”属于选定字符范围，且该“数值”与一个整数（X）一一对应，并满足以下条件：
0≤X≤ArrayLenN-1（ArrayLen是选定密码字符范围的总字符数，如：
仅选定数字时，ArrayLen=10；
仅选定数字和小写字母时，ArrayLen=10+26=36）；
对X整除、取余N-1次，对每次的余数Y做以下操作：
password=password+CharArray（Y）（注：
CharArray是存放选定字符的一维数组），最后做以下操作：
password=CharArray（XMODArrayLen）+password，产生的password就是整数X对应的N位字符串。
⑵利用VB的错误处理功能，尝试口令破解
当运行程序尝试一个密码时（用该密码打开文档），若密码错误，则会产生运行错误。
为此，必须在尝试口令前，使用OnError语句打开一个错误处理程序；
由于本程序是尝试各种口令，当一个口令错误时，直接尝试下一个口令即可，因此，应使用“OnErrorResumeNext”语句。
那么，如何得知找到口令了呢？
VB有一个内部错误对象Err，它的Number属性中的值是用来确定发生错误的原因。
在尝试一个口令后，检查Err.Number中的值，以确定该口令是否正确。
⑶破解过程中的中断
利用穷举法解密对系统资源的占用是十分惊人的，在解密的过程中CPU的利用率几乎是100%，若不加入解密过程中的中断，计算机系统会处于一种假死机状态。
为此，在破解过程的内循环中加入了DoEvents函数。
DoEvents函数提供了一种取消任务的简便方法，它将控制切换到操作环境内核。
只要此环境中的所有应用程序都有机会响应待处理事件，应用程序就又恢复控制。
使用该函数的优点是：
不会使应用程序放弃焦点，且后台事件能够得到有效处理。
2.具体实现过程
编程实现时，需要机器安装有VB应用程序及MicrosoftOffice组件。
⑴新建VB工程，并对其初始化
新建一个VB工程，取名Get_Password，将启动窗体命名为FrmMain。
首先选择“工程”菜单中的“引用”，在“引用”对话框中选择“MicrosoftExcel10.0ObjectLibrary”和“MicrosoftWord10.0ObjectLibrary”（注意：
如果安装的是Office2000或Office97，应该选择Excel对象库和Word对象库的9.0版或8.0版）。
其次在“工程”菜单中“部件”对话框中，选择添加“MicrosoftWindowscommoncontrols-2.5（sp2）”和“MicrosoftCommonDialogcontrol6.0”，以便在窗体设计中使用微调控件和对话框控件。
⑵在FrmMain窗体上添加控件
在FrmMain窗体上，按照下图的位置添加表1中的控件，然后根据表1修改每个对象的属性。
表1：
序号
控件名称
控件属性及其属性值
1
Frame
Name=Frame1，Caption=选择加密文件（*.DOC、*.XLS）
2
Name=Frame2，Caption=选定密码字符范围：
3
Name=Frame3，Caption=选择密码的长度：
4
ComboBow
Name=Combo1
5
CommandButton
Name=CmdBrowse，Caption=浏览
6
Name=CmdStartCrack，Caption=开始破解
7
Name=CmdQuit，Caption=退出系统
8
CheckBox
Name=ChkDigital，Caption=数字（10）
9
Name=ChkLowercase，Caption=小写字母（26）
10
Name=ChkUppercase，Caption=大写字母（26）
11
Name=ChkSpace，Caption=空格
（1）
12
Name=ChkBracket，Caption=括号（6）
13
Name=ChkOthers，Caption=其他OEM字符（26）
14
TextBox
Name=txtPasswordStartLong，Text=2
15
Name=txtPasswordEndLong，Text=2
16
Name=Text1
17
UpDown
Name=UpDown1，BuddyProperty=Text，Wrap=TRUE，Increment=1
BuddyControl=txtPasswordStartLong，Max=15，Min=
18
Name=UpDown2，BuddyProperty=Text，Wrap=TRUE，Increment=1
BuddyControl=txtPasswordEndLong，Max=15，Min=1
19
CommonDialog
Name=Dialog，DialogTitle=请选择加密的Excel或Word文档
Filter=Excel（*.xls），Word（*.doc）|*.xls;
*.doc
20
Label
Name=Label1，Caption=破解进度：
21
Name=Label3，Caption=从：
22
Name=Label5，Caption=到：
⑶为以上对象编写下列代码
为了便于理解，程序中增加了适当的注释。
OptionExplicit
PrivateSubCmdBrowse_Click（）
Dialog.ShowOpen'
showthedialog
Combo1.Text=Dialog.FileName
'
settheFilenametextboxtotheselectedfile
Combo1.Refresh
PrivateSubCmdQuit_Click（）
End
PrivateSubCmdStartCrack_Click（）
StaticblnProcessingAsBoolean
DimwdAsNewWord.Application,xlsAsNewExcel.Application
DimOpenReturn
Dimstrpath,pass,StrTemp,all_char（100）AsString
DimJ,K,Password_Start_Long,Password_End_Long,ArrayLenAsInteger
DimI,TempAsLong
ArrayLen=0
数组
升级会员 