![]() |
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:
und hier kommt das Problem:
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; Bei meinen Programm kommt mit dem Text: 'test' und dem Passwort 'pass' das raus: Zitat:
Zitat:
und zu guter letzt: Bei ![]() Zitat:
Mfg Stein |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz