VB来破解access密码
因为在网上看了一下破解access密码的几个vb函数，就拿出来和大家一起分享一下，教大家用vb来编写一个简单的工具吧。打开vb，新建一个标准EXE工程，添加3个label控件，3个text控件，2个command控件，做出如图1所示的界面。
要破解access的密码需要用到下面几个函数：GetFileName，FileExists，FileName，GetStrFromBuffer，GetAccessPwd，GetPwdDirect，Hex2ByteA，LoGetEncryptStr，LoGetKey。
因为这些函数都不是Windows API函数，所以需要我们进行自定义。点击“工程”，添加一个模块，如图2，
把函数定义写进去，由于代码过长，我就不一一例举了。
接下来大家请看窗体部分的代码：
Private Sub path_Click()
Text1.Text = GetFileName(True)
End Sub
Private Sub pass_Click()
Dim sFileAs String
Dim sPasswd As String
Dim sVersion As String
sFile = Text1.Text
sPasswd = GetAccessPwd(sFile, sVersion, True)
If gbExit Then Exit Sub
Text2.Text = sVersion
Text3.Text = sPasswd
End Sub
当点击“选择路径”时，就会调用GetFileName函数来取得目标数据库的路径，然后赋值给Text1。当点击“破解密码”时，则调用GetAccessPwd函数来取得数据库的密码，把数据库的版本号传到Text2，把密码传给Text3。
现在，这个小东西已经弄好了，我们来生成EXE文件看看它的效果吧，如图3。
补充：软件开发 , Vb ,
