SET TALK OFF
A="041000044047054037000057047053001"
?
FOR I=1 TO LEN(A)/3
??CHR(VAL(SUBSTR(A,I*3-2,3))+32)
ENDFOR
RETURN

星期天，很烦闷，做点东西把自己逗乐，也与大家同乐。

不完全是ASCII码，在ASCII基础上修改过的码，三位表示一个字符

我在编写登陆界面程序的时候，不是要输入用户名和密码吗?而这些内容必须存储在表中。表中的用户名可以公开,但密码不能公开。所以人们打开用户表的时候，密码可以看见，但不能用，因为这些是加了密的密码，一定不是直接显示出来的。加密算法越有效，保密性就越强，但就苦了解密了。

这个密码很简单的，就是输入任何可见字符以后转换成十进制的ASCII值，每个值减去32以后再将数值转换成字符型。解码当然就是要提取每个数值以后加上32了。

都来运行一下这个程序啊

希望编写不同的加密解密的片段

程序不长，意思也明白，就是能让人想很多:)

To: wanpj,wzxc,dandan8005,lingkai,中国龙王,hu9jj
Thanks!

[此贴子已经被作者于2006-5-26 15:17:01编辑过]

继续关注,再读有更多的收获