DB文件加密(50分)

怎样将DB文件的内容在不使用时变成乱码，用时变回原形。

一是对整个文件进行加密了，用的时候解密，不用的时候加密
二是对部份字段的内容进行加密了

你是说输入表时加密,使得别人打开你的表时,在表中存入的数据为乱码吗?
如果要这样做,就是在存入之前将数据进行处理,读出时,还原就可以了.

表加密码不好！！因为有公用密码！！！！！
还是考虑：Wrf的说法，论坛可以找到相关贴子

GRAGON 最明白我意思，因我的文件不能被别人看.我以下处理：
var
f1,f2:file;
fz:longint;
buf:array[1..2048] of char;
SS1,SS2,SS3,SS4:STRING[100];
ND,NE:INTEGER;
sa:string;
begin
sa:='A:/'+copy(SS,1,pos('.',ss))+'PAK';
assignfile(f2,SA);
REWRITE(F2,1);
RESET(F2,1);
FZ:=FILESIZE(F2);
SEEK(F2,FZ);
assignfile(f1,SS);
RESET(F1,1);
FZ:=FILESIZE(F1);
SEEK(F1,0);
STR(FZ,SS3);
SS2:=SS;
SS1:='A414Z1111';
SS4:=DateTimeToStr(Now);
BLOCKWRITE(F2,SS1,10); //系统文件标志
BLOCKWRITE(F2,SS2,30); //文件名
BLOCKWRITE(F2,SS3,20); //文件长度
BLOCKWRITE(F2,SS4,20); //文件修改时间
REPEAT
BLOCKREAD(F1,BUF,SIZEOF(BUF),ND);//读出记录
BLOCKWRITE(F2,BUF,ND,NE); //写入记录
UNTIL (ND=0) OR (ND<>NE);
FZ:=FILESIZE(F2);
SEEK(F2,FZ);
CLOSEFILE(F1);
CLOSEFILE(F2);
end;
以上假若保存为 AS.PCK 打开AS.PCK文件也能看见部份内容.我想一点也看不出内容.

gz

顺便问一不,怎么样将 Date: TDateTime 变成字符串:年.月.日.年要4位表示.