Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   String mit Rijndeal und DEC verschlüsseln (https://www.delphipraxis.net/95801-string-mit-rijndeal-und-dec-verschluesseln.html)

Nischi 13. Jul 2007 10:27


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

Habe ich was falsch gemacht, wenn ja was?

Vielen Dank und Gruss
Nischi


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:26 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