AD商业广告自由选择
AD商业广告自由选择

Delphi对Access文件加密

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


声明:本文系互联网搜索而收集整理,不以盈利性为目的,文字、图文资料源于互联网且共享于互联网。
如有侵权,请联系 yao4fvip#qq.com (#改@) 删除。