请教高手：用des算法对文件加密该如何实现？

[scutLiu]

现在要对一个文件进行des加密
但不值得该如何实现
烦请高手指点
谢谢

[taste品味]

太小气了吧 才2个点

[xmoon1983]

文件以二进制形式打开，每次读取8个字节加密。

[scutLiu]

实在每分了
没办法啊

[zz1001]

[Quote=引用 2 楼 xmoon1983 的回复:]
文件以二进制形式打开，每次读取8个字节加密。
[/Quote]
能这样搞?我得试试!

[thicklong]

const
XorKey :array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47);
//加密
function DecStr(Str: String): String;
var
i, j :Integer;
begin
Result := '';
j := 0;
for i := 1 to Length(Str) div 2 do
begin
Result := Result + Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);
j := (j + 1) mod 8;
end;
end;
//解密
function EncStr(Str: String): String;
var
i,j :Integer;
begin
Result := '';
j := 0;
for i := 1 to Length(Str) do
begin
Result := Result + IntToHex(Byte(Str[i]) xor XorKey[j],2);
j := (j + 1) mod 8;
end;
end;

//在此基础上可以改造的更加难一点

[wild_roses]

[Quote=引用 2 楼 xmoon1983 的回复:]
文件以二进制形式打开，每次读取8个字节加密。
[/Quote]好像是把文件以二进制形式打开，然后每次读出64byte，存到数组中，然后加密，一个一个分组的加密