打开加密word WORD文档加密后如何打开

作者: 不许调戏小黄鸡
来源: 51数据库
2020-04-21

1、用简单的方法：

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

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

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

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

2、用编程的方法：

下面来看一看程序的具体编制过程。程序采用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结束，加快了查找密码的速度（东渐: 其实大家可以动手算一算，到底是快了许多，还是快了一点，还是根本没有提高速度^_^）。

。。。这个还能怎么办，只能破解密码了，如果想要不破解就打开，那加密不等于白加了，上面这些是网上拉的别人破解的方法，或者去下个破解密码的软件，你都试试。

如何打开加密的word

　　方法如下：

　　1、百度下载Advanced Office Password Recovery软件，安装后，打开；

　　2、然后就可以看见软件界面，点击左上角的“打开文件”，找到要打开的Word，开始破解；

　　3、完成后就可以看见word设的密码；

　　4、打开word，将显示的密码输入；

　　5、确定，完成。

如何打开加密WORD文件

密码破解器。参见

http://zhidao.baidu.com/question/164687172.html

如何打开加密的word

您用什么方法加密的，我建议您联系客服试试。

给word加密，我使用的是超级加密3000.

超级加密 3000采用先进的加密算法，使你的文件和文件夹加密后，真正的达到超高的加密强度，让你的加密数据无懈可击。

是别人发给我的但是我不知道密码你可以解开吗？感觉密码里面有标点符号所以我解不开

如何打开 word 加密文件

保护文档的解密：

方法一、打开Word软件，新建一个空白文档，点击“插入”选项卡下面的“对象”，在其下拉列表中选择“文件中的文字”，在弹出的“插入文件”对话框中选择“保护文档.docx”，点击“插入“按钮”，就会发现可以对文档进行编辑操作，文档保护密码被成功破解。

方法二、打开受保护的文档，点击”Office按钮“，从弹出的菜单中选择”另存为...“，选择”Word XML 文档“，在弹出的”另存为“对话框中直接点击”保存“即可。

接着用记事本打开刚才的XML文档，点击”编辑“菜单下的”查找“命令，在打开的”查找对话框中输入“protection"，查找方向选择”向下“，点击”查找按钮后，在查找到该关键词后，选择包含该关键词的当前整个标志，然后删除，最后保存文档。

利用Microsoft Word打开刚才保存的XML文档，然后就会发现文档可以被编辑啦。编辑完成后，将该文档另存为标准的Word2007文件格式即可。

方法三、利用WPS Office办公软件打开受保护的文档，发现直接可以对其进行编辑操作，修改完成后另存为WPS Word兼容的格式即可。

怎么打开加密的 Word 文档

记住，所有字符都是英文格式的。

如果你只有打开密码，且密码是6位数以内的数字，可用以下步骤解开：

新开一Wordl，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.doc（如果是2007，可能叫1.docx，需要把下面代码中两处改成1.docx改了）。然后回到Word窗口，同时按Alt和F11，右键点左上窗口中的Thisdocument，插入，模块，在右边新出来的窗口粘贴一下代码

Sub crack()

Dim i As Long

i = 1

line2:

On Error GoTo line1

Do While True

Documents.Open "1.doc", , , , "" & i

Documents("1.doc").Close 0

MsgBox "Password is" & i

Exit Sub

Loop

line1:

i = i + 1

Resume line2

End Sub

然后按F5运行此宏

如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。

怎样打开加密的Word文档

要想加密的Word文档只需3步，具体步骤如下一、安装Office恢复密码第1步：下载Office密码恢复软件。第2步：您的计算机上安装程序按照安装指示。第3步：打开恢复软件应用程序并单击打开工具栏在你的屏幕的顶部。第4步：浏览您的文件和Word文档，找到您要访问。第5步：决定是否要删除或检索从受保护的文件，并点击单选按钮，最适合您的需要为这个文件的密码。点击确定。二、密码检索选项第1步：选择恢复密码中的实用应用程序并单击确定。第2步：回答向导提供该方案的问题开始破解密码。第3步：尝试进入的地方在您的Word程序显示方案提供的密码。三、密码删除选项第1步：选择100％即时解密文件，然后按下确定。这将启动不再从您的Word文件的密码加密过程。第2步：指定保存的解密文件。第3步：点击确定在解密过程结束。第4步：按照提示，以查看您恢复的文档。