Delphi-Quellcode:
function TfrmLogin.Encode(Was: string):String;
begin
Was:=Was+Salt;
with DECCipher.TCipher_Blowfish.Create do
try
Init('Passwort');
Result := EncodeBinary(Was, TFormat_HEX);
finally
Free;
end;
end;
Ahh, ich bin glaube ich fündig geworden!
Also wenn ich das richtig sehe, kann ich hiermit meinen String strText verschlüsseln. Entsprechend müsste ich ihn dann mit DecodeBinary wieder entschlüsseln können.
Aber wie bekomme ich beim Decodieren das Salt-Ende wieder "ab"?
Delphi-Quellcode:
function TfrmLogin.Decode(Was: string):String;
begin
with DECCipher.TCipher_Blowfish.Create do
try
Init('Passwort');
Result := DecodeBinary(Was, TFormat_HEX);
finally
Free;
end;
Result:=Result; //hier soll die Salt-Konstante entfernt werden
end;