![]() |
String mit Rijndeal und DEC verschlüsseln
Hallo erstma
Ich wollte mit Delphi, DEC und Rijndeal einfach mal einen String verschlüsseln um ihn dannach einem C# Programm zu übergeben. (nimand soll die Parameter kennen) Es funktioniert auch einwandfrei nur ist der Encoded-String sehr Kurz. Hier ein kleines Beispiel um den Text Text zu verschlüsseln und zu entschlüsseln
Delphi-Quellcode:
Es funktioniert eigentlich mit dem verschlüsseln und entschlüsseln, doch im C# ist der Encodestring 16Byte gross für Text und im Delphi nur 8Byte
procedure TForm1.Button1Click(Sender: TObject);
var IV, Key: string; Cipher_Rijndael: TCipherManager; begin Key = 'meinkey'; IV = 'meinvector'; Cipher_Rijndael := TCipherManager.Create(nil); try Cipher_Rijndael.Algorithm := 'Rijndeal'; Cipher_Rijndael.Mode := cmCBC; Cipher_Rijndael.InitKey(Key, Pointer(IV)); Memo1.Lines.Add(HexDump3(Cipher_Rijndael.EncodeString(Edit.Text))); Memo1.Lines.Add(HexDump3(Cipher_Rijndael.DecodeString(Cipher_Rijndael.EncodeString(Edit.Text)))); finally Cipher_Rijndael.Free; end; end; Habe ich was falsch gemacht, wenn ja was? Vielen Dank und Gruss Nischi |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:53 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