: AnsiString;: Word;: Word;: = S;: = Key; I: = 1 to Length (Result) do [I]: = Char (Byte (Result [I]) xor (Seed shr 8));: = (Byte (Result [I]) + Seed) * Word (C1) + Word (C2); Encrypt (const S: AnsiString; Key: Word): AnsiString;: = PostProcess (InternalEncrypt (S, Key))
end;.
