因为在网上看了一下 破解 access 密码 的几个 vb 函数，就拿出来和大家一起分享一下，教大家用 vb 来编写一个简单的工具吧。 打开 vb ，新建一个标准 EXE 工程，添加 3 个 label 控件， 3 个 text 控件， 2 个 command 控件，做出如图 1 所示的界面。 要 破
因为在网上看了一下 破解 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 。