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

Question

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

Answer 1

  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;//在此基础上可以改造的更加难一点

Answer 2

好像是把文件以二进制形式打开，然后每次读出64byte，存到数组中，然后加密，一个一个分组的加密