用VB编写查看MDB文件密码的程序

用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中调试通过。