加密Access数据库
来源:互联网 发布:软件定制公司 编辑:程序博客网 时间:2024/06/02 02:18
下面的过程不会提示不认识数据库,只是会提示密码错误,任何读取密码的软件都不能读出正确的密码
{-----------------------------------------------------------------------------
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就可以以独占方式打开数据库,
任何除你程序之外的程序都不能访问数据库文件,复制也不行,但是用户用任务管理器强行
结束你的程序可以让你没加密就退出,如果要更安全,就要写另一个程序和你的主程序来互
相监视,监视程序如果能访问数据库则马上给它加密.主程序也要保证监视程序的运行.
{-----------------------------------------------------------------------------
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就可以以独占方式打开数据库,
任何除你程序之外的程序都不能访问数据库文件,复制也不行,但是用户用任务管理器强行
结束你的程序可以让你没加密就退出,如果要更安全,就要写另一个程序和你的主程序来互
相监视,监视程序如果能访问数据库则马上给它加密.主程序也要保证监视程序的运行.
- 加密Access数据库
- access数据库加密
- ADOX加密access数据库
- 加密你的Access数据库
- Access 2007 数据库加密解密
- 网站的ACCESS数据库加密
- 备份Access 数据库并用WinRar压缩加密
- 用OleDB打开加密的Access数据库
- Java连接加密后的Access数据库
- Java 程序访问加密的Access数据库
- C#连接加密的access数据库
- Access数据库加密表头,让Access不那么脆弱
- Access数据库使用数据库加密,C#连接access数据库问题处理
- Access数据库被加密时的连接字符串
- 用C++ Builder连接加密的Access数据库
- ADO连接用户级加密的ACCESS数据库
- 连接加密Access数据库的字符串设置方法
- VB6.0中连接加密的Access数据库
- Declarative Caching Services for Spring框架
- SVN(SourceForge.net document)
- DAO到底是怎样一种设计模式?EJB是DAO设计模式的一种实现吗?
- 根据条件,DBGrid不同行显示不同的颜色
- 字体(FONT)标记(TAGS)
- 加密Access数据库
- ubuntu 学习笔记
- 网络文化节第二周的活动安排
- 利用CSS框架进行高效率的站点开发 Elements
- 幽默技术:关于23种设计模式的有趣见解
- 解决灵活的特征提取需求
- 利用Spring aop 自带的ehcache来缓存对象
- 老外看中国:为何中国女孩嘴上爱撅嘴
- 嵌入式数据库系统Berkeley DB