本站提供最佳实时买卖指标源码服务,欢迎转载和分享。

【android tv 源码】【影视搜索 源码】【金牛起步源码】delphi 源码加密

2024-11-08 11:01:31 来源:手赚资讯源码 分类:焦点

1.delphi Դ?源码android tv 源码????

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/html/42c43799520.html 欢迎转载】

copyright © 2016 powered by 皮皮网   sitemap