AES String einfach ver- und entschlüsseln?

[Andreas L.]

Das DEC von Hagen Reddman ist in Sachen Verschlüsselung unter Delphi die Eierlegende-Woll-Milch-Sau.

EDIT: Ist auch ganz eifnach zu benutzen:

Delphi-Quellcode:

uses
  ..., DECCipher, DecFmt;

...
...

procedure TForm2.Button1Click(Sender: TObject);
var
  cipher: TCipher_Rijndael;
  s1, s2: String;
begin
  cipher := TCipher_Rijndael.Create;
  try
    cipher.Init('Password');
    s1 := Edit1.Text;
    s2 := cipher.EncodeBinary(s1, TFormat_HEX); //decode für entschlüsseln
    Edit1.Text := s2;
  finally
    FreeAndNil(cipher);
  end;
end;