关于登陆密码加密的问题

加密的方法是：把明文的每一个字符转为ASCII码，再加上相应的字符在明文中的位置，再加上明文的长度得到一个整型数据（ASCII码），再把它转成相应的字符，连接起来就是密文了。
知道加密的方法，你就可以进行解密了呀。把上面的函数整理一下就OK了。
//口令加密
// 字符串
//返回值：字符串
integer i,li_kllen
string ls_zmkl
li_kllen=len(a_ymm)
for i=1 to li_kllen
ls_zmkl=ls_zmkl + char(asc(mid(a_ymm,i,1)) + i +li_kllen)
next
return ls_zmkl
//口令解加密
// 字符串
//返回值：字符串
integer i,li_kllen
string ls_zmkl
li_kllen=len(a_ymm)
for i=1 to li_kllen
ls_zmkl=ls_zmkl + char(asc(mid(a_ymm,i,1)) - i -li_kllen)
next
return ls_zmkl

通过解密得到的密码是：wg8999

受益匪浅