Hallo,
dcpcrypt sagt mir nichts, daher ein Alternativvorschlag.
Das
DEC (Delphi Encryption Compendium) von Hagen Reddmann (
DEC_5_1c.zip) enthält eine Vielzahl von Verschlüsselungs- und Hashalgorithmen. Vielleicht hast du davon schon gehört.
Damit geht das sehr einfach (ich habe das mal in eine Funktion gepackt):
Delphi-Quellcode:
function EncodeString(const Text: String; const Password: String): string;
begin
with TCipher_Blowfish.Create(Password, nil) do
try
Text := EncodeString(Text);
finally
Free;
end;
Result := Text;
end;
Evtl. empfiehlt es sich auch, den verschlüsselnden String als var-Parameter zu übergeben.
Für's Entschlüsseln musst du
DecodeString nutzen.