1.delphi Դ?源码直销 app 源码????

delphi Դ?????

       加密/解密一个字符串

       { Begin code }

       program Crypt;

       uses WinCRT;

       const

        C1 = ;

        C2 = ;

       function Encrypt(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 Decrypt(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;

       var

        S: string;

       begin

        Write('>');

        ReadLn(S);

        S := Encrypt(S,);

        WriteLn(S);

        S := Decrypt(S,);

        WriteLn(S);

       end.