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

Program Encode_LTS;{名称：三轮恺撒密码加密 作者: [email protected] 破解难度：极易 运行本程序推荐环境：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.

用PASCAL编那还有什么秘密可言？

楼主，我想写，但我想你办赛肯定是胜券在握，所以，算了吧……

顶一下。对这个很有兴趣但是pascal学艺不精。我要向大家学习。

顶

楼主，我在构思一种结合随机数和输入字串长度的加密方法，时间关系还未入手，联系我：[email protected]:592851676

我半年前就想出了一种加密方法,现以在http://hi.baidu.com/wywy/blog/item/c33e08332501edf81a4cffc0.html发表