[原创]密码加密与解密
-****** 加密 *******
FUNCTION jm1
para mm1
set talk off
priv pn*
pws1=''
pn=alltrim(str(int(rand()*10^len(alltrim(mm1))+10^len(alltrim(mm1)))))
for pn1=1 to len(alltrim(mm1))
pws1=pws1+subst(pn,pn1,1)+str(asc(subst(alltrim(mm1),pn1,1)),2)
endfor
pws1=pws1+right(pn,1)
return pws1
******* 解 密 ***********
FUNCTION jm2
para mm2
pws2=''
for pn2=2 to len(alltrim(mm2))-2 step 3
pws2=pws2+chr(val(subst(mm2,pn2,2)))
next
return pws2
