Probleme mit DCPcrypt

[DLX]

in erster Linie bedanke ich mich für die großartige Hilfe !
Was müsste ich eigentlich machen wenn ich auch Dateien ver- und entschlüsseln wollen würde ?

hab es jetzt wie folt gelöst:

Code:

function encryptFile(inputFile:string; outputFile:string):String;
var Cipher : TDCP_rijndael;
    Data,DataDec, Key, IV : ansistring;
    index, dataLength, bsize, pad: integer;
    Source, Dest: TFileStream;
begin
  key := '12345678901234567890123456789012';
  IV  := '1234567890123456';

  Cipher := TDCP_rijndael.Create(nil);
  try
    Cipher.Init(Key[1],128,@IV[1]);
    Source:= TFileStream.Create(inputFile,fmOpenRead);
    Dest:= TFileStream.Create(outputFile,fmCreate);
    Cipher.EncryptStream(Source,Dest,Source.Size);


  finally
    Cipher.Burn;
    Cipher.Free;
    source.Free;
    dest.Free;
  end;

 Result:='fertig';

end;

und zum entschlüsseln:

Code:

function DecryptFile(inputFile:string; outputFile:string):String;
var Cipher : TDCP_rijndael;
    Data, Key, IV : ansistring;
    index, dataLength, bsize, pad: integer;
    Source, Dest: TFileStream;

begin
  key := '12345678901234567890123456789012';
  IV  := '1234567890123456';

  Cipher := TDCP_rijndael.Create(nil);
  try
    Cipher.Init(Key[1],128,@IV[1]);
    Source:= TFileStream.Create(inputFile,fmOpenRead);
    Dest:= TFileStream.Create(outputFile,fmCreate);
    Cipher.DecryptStream(Source,Dest,Source.Size);
  finally
    Cipher.Burn;
    Cipher.Free;
    Dest.Free;
    Source.Free;
  end;

  Result:='fertig';


end;