Hallo Delphianer,
ich wollte einen alten Code von Delphi 5 hier unter Tokyo benutzen. Leider funktioniert es nicht mehr.
Kann mir jemand sagen wo es denn dran liegt. Ich möchte hier noch einfach Strings Ver- und Ent - schlüsseln um ein Passwort in einer Ini datei zu speichern. Es ist nichts super geheimes und hierzu genügt es mir es mit dieser Routine zu machen wenn diese denn funktionieren würde.
Danke
Delphi-Quellcode:
function TFTPMailForm.Encrypt(const InString: string; StartKey, MultKey, AddKey: Integer): string;
var I: Byte;
begin
Result := '';
for I:=1 to Length(InString) do
begin
Result := Result + CHAR(BYTE(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
end;
end;