实现字符加密,如： 输入abc 输出efg;

最简单的加密方法，凯撒移位加密法，即将每个需加密字符的ascii码加上一个给定的t值，解密时扣掉这个t即可。当然，你可以将t值设为一个表达式，但是这个表达式必须是个双射的表达式，即可以还原的表达式，所以常数是最简单的符合双射原则的表达式。
下面给出移位加密法的程序：
加密：
const t=10（这里自己设定）
var s:ansistring; i:longint;
begin
readln(s);
for i:=1 to length(s) do s[i]:=chr(ord(s[i])+t);
writeln(s);
end.
解密：
const t=10（一定要和加密的t值一样）
var s:ansistring; i:longint
begin
readln(s);
for i:=1 to length(s) do s[i]:=chr(ord(s[i])-t);
writeln(s);
end.

希望对你有帮助！！