AES String einfach ver- und entschlüsseln?

[DelphiPeter]

Hallo zusammen!

Ich weiß ich werde nun virtuell verprügelt, aber ich wollte mal nachfragen, ob mir jemand erklären kann, wie ich kann einfach einen String mittels AES verschlüsseln und entschlüsseln kann.

Wäre super, wenn mir jemand einen Hinweis dazu geben kann.

Grüße
Peter

[implementation]

Geht es darum, AES selbst zu implementieren? Oder suchst du eine fertige Bibliothek dazu?

[DelphiPeter]

Sagen wir mal so:

Ich will Passwörter abspeichern und das ungerne im Klartext. AES schien mir eine gute Wahl. Mir wäre auch eine Bibliothek oder ähnliches Recht.

[ASM]

Zitat:

Zitat von DelphiPeter (Beitrag 1152846)

Wäre super, wenn mir jemand einen Hinweis dazu geben kann.

Unit ElAES.pas (Autor: Alexander Ionov).
Stammt aus 2001, aber funktioniert immer noch perfekt.
ggf. GPL beachten

[implementation]

Zitat:

Zitat von DelphiPeter (Beitrag 1152850)

Ich will Passwörter abspeichern und das ungerne im Klartext.

Wenn es wichtig ist, dass du diese Passwörter auch wieder zurückentschlüsseln kannst, mag das eine gute Wahl sein (aber Achtung! Auf keinen Fall den Schlüssel fest einkompilieren!)
Ansonsten speichert man Passwörter aber lieber als Hash (SHA-1, Whirlpool o.ä.) mit variablem Salt ab.

[DelphiPeter]

IAES.pas ist super! :-) Danke für eure Hilfe!!!

[DelphiPeter]

Ich muss hier nochmal einhaken.

Die Unit verweigert unter Delphi XE3 nun ihren Dienst wenn sie einen String entschlüsseln soll. Verschlüsseln geht ohne Probleme.

Kann mir jemand eine andere ähnlich einfach zu verwendende Unit empfehlen?

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

[DelphiPeter]

Hab da mal was versucht "auf die Schnelle" bekomme aber leider eine Fehlermeldung.

Zitat:

[dcc32 Fehler] DECUtil.pas(769): E2250 Es gibt keine überladene Version von 'AddModuleUnloadProc', die man mit diesen Argumenten aufrufen kann

Hier mein Test-Code:

Delphi-Quellcode:

procedure TfmMain.btnDoItClick(Sender: TObject);
var
  cipher: TCipher_Rijndael;
begin
  if rb1.Checked = True then begin
    cipher := TCipher_Rijndael.Create;
    try
      cipher.Init(edkey.Text);
      edDest.Text := cipher.EncodeBinary(edSource.Text, TFormat_HEX); //decode für entschlüsseln
    finally
      FreeAndNil(cipher);
    end;
  end;
end;

Was hab ich verkehrt gemacht?

[Andreas L.]

Man kann der Routine keine Felder von Objekten übergeben. Deshalb habe ich im Beispiel-Code auch die Hilfsvariablen s1 und s2 verwendet :wink:

Delphi-Quellcode:

cipher.EncodeBinary(edSource.Text, TFormat_HEX);  // falsch
cipher.EncodeBinary(s, TFormat_HEX);  // richtig (s = lokale String Variable)

Falls das den Fehler nicht beseitigt: Hast du auch die aktuellste DEC-Version (5.2)? Ist vielleicht noch eine ältere Version im Suchpfad? Alles Updates von Delphi installiert?