加密算法擂台赛[申精]

Program Encode_LTS;
{名称：三轮恺撒密码加密
 作者: Dragon.Dai@E.O.T
 破解难度：极易
 运行本程序推荐环境：Super-Pascal 2.0}
const
 yuanchuan=' ~!@#$%^&*()_+`1234567890-=qwertyuiop[]\asdfghjkl;''zxcvbnm,./QWERTYUIOPASDFGHJKLMNBVCXZ{}:"<>?|';
 Encode='|?><":}{ZXCVBNMLKJHGFDSAPOIUYTREWQ/.,mnbvcxz'';lkjhgfdsa\][poiuytrewq=-0987654321`+_)(*&^%$#@!~ ';

var
 i,j:longint;
 st:ansistring;
begin
 Writeln('加密擂台赛 Simple 加密算法演示');
 Writeln('Powered by Dragon.Dai');
 Writeln('请输入原串：');
 Readln(st);
 For i:=1 to 3 do
 for j:=1 to length(st) do
 st[j]:=encode[pos(st[j],yuanchuan)];
 Writeln(st);
 readln;
end.