Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi AES aus DEC (https://www.delphipraxis.net/145586-aes-aus-dec.html)

King Stein 4. Jan 2010 21:11


AES aus DEC
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,
ich weiß nicht ob das die richtige Kategorie ist, aber das schien mir die zu sein die am besten passt.

Ich habe ein Problem mit dem richtigem einbinden von Rijndael aus DEC. Hier ist erstmal mein Code(ich verwende Delphi 2010 und DEC 5.2):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  pass, text: string;
begin
  text := Edit1.Text;
  pass := Edit2.Text;
  Memo1.Lines.Add(encode(text, pass));
end;

function TForm1.encode(text, passwort: string): string;
begin
  with TCipher_Rijndael.Create do
  try
      Mode := cmCBCx;
      Init(passwort);
      Result := EncodeBinary(text, TFormat_MIME64);
  finally

  end;
end;
und hier kommt das Problem:
Bei meinen Programm kommt mit dem Text: 'test' und dem Passwort 'pass' das raus:
Zitat:

ntdnnA==
Cryptofox bekommt aber das raus(mit AES-256)
Zitat:

+VdCS+Tk5ORNznrs
Ich ging mal davon aus, dass im DEC AES-256 implementiert wurde, aber auch bei den anderen kommt nicht das gleich raus.
und zu guter letzt: Bei http://geheim.zipzaps.de/

Zitat:

8GyTJPC7hwM7Mce+4XP9Rw==
Hab ich einen Fehler bei der Einbindung gemacht und was ist denn jetzt richtig? Ich muss dazu sagen, dass cryptofox mir irgendwie doch sehr komisch vorkommt, da ändert sich das Ergebnis laufend.

Mfg Stein


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz