| 我们在使用Ａｃｃｅｓｓ数据库时，有时忘记了密码，怎么办？网上的解密器不少，但我们要去找这样的解密器也很费时，如果你对程序的编写有一点基础，那么，让我们动手做一个专用解密器吧。 原理：首先，我们要了解Ａｃｃｅｓｓ数据库的加密方法。Ａｃｃｅｓｓ数据库的有效密码为１３位，在不加密时，数据库的第６７至７９位为一固定的字符串，每位的ＡＳＣＩＩ码值分别为８６，ＦＢ?ＥＣ?３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３。加密时，分别用密码的每一位与６７至７９位的字符的ＡＳＣＩＩ码值进行异或运算，得到的一个新字符串，将它写回６７至７９位。 知道了加密方法，解密就比较容易了。将６７至７９位的字符的ＡＳＣＩＩ码值分别与“８６，ＦＢ，ＥＣ，３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３”进行异或运算，即可得到密码。 下面我们用ＶＢ编个小程序，来实现Ａｃｃｅｓｓ数据库的解密。请在窗体上放置一个通用对话框控件Ｃｏｍｍｏｎｄｉａｌｏｇ１，其Ｆｉｒｌｔｅｒ属性设为“Ａｃｃｅｓｓ数据库文件?．ｍｄｂ”；文本框控件Ｔｅｘｔ１，命令控件Ｃｏｍｍａｎｄ１，其Ｃａｐｔｉｏｎ属性设为“取得密码”。代码如下： Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ?? Ｄｉｍ ｐａｓｓｗｏｒｄ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｔｅｍｐ Ａｓ Ｂｙｔｅ Ｄｉｍ ｓｏｕｒｃｅ?１２? Ａｓ Ｂｙｔｅ Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ ｓｏｕｒｃｅ?０? ＝ ＆Ｈ８６ ｓｏｕｒｃｅ?１? ＝ ＆ＨＦＢ ｓｏｕｒｃｅ?２? ＝ ＆ＨＥＣ ｓｏｕｒｃｅ?３? ＝ ＆Ｈ３７ ｓｏｕｒｃｅ?４? ＝ ＆Ｈ５Ｄ ｓｏｕｒｃｅ?５? ＝ ＆Ｈ４４ ｓｏｕｒｃｅ?６? ＝ ＆Ｈ９Ｃ ｓｏｕｒｃｅ?７? ＝ ＆ＨＦＡ ｓｏｕｒｃｅ?８? ＝ ＆ＨＣ６ ｓｏｕｒｃｅ?９? ＝ ＆Ｈ５Ｅ ｓｏｕｒｃｅ?１０? ＝ ＆Ｈ２８ ｓｏｕｒｃｅ?１１? ＝ ＆ＨＥ６ ｓｏｕｒｃｅ?１２? ＝ ＆Ｈ１３ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＳｈｏｗＯｐｅｎ Ｉｆ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ ＝ ″″ Ｔｈｅｎ Ｅｘｉｔ Ｓｕｂ Ｏｐｅｎ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ Ｆｏｒ Ｂｉｎａｒｙ Ａｓ ＃１ Ｆｏｒ ｉ ＝ ０ Ｔｏ １２ Ｇｅｔ ＃１? ６７ ＋ ｉ? ｔｅｍｐ Ｉｆ ｔｅｍｐ ＝ ｓｏｕｒｃｅ?ｉ? Ｔｈｅｎ Ｅｘｉｔ Ｆｏｒ ｐａｓｓｗｏｒｄ ＝ ｐａｓｓｗｏｒｄ ＆ Ｃｈｒ??ｔｅｍｐ Ｘｏｒ ｓｏｕｒｃｅ?ｉ??? Ｎｅｘｔ Ｃｌｏｓｅ ＃１ Ｉｆ Ｌｅｎ?ｐａｓｓｗｏｒｄ? ＝ ０ Ｔｈｅｎ Ｔｅｘｔ１．Ｔｅｘｔ ＝ ″该数据库没有加密！″ Ｅｌｓｅ Ｔｅｘｔ１．Ｔｅｘｔ ＝ ″该数据库的密码为：″ ＋ ｐａｓｓｗｏｒｄ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2024-5-6 13:03 , Processed in 0.079084 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
