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

Author: 杨杰 Date: 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中调试通过。
　　
　　