word2013密码破解

1.求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) & Chr(i。

2.word2013 文档密码解锁

1、用Word2013打开需要加密的文档，然后单击“文件”按钮。

2、在弹出的菜单中系统已经默认选择了“信息”选项，我们只需要在右侧的“信息”选项面板中单击“保护文档”组中的“用密码进行加密”选项即可。

3、此时会弹出一个“加密文档”的对话框，我们在“密码”文本框中输入密码，注意区分大小写，然后单击“确定”按钮。

4、现在会跳转到“确认密码”对话框中，大家再次输入密码进行确认，然后单击“确定”按钮。

5、返回到Word中，我们看到“保护文档”项已经变成了黄色，而且提醒我们“必须提供密码才能打开此文档”，这就说明我们加密成功了，大家现在单击“关闭”按钮，然后一定要在弹出的Microsoft Word 提示框中单击“保存”按钮，使密码生效。

END

解密方法：

当我们再次试图用Word2013打开加密了的文档时，会弹出一个“密码”对话框，我们需要在文本框中输入正确的密码，然后单击“确定”按钮，才能打开该文档。

END

删除密码的具体做法：

1、我们用上面的方法打开已经加密的文档，然后单击“文件”按钮。

2、此时系统已经自动在弹出的菜单中选择了“信息”选项，我们需要做的就是单击“保护文档”组中的“用密码进行加密”按钮。

3、此时会弹出一个“加密文档”的对话框，其“密码”文本框中本来是有密码的，我们选中它并用退格键删除，然后单击“确定”按钮。OK，我们已经将文档的密码删除掉了，但大家要关闭时记得保存哦。

END

注意事项

注意：大家一定要记住自己加密时输入的密码，因为Word2013不提供找回密码的功能，请大家一定要谨慎！

3.Word2013文档,设置密码忘记了,选择需要打开,怎么样才能破解

首先创建一个word文档，使用窗体保护的方式保护文档，工具->；保护文档->Check“仅允许在文档中进行此类编辑”->Choose“填写窗体”，此时会弹出一个密码框，输入2次密码（我这里选择123作为word文件密码），这样，该文档就已经被保护起来了。

然后我们来破解它，打开刚才创建的word文档，文件->；另存为->；选择HTML格式，存为一个HTML文档，用记事本打开该HTML文件，搜索“<w:UnprotectPassword>；“，你会看到5BCECF7A的字样（如果你的密码是用的123的话）。

接着我们用UltraEdit或其他类似的工具打开最初受保护的Word文档，搜索7ACFCE5B，搜索到后，都用8个0来代替，存盘。

此时的Word文档的密码就被清空了，你就可以自己取消文档保护了，密码就不用输入了，按个回车了事。

微软的密码不是那么好破解的，只能用那些破解Office密码的软件，看你设置多长的密码了，如果是5位就得10几个小时，还要看你机器的速度，特殊字符的就更长时间了

4.如何给Word 2003/2007/2010/2013各版本文档加密解密

word2003、2007、2010、2013文档加密通用方法：

1.找到电脑上的一个word文档（后缀名必须显示出来才行）。

2.间隔1秒选择文件名。

3.更改后缀名。

4.点击是进行加密。

5.双击选择文档，发现文档无法打开表示加密成功。

文档解密教程：

1.找到电脑上已经加密的word文档，间隔1秒选择文件名。

2.将后缀改为.doc，点击是。

3.文件解密完成。

4.打开文档查看内容。

5.如何破解word文档打开密码破解

有如下几种操作方法：

1、启动WORD，新建一个空白文档→插入→文件，打开“插入文件”对话框，到需要解除保护的文档所在的文件夹，选中该文档，单击“插入”按钮，将加密保护的文档插入到新文档中，文档保护会被自动撤销。

2、打开保护的文档，点击菜单文件→另存为，打开“另存为”对话框，将“文件类型”选定为“WORD97—2003”，换名保存，关闭该文档，接着重新打开，点击菜单工具→取消文档保护”命令即可。或者将文件类型另存为HTML，然后将其中的内容，复制粘贴到新建文档中。

3、启动写字板，打开保护的WORD文档，另存为WORD文档，同时可以取消对文档的保护。但此方法可能会使文档中的图片等要素丢失。

4、用Advanced Office Password Recovery直接解开文档保护密码后即可编辑。

转载请注明出处51数据库 » word2013密码破解