VB来破解access密码

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

因为在网上看了一下破解access密码的几个vb函数,就拿出来和大家一起分享一下,教大家用vb来编写一个简单的工具吧。

  打开vb,新建一个标准EXE工程,添加3label控件,3text控件,2command控件,做出如图1所示的界面。

  要破解access密码需要用到下面几个函数:GetFileNameFileExistsFileNameGetStrFromBufferGetAccessPwdGetPwdDirectHex2ByteALoGetEncryptStrLoGetKey

因为这些函数都不是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

郑重声明:本文版权包含图片归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们(delete@yzlfxy.com)修改或删除,多谢。

郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。

留言与评论(共有 0 条评论)
昵称:
匿名发表
   
验证码: