EXCEL密码破解无需任何工具插件超简单

1、实用标准文案此方法无需任何工具只需要按照以下步骤操作就可以破解EXCE空码，方便简单快捷EXCE幽码破解打开文件工具-宏录制新宏-输入名字如：aa停止录制(这样得到一个空宏)工具-宏宏,选aa,点编辑按钮删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)关闭编辑窗口工具-宏宏,选AlllnternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了！内容如下：PublicSubAllInternalPasswords()'Breaksworksheetandworkbookstructurepasswords.BobMcCormick'prob

2、ablyoriginatorofbasecodealgorithmmodifiedforcoverage'ofworkbookstructure/windowspasswordsandformultiplepasswords''NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)'Modified2003-Apr-04byJEM:Allmsgstoconstants,and'eliminateoneExitSub(Version1.1.1)'RevealshashedpasswordsNOTorigi

3、nalpasswordsConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"AdaptedfromBobMcCormickbasecodeby"&_"NormanHarkerandJEMcGimpsey"ConstHEADERAsString="AllInternalPasswordsUserMessage"ConstVERSIONAsString=DBLSPACE&"Ve

4、rsion1.1.12003-Apr-04"ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_"grammingnewsgroup."ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_"nowbefreeofallpasswordprotection,somakesureyou:"&_DBLSPA

5、CE&"SAVEITNOW!"&DBLSPACE&"andalso"&_DBLSPACE&"BACKUP!,BACKUP!,BACKUP!"&_DBLSPACE&"Also,rememberthatthepasswordwas"&_"putthereforareason.Don'tstuffupcrucialformulas"&_"ordata."&DBLSPACE&"A

6、ccessanduseofsomedata"&_"maybeanoffense.Ifindoubt,don't."ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_"sheets,orworkbookstructureorwindows."&AUTHORS&VERSIONConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_"workbookst

7、ructureorwindows."&DBLSPACE&_"Proceedingtounprotectsheets."&AUTHORS&VERSIONConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_文档实用标准文案"willtakesometime."&DBLSPACE&"Amountoftime"&_"dependsonhowmanydifferentpasswords,

8、the"&_"passwords,andyourcomputer'sspecification."&DBLSPACE&_"Justbepatient!Makemeacoffee!"&AUTHORS&VERSIONConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_"StructureorWindowsPasswordset."&DBLSPACE&_"Thepasswordfound

9、was:"&DBLSPACE&"$"&DBLSPACE&_"Noteitdownforpotentialfutureuseinotherworkbooksby"&_"thesamepersonwhosetthispassword."&DBLSPACE&_"Nowtocheckandclearotherpasswords."&AUTHORS&VERSIONConstMSGPWORDFOUND2AsString="Youhada

10、Worksheet"&_"passwordset."&DBLSPACE&"Thepasswordfoundwas:"&_DBLSPACE&"$"&DBLSPACE&"Noteitdownforpotential"&_"futureuseinotherworkbooksbysamepersonwho"&_"setthispassword."&DBLSPACE&"Nowto

11、checkandclear"&_"otherpasswords."&AUTHORS&VERSIONConstMSGONLYONEAsString="Onlystructure/windows"&_"protectedwiththepasswordthatwasjustfound."&_ALLCLEAR&AUTHORS&VERSION&REPBACKDimw1AsWorksheet,w2AsWorksheetDimiAsInteger,jAsInteger,kAs

12、Integer,lAsIntegerDimmAsInteger,nAsInteger,i1AsInteger,i2AsIntegerDimi3AsInteger,i4AsInteger,i5AsInteger,i6AsIntegerDimPWord1AsStringDimShTagAsBoolean,WinTagAsBooleanApplication.ScreenUpdating=FalseWithActiveWorkbookWinTag=.ProtectStructureOr.ProtectWindowsEndWithShTag=FalseForEachw1InWorksheetsShTa

13、g=ShTagOrw1.ProtectContentsNextw1IfNotShTagAndNotWinTagThenMsgBoxMSGNOPWORDS1,vbInformation,HEADERExitSubEndIfMsgBoxMSGTAKETIME,vbInformation,HEADERIfNotWinTagThenMsgBoxMSGNOPWORDS2,vbInformation,HEADERElseOnErrorResumeNextDo'dummydoloopFori=65To66:Forj=65To66:Fork=65To66文档实用标准文案Forl=65To66:Form

14、=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126WithActiveWorkbook.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_.ProtectWind

15、ows=FalseThenPWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND1,_"$",PWord1),vbInformation,HEADERExitDo'Bypassallfor.nextsEndIfEndWithNext:Next:Next:Ne

16、xt:Next:NextNext:Next:Next:Next:Next:NextLoopUntilTrueOnErrorGoTo0EndIfIfWinTagAndNotShTagThenMsgBoxMSGONLYONE,vbInformation,HEADERExitSubEndIfOnErrorResumeNextForEachw1InWorksheets'AttemptclearancewithPWord1w1.UnprotectPWord1Nextw1OnErrorGoTo0ShTag=FalseForEachw1InWorksheets'Checksforallcle

17、arShTagtriggeredto1ifnot.ShTag=ShTagOrw1.ProtectContentsNextw1IfShTagThenForEachw1InWorksheetsWithw1If.ProtectContentsThenOnErrorResumeNextDo'DummydoloopFori=65To66:Forj=65To66:Fork=65To66文档实用标准文案Forl=65To66:Form=65To66:Fori1=65To66Fori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:

18、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)IfNot.ProtectContentsThenPWord1=Chr(i)&Chr(j)&Chr(k)&Chr(l)&_Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i5

19、)&Chr(i6)&Chr(n)MsgBoxApplication.Substitute(MSGPWORDFOUND2,_"$",PWord1),vbInformation,HEADER'leveragefindingPwordbytryingonothersheetsForEachw2InWorksheetsw2.UnprotectPWord1Nextw2ExitDo'Bypassallfor.nextsEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextLoopUn

20、tilTrueOnErrorGoTo0EndIfEndWithNextw1EndIfMsgBoxALLCLEAR&AUTHORS&VERSION&REPBACK,vbInformation,HEADEREndSub文档实用标准文案穷举破解EXCELWOR皮档密码摘要：本文讨论了如何使用VB编程，通过穷举法解除EXCEL文档和WORD：档的密码。并在破解过程中加入了中断，以方便用户随时中断破解过程。关键字：穷举法、解密、EXCELS!、WORD：档、密码Excel和Word提供了多种方法限制访问用户文档，以免未经授权者的查看和更改。但在信息化的今天，用户需要记忆的密码太多

21、，一旦密码丢失，用户将无法打开或访问该文档，给用户造成很大的损失。能否借助计算机的高速运行，解开密码呢？通过尝试，笔者认为：在无法弄清Excel和Word加密算法的情况下，利用穷举法尝试解密文档，是解密唯一的选择。1.实现原理本程序选用VB6.0编写，并充分利用了Office组件中的对象库，穷举尝试各种口令，达到解密文档的目的。巧用整数的取整及取余，产生密码字符串Excel和Word文档密码可以是字母、数字、空格以及符号的任意组合，最长可达15个字符，且区分大小写。本程序的破解过程利用一个两层循环，产生选定字符的排列组合（尝试密码），其中外层循环控制密码的位数，内层循环生成N位密码的所有排列组

22、合。产生尝试密码的方法是：将一个N位字符串密码（password）作为一个“数值”，该“数值”每个位上的“数字”属于选定字符范围，且该“数值”与一个整数（X）一一对应，并满足以下条件：0<XwArrayLenN-1（ArrayLen是选定密码字符范围的总字符数，如：仅选定数字时，ArrayLen=10;仅选定数字和小写字母时，ArrayLen=10+26=36）;对X整除、取余N-1次，对每次的余数Y做以下操作：password=password+CharArray（Y）（注：CharArray是存放选定字符的一维数组），最后做以下操作：password=CharArray（XMODAr

23、rayLen）+password,产生的password就是整数X对应的N位字符串。利用VB的错误处理功能，尝试口令破解当运行程序尝试一个密码时（用该密码打开文档），若密码错误，则会产生运行错误。为此，必须在尝试口令前，使用OnError语句打开一个错误处理程序；由于本程序是尝试各种口令，当一个口令错误时，直接尝试下一个口令即可，因此，应使用"OnErrorResumeNext”语句。那么，如何得知找到口令了呢？VB有一个内部错误对象Err,它的Number属性中的值是用来确定发生错误的原因。在尝试一个口令后，检查Err.Number中的值，以确定该口令是否正确。破解过程中的中断利用

24、穷举法解密对系统资源的占用是十分惊人的，在解密的过程中CPU的利用率几乎是100%若不加入解密过程中的中断，计算机系统会处于一种假死机状态。为此，在破解过程的内循环中加入了DoEvents函数。DoEvents函数提供了一种取消任务的简便方法，它将控制切换到操作环境内核。只要此环境中的所有应用程序都有机会响应待处理事件，应用程序就又恢复控制。使用该函数的优点是：不会使应用程序放弃焦点，且后台事件能够得到有效处理。2.具体实现过程编程实现时，需要机器安装有VB应用程序及MicrosoftOffice组件。新建VB工程，并对其初始化新建一个VB工程，取名Get_Password,将启动窗体命名为F

25、rmMain。首先选择"工程"菜单中的"引用"，在"引用”对话框中选择"MicrosoftExcel10.0ObjectLibrary”和aMicrosoftWord10.0ObjectLibrary”文档实用标准文案(注意：如果安装的是Office2000或Office97，应该选择Excel对象库和Word对象库的9.0版或8.0版)。其次在“工程"菜单中"部件”对话框中，选择添加"MicrosoftWindowscommoncontrols-2.5(sp2)”和"MicrosoftComm

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

27、tonName=CmdStartCrack,Caption=开始破解7CommandButtonName=CmdQuit,Caption=退出系统8CheckBoxName=ChkDigital,Caption=数字(10)9CheckBoxName=ChkLowercase,Caption=小写字母(26)10CheckBoxName=ChkUppercase,Caption=大写字母(26)11CheckBoxName=ChkSpaceCaption=空格(1)12CheckBoxName=ChkBracket,Caption=括号(6)13CheckBoxName=ChkOthers,C

28、aption=其他OEg符(26)14TextBoxName=txtPasswordStartLong，Text=215TextBoxName=txtPasswordEndLong，Text=216TextBoxName=Text117UpDownName=UpDown1BuddyProperty=Text，Wrap=TRUEIncrement=1BuddyControl=txtPasswordStartLong,Max=15,Min=18UpDownName=UpDown2BuddyProperty=Text，Wrap=TRUEIncrement=1BuddyControl=txtPassw

29、ordEndLong，Max=15Min=119CommonDialogName=Dialog,DialogTitle=请选择加密的Excel或Word文档Filter=Excel(*.xls),Word(*.doc)|*.xls;*.doc20LabelName=Label1,Caption=破解进度:21LabelName=Label3,Caption=从：22LabelName=Label5,Caption=至U:为以上对象编写下列代码为了便于理解，程序中增加了适当的注释。OptionExplicitPrivateSubCmdBrowse_Click()Dialog.ShowOpen&#

30、39;showthedialogCombo1.Text=Dialog.FileName'settheFilenametextboxtotheselectedfileCombo1.RefreshEndSub文档实用标准文案PrivateSubCmdQuit_Click()EndEndSubPrivateSubCmdStartCrack_Click()StaticblnProcessingAsBooleanDimwdAsNewWord.Application,xlsAsNewExcel.ApplicationDimOpenReturnDimstrpath,pass,StrTemp,all_

31、char(100)AsStringDimJ,K,Password_Start_Long,Password_End_Long,ArrayLenAsIntegerDimI,TempAsLongArrayLen=0'数组初始化IfChkDigital.Value=1ThenForJ=ArrayLenToArrayLen+9all_char(J)=Chr(Asc("0")+J-ArrayLen)NextJArrayLen=ArrayLen+10EndIfIfChkLowercase.Value=1ThenForJ=ArrayLenToArrayLen+25all_char(

32、J)=Chr(Asc("a")+J-ArrayLen)NextJArrayLen=ArrayLen+26EndIfIfChkUppercase.Value=1ThenForJ=ArrayLenToArrayLen+25all_char(J)=Chr(Asc("A")+J-ArrayLen)NextJArrayLen=ArrayLen+26EndIfIfChkSpace.Value=1Thenall_char(ArrayLen)=""ArrayLen=ArrayLen+1EndIfIfChkBracket.Value=1Thenall_

33、char(ArrayLen)="("all_char(ArrayLen+1)=")"all_char(ArrayLen+2)=""all_char(ArrayLen+3)=""all_char(ArrayLen+4)=""all_char(ArrayLen+5)=""ArrayLen=ArrayLen+6EndIf文档实用标准文案IfChkOthers.Value=1ThenForJ=ArrayLenToArrayLen+6'33to39all_char(J)=Chr

34、(33+J-ArrayLen)NextArrayLen=ArrayLen+7ForJ=ArrayLenToArrayLen+5'42to47all_char(J)=Chr(42+J-ArrayLen)NextJArrayLen=ArrayLen+6ForJ=ArrayLenToArrayLen+6'58to64all_char(J)=Chr(58+J-ArrayLen)NextJArrayLen=ArrayLen+7all_char(ArrayLen)=Chr(92)ArrayLen=ArrayLen+1ForJ=ArrayLenToArrayLen+2'94to96a

35、ll_char(J)=Chr(94+J-ArrayLen)NextJArrayLen=ArrayLen+3all_char(ArrayLen)=Chr(124)all_char(ArrayLen+1)=Chr(126)ArrayLen=ArrayLen+2EndIfIfArrayLen=0Then请选择密码使用的字符范围MsgBox"错误：没有选择密码使用的字符ExitSubEndIfIfblnProcessingThenIfMsgBox("真的要中断解密过程吗？",vbYesNo,"用户中断任务")=vbYesThenblnProcessin

36、g=FalseElseCmdStartCrack.Caption="中断破解"blnProcessing=Truestrpath=Combo1.TextIfstrpath=""ThenMsgBox"错误：没有选择需要解密的文件二，"请选择需要解密的文件.”ExitSubEndIfstrpath=Trim(strpath)Password_Start_Long=Val(txtPasswordStartLong.Text)Password_End_Long=Val(txtPasswordEndLong.Text)IfPassword_St

37、art_Long>Password_End_LongThenPassword_Start_Long=Val(txtPasswordEndLong.Text)文档实用标准文案Password_End_Long=Val(txtPasswordStartLong.Text)EndIfLabel1.Caption="破解进度："Label1.RefreshOnErrorResumeNext破解excel开始IfUCase(Right(strpath,3)="XLS"ThenForK=Password_Start_LongToPassword_End_Lon

38、gForI=0ToArrayLenAK-1pass=Temp=IForJ=1ToK-1Temp=TempArrayLepass=all_char(TempModArrayLen)+passNextJpass=pass+all_char(IModArrayLen)SetOpenReturn=xls.Workbooks.Open(FileName:=strpath,Password:=pass)Textl.Text=pass'显示破解进度Text1.Refresh码，退出过程IfErr.Number<>0Then'如果解密成功，打开文档，显示密Err.ClearElseLabell.Caption="文档密码："Textl.Text=passMe.Refreshxls.Visible=TrueCmdStartCrack.MousePointer=0CmdStartCrack.Caption="开始破解"blnProcessing=FalseSetxls=NothingExitSubEndIfDoEventsIfNotblnProcessing