我们有时在打开一个Access数据库时，往往会发现打开时弹出这样的一个窗口
，这是需要我们输入数据库密码，可密码我们是怎样加上去的呢？
首先打开Access，在菜单栏里点打开，找到你要选择加密的数据库，选中后，在打开按钮右下方选择以独占方式打开，如图：
；这样就可以为该数据库加密了。关于解密：
原理：首先，我们要了解Ａｃｃｅｓｓ数据库的加密方法。Ａｃｃｅｓｓ数据库的有效密码为１３位，在不加密时，数据库的第６７至７９位为一固定的字符串，每位的ＡＳＣＩＩ码值分别为８６，ＦＢＥＣ３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３。加密时，分别用密码的每一位与６７至７９位的字符的ＡＳＣＩＩ码值进行异或运算，得到的一个新字符串，将它写回６７至７９位。
知道了加密方法，解密就比较容易了。将６７至７９位的字符的ＡＳＣＩＩ码值分别与“８６，ＦＢ，ＥＣ，３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３”进行异或运算，即可得到密码。
下面我们用ＶＢ编个小程序，来实现Ａｃｃｅｓｓ数据库的解密。请在窗体上放置一个通用对话框控件Ｃｏｍｍｏｎｄｉａｌｏｇ１，其Ｆｉｒｌｔｅｒ属性设为“Ａｃｃｅｓｓ数据库文件．ｍｄｂ”；文本框控件Ｔｅｘｔ１，命令控件Ｃｏｍｍａｎｄ１，其Ｃａｐｔｉｏｎ属性设为“取得密码”。代码如下：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ
Ｄｉｍ ｐａｓｓｗｏｒｄ Ａｓ Ｓｔｒｉｎｇ
Ｄｉｍ ｔｅｍｐ Ａｓ Ｂｙｔｅ
Ｄｉｍ ｓｏｕｒｃｅ１２ Ａｓ Ｂｙｔｅ
Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ
ｓｏｕｒｃｅ０ ＝ ＆Ｈ８６
ｓｏｕｒｃｅ１ ＝ ＆ＨＦＢ
ｓｏｕｒｃｅ２ ＝ ＆ＨＥＣ
ｓｏｕｒｃｅ３ ＝ ＆Ｈ３７
ｓｏｕｒｃｅ４ ＝ ＆Ｈ５Ｄ
ｓｏｕｒｃｅ５ ＝ ＆Ｈ４４
ｓｏｕｒｃｅ６ ＝ ＆Ｈ９Ｃ
ｓｏｕｒｃｅ７ ＝ ＆ＨＦＡ
ｓｏｕｒｃｅ８ ＝ ＆ＨＣ６
ｓｏｕｒｃｅ９ ＝ ＆Ｈ５Ｅ
ｓｏｕｒｃｅ１０ ＝ ＆Ｈ２８
ｓｏｕｒｃｅ１１ ＝ ＆ＨＥ６
ｓｏｕｒｃｅ１２ ＝ ＆Ｈ１３
ＣｏｍｍｏｎＤｉａｌｏｇ１．ＳｈｏｗＯｐｅｎ
Ｉｆ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ ＝ ″″ Ｔｈｅｎ Ｅｘｉｔ Ｓｕｂ
Ｏｐｅｎ ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ Ｆｏｒ Ｂｉｎａｒｙ Ａｓ ＃１
Ｆｏｒ ｉ ＝ ０ Ｔｏ １２
Ｇｅｔ ＃１ ６７ ＋ ｉ ｔｅｍｐ
Ｉｆ ｔｅｍｐ ＝ ｓｏｕｒｃｅｉ Ｔｈｅｎ Ｅｘｉｔ Ｆｏｒ
ｐａｓｓｗｏｒｄ ＝ ｐａｓｓｗｏｒｄ ＆ Ｃｈｒｔｅｍｐ Ｘｏｒ ｓｏｕｒｃｅｉ
Ｎｅｘｔ
Ｃｌｏｓｅ ＃１
Ｉｆ Ｌｅｎｐａｓｓｗｏｒｄ ＝ ０ Ｔｈｅｎ
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ″该数据库没有加密！″
Ｅｌｓｅ
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ″该数据库的密码为：″ ＋ ｐａｓｓｗｏｒｄ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ。
好了，关于解密上面的原理我们根本不用过多了解，如果单纯为了解密的话，一个小工具就可以轻松搞定。
点击下载 AccessPassView_v1.12.exe
=======================================================================