高分求解:谁有最好的ACCESS数据库加密方法?

ccll 2000-08-17 02:13:00
谁有最好的ACCESS数据库加密方法?要求除被应用调用外,不能为Access97或Access2000等识别。注意:不是靠密码的方式,而是通过改写MDB文件实现,哪位有好例子给贴一个。
谢了!
...全文
206 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
god_of_king_2001 2001-11-14
  • 打赏
  • 举报
回复
如何解决的.是否可以告诉我?
saoren 2000-10-21
  • 打赏
  • 举报
回复
function GetAccessPassword(FilePath:string):string;
const
xorString:array[0..12]of byte=
( $86, $FB, $EC, $37,
$5D, $44, $9C, $FA,
$C6, $5E, $28, $E6,$13 );
var
passBuf:array[0..14]of byte;
pass:array[0..14]of char;
resultPass:string;
B:Byte;
F:TFileStream;
i:integer;
begin
F:=TFileStream.Create(FilePath,fmShareDenyNone);
//office 97
try
F.Seek($42,soFromBeginning);
F.Read(passBuf,14);
for I:=0 to 13 do
begin
B := passBuf[i] xor xorString[i];
pass[i]:=char(B);
end;
pass[sizeof(pass) - 1] := #0;
resultPass:=StrPas(Pass);
finally
F.Free;
end;
result:=resultPass;
end;
end;
ccll 2000-09-15
  • 打赏
  • 举报
回复
不好意思!
xiaocai 2000-09-15
  • 打赏
  • 举报
回复
m?
ccll 2000-09-15
  • 打赏
  • 举报
回复
我已经解决了,分给自己!
Un1 2000-08-17
  • 打赏
  • 举报
回复
一旦成功打开数据库就把access的mdb文件的前几个字符:
Standard Jet DB
修改。

2,496

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧