VB来破解access密码

2008/12/11 来源:www.arpun.com 作者:小白

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

网友评论
评论(...
全部评论