1.free pascal对txt加密

free pascal对txt加密

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

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

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

       var s:string; a,加密加密漏斗管理系统 源码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.

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