因为在网上看了一下破解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 SubPrivate Sub pass_Click()Dim sFileAs StringDim sPasswd As StringDim sVersion As StringsFile = Text1.TextsPasswd = GetAccessPwd(sFile, sVersion, True)If gbExit Then Exit SubText2.Text = sVersionText3.Text = sPasswdEnd Sub当点击“选择路径”时， 就会调用GetFileName函数来取得目标数据库的路径， 然后赋值给Text1。 当点击“破解密码”时， 则调用GetAccessPwd函数来取得数据库的密码， 把数据库的版本号传到Text2， 把密码传给Text3。 现在， 这个小东西已经弄好了， 我们来生成EXE文件看看它的效果吧， 如图3。
……