mc_wincrt.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

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;