加密算法擂台赛[申精]

其实说，加密算法很能看出大家的思考水平……
所以决定搞一个擂台赛，比比大家的加密算法（程序），要求：
（1）可以进行加密/解密操作（即不是一个Hash（单向散列）算法）
（2）高效
（3）不容易被破解
（4）简单易用
（5）用Pascal编写（这个……）

大家支持一下……我自己先写一个，贴在下面，等等。

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.

不感兴趣

开通SVIP免广告