加密ACCESS数据库增加安全性

• 下面的过程不会提示不认识数据库,只是会提示密码错误,任何读取密码的软件都不能读出正确的密码
  
  {-----------------------------------------------------------------------------
  Procedure: LockupFile
  Author: ysai
  Date: 2003-6-25
  Arguments: FileName:string;Lock:boolean=true
  Result: integer
  -----------------------------------------------------------------------------}
  function LockupFile(FileName:string;Lock:boolean=true):integer;
  //加密、解密数据库,针对 Access 2000
  var
  f:File;
  bf:array[0..63] of Byte;
  i:integer;
  const
  fpos=64;
  flen=64;
  //下面改为自己的密钥,我是用随机生成的,请改为自己的密钥
  pw:array[0..63] of byte=
  ($97,$A0,$0C,$A1,$06,$59,$0A,$6D,
  $91,$33,$51,$57,$D4,$A3,$94,$16,
  $3D,$B2,$C7,$A0,$7C,$A3,$30,$EE,
  $34,$D6,$C1,$FF,$F7,$EC,$A5,$1F,
  $71,$2C,$19,$69,$E3,$25,$7D,$8B,
  $D3,$95,$AB,$C9,$02,$8A,$87,$44,
  $9F,$C7,$D7,$7D,$BA,$69,$56,$15,
  $FB,$CB,$03,$D6,$94,$A6,$BF,$F7);
  begin
  result:=-1;
  if not FileExists(FileName) then exit;
  try
  AssignFile(f,Filename);
  Reset(f,1);
  Seek(f,fpos);
  BlockRead(f,bf,flen);
  //下面的代码是判断是否被加密,你可以用二进制编辑器打开MDB文件对比,
  //我是用第64,65字节作为是否加密的标记,未加密与版本相关,加密后与版本和密钥相关
  if lock and (bf[0]=$2B) and (bf[1]=$EE)
  or not lock and (bf[0]=$BC) and (bf[1]=$4E)
  or not ((bf[0]=$2B) and (bf[1]=$EE))
  and not ((bf[0]=$BC) and (bf[1]=$4E)) then
  begin
  result:=0;
  exit;
  end;
  for i:=0 to flen-1 do
  bf[i]:=bf[i] xor pw[i mod 64];
  Seek(f,fpos);
  BlockWrite(f,bf,flen);
  result:=1;
  finally
  CloseFile(f);
  end;
  end;
  
  以ADO为例,把ADOConnection.Mode设为cmShareExclusive就可以以独占方式打开数据库,
  任何除你程序之外的程序都不能访问数据库文件,复制也不行,但是用户用任务管理器强行
  结束你的程序可以让你没加密就退出,如果要更安全,就要写另一个程序和你的主程序来互
  相监视,监视程序如果能访问数据库则马上给它加密.主程序也要保证监视程序的运行.
  
  PS:ACCESS几乎无安全性可言,网上随便找个工具就可以解开密码,连以前认为比较安全的工作组加密方式都可以破解了.

  [1] [2] 下一页 

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 加密ACCESS数据库增加安全性 相关文章：
• ·防止网页被盗用　网页加密完全攻略
• ·诺顿杀毒软件正式版用户找回密码的方法
• ·挑战可靠性 6款文件加密软件残酷测试
• ·Vista帐户密码重设秘技大披露
• ·加密视频光盘轻松刻录教你做
• ·攻破Windows系统加密保护之EFS解密
• ·搜索引擎关键词作弊方法揭密
• ·无线键盘可被监听 解密可获取输入数据
• ·攻破Windows EPS加密之双刃剑
• ·探密Vista的EFS加密功能（下）
• 加密ACCESS数据库增加安全性 相关软件
• ·《绝密飞行》V2.8 试玩
• ·《绝密反击》
• ·《微笑娃娃》解密试玩
• ·一连串离奇死亡的惊人秘密：天眼(完全重写版)
• ·数字密码
• ·解密血腥惊悚的另类职业：《我是法医》
• ·《硫磺密杀》
• ·海上之旅离奇杀人事件 漂流密室
• ·越狱秘密潜入
• ·《蒸气军团》冒险解密试玩

上一篇:使用TCP/IP协议实现聊天程序

下一篇:在Delphi中控制扫描仪

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐