Funktionierende AES Komponente für Delphi 2009 gesucht

[himitsu]

Also ein "anderes" Delphi-Puzzle
Ist doch auch mal eine coole Idee.

[Thomasl]

Dann suche mal in der Unit SynCrypto.pas am besten eine von 2015 da geht auch AES-Ni mit Hardwarebeschleunigung

TAESFull.EncodeDecode


http://blog.synopse.info/post/2015/0...-for-SynCrypto
http://synopse.info/fossil/wiki?name=Downloads

[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;