200分求助！有加密算法，怎么写解密函数？

[madking]

//**************************************************************
//函数名： f_lock_password
//功能： 加密口令
//参数： as_unlocked_password
//返回值： locked password
//**************************************************************

//加密后的口令
string ls_locked_password
string ls_char,ls_filled
int li_1,li_length
long ll_sum = 0

li_length = len(as_unlocked_password)
if li_length = 1 then
as_unlocked_password = fill(as_unlocked_password + string(asc(as_unlocked_password)),asc(as_unlocked_password))
end if
for li_1 = 1 to li_length
ll_sum = ll_sum + asc(mid(as_unlocked_password,li_1,1))
next
ls_filled = fill(as_unlocked_password,90)

FOR li_1 = 1 TO 90
ls_char = char(mod(ll_sum + li_1 - asc(mid(ls_filled,li_1,1)),123))
ls_locked_password = ls_locked_password + ls_char
NEXT
return ls_locked_password

[klbt]

能否注释一下.

[homeness]

有同感！！
挺难的
我回去看看，

[devil_heart]

一定要解密吗?解不了密不才叫加密啊！呵呵！

[tchatcha]

up
帮你看看

[fengzeng]

到网上找一个例程来看看

[bomber2001]

反向编了，

[waterstony]

接不了，结果不唯一对应？只是用来对密码加密后与数据库密码对碰？

[joss]

UP先
看看再说...reading...

[zzutligang]

waterstony(王小石) 楼主的加密算法不能反向计算，因为中间丢失数据了。
使用这个加密算法的唯一方法就是拿明文通过上诉加密后和要比较的密文对比，其他的没有好的办法，但这样的加密算法好就好在不能反向解密。也算一个优点呀！！！