加密Access数据库

最新推荐文章于 2023-05-22 17:44:40 发布

yuanyubest

最新推荐文章于 2023-05-22 17:44:40 发布

阅读量578

点赞数

分类专栏： DELPHI-数据库文章标签：加密 access integer 数据库 byte function

本文链接：https://blog.csdn.net/yuanyubest/article/details/1855266

版权

该篇博客介绍了一个名为LockupFile的函数，用于加密和解密Access 2000数据库。通过使用特定的密钥进行异或操作来实现加密，确保数据库的安全性。在ADO中设置连接模式为cmShareExclusive，可以实现独占访问，防止其他程序读取。为了增强安全性，作者建议使用额外的监视程序来确保数据库在程序运行期间保持加密状态。

摘要由CSDN通过智能技术生成

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

{-----------------------------------------------------------------------------
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,