需求: 实现字符加密,如: 输入abc 输出efg。作者: 谢孔营 时间: 2013-5-22 17:14
先说一种:将abc每个字母加4就OK了作者: ozt6719393 时间: 2013-5-22 17:19
最简单的加密方法,凯撒移位加密法,即将每个需加密字符的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.