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

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

时间：2005-04-05 10:35 来源：未知作者：未知阅读：次

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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：在Access中使用“存储过程”(二)
下一篇：Exchange 2000 Outlook Web Access疑难解答