凡是使用 ACCESS 的人都知道，为了保护自己的数据不被别人偷看，可以给自己的MDB数据库文件设置密码，方法是选取“工具/安全/设置数据库密码” 菜单，然后输入密码；以后每次打开数据库文件时，系统就会首先要求输入密码，只有输入正确才被允许访问数据库。(
)
但是有些时候会把自己设置的密码遗失或忘记，这时就需要有一种方法来查看 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中调试通过。