【广告分佣源码】【linux 音乐播放源码】【dcloud 新闻源码案例】delphi 源码加密

时间:2024-11-08 11:15:49 编辑:filezilla 客户端源码 来源:静默打印源码

1.delphi Դ?源码广告分佣源码????

delphi 源码加密

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.