Access資料庫的加密與解密

關於加密：
我們有時在開啟一個Access資料庫時，往往會發現開啟時彈出這樣的一個視窗
，這是需要我們輸入資料庫密碼，可密碼我們是怎樣加上去的呢？

首先開啟Access，在功能表列裡點開啟，找到你要選擇加密的資料庫，選中後，在開啟按鈕右下方選擇以獨佔方式開啟，
；這樣就可以為該資料庫加密了。

關於解密：
原理：首先，我們要瞭解Ａｃｃｅｓｓ資料庫的加密方法。Ａｃｃｅｓｓ資料庫的有效密碼為１３位，在不加密時，資料庫的第６７至７９位為一固定的字串，每位的ＡＳＣＩＩ碼值分別為８６，ＦＢＥＣ３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３。加密時，分別用密碼的每一位與６７至７９位的字元的ＡＳＣＩＩ碼值進行異或運算，得到的一個新字串，將它寫回６７至７９位。    
  知道了加密方法，解密就比較容易了。將６７至７９位的字元的ＡＳＣＩＩ碼值分別與“８６，ＦＢ，ＥＣ，３７，５Ｄ，４４，９Ｃ，ＦＡ，Ｃ６，５Ｅ，２８，Ｅ６，１３”進行異或運算，即可得到密碼。    
  下面我們用ＶＢ編個小程式，來實現Ａｃｃｅｓｓ資料庫的解密。請在表單上放置一個通用對話方塊控制項Ｃｏｍｍｏｎｄｉａｌｏｇ１，其Ｆｉｒｌｔｅｒ屬性設為“Ａｃｃｅｓｓ資料庫檔案．ｍｄｂ”；文字框控制項Ｔｅｘｔ１，命令控制項Ｃｏｍｍａｎｄ１，其Ｃａｐｔｉｏｎ屬性設為“取得密碼”。代碼如下：     
  Ｏｐｔｉｏｎ   Ｅｘｐｌｉｃｉｔ    

  Ｐｒｉｖａｔｅ   Ｓｕｂ   Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ    

  Ｄｉｍ   ｐａｓｓｗｏｒｄ   Ａｓ   Ｓｔｒｉｎｇ    

  Ｄｉｍ   ｔｅｍｐ   Ａｓ   Ｂｙｔｅ    

  Ｄｉｍ   ｓｏｕｒｃｅ１２   Ａｓ   Ｂｙｔｅ    

  Ｄｉｍ   ｉ   Ａｓ   Ｉｎｔｅｇｅｒ    

  ｓｏｕｒｃｅ０   ＝   ＆Ｈ８６    

  ｓｏｕｒｃｅ１   ＝   ＆ＨＦＢ    

  ｓｏｕｒｃｅ２   ＝   ＆ＨＥＣ    

  ｓｏｕｒｃｅ３   ＝   ＆Ｈ３７    

  ｓｏｕｒｃｅ４   ＝   ＆Ｈ５Ｄ    

  ｓｏｕｒｃｅ５   ＝   ＆Ｈ４４    

  ｓｏｕｒｃｅ６   ＝   ＆Ｈ９Ｃ    

  ｓｏｕｒｃｅ７   ＝   ＆ＨＦＡ    

  ｓｏｕｒｃｅ８   ＝   ＆ＨＣ６    

  ｓｏｕｒｃｅ９   ＝   ＆Ｈ５Ｅ    

  ｓｏｕｒｃｅ１０   ＝   ＆Ｈ２８    

  ｓｏｕｒｃｅ１１   ＝   ＆ＨＥ６    

  ｓｏｕｒｃｅ１２   ＝   ＆Ｈ１３     

  ＣｏｍｍｏｎＤｉａｌｏｇ１．ＳｈｏｗＯｐｅｎ    

  Ｉｆ   ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ   ＝   ″″   Ｔｈｅｎ   Ｅｘｉｔ   Ｓｕｂ    

  Ｏｐｅｎ   ＣｏｍｍｏｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ   Ｆｏｒ   Ｂｉｎａｒｙ   Ａｓ   ＃１    

  Ｆｏｒ   ｉ   ＝   ０   Ｔｏ   １２    

  Ｇｅｔ   ＃１   ６７   ＋   ｉ   ｔｅｍｐ    

  Ｉｆ   ｔｅｍｐ   ＝   ｓｏｕｒｃｅｉ   Ｔｈｅｎ   Ｅｘｉｔ   Ｆｏｒ    

  ｐａｓｓｗｏｒｄ   ＝   ｐａｓｓｗｏｒｄ   ＆   Ｃｈｒｔｅｍｐ   Ｘｏｒ   ｓｏｕｒｃｅｉ    

  Ｎｅｘｔ    

  Ｃｌｏｓｅ   ＃１    

  Ｉｆ   Ｌｅｎｐａｓｓｗｏｒｄ   ＝   ０   Ｔｈｅｎ    

  Ｔｅｘｔ１．Ｔｅｘｔ   ＝   ″該資料庫沒有加密！″    

  Ｅｌｓｅ    

  Ｔｅｘｔ１．Ｔｅｘｔ   ＝   ″該資料庫的密碼為：″   ＋   ｐａｓｓｗｏｒｄ    

  Ｅｎｄ   Ｉｆ    

  Ｅｎｄ   Ｓｕｂ。  
好了，關於解密上面的原理我們根本不用過多瞭解，如果單純為瞭解密的話，一個小工具就可以輕鬆搞定。
                                                             點擊下載 AccessPassView_v1.12.exe
=======================================================================