怎样用vb开发密码破解器

如何用VB编写破译Word密码的程序？~

如何破解word密码？

word数字密码破解软件下载:http://yxm02.go.nease.net/xz/zzrj/Wordpass.exe

工作繁忙难免产生意外，比如对重要的Word文档加密之后却把密码忘得一干二净，这几乎会发生在每个人的身上。这时你可能会焦急万分，不过我劝你不要太紧张，有空来程序谷坐坐，一定会有好的答案的。下面我们就来看看用穷举法暴力破解Word密码的程序，当然，为了简单起见，程序只针对密码是数字的情况做了处理，字符型的密码与此类似，不再多说了。

一、引言

大家都知道，Office家族跟VB有千丝万缕的联系，Microsoft Office组件中的所有应用程序都内建有VBA，这样就可以通过VB或VBA操作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属性分别设置成“文件打开”、“系统退出”。以上就把各控件的属性设置完了，接着编写代码也就不是什么难事儿了。

下面就是全部的源程序，适当的注释有助于大家理解程序。你还可以通过设置断点来跟踪密码生成部分，看看程序编制的原理。

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

该程序在Win98/NT＋VB6.0环境下测试通过，笔者随便试了一个5位数密码，在PⅡ300、128MB内存的机器上，10分钟左右即可解开。当然，程序并不十分完善，比如还可以加入解密过程中的中断，以及中断后解密进度的保存等，有兴趣的读者可以自己加以完善。

破解密码需要有针对性。
如：银行卡密码本身是6位的数字。只需要0~9数字范围的循环嵌套即可解决。而其他不定长的账号密码，则还需先在求解过程中多加一些操作。但个人觉得本身这个行为不道德，若是自己的密码都有密码保护维护您的利益。作为在学习的过程中自娱自乐下的鼓励还是可以。但尺度需要自己把握，学开锁的未必都是锁匠。不知您的VB知识达到什么状态，若十分感兴趣，可以进一步详细学习探讨，祝学有所成！

那要看具体是那个系统了
具体要做的话就几种原理
1.如果网络数据没加密 则拦截网络登录信息取得登录数据包格式 然后按照此格式发送数据包爆力破解
2.如果网络数据加密 则第一种方法行不通 则获取输入用户名密码的输入框句柄 然后SetWindowText填上要暴力破解的用户名密码 然后模拟按键或模拟鼠标提交破解

不知道你的系统适合那种

网上搜一下好象有

---

贡觉县19714733294： VB编写破解密码软件？
丁秒复方： 实现思路告诉你吧.网上下一下密码字典,生成密码.然后,vb建个工程将txt弱口令密码逐一输入你需要输入的地方.用SENDKEY一般是不行的了.我以前做过,也就是个私服的扫号器

贡觉县19714733294： 怎样用vb编写密码破译器 - ？
丁秒复方： 破解密码需要有针对性.如:银行卡密码本身是6位的数字.只需要0~9数字范围的循环嵌套即可解决.而其他不定长的账号密码,则还需先在求解过程中多加一些操作.但个人觉得本身这个行为不道德,若是自己的密码都有密码保护维护您的利益.作为在学习的过程中自娱自乐下的鼓励还是可以.但尺度需要自己把握,学开锁的未必都是锁匠.不知您的VB知识达到什么状态,若十分感兴趣,可以进一步详细学习探讨,祝学有所成!

贡觉县19714733294： 如何用VB6.0设计一个密码器？
丁秒复方： 将VB程序做成软件启动的标志,把软件启动的标志改成不容易识别的图标; 这样就可以用VB来验证和改密码;之后调用软件启动的标志就可以了 ``````````````````````````````````````````````````````````` 你用一个txt来保存修改的密码或读取核对密码;每次修改了的密码再写入文本就可以了~

贡觉县19714733294： 我要用VB做一个密码生成器 - ？
丁秒复方： 不知道你是不 是这个意思 举个例子,在窗体上放个命令按钮command1和一个文本框Text1,添加以下代码 Private Sub Command1_Click() Dim i As Integer If Len(Text1.Text) <> 0 Then For i = 1 To Len(Text1.Text) Print Mid(Text1.Text, i, 1) '提取字符 Next End If End Sub

贡觉县19714733294： 用VB编写“密码校验”程序的设计 - ？
丁秒复方： 完整代码如下,初始化都已经做好啦,添加控件试试吧:Dim NCount As Integer Private Sub Form_Load() '初始化控件信息 Caption = ＂密码校验＂ Label1.Caption = ＂请输入密码:＂ Text1.Text = ＂＂ Label2.ForeColor = &HFF& Label2....

贡觉县19714733294： 高手们 请问一下能用VB语言设计出一款破解电脑开机密码的程序吗? - ？
丁秒复方： 这是更改该用户密码的命令,命令中的“1234”是更改后的新密码,如果键入的...只要你能把这个文件夹下文件复制出来 我就能破解 注意 不是清除 是破解 二...

贡觉县19714733294： 求一个用vb编写账号密码验证程序的代码!急.谢谢 - ？
丁秒复方： 单击Command1后开始运行.(注意大写ABC不等于小写abc)代码如下.---------------------------- Private Sub Command1_Click() a = InputBox(＂账号＂) If a = ＂ABC＂ Then pass:If t = 3 Then End Else p = InputBox(＂密码＂) If p = ＂123＂ Then '这里写登陆系统的代码 Else t = t + 1 GoTo pass End If End If Else End End If End Sub

贡觉县19714733294： 如何用VB编写破译Word密码的程序? - ？
丁秒复方： 如何破解word密码? word数字密码破解软件下载:http://yxm02.go.nease.net/xz/zzrj/Wordpass.exe 工作繁忙难免产生意外,比如对重要的Word文档加密之后却把密码忘得一干二净,这几乎会发生在每个人的身上.这时你可能会焦急万分,不过...

贡觉县19714733294： 关于vb编写的asc解密工具 - ？
丁秒复方： Private Function Encryt(Text As String, Password As String, Optional JiaOrJian As Integer) As String Dim T() As Byte Dim P() As Byte Dim TL As Long Dim PL As Long Dim I As Integer, J As Integer, K As Integer T = Text '把要加密的字符赋值到T ...

贡觉县19714733294： 凯撒密码用VB如何编写程序 - ？
丁秒复方： 这个很简单嘛,用ASC 和 CHR 转换一下嘛 打开Vb,添加2个label控件,2个text控件 1个command按钮 代码如下:Private Function f(ByVal a As String, k As Integer, n As Integer) As String If ((Asc(a) >= 65 And Asc(a) <= 97) Or (Asc(a) >= 97 ...