在线急征！！！Access 数据库密码丢失！
本人有一Access 数据库，不慎将密码遗忘，而数据又很重要，请教高手，有什么办法可将数据库打开？ 问题点数：30、回复次数：3Top
1 楼areally（☆鹰—F15）回复于 2003-11-02 14:36:06 得分 0
uoTop
2 楼hxcom（小狗仔）回复于 2003-11-03 14:48:07 得分 30
下面的地址下载试试看！下面的文章也看看！
祝你好运！
因为你的access不同，可能不一定能用起来！
http://www.studa.com/newdown/down.asp?id=1537&no=1
http://www.zzzcn.net/SoftDown.asp?ID=1814
http://www.zzzcn.net/SoftDown.asp?ID=1671
http://www.91now.com/downsky/down.asp?id=2481&no=1
========文章来源于网络===============
破解Ａｃｃｅｓｓ数据库密码
我们在使用Ａｃｃｅｓｓ数据库时，有时忘记了密码，怎么办？网上的解密器不少，但我们要去找这样的解密器也很费时，如果你对程序的编写有一点基础，那么，让我们动手做一个专用解密器吧。
原理：首先，我们要了解Ａｃｃｅｓｓ数据库的加密方法。Ａｃｃｅｓｓ数据库的有效密码为１３位，在不加密时，数据库的第６７至７９位为一固定的字符串，每位的ＡＳＣＩＩ码值分别为８６，ＦＢＥＣ３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３。加密时，分别用密码的每一位与６７至７９位的字符的ＡＳＣＩＩ码值进行异或运算，得到的一个新字符串，将它写回６７至７９位。
知道了加密方法，解密就比较容易了。将６７至７９位的字符的ＡＳＣＩＩ码值分别与“８６，ＦＢ，ＥＣ，３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３”进行异或运算，即可得到密码。
下面我们用ＶＢ编个小程序，来实现Ａｃｃｅｓｓ数据库的解密。请在窗体上放置一个通用对话框控件Ｃｏｍｍｏｎｄｉａｌｏｇ１，其Ｆｉｒｌｔｅｒ属性设为“Ａｃｃｅｓｓ数据库文件．ｍｄｂ”；文本框控件Ｔｅｘｔ１，命令控件Ｃｏｍｍａｎｄ１，其Ｃａｐｔｉｏｎ属性设为“取得密码”。代码如下：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ
Ｄｉｍ ｐａｓｓｗｏｒｄ Ａｓ Ｓｔｒｉｎｇ
Ｄｉｍ ｔｅｍｐ Ａｓ Ｂｙｔｅ
Ｄｉｍ ｓｏｕｒｃｅ１２ Ａｓ Ｂｙｔｅ
Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ
ｓｏｕｒｃｅ０ ＝ ＆Ｈ８６
ｓｏｕｒｃｅ１ ＝ ＆ＨＦＢ
ｓｏｕｒｃｅ２ ＝ ＆ＨＥＣ
ｓｏｕｒｃｅ３ ＝ ＆Ｈ３７
ｓｏｕｒｃｅ４ ＝ ＆Ｈ５Ｄ
ｓｏｕｒｃｅ５ ＝ ＆Ｈ４４
ｓｏｕｒｃｅ６ ＝ ＆Ｈ９Ｃ
ｓｏｕｒｃｅ７ ＝ ＆ＨＦＡ
ｓｏｕｒｃｅ８ ＝ ＆ＨＣ６
ｓｏｕｒｃｅ９ ＝ ＆Ｈ５Ｅ
ｓｏｕｒｃｅ１０ ＝ ＆Ｈ２８
ｓｏｕｒｃｅ１１ ＝ ＆ＨＥ６
ｓｏｕｒｃｅ１２ ＝ ＆Ｈ１３
ＣｏｍｍｏｎＤｉａｌｏｇ１．ＳｈｏｗＯｐｅｎ
Ｉｆ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ ＝ ″″ Ｔｈｅｎ Ｅｘｉｔ Ｓｕｂ
Ｏｐｅｎ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ Ｆｏｒ Ｂｉｎａｒｙ Ａｓ ＃１
Ｆｏｒ ｉ ＝ ０ Ｔｏ １２
Ｇｅｔ ＃１ ６７ ＋ ｉ ｔｅｍｐ
Ｉｆ ｔｅｍｐ ＝ ｓｏｕｒｃｅｉ Ｔｈｅｎ Ｅｘｉｔ Ｆｏｒ
ｐａｓｓｗｏｒｄ ＝ ｐａｓｓｗｏｒｄ ＆ Ｃｈｒｔｅｍｐ Ｘｏｒ ｓｏｕｒｃｅｉ
Ｎｅｘｔ
Ｃｌｏｓｅ ＃１
Ｉｆ Ｌｅｎｐａｓｓｗｏｒｄ ＝ ０ Ｔｈｅｎ
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ″该数据库没有加密！″
Ｅｌｓｅ
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ″该数据库的密码为：″ ＋ ｐａｓｓｗｏｒｄ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Top
3 楼niyh（倪 :-[）回复于 2003-11-03 15:32:09 得分 0
我有一个小程序，可以解密.Top
