开发手记（四）――运用VB实战破解ACCESS密码

ACCESS与EXCEL都是OFFICE套件产品，但他们的加密方式完全不同。EXCEL利用的是DES加密技术，而ACCESS只是简单运用异或运算修改头文件中的若干位来达到加密的目的。
       异或运算特性：一数经两次异或可以回到原值，特性举例：(A)XOR(B)=(C)同时(C)XOR(B)=(A)，同理可以推出(C)XOR(A)=(B)。A代表ACCESS头文件中的若干位，B代表用户密码，C为经过加密的头文件的若干位的值。我们可以用ultraedit或VC以二进制方式打开原始ACCESS，记录下相关头文件的值，再打开加密后的ACCESS记录下相关头文件的值，两者再异或结果就是ACCESS的密码了。明白了原理后破解ACCESS的密码就很容易了。ACCESS在不同的版本中它的加密位也是不同的：ACCESS97的最大密码长度为13位，加密位是从头文件的67位开始至79位结束，未加密的这13位十六进制值为"８６，ＦＢ，ＥＣ，３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３"；ACCESS2000的最大密码长度为20位，加密位也是从头文件的67位开始至106位结束，未加密的这40位十六进制值为“20 6D EC 37 FB D2 9C FA 60 C8 28 E6 B5 20 8A 60 F2 02 7B 36 53 E4 DF B1 D1 62 13 43 69 39 B1 33 92 F7 79 5B 34 23 7C 2A ”,ACCESS2000采用的是40位中的低字节，如前两位二进制值为'20 7D’，那么它的加密位为'20’位。
　　解密最直接的方法是用原始头文件的相关位覆盖加密文件的相关位；也可以得用国外有名的免费软件ACCKEY，它只有361KB；但我们更愿意自己编写一个破解程序达到目的，这样更有成就感。
'＊＊＊＊＊ShowPassWord.vbp----破解ACCESS密码＊＊＊＊＊
'************（c）mi6236,2005,vb6.0  win2k*************
Option Explicit
Private Sub ShowPassWord_Click()
      Dim password As String
      Dim temp As Byte
      Dim source97(12) As Byte