Einzelnen Beitrag anzeigen

Nischi

Registriert seit: 25. Aug 2005
Ort: Amriswil
1 Beiträge
 
Delphi 2006 Professional
 
#1

String mit Rijndeal und DEC verschlüsseln

  Alt 13. Jul 2007, 10:27
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
Thierry Nischelwitzer
  Mit Zitat antworten Zitat