怎样用vb开发密码破解器
如何破解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填上要暴力破解的用户名密码 然后模拟按键或模拟鼠标提交破解
不知道你的系统适合那种
网上搜一下好象有
用vb编写的软件,登录密码忘记了怎么破解?
基本上就是备份好vb软件以及vb软件生成的数据文件,接着就可以修改密码,登录密码一般仍应保存在存储器中,如果密码以文件保存时可以以文件形式替换密码文件,这样密码就变成了替换的新密码。如果有程序的文件,一般还可以绕开密码比较,此时用任意密码仍可以登录,还有一种密码穷举法对密码进行猜测穷举,在不...
vb 暴力破解密码程序的过程?
将第二个标签Caption属性设置成“解密进度”,将第三个标签Caption属性设置成“请选择破译密码位数”;将第二个文本框的Text属性设置成“4”,这是缺省密码位数;将微调按钮的 BuddyControl属性设置成Text2就能和第二个文本框关联,BuddyProperty 改成Text,Max、Min属性分别设置成“8”和“1”,表示最长...
用什么软件破解用VB6.0编写的**.EXE文件
首先试试简单方法,许多对这种灰色的菜单,是在初始化的时候设置为灰色,等密码输入正确以后,设置为可用。你可以试试看EXESCOPE这样的软件,这个软件可以修改EXE文件里面的菜单、对话框的内容,特别是可以改变某菜单项目的可用不可用。如果别人的程序不是那么笨,比如程序运行后定时检测是否曾经输入过正确的密...
用VB编程:写一个破解密码的程序
dim mima as long' 密码 do until x = mima x = x + 1 loop msgbox x' 显示出密码
请问如何用VB编密码输入程序?
1、生成一个键盘的界面,要随机排放按键的位置(模拟QQ)2、一个复制按钮 3、一个文本框 4、一个Timer控件 程序执行步骤:1、启动程序时生成随即键盘 2、用鼠标点击要输入的密码(此时文本框显示密码,要用*号)3、点击复制按钮,将密码复制,同时启动Timer控件 4、将密码复制到要输入的地方 5、5秒...
用VB编写好的文件的加密与解密软件,谢谢各位大侠!最好是有源代码.谢谢...
If j >= password_len Then ’循环使用密码 j = 0 Else j = j + 1 End If addbuff(i)= databuff(i)Xor password(j)’进行异或运算 Next Open filename For Binary As #1 ’把加密后的内容写入文件 Put #1,,addbuff Close #1 Text1 = StrConv(addbuff vbUnicode)’显示加密后...
vbaproject密码破解
可能是这个宏使用了附加控件,或引用,你在复制时可将包含这个文件的文件夹全部自制过去试试,如果不行,就调VB编辑器,通过“工具”—“附加控件”,看宏使用了哪些附加控件,然后现通过Windows查找,找到所附加的控件,一同复制到新机子上。注册一下就可用了 如果宏加了密码。不能查看宏。请用下面的...
怎么用VB编写一个破译三位密码的软件
dim a dim b dim c a=left(text1.text,1)c=right(text1.text,1)b=right(left(text1.text,2))i=97 do while i<=122 if a=chr(i) then label1.caption=chr(i)elseif b=chr(i) then label2.caption=b elseif c=chr(i) then label3.caption=c loop exit do end if ...
请问用VB做终极密码的小游戏,程序该怎么写?。。。急
Private Sub Command1_Click()i = Text1.Text i = i + 1: i = i - 2: i = i * 3: i = i \/ 4 End Sub Private Sub Command2_Click()i = Text2.Text i = i * 4: i = i \/ 3: i = i + 2: i = i - 1 End Sub '依次是加密和解密 ...
用vb写一个账号密码生成器,账号密码的形式都是汉语拼音加数字?谢谢...
'获取密码长度 8-12位 nPswLen = Fix(Rnd * 5 + 8) '5=12-8+1 '第一位确保是字母 N = Fix(Rnd * 26 + 1) '26指 mDic 的前26位 strResult = Mid(mDic, N, 1)'生成其他位 For i = 0 To nPswLen - 2 N = Rnd * 36 + 1 strResult = strResult & Mid(mDic, N, ...
丁秒复方: 实现思路告诉你吧.网上下一下密码字典,生成密码.然后,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 ...