首页 >> 读书频道 >> 电脑 >> ACCESS加密
 
· 异构数据库之间的导入导出
· JScript 方法
· DELPHI中操作ACC
· 两个未公开的ACCESS
· 一个ACCESS数据库数
· Access 2002的
· access中数据表的自
· OrdinalPosit
· 判断一个字段是否在表中的
· ScriptEngine
· ScriptEngine
· Access数据有效性检
 
· 红楼梦:120回全本[清
· 常见图像文件格式详解
· 拉封丹寓言
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

ACCESS加密


查看有无更新版本

关键字:ACCESS 2006-9-21

 

下面的过程不会提示不认识数据库,只是会提示密码错误,任何读取密码的软件都不能读出正确的密码

{-----------------------------------------------------------------------------
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:=bf xor pw[i mod 64];
  Seek(f,fpos);
  BlockWrite(f,bf,flen);
  result:=1;
finally
  CloseFile(f);
end;
end; 

以ADO为例,把ADOConnection.Mode设为cmShareExclusive就可以以独占方式打开数据库,
任何除你程序之外的程序都不能访问数据库文件,复制也不行,但是用户用任务管理器强行
结束你的程序可以让你没加密就退出,如果要更安全,就要写另一个程序和你的主程序来互
相监视,监视程序如果能访问数据库则马上给它加密.主程序也要保证监视程序的运行.

ACCESS加密

[ 1 ]
ACCESS加密 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑