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步:按照提示,以查看您恢复的文档。
如何对word加密
第一步:打开你需要加密的word文档。
第二步:单击【开始】 ,然后单击【另存为】。
第三步:单击【工具】,然后单击【常规选项】。
第四步:如果希望输入密码方可查看文档,请在“打开权限密码”框中键入密码。 如果希望输入密码方可保存对文档的更改,请在“修改权限密码”框中键入密码。
注意:
可以设置两个权限密码 — 一个用于访问文件,另一个用于修改文件内容的权限。请确保两个密码是不同的。
为防止打开文档的人无意间修改文件,可以选中“建议只读”复选框。打开文档时,将提示打开的人是否要以只读方式打开文件。
第五步:设置密码完成后点击确认!同样需要再次确认在上一步输入的密码,输入和上一步一样的密码即可!密码两次验证一致通过后,回到保存页面,可以选择保存路径!点击保存完成!
转载请注明出处51数据库 » 打开加密word WORD文档加密后如何打开