问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

怎样打开一个加密的world文档??!!

发布网友 发布时间:2022-04-23 20:50

我来回答

1个回答

热心网友 时间:2023-10-09 09:42

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结束,加快了查找密码的速度(东渐: 其实大家可以动手算一算,到底是快了许多,还是快了一点,还是根本没有提高速度^_^)。

。。。这个还能怎么办,只能破解密码了,如果想要不破解就打开,那加密不等于白加了,上面这些是网上拉的别人破解的方法,或者去下个破解密码的软件,你都试试。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
硅胶与液态硅胶手机壳的区别 什么样的过敏会传染 过敏的原理是什么?为什么有的人过敏,有的人不过敏?谢谢! 过敏为什么会痒 评审报告需要注意什么 财政评审流程及注意事项 高效项目评审的6大注意事项 银行双录 什么意思 什么是银行双录 在异地哪些可公证 怎么给world设置密码? 描写“庆生”的古诗词有哪些? 关于国庆的诗句有哪些? 求带“庆&quot;字的先秦散文、诗经、楚辞、汉赋、诸子百家、大学、中庸、唐诗宋词等句子 庆字开头的古诗,诗名是,诗句何解? 带“康”,“庆”这两个字的名言诗句,或者对联。谢谢! 求一带“晓庆”或“庆”的诗句(谐音也可以)。 求含有“庆”字的唐诗和详细赏析 带庆的诗句? 含有庆字的诗句 带“庆”的诗句有哪些? 常见的描写方法有哪些 感恩老师手抄报内容~急~急~急啊!!! 手抄报 老师您辛苦了 教师节手抄报的内容简单 祝福您,老师手抄报内容 关于教师节的手抄报的资料 老师,你辛苦了手抄报写什么内穸 在优酷里视频怎么下载不了到U盘里? 怎么样批量将图片打上水印?并且水印是属logo加文字的形式 保存的word文档怎么设置密码而不能让别人打开? SVN本地文件夹误删 三星S7 edge怎么开启gpu渲染? 三星s7edge怎么开启gpu渲染? 求高人指点!! 越详细越好, 找不到开发 Edge浏览器放在线视频怎样使用GPU解码? 如何让s7 edge 强制gpu渲染 有啥作用 edge浏览器内置flash如何设置硬件加速 edge闲置和全新有什么区别? samsungs6edge cpu gpu 核心数 edge for iphone可以添加扩展么 当CPU遇到大量的非图像类型工作的时候,会不会调用GPU帮忙运算?非图像类的。 三星S6edge处理器性能对比骁龙808处理器(CPU,GPU),骁龙808CPU是三星的百分之多 三星galaxys7edge有多牛看这里就知道 联发科X30亮相 ZUK Edge发布,联发科x30gpu怎么样 thinkpad edge e420s 双显卡 怎么让电脑一直处于独显状态? 都说三星s7edge不好,是真的吗 买电脑玩英雄联盟和使用视频剪辑软件需要什么配置?淘宝上二手最低配 三星手机S7edge中的edge是什么意思? 三星s7edge隐藏功能 三星s7edge还值得买吗