破解access密码

破解Access数据库密码

就是这样 于 2004年 08月03日 发表

2003-11-23 17:39:28      阅读687次

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