Program MC_Key;

use WinCRT;

Const
     C1=52845;
     C2=22719;

Function EnKey(Const s: String; Key: Word): String;
Var
    I: Byte;
begin
     Result[0]:=S[0];
     For I:=1 to Length(s) do
     begin
          Result[I]:=Char(Byte(S[I]) Xor (key Shr 8));
          Key:=(Byte(Result[i])+Key)*C1+C2;
     end;
end;

Function UnKey(Const S:String; Key: Word): String;
Var 
    I: Byte;
begin
     Result[0]:=S[0];
     For I:=1 to Length(S) do
     begin
          Result[I]:=Char(Byte(S[I]) Xor (Key Shr 8));
          Key:=(Byte(S[I])+Key)*C1+C2;
     end;
end;