excel文件忘记密码后的解密方法Word文档格式.docx
- 文档编号:18038075
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:8
- 大小:257.80KB
excel文件忘记密码后的解密方法Word文档格式.docx
《excel文件忘记密码后的解密方法Word文档格式.docx》由会员分享,可在线阅读,更多相关《excel文件忘记密码后的解密方法Word文档格式.docx(8页珍藏版)》请在冰豆网上搜索。
"
Version1.1.1 2003-Apr-04"
ﻫConstREPBACKAsString=DBLSPACE &
Pleasereport failure"
_
to themicrosoft.public.excel.programmingnewsgroup."
Const ALLCLEAR AsString=DBLSPACE&
Theworkbook should"
_ﻫ"
nowbefreeofall passwordprotection, so make sureyou:
"&_ﻫDBLSPACE &"
SAVE ITNOW!
&
DBLSPACE&
andalso"
&_ﻫDBLSPACE&"
BACKUP!
BACKUP!
BACKUP!
!
DBLSPACE &
"Also, rememberthatthepassword was"
&_
putthereforareason.Don'
tstuffupcrucial formulas "
&_ﻫ"
ordata."
DBLSPACE& "
Accessanduseofsome data"
_ﻫ"
maybean offense.Ifindoubt,don'
t."
ﻫConstMSGNOPWORDS1 As String= "
Therewerenopasswordson"
_
sheets,orworkbookstructure orwindows."& AUTHORS &
VERSION
ConstMSGNOPWORDS2AsString = "
There wasnoprotectionto"
workbook structureorwindows."
DBLSPACE&
_ﻫ"
Proceedingtounprotectsheets."
&AUTHORS&
VERSIONﻫConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"
willtake some time."
DBLSPACE&
Amount oftime"
dependsonhowmanydifferentpasswords,the"
passwords,andyourcomputer'
s specification."
&DBLSPACE&
_ﻫ"Just bepatient!
Makemeacoffee!
AUTHORS&
VERSION
Const MSGPWORDFOUND1 AsString="You hadaWorksheet"
Structure orWindowsPasswordset."
&DBLSPACE &
Thepasswordfoundwas:
DBLSPACE &
$$"
DBLSPACE&
Noteitdown forpotential futureuse in otherworkbooksby"
_ﻫ"thesamepersonwhoset thispassword."&
DBLSPACE&_
Nowtocheckand clearotherpasswords."
AUTHORS&
VERSION
Const MSGPWORDFOUND2AsString ="
You hada Worksheet"
passwordset."
&DBLSPACE&
The passwordfound was:
DBLSPACE&
$$"&
DBLSPACE&
Note it downforpotential"&
futureuse inotherworkbooksbysame personwho "
_ﻫ"set thispassword."&
DBLSPACE& "
Nowtocheck andclear"
otherpasswords."
AUTHORS &
VERSIONﻫConst MSGONLYONEAs String="Onlystructure /windows"
protectedwith thepasswordthatwasjust found."
&_
ALLCLEAR& AUTHORS &
VERSION &REPBACK
Dimw1 AsWorksheet,w2AsWorksheetﻫDim i As Integer,jAs Integer,kAsInteger,lAsInteger
DimmAsInteger,nAsInteger,i1AsInteger, i2As Integer
Dim i3As Integer,i4AsInteger,i5 AsInteger, i6As Integer
DimPWord1AsStringﻫDim ShTagAs Boolean,WinTagAsBooleanApplication.ScreenUpdating =FalseﻫWithActiveWorkbook
WinTag = .ProtectStructureOr.ProtectWindows
End With
ShTag=FalseﻫForEachw1InWorksheets
ShTag=ShTagOr w1.ProtectContentsﻫNext w1ﻫIfNotShTagAnd Not WinTag Then
MsgBoxMSGNOPWORDS1, vbInformation,HEADERﻫExitSubﻫEndIf
MsgBox MSGTAKETIME,vbInformation,HEADERﻫIf Not WinTagThenﻫMsgBoxMSGNOPWORDS2, vbInformation,HEADERﻫElse
OnError ResumeNextﻫDo'
dummydoloop
Fori=65To66:
Forj=65To66:
Fork = 65To66ﻫFor l= 65To66:
For m= 65To66:
For i1 = 65 To66ﻫFor i2=65To66:
Fori3 =65 To66:
Fori4 =65 To 66
Fori5 =65To66:
Fori6=65To66:
Forn=32 To126ﻫWithActiveWorkbook
.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(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,HEADERﻫExit Do'
Bypassallfor...nextsﻫEnd IfﻫEndWithﻫNext:
Next:
Next:
Next:
NextﻫNext:
Next:
Next:
Next:
Next:
Next
LoopUntilTrue
OnErrorGoTo 0
EndIfﻫIfWinTag AndNot ShTagThenﻫMsgBoxMSGONLYONE, vbInformation,HEADERﻫExitSubﻫEndIf
OnErrorResume NextﻫForEachw1In Worksheetsﻫ'AttemptclearancewithPWord1
w1.UnprotectPWord1
Nextw1
On ErrorGoTo0ﻫShTag=False
ForEach w1InWorksheetsﻫ'
Checks forall clear ShTag triggeredto 1ifnot.
ShTag= ShTagOrw1.ProtectContents
Nextw1ﻫIf ShTagThenﻫForEachw1 In Worksheets
With w1ﻫIf.ProtectContentsThenﻫOnErrorResumeNext
Do'Dummydoloop
Fori= 65To66:
Forj= 65To66:
Fork =65To66
Forl=65To 66:
Form =65To66:
Fori1 =65To 66ﻫFori2 =65To66:
Fori3= 65To66:
Fori4=65 To 66
Fori5=65 To66:
For i6 = 65To66:
Forn =32To 126ﻫ.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.ProtectContentsThen
PWord1=Chr(i) &Chr(j)&
Chr(k) &
Chr(l)&
Chr(i1)&
Chr(i2) &
Chr(i3)&
Chr(i4)&Chr(i5) &
Chr(i6)&
Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2,_
PWord1),vbInformation,HEADERﻫ'leveragefinding Pword bytryingonother sheets
ForEachw2InWorksheets
w2.UnprotectPWord1
Next w2
ExitDo'
Bypass all for...nexts
EndIf
Next:
Next:
Next:
Next:
Next:
Next:
Next:
Next:
Next:
Next:
Next
LoopUntilTrueﻫOn ErrorGoTo0
EndIf
EndWithﻫNextw1ﻫEndIfﻫMsgBoxALLCLEAR&
AUTHORS&VERSION &
REPBACK,vbInformation, HEADER
End Sub
6.然后执行便可获得密码
附件:
SubPasswordBreaker()ﻫ DimiAs Integer, jAsInteger, kAsIntegerﻫ DimlAsInteger,mAsInteger,n As Integerﻫ Dimi1AsInteger,i2AsInteger,i3AsInteger
Dimi4As Integer, i5 AsInteger,i6 As Integer
OnError ResumeNext
Fori=65To66:
Forj=65To 66:
Fork=65To66
For l=65To66:
Form=65To66:
Fori1= 65To66ﻫ Fori2=65To66:
Fori3=65To66:
Fori4=65To66ﻫFori5 =65To 66:
For i6=65To 66:
Forn=32To126ﻫ ActiveSheet.UnprotectChr(i) &
Chr(j)&
_
Chr(l) &
Chr(m)&
Chr(i1)&
Chr(i2) &
Chr(i3) &
_
Chr(i4)&Chr(i5)&
Chr(i6)&Chr(n)ﻫ If ActiveSheet.ProtectContents=FalseThen
MsgBox "
Oneusablepasswordis"
Chr(i) &
Chr(j)&
_ ﻫ Chr(k)&Chr(l)&
Chr(m)&
Chr(i1)&
_ ﻫ Chr(i3)&
Chr(i4) &
Chr(i5)&
Chr(i6)&
Chr(n)
ActiveWorkbook.Sheets
(1).Selectﻫ Range("
a1"
).FormulaR1C1=Chr(i)&
Chr(j) &_ ﻫ Chr(k)&
Chr(l)&
Chr(m)&Chr(i1)&Chr(i2)&
_ﻫ Chr(i3)&
Chr(i4)&Chr(i5)&Chr(i6)&
Chr(n) ﻫExitSub
EndIf
Next:
Next:
Next:
Next:
Next
Next:
Next:
NextﻫEnd Sub
今天解决的大问题!
解 释一下:
当Excel工作表采用密码保护时,就会生成一个16位(双字节)长hash值。
当输入密码进行验证时,真正进行比较的就是这个hash值。
事实上,有很多不同的密码都可以生成同样的hash值。
大家可以试试:
当你用“test”(不含双引号)作为Excel工作表保护密码,你同样可以用“zzyw”(同样不含双引号)这个密码进行解锁。
怎么样,神奇吧?
Excel工作簿保护时将密码hash化然后存储起来,解密时也是将输入的密码hash求值然后与储存的hash值比较,用不同的字串hash求值后可以生成同样的hash结果,根据这个原理,我们用一个12位的字串进行hash求值,尝试破解excel的工作簿保护密码。
其实这个破解的方法很简单,就是利用穷举法,不断的用不同的字串组合去尝试比较,用11位A、B字母的组合加1位其他字母可以生成任意的hash字串。
二:
这是打开保护的破解
下载一个工具软件OfficePasswordRecoveryToolbox
步骤/方法
1
先暂定系统中的杀毒软件,等将Excel密码破解完毕后再重新开启杀毒。
(破解类的工具杀毒软件都会误认为是木马或病毒,这个没毒,请放心使用。
)
2
双击运行该软件;
3
单击“文件”按钮,在弹出的菜单中选择“打开文件…”,然后找到你需要破解的Excel表格的存放位置,打开;
4
此时,Excel文件就已经导入了此软件,大家还可以看到可以破解“打开”、写入、工作簿密码、共享工作簿密码、VBA工程密码等,全部可以移除。
点击界面上的“移除密码”;
5
点击“移除密码”以后会提示程序必须要链接网络才可以运行,(确定你的计算机是否已经链接好了网络,然后单击“确定”按钮);
6
这时后会提示“状态:
正在链接到RixlerServer ”,只需等待几秒钟破解完成即可。
7
OK,密码被成功移除,该文档已经被成功解密,如下图:
8
8.哦,生成了一个新的没有密码了的文档:
西西软件_NESOY.xls
里边内容部方便公开,我随便打开了一个测试时打开的截图。
图中的www.qingdi.com什么的字样就是我破解后看到的内容。
9
类似的破解软件现在已经很多了,有兴趣的可以自己去找找自己喜欢用了,总之自己习惯用的才是最好用的。
c:
\iknow\docshare\data\cur_work\javascript:
;
"注意事项
此方法只是为了给忘记自己文档的同仁提供方便,请不要用于偷窥别人隐私等不道德的用途。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- excel 文件 忘记 密码 解密 方法