Hallo Hagen!
Vielen Dank für deine Hilfe! Jetzt klappt es. Sowohl mit Blowfish als auch im CFB-Modus.
Hier nochmal die Lösung:
Also String mit PHP-Skript (s.o.) verschlüsseln und mit folgender Funktion wieder entschlüsseln:
Delphi-Quellcode:
function decryptCode(encryptedCodeString: string);
var
Output, Password, IV: String;
begin
IV := '12345678';
Password := 'schluessel';
with TCipher_Blowfish.Create('', nil) do
try
Mode := cmCFB;
Init(Password[1], Length(Password), Pointer(IV));
Output := CodeString(encryptedCodeString, paDecode, -1);
finally
Free;
end;
end;
Der verschlüsselte String kommt als MIME64 codiert rein (so, wie er vom PHP-Skript rauskommt)
und braucht auch nicht noch extra umgewandelt werden.
Tobi