依星源码资源网,依星资源网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

【好消息,好消息,好消息】VIP会员可以发表文章赚积分啦 !
查看: 166|回复: 0

Delphi对Access文件加密

[复制链接] 主动推送

1万

主题

1万

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
14786
发表于 2025-3-17 23:17:26 | 显示全部楼层 |阅读模式
Delphi对Access文件加密
下面的过程不会提示不认识数据库,只是会提示密码错误,任何读取密码的软件都不能读出正确的密码
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就可以以独占方式打开数据库,
任何除你程序之外的程序都不能访问数据库文件,复制也不行,但是用户用任务管理器强行
结束你的程序可以让你没加密就退出,如果要更安全,就要写另一个程序和你的主程序来互
相监视,监视程序如果能访问数据库则马上给它加密.主程序也要保证监视程序的运行.

相关帖子

扫码关注微信公众号,及时获取最新资源信息!下载附件优惠VIP会员6折;永久VIP4折
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

免责声明:
1、本站提供的所有资源仅供参考学习使用,版权归原著所有,禁止下载本站资源参与商业和非法行为,请在24小时之内自行删除!
2、本站所有内容均由互联网收集整理、网友上传,并且以计算机技术研究交流为目的,仅供大家参考、学习,请勿任何商业目的与商业用途。
3、若您需要商业运营或用于其他商业活动,请您购买正版授权并合法使用。
4、论坛的所有内容都不保证其准确性,完整性,有效性,由于源码具有复制性,一经售出,概不退换。阅读本站内容因误导等因素而造成的损失本站不承担连带责任。
5、用户使用本网站必须遵守适用的法律法规,对于用户违法使用本站非法运营而引起的一切责任,由用户自行承担
6、本站所有资源来自互联网转载,版权归原著所有,用户访问和使用本站的条件是必须接受本站“免责声明”,如果不遵守,请勿访问或使用本网站
7、本站使用者因为违反本声明的规定而触犯中华人民共和国法律的,一切后果自己负责,本站不承担任何责任。
8、凡以任何方式登陆本网站或直接、间接使用本网站资料者,视为自愿接受本网站声明的约束。
9、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则:为了学习和研究软件内含的设计思想和原理,通过安装、显示、传输或者存储软件等方式使用软件的,可以不经软件著作权人许可,不向其支付报酬。若有学员需要商用本站资源,请务必联系版权方购买正版授权!
10、本网站如无意中侵犯了某个企业或个人的知识产权,请来信【站长信箱312337667@qq.com】告之,本站将立即删除。
郑重声明:
本站所有资源仅供用户本地电脑学习源代码的内含设计思想和原理,禁止任何其他用途!
本站所有资源、教程来自互联网转载,仅供学习交流,不得商业运营资源,不确保资源完整性,图片和资源仅供参考,不提供任何技术服务。
本站资源仅供本地编辑研究学习参考,禁止未经资源商正版授权参与任何商业行为,违法行为!如需商业请购买各资源商正版授权
本站仅收集资源,提供用户自学研究使用,本站不存在私自接受协助用户架设游戏或资源,非法运营资源行为。
 
在线客服
点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
售前咨询热线
312337667

微信扫一扫,私享最新原创实用干货

QQ|免责声明|小黑屋|依星资源网 ( 鲁ICP备2021043233号-3 )|网站地图

GMT+8, 2025-4-3 09:51

Powered by Net188.com X3.4

邮箱:312337667@qq.com 客服QQ:312337667(工作时间:9:00~21:00)

快速回复 返回顶部 返回列表