Ich hatte im Kopf, dass man es so aufrufen muss:
Delphi-Quellcode:
function EncodeString(const Text: String; const Password: String): string;
begin
with TCipher_Blowfish.Create(Password, nil) do
try
Init;
Result := EncodeString(Text);
Done;
finally
Free;
end;
end;
Auf jeden Fall mal den Rückgabewert nach Result und nicht nach Text
