因为在网上看了一下 破解 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。