破解ACCESS数据库密码

姜卫冬 · 2001年第21期

我们在使用Access数据库时，有时忘记了密码，怎么办？网上的解密器不少，但我们要去找这样的解密器也很费时，如果你对程序的编写有一点基础，那么，让我们动手做一个专用解密器吧。
　　 原理：首先，我们要了解Access数据库的加密方法。Access数据库的有效密码为13位，在不加密时，数据库的第67至79位为一固定的字符串，每位的ASCII码值分别为86，FB，EC，37，5D，44，9C，FA，C6，5E，28，E6，13。加密时，分别用密码的每一位与67至79位的字符的ASCII码值进行异或运算，得到的一个新字符串，将它写回67至79位。
　　 知道了加密方法，解密就比较容易了。将67至79位的字符的ASCII码值分别与“86，FB，EC，37，5D，44，9C，FA，C6，5E，28，E6，13”进行异或运算，即可得到密码。
　　 下面我们用VB编个小程序，来实现Access数据库的解密。请在窗体上放置一个通用对话框控件Commondialog1，其Firlter属性设为“Access数据库文件*.mdb”；文本框控件Text1，命令控件Command1，其Caption属性设为“取得密码”。代码如下：
　　 Option Explicit
　　 Private Sub Command1_Click
　　 Dim password As String
　　 Dim temp As Byte
　　 Dim source（12） As Byte
　　 Dim i As Integer
　　 source（0） = &H86
　　 source（1） = &HFB
　　 source（2） = &HEC
　　 source（3） = &H37
　　 source（4） = &H5D
　　 source（5） = &H44
　　 source（6） = &H9C
　　 source（7） = &HFA
　　 source（8） = &HC6
　　 source（9） = &H5E
　　 source（10） = &H28
　　 source（11） = &HE6
　　 source（12） = &H13
　　 CommonDialog1.ShowOpen
　　 If CommonDialog1.FileName = "" Then Exit Sub
　　 Open CommonDialog1.FileName For Binary As #1
　　 For i = 0 To 12
　　 Get #1，67 + i，temp
　　 If temp = source（i）
　　 Then Exit For
　　 password = password & Chr（（temp Xor source（i）））
　　 Next
　　 Close #1
　　 If Len（password）= 0 Then
　　 Text1.Text = "该数据库没有加密！"
　　 Else
　　 Text1.Text = "该数据库的密码为：" + password
　　 End If
　　 End Sub