Hallo D-User,
wenn man das Pferd hinten aufzäumt, dann stellt man einfach einen Implementierungsfehler in den Basis-Methoden EncodeString() und DecodeString() von JvCipher.TJvCustomCipher fest. Beim Zuweisen eines C-Strings an einen Pascal-String wird beim ersten Auftreten eines Null-Chars das Ende des C-Strings gesehen.
Hier eine Blitz-Kur für die besagten Methoden:
Delphi-Quellcode:
function TJvCustomCipher.DecodeString(const Key, Value: string): string;
var
Tmp: string;
begin
Tmp := Value;
Decode(Key, PChar(Tmp), Length(Value));
Result := Tmp;
end;
function TJvCustomCipher.EncodeString(const Key, Value: string): string;
var
Tmp: string;
begin
Tmp := Value;
Encode(Key, PChar(Tmp), Length(Value));
Result := Tmp;
end;
Das Umspeichern ist eigentlich unnötig, aber der Autor der
Unit hat sich gegen eine in-place Kodierung entschieden, obwohl er die Basisklasse genau dafür vorgesehen hat. Solange als Übergabekonvention const statt var verwendet wird, muss halt umkopiert werden. Es geht zwar auch ohne,
Encode(Key, PChar(Value), Length(Value));
aber das wäre Programmieren mit Seiteneffekten und zukünftige Compiler-Versionen brechen den Code, wenn sie ihre Semantik für CONST-Parameter ändern.
Grüße vom marabu