请问,WORD文档密码忘了,如何解决?我曾经将WORD文档加密,
暴力破解过程 程序采用VB编程实现,需要机器安装有VB应用程序及Microsoft Office组件。
打开VB,新建一个VB工程,取名Proc_Word,将启动窗体命名为FrmMain,选择“工程”菜单中的“引用”,在“引用”对话框中选择 “Microsoft Word8.0 Object Library”(这一步很重要,你必须选择这一ActiveX部件,否则代码不能正确运行,顺便说一句,如果安装的是Office2000,那么应该选择“Microsoft Word9.0 Object Library”)。
同时在“工程”菜单中“部件”对话框中选择添加“Microsoft Windows common controls -2.5(sp2)”,以便在窗体设计中可以使用微调控件。
好了,现在可以动手编制程序了。
在刚才FrmMain窗体的左侧添加一个框架控件,并在此控件内加入一个驱动器列表框、一个目录列表框和一个文件列表框控件。
在FrmMain窗体的右下侧添加两个命令按钮,在右上侧添加三个标签控件、两个文本框控件和一个微调控件,你可以参考附图来设计。
接着,将框架的Caption属性设置成“请选择需要破译的Word文档”;保持目录列表框、驱动器列表框、文件列表框、文本框、微调控件缺省名称不变;将文件列表框的Pattern属性设置成“*.DOC”,目的是只显示目录下的 Word文件;将第一个标签控件Caption属性设置成“该程序破译八位以下纯数字组合Word文档密码”,将第二个标签Caption属性设置成“解密进度”,将第三个标签Caption属性设置成“请选择破译密码位数”;将第二个文本框的Text属性设置成“4”,这是缺省密码位数;将微调按钮的 BuddyControl属性设置成Text2就能和第二个文本框关联,BuddyProperty 改成Text,Max、Min属性分别设置成“8”和“1”,表示最长密码位数和最短密码位数,将Wrap属性设置成True,将Increment属性设置成“1”,以便每单击一次加1或减1;将两个命令按钮的名称分别改成 “cmdopendoc”和“cmdquit”,Caption属性分别设置成“文件打开”、“系统退出”。
以上就把各控件的属性设置完了,接着编写代码也就不是什么难事儿了。
下面就是全部的源程序,适当的注释有助于大家理解程序。
你还可以通过设置断点来跟踪密码生成部分,看看程序编制的原理。
Private Sub cmdopendoc_Click() Dim wd As New Word.Application Dim strpath As String Dim pass As String Dim J, K, Pass_long As Integer Dim Max_num, Min_num, I As Long strpath = File1.Path & "\" & File1.FileName On Error Resume Next '程序开始 Pass_long = Val(Text2.Text) Max_num = 10 ^ Val(Text2.Text) Min_num = 10 ^ (Val(Text2.Text) - 1) Flag = 0 For K = 0 To Pass_long - 1 Max_num = 10 ^ (Pass_long - K) Min_num = 10 ^ (Pass_long - (K + 1)) For J = 0 To Pass_long - 1 cmdopendoc.MousePointer = 11 For I = IIf(Pass_long - K = 1, 0, Min_num) + J To Max_num Step Pass_long Text1.Text = pass Text1.Refresh pass = String(K, "0") & I Flag = wd.Documents.Open(FileName:=strpath, passworddocument:=pass) '如果解密成功,打开文档,显示密码,退出过程 If Flag 0 Then Label1.Caption = "文档密码" Label1.Refresh Text1.Text = pass wd.Visible = True cmdopendoc.MousePointer = 0 Exit Sub End If Next I Next J Next K MsgBox "密码位数不对,请重新输入" End Sub Private Sub cmdquit_Click() End End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_DblClick() Call cmdopendoc_Click End Sub 几点说明 需要说明的是,穷举法解密对系统资源的耗用是十分惊人的,在解密的过程中最好不要运行其他应用程序。
针对其巨大的资源耗用量,我在程序中采用了一个小技巧,那就是用密码位数作为循环的步长进行刺探。
也就是说如果你的密码是3位的话,那么程序将依次尝试100、103、106……997、 101、104……998、102、105……999结束,加快了查找密码的速度(东渐: 其实大家可以动手算一算,到底是快了许多,还是快了一点,还是根本没有提高速度^_^)。
该程序在Win98/NT+VB6.0环境下测试通过,笔者随便试了一个5位数密码,在PⅡ300、128MB内存的机器上,10分钟左右即可解开。
当然,程序并不十分完善,比如还可以加入解密过程中的中断,以及中断后解密进度的保存等,有兴趣的读者可以自己加以完善 或者下载一个程式:Advanced Office Password Recovery
word文件如何解密很多word文件加密后忘记密码,如何解密
1、用简单的方法: 首先创建一个word文档,使用窗体保护的方式保护文档,工具->保护文档->Check“仅允许在文档中进行此类编辑”->Choose“填写窗体”,此时会弹出一个密码框,输入2次密码(我这里选择123作为word文件密码),这样,该文档就已经被保护起来了。
然我们来破解它,打开刚才创建的word文档,文件->另存为->选择HTML格式,存为一个HTML文档,用记事本打开该HTML文件,搜索"",你会看到5BCECF7A的字样(如果你的密码是用的123的话)。
接着我们用UltraEdit或其他类似的工具打开最初受保护的Word文档,搜索7ACFCE5B,搜索到后,都用8个0来代替,存盘。
此时的Word文档的密码就被清空了,你就可以自己取消文档保护了,密码就不用输入了,按个回车了事。
用WordKey恢复Word密码 “WordKey”是一款著名的Word密码恢复工具,可以通过“暴力破解”、“字典破解”等方法,快速将Word文档中的密码恢复出来。
所以当忘记Word文档密码后,“WordKey”就可以帮上大忙啦! 参考资料:http://www.weste.net/2005/6-14/21340125539.html 找回office文件密码 office是使用最为普遍的办公软件,工作繁忙的你,难免出现各种意外,比如对重要的WORD文档加密后却把密码忘得一干二净,这是最让人恼火和着急的了。
但使用AOPR(全称是Advanced office 2000 password Recovery。
下载地址:http://www.skycn.com/soft/4373.html) 软件:Advanced Office XP Password Recovery Pro http://download.enet.com.cn/html/070532003080401.html “Advanced Office Password Recovery”,是一个 Microsoft Office 文件的密码恢复工具。
支持最新版本 Office 2003 中的所有组件,支持所有语言版本。
非常好的,下载地址: http://www.hanzify.org/index.php?Go=Show::List&ID=8444 就可以把office文档的密码很快找回来。
就拿一个DOC文档做个演习。
1、安装上AOPR后,启动它,点击“FileName”右侧的打开文件夹图标,选择需要进行破解的文件。
2、“Type of attack”就使用默认的“Bruteforce attack”,然后是设置密码的长度和组成字符。
3、设置好以后点击工具栏上的“Start recovery”开始破解。
稍后(时间长短跟设置的密码长度和组成的复杂度有很大的关系),密码就成功破解了。
AOPR不光可以破解WORD文件,它对EXCEL等OFFICE软件产生的文档密码都可以进行解码,方法也大致一样。
word文档加密了忘记密码了,怎么破解啊
解除WORD文档保护方法一:插入文件法启动WORD,新建一个空白文档,执行“插入——〉文件”命令,打开“插入文件”对话框,定位到需要解除保护的文档所在的文件夹,选中相应文档,单击“插入”按钮,将加密保护的文档插入到新文档中,文档保护会被自动撤销。
方法二:文件另存法打开保护的文档,执行“文件——〉另存为”命令,打开“另存为”对话框,将“文件类型”选定为“WORD97—2003&6.0/95—RTF(*.doc)”,然后取名保存,关闭该文档,重新打开一下,执行“工具——〉取消文档保护”命令即可。
或者将文件类型另存为HTML,然后将其中的内容,复制粘贴到新建文档中。
方法三:写字板法启动写字板,打开保护的WORD文档,另存为WORD文档,同时可以取消对文档的保护。
但此方法可能会使文档中的图片等要素丢失。
求word2013密码破解方法
首先打开需要破译的文档,如图所示(这里以excel2013为例,word和excel设置都是一样的就不用一 一列举了),点击“视图”,选择右边的“宏” 点击宏后,选择“录制宏”,如图所示 弹出录制宏对话框,修改宏的名字,点击确定 再次点击宏,选择“查看宏”,如图所示 然后在弹出的宏对话框中点击“编辑”,如图所示 在编辑中将所有的字符删除,然后添加如下代码 Option Explicit Public Sub AllInternalPasswords()' Breaks worksheet and workbook structure passwords. Bob McCormick' probably originator of base code algorithm modified for coverage' of workbook structure / windows passwords and for multiple passwords'' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)' Modified 2003-Apr-04 by JEM: All msgs to constants, and' eliminate one Exit Sub (Version 1.1.1)' Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _"Adapted from Bob McCormick base code by" & _"Norman Harker and JE McGimpsey"Const HEADER As String = "AllInternalPasswords User Message"Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"Const REPBACK As String = DBLSPACE & "Please report failure " & _"to the microsoft.public.excel.programming newsgroup."Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _"now be free of all password protection, so make sure you:" & _DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _DBLSPACE & "Also, remember that the password was " & _"put there for a reason. Don't stuff up crucial formulas " & _"or data." & DBLSPACE & "Access and use of some data " & _"may be an offense. If in doubt, don't."Const MSGNOPWORDS1 As String = "There were no passwords on " & _"sheets, or workbook structure or windows." & AUTHORS & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst MSGTAKETIME As String = "After pressing OK button this " & _"will take some time." & DBLSPACE & "Amount of time " & _"depends on how many different passwords, the " & _"passwords, and your computer's specification." & DBLSPACE & _"Just be patient! Make me a coffee!" & AUTHORS & VERSIONConst MSGPWORDFOUND1 As String = "You had a Worksheet " & _"Structure or Windows Password set." & DBLSPACE & _"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _"Note it down for potential future use in other workbooks by " & _"the same person who set this password." & DBLSPACE & _"Now to check and clear other passwords." & AUTHORS & VERSIONConst MSGPWORDFOUND2 As String = "You had a Worksheet " & _"password set." & DBLSPACE & "The password found was: " & _DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _"future use in other workbooks by same person who " & _"set this password." & DBLSPACE & "Now to check and clear " & _"other passwords." & AUTHORS & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & ...
Word文件怎么可以解除密码?文件加了密,但忘了密码,怎么办?
文档保护密码的破解: http://soft.yesky.com/office/487/2105987.shtml 打开密码的破解: http://www.skycn.com/soft/12373.html Word密码破解器 V1.0 通过暴力破解迅速找回word密码.缺点是如果密码太长,占用资源较多.我的CPU是Athlon XP1800 在winxp下破解一个5位数密码,用了15秒。
以后再也不必为忘了word密码而烦了。
建议设置密码不要用字母,破解起来太费时了。
word文档的密码忘了怎么办?
Advanced Office Password Recovery V3.04 汉化版 本软件是一个 Microsoft Office 文件的密码恢复工具。
支持最新版本Office 2003 中的所有组件,支持所有语言版本。
针对 MS Office 系列的密码破解工具 AOPR 可破解 95~03 版的各类 Office 文档,本软件分精简、标准、专业三个版本,而本专业版便是其中支持的格式最全、开放的特性最多的一款。
Office Key 7.9 Build 2141 Office Key是由Passware制作的系列密码恢复软件之一,它可以迅速恢复Office文件(Access、Excel、Outlook、Word、Visual Basic)的密码。
同时它还支持多语言密码设定。
内有的文件密码回复功能。
转载请注明出处51数据库 » word2013忘记文档密码破解