破解Ａｃｃｅｓｓ数据库密码

我们在使用Ａｃｃｅｓｓ数据库时，有时忘记了密码，怎么办？网上的解密器不少，但我们要去找这样的解密器也很费时，如果你对程序的编写有一点基础，那么，让我们动手做一个专用解密器吧。
原理：首先，我们要了解Ａｃｃｅｓｓ数据库的加密方法。Ａｃｃｅｓｓ数据库的有效密码为１３位，在不加密时，数据库的第６７至７９位为一固定的字符串，每位的ＡＳＣＩＩ码值分别为８６，ＦＢ?ＥＣ?３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３。加密时，分别用密码的每一位与６７至７９位的字符的ＡＳＣＩＩ码值进行异或运算，得到的一个新字符串，将它写回６７至７９位。
知道了加密方法，解密就比较容易了。将６７至７９位的字符的ＡＳＣＩＩ码值分别与“８６，ＦＢ，ＥＣ，３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３”进行异或运算，即可得到密码。
下面我们用ＶＢ编个小程序，来实现Ａｃｃｅｓｓ数据库的解密。请在窗体上放置一个通用对话框控件Ｃｏｍｍｏｎｄｉａｌｏｇ１，其Ｆｉｒｌｔｅｒ属性设为“Ａｃｃｅｓｓ数据库文件?．ｍｄｂ”；文本框控件Ｔｅｘｔ１，命令控件Ｃｏｍｍａｎｄ１，其Ｃａｐｔｉｏｎ属性设为“取得密码”。代码如下：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ??
Ｄｉｍ ｐａｓｓｗｏｒｄ Ａｓ Ｓｔｒｉｎｇ
Ｄｉｍ ｔｅｍｐ Ａｓ Ｂｙｔｅ
Ｄｉｍ ｓｏｕｒｃｅ?１２? Ａｓ Ｂｙｔｅ
Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ
ｓｏｕｒｃｅ?０? ＝ ＆Ｈ８６
ｓｏｕｒｃｅ?１? ＝ ＆ＨＦＢ
ｓｏｕｒｃｅ?２? ＝ ＆ＨＥＣ
ｓｏｕｒｃｅ?３? ＝ ＆Ｈ３７
ｓｏｕｒｃｅ?４? ＝ ＆Ｈ５Ｄ
ｓｏｕｒｃｅ?５? ＝ ＆Ｈ４４
ｓｏｕｒｃｅ?６? ＝ ＆Ｈ９Ｃ
ｓｏｕｒｃｅ?７? ＝ ＆ＨＦＡ
ｓｏｕｒｃｅ?８? ＝ ＆ＨＣ６
ｓｏｕｒｃｅ?９? ＝ ＆Ｈ５Ｅ
ｓｏｕｒｃｅ?１０? ＝ ＆Ｈ２８
ｓｏｕｒｃｅ?１１? ＝ ＆ＨＥ６
ｓｏｕｒｃｅ?１２? ＝ ＆Ｈ１３
ＣｏｍｍｏｎＤｉａｌｏｇ１．ＳｈｏｗＯｐｅｎ
Ｉｆ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ ＝ ″″ Ｔｈｅｎ Ｅｘｉｔ Ｓｕｂ
Ｏｐｅｎ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ Ｆｏｒ Ｂｉｎａｒｙ Ａｓ ＃１
Ｆｏｒ ｉ ＝ ０ Ｔｏ １２
Ｇｅｔ ＃１? ６７ ＋ ｉ? ｔｅｍｐ
Ｉｆ ｔｅｍｐ ＝ ｓｏｕｒｃｅ?ｉ? Ｔｈｅｎ Ｅｘｉｔ Ｆｏｒ
ｐａｓｓｗｏｒｄ ＝ ｐａｓｓｗｏｒｄ ＆ Ｃｈｒ??ｔｅｍｐ Ｘｏｒ ｓｏｕｒｃｅ?ｉ???
Ｎｅｘｔ
Ｃｌｏｓｅ ＃１
Ｉｆ Ｌｅｎ?ｐａｓｓｗｏｒｄ? ＝ ０ Ｔｈｅｎ
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ″该数据库没有加密！″
Ｅｌｓｅ
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ″该数据库的密码为：″ ＋ ｐａｓｓｗｏｒｄ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ