Funktionierende AES Komponente für Delphi 2009 gesucht

[Shark99]

Hallo!

Ich wollte einige Userdaten in meiner App mit AES (am besten 256 bit) ver/entschlüsseln und zwar mit Delphi 2009 Update 4.

Google bemüht und es kamen verschiedene Komponenten zu Tage, z.B. Lockbox. Problem ist dass sich nichts davon unter Delphi 2009 kompilieren lässt weil die Packages nur ab Delphi 2010 verfügbar sind. Nehme ich die 2010er trotzdem hageln es nur so vom Fehlern (100+). Auch das ziehen direkt von Github hat nicht geholfen.

Kann mir bitte jemand eine Komponente vorschlagen?

[himitsu]

Es ist natürlich zuviel verlangt, wenigstens wie ersten paar Fehler zu nennen (kopieren).

Wenn es kein Package gibt, dann kann man auch versuchen die dproj zu löschen, also nur die dpk zu behalten und darüber neue Projektoptionen erstellen zu lassen.
(ich glaub damals hieß sie noch bdsproj)


Das DEC (Delphi Encryption Compendium) ist schon recht alt und da sollte es sich auch irgendwo ältere Versionen finden lassen.

Und natürlich muß das Ganze auch nicht unbedingt als Package erst in die IDE rein, sondern du kannst die nötigen Units aush direkt einbinden und die gewünschte Komponente zur Laufzeit erstellen, statt sie billig auf die Form zu pappen.

[Shark99]

Die Fehler sind vielfältig vor allem Convertion-Sachen zwischen RawByteString und TBytes, wo oft 'Incompatible types' angemeckert wird. Ich könnte es Zeile für Zeile ausbessern, aber Verschlüsselung ist so eine heikle Sache und so fehleranfällig; ich finde es gefährlich Code auszubessern ohne die Gesamtheit zu verstehen.

Ich habe hier was interessantes gefunden: http://www.rathlev-home.de/sources/delphi.html

Leider fehlt die FtGlobal.pas, und ich finde sie nicht im Web.

[Sir Rufo]

Zitat von Shark99:

Ich habe hier was interessantes gefunden: http://www.rathlev-home.de/sources/delphi.html

Leider fehlt die FtGlobal.pas, und ich finde sie nicht im Web.

Mit einer Portion Neugier findest du diese Unit auf der Seite

[Shark99]

Danke!

Für die anderen, die Unit ist im ZIP Archiv unter Delphi 7 'Sammlung von diversen nützlichen Unterroutinen' auf der Webseite zu finden.

[Popov]

Die Seite ist ja herzallerliebst, fast wie Kinderüberraschung. Man bekommt nicht nur nützliche Units, sondern hat auch Spaß mit Suchen und Basteln. Ich versuche z. B. auch ein Beispiel zu testen. Inzwischen habe ich für das kleine Beispiel die zwanzigste Unit eingebunden, von denen einige irgendwo versteckt sind, andere wiederum in Unitsammlungen, die man erst runterladen muss, und es funktioniert immer noch nicht. Jede neue Unit die man eingebunden hat, verlangt eine neue Unit. Das ist anscheinend ein Netz aus Units

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