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