Delphi Funktionierende AES Komponente für Delphi 2009 gesucht

Thema durchsuchen

Ansicht

Themen-Optionen

Funktionierende AES Komponente für Delphi 2009 gesucht

Ein Thema von Shark99 · begonnen am 9. Mai 2015 · letzter Beitrag vom 22. Mai 2015

Vorheriger Beitrag

Nächster Beitrag

Thomasl

Registriert seit: 19. Jun 2006
Ort: Vreden
67 Beiträge

Delphi 11 Alexandria

AW: Funktionierende AES Komponente für Delphi 2009 gesucht

22. Mai 2015, 13:43

Hier ein Beispiel

zusammenfalten · markieren

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;