穷举破解excel、word文档密码

《穷举破解excel、word文档密码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、穷举破解EXCEL、WORD文档密码：本文讨论了如何使用VB编程，通过穷举法解除EXCEL文档和icrosoftOffice组件。⑴新建VB工程，并对其初始化新建一个VB工程，取名Get_PassMain。首先选择工程菜单中的引用，在引用对话框中选择MicrosoftExcel10.0ObjectLibrary和MicrosofticrosofticrosoftmonDialogcontrol6.0，以便在窗体设计中使用微调控件和对话框控件。⑵在FrmMain窗体上添加控件在FrmMain窗体上，按照下图的位置

2、添加表1中的控件，然后根据表1修改每个对象的属性。表1：序号控件名称控件属性及其属性值1FrameName=Frame1，Caption=选择加密文件（*.DOC、*.XLS）　　穷举破解EXCEL、WORD文档密码：本文讨论了如何使用VB编程，通过穷举法解除EXCEL文档和icrosoftOffice组件。⑴新建VB工程，并对其初始化新建一个VB工程，取名Get_PassMain。首先选择工程菜单中的引用，在引用对话框中选择MicrosoftExcel10.0ObjectLibrary和Microsoftic

3、rosofticrosoftmonDialogcontrol6.0，以便在窗体设计中使用微调控件和对话框控件。⑵在FrmMain窗体上添加控件在FrmMain窗体上，按照下图的位置添加表1中的控件，然后根据表1修改每个对象的属性。表1：序号控件名称控件属性及其属性值1FrameName=Frame1，Caption=选择加密文件（*.DOC、*.XLS）2FrameName=Frame2，Caption=选定密码字符范围：3FrameName=Frame3，Caption=选择密码的长度：4boBoe=bo15

4、mandButtonName=CmdBroandButtonName=CmdStartCrack，Caption=开始破解7mandButtonName=CmdQuit，Caption=退出系统8CheckBoxName=ChkDigital，Caption=数字(10)9CheckBoxName=ChkLoe=ChkUppercase，Caption=大写字母(26)11CheckBoxName=ChkSpace，Caption=空格(1)12CheckBoxName=ChkBracket，Caption=括

5、号(6)13CheckBoxName=ChkOthers，Caption=其他OEM字符(26)14TextBoxName=txtPasse=txtPasse=Text117UpDoe=UpDoent=1BuddyControl=txtPasse=UpDoent=1BuddyControl=txtPassonDialogName=Dialog，DialogTitle=请选择加密的Excel或sgBox(真的要中断解密过程吗？,vbYesNo,用户中断任务)=vbYesThenblnProcessing=Fals

6、eElseCmdStartCrack.Caption=中断破解blnProcessing=Truestrpath=bo1.TextIfstrpath=ThenMsgBox错误：没有选择'需要解密的文件',,请选择需要解密的文件...ExitSubEndIfstrpath=Trim(strpath)PasseNextIfUCase(Right(strpath,3))=XLSThenForK=Passp=IForJ=1ToK-1Temp=TempArrayLepass=all_char(TempModArrayL

7、en)+passNextJpass=pass+all_char(IModArrayLen)SetOpenReturn=xls.e.Refreshxls.Visible=TrueCmdStartCrack.MousePointer=0CmdStartCrack.Caption=开始破解blnProcessing=FalseSetxls=NothingExitSubEndIfDoEventsIfNotblnProcessingThenExitForNextIIfNotblnProcessingThenExitFor

8、NextKxls.QuitSetxls=NothingElseForK=Passp=IForJ=1ToK-Temp=TempArrayLenpass=all_char(TempModArrayLen)+passNextJpass=pass+all_char(IModArrayLen)OpenReturn=ents.Open(FileName:=strpath,passent:=pas