欢迎来到皮皮网网站!

【阅读qt源码】【janusgraph 源码】【libretorrent源码】ss加密 源码_ss加密方式哪个好

时间:2024-12-26 03:20:03 来源:淘宝分销网站源码

1.free pascal对txt加密

ss加密 源码_ss加密方式哪个好

free pascal对txt加密

       æ³¨æ„ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼è¯·é‡‡çº³ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼

       é¦–先,注意!要加密,否则就会被人直接打开

       åŠ å¯†ä»£ç ï¼š

       var s:string; a,加密加密阅读qt源码d,p:longint;

       ss:array[1..] of string;

       begin

       readln(a); //a什么数都行,但是你记好了它,解密时用

       assign(input,'a.txt');

       reset(input);

       repeat //每一行都要加密

       readln(s);

       for d:=1 to length(s) do s[d]:=chr(ord(s[d])+a);

       p:=p+1;

       ss[p]:=s;

       until s='';

       assign(output,'a.txt'); //在原来的地方输出

       rewrite(output);

       for p:=1 to p do writeln(ss[p]);

       close(output);

       end.

       è§£å¯†ä»£ç ï¼š

       const mi='aaaaaa'; //这里假设密码为aaaaaa,需要的话自己改

       var

       a,q,p:longint;

       s:string;

       b:boolean;

       ss:array[1..] of string;

       begin

       b:=true;

       while b do

       begin

       write('请输入密码:');

       readln(s);

       if s=mi then b:=false else writeln('密码错误!');

       end;

       write('请输入之前解密的代码:');

       readln(a); //这时候就需要输入以前的a了

       assign(input,'a.txt');

       reset(input);

       repeat //每一行都要解密

       readln(s);

       for q:=1 to length(s) do s[q]:=chr(ord(s[q])-a);

       p:=p+1;

       ss[p]:=s;

       until s='';

       assign(output,'a.txt');

       rewrite(output);

       for p:=1 to p do writeln(ss[p]);

       close(output);

       write('打印完毕,按回车键结束……');

       readln;

       end.

       è¯·å…ˆçœ‹å®Œæºä»£ç åŽå†è¿è¡Œï¼ï¼ï¼

更多相关资讯请点击【时尚】频道>>>