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 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。