Funktionierende AES Komponente für Delphi 2009 gesucht

[Thomasl]

Hier ein Beispiel

Delphi-Quellcode:

Uses SynCrypto;

...

procedure Crypt; 
var
 Digest: TSHA256Digest;
 M1: TMemoryStream;
 M2: TMemoryStream;
begin
 SHA256Weak('Key', Digest);
 M1 := TMemoryStream.Create;
 M2 := TMemoryStream.Create;
 try
   M1.LoadFromFile('test.txt');
   M1.Position := 0;
   SynCrypto.AESFull(Digest, 256, M1.Memory, M1.Size, M2, True);
   M2.SaveToFile('crypt.txt');
 finally
   M1.Free;
   M2.Free;
 end;
end;