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;

[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

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?