用VB编写查看MDB文件密码的程序用VB编写查看MDB文件密码的程序
杨杰
2001年 11期
凡是使用 ACCESS 的人都知道,为了保护自己的数据不被别人偷看,可以给自己的MDB
数据库文件设置密码,方法是选取“工具/安全/设置数据库密码” 菜单,然后输入密码;以后每次打开数据库文件时,系统就会首先要求输入密码,只有输入正确才被允许访问数据库。
(^11020504a^)
但是有些时候会把自己设置的密码遗失或忘记,这时就需要有一种方法来查看 MDB
文件的密码。在这里,我用 VB 编写了一段小程序,该程序代码如下:
Option Explici...
用VB编写查看MDB文件密码的程序
杨杰
2001年 11期
凡是使用 ACCESS 的人都知道,为了保护自己的数据不被别人偷看,可以给自己的MDB
数据库文件设置密码,
是选取“工具/安全/设置数据库密码” 菜单,然后输入密码;以后每次打开数据库文件时,系统就会首先
输入密码,只有输入正确才被允许访问数据库。
(^11020504a^)
但是有些时候会把自己设置的密码遗失或忘记,这时就需要有一种方法来查看 MDB
文件的密码。在这里,我用 VB 编写了一段小程序,该程序代码如下:
Option Explicit
Private Sub cmd_Click
On Error GoTo PROC
Dim strbytes(13) As Byte '该数组存放从文件中取出的经过加密的密码
Dim strfile As String '该变量存放MDB文件路径以及文件名
Dim strpw As String '该变量存放经还原后的密码
'选择要查看密码的MDB文件
With cdg
.CancelError = True
.Filter =“*.mdb|*.mdb”
.ShowOpen
strfile = .FileName
End With
If Dir(strfile) <> “” Then
txt(0) = Trim(strfile)
Open Trim(strfile) For Binary Access _
Read As #1' 以读取字节流的方式打开件
Get #1, 67, strbytes '从文件位置“67” 处读取字节流
Close #1 ' 关闭文件
strpw = “”
If ((strbytes(0) Xor 134) = 0) Then
strpw = “该数据库没有密码”
Else
' 以下这段代码用来还原密码
' 即数组中每个字节和一个相应的数值(16进制)做“异或” 运算
strpw = strpw & Chr$(strbytes(0) Xor &H86)
strpw = strpw & Chr$(strbytes(1) Xor &HFB)
strpw = strpw & Chr$(strbytes(2) Xor &HEC)
strpw = strpw & Chr$(strbytes(3) Xor &H37)
strpw = strpw & Chr$(strbytes(4) Xor &H5D)
strpw = strpw & Chr$(strbytes(5) Xor &H44)
strpw = strpw & Chr$(strbytes(6) Xor &H9C)
strpw = strpw & Chr$(strbytes(7) Xor &HFA)
strpw = strpw & Chr$(strbytes(8) Xor &HC6)
strpw = strpw & Chr$(strbytes(9) Xor &H5E)
strpw = strpw & Chr$(strbytes(10) Xor &H28)
strpw = strpw & Chr$(strbytes(11) Xor &HE6)
strpw = strpw & Chr$(strbytes(12) Xor &H13)
End If
txt(1) = strpw ' 输出密码
End If
Exit Sub
PROC
End Sub
程序简介:
该程序包含一个窗体frm_mdbpassword;
该窗体包含:一个CommandButton控件cmd选择MDB文件并输出密码;
一个Image控件Image1;
一个CommonDialog控件cdg显示文件打开选择对话框;
两个Label控件,lbl(0)和lbl(1);
两个TextBox控件,txt(0)显示MDB文件路径和文件名称;txt(1)显示该MDB
文件的密码。
注:该程序在中文WIN98中文Visual Basic 6.0中调试通过。
本文档为【用VB编写查看MDB文件密码的程序】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。