【www.guakaob.com--德国移民】
篇一:《如何破译word密码》
word文档忘记密码怎么打开 如果密码是7位数以内的数字,如下操作(关闭所有其他程序,
为了速度):
新建一Word,同时按键盘的Alt和F11,点菜单上的插入,模块,在右边新出来的窗口粘贴一下代码:
Sub test()
Dim i As Long
i = 0
Dim FileName As String
Application.FileDialog(msoFileDialogOpen).Show
FileName =
Application.FileDialog(msoFileDialogOpen).SelectedItems(1) ScreenUpdating = False
Line2: On Error GoTo Line1
Documents.Open FileName, , True, , i & ""
MsgBox "Password is " & i
Application.ScreenUpdating = True
Exit Sub
Line1: i = i + 1
Resume Line2
ScreenUpdating = True
End Sub
然后在此窗口直接按F5运行此宏,出现一打开窗口,选择你待解密的文件,等啊等(看你密码长度了)。
如果有字母,稍微复杂些,道理是一样的。太长的密码,基本解不开了。
Word的密码保护功能比较强,如果一不小心忘了Word密码怎么
办?怎么才能修改加密了的Word文档呢? Word的文档保
护分为打开保护和修改保护,对于前者网上已经有许多比较成熟的办法。比如“三步法”就是一个非常不错的选择。但是对于后者——Word的修改保护,“三步法”就失效了。最近笔者在“三步法”的基础上总结一个比较精巧的办法,只需一个小小改动,就可以解除Word文档的保护。
第一步,将Word文档另存为web页。具体操作是在“文件”菜单下点击“另存为web页”(即:文件——>另存为web页)。 第二步,将刚存好的web文件用“记事本程序”打开。
记事本程序
第三步,在文档中,查找
<w:DocumentProtection></w:DocumentProtection> 套接字,该套接字之间的内容就是Word文档实际保护的内容。我们可以看到,我所解除保护的文件名为《关于进一步加强入境船舶压舱水卫监管的通知》的Word文档,其保护内容是forms(请看下图)。
Word文档
我们只需将语句Forms更改为Forms,即属性
“DocumentProtection”前面加上前缀“un”变为
“unDocumentProtection”,由原来的“文档保护”属性变更为目前的“非文档保护”属性(请看下图)。
非文档保护
将记事本文件保存退出,用Word打开刚才保存的web网页
即可,这个时候你会发现,原来受保护的Word文件,现在已经不受保护,可以任意编辑。
已经不受保护
Word Document Password Recovery
用这软件,秒秒钟搞定
篇二:《WORD文档密码忘记解除方法》
WORD文档密码忘记解除方法
方法一:插入文件法
启动WORD,新建一个空白文档,执行“插入——〉文件”命令,打开“插入文件”对话框,定位到需要解除保护的文档所在的文件夹,选中相应文档,单击“插入”按钮,将加密保护的文档插入到新文档中,文档保护会被自动撤销。
方法二:文件另存法
打开保护的文档,执行“文件——〉另存为”命令,打开“另存为”对话框,将“文件类型”选定为“WORD97—2003&6.0/95—RTF(*.doc)”,然后取名保存,关闭该文档,重新打开一下,执行“工具——〉取消文档保护”命令即可。
或者将文件类型另存为HTML,然后将其中的内容,复制粘贴到新建文档中。
方法三:写字板法
启动写字板,打开保护的WORD文档,另存为WORD文档,同时可以取消对文档的保护。 但此方法可能会使文档中的图片等要素丢失。
篇三:《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属性分别设置成“文件打开”、“系统退出”。以上就把各控件的属性设置完了,接着编写代码也就不是什么难事儿了。word忘记密码怎么打开。
下面就是全部的源程序,适当的注释有助于大家理解程序。你还可以通过设置断点来跟踪密码生成部分,看看程序编制的原理。
Private Sub cmdopendoc_Click()
Dim wd As New Word.Application
Dim strpath As String
Dim pass As Stringword忘记密码怎么打开。word忘记密码怎么打开。
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 = 11word忘记密码怎么打开。
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分钟左右即可解开。当然,程序并不十分完善,比如还可以加入解密过程中的中断,以及中断后解密进度的保存等,有兴趣的读者可以自己加以完善
篇四:《word文档的密码忘了,打不开了,怎么办啊?求救》
1、用简单:篇五:《电脑开机密码忘了怎么办》
我抄来的:上一篇:唐伯虎的经典台词
下一篇:台式机如何设置u盘启动