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

2024-11-25 05:41:09 来源:弹哆啦源码 分类:时尚

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.

本文地址:http://5o.net.cn/news/42c43799520.html 欢迎转发