-------------------------------------------
function jm(str)
if str="" then
str="123456"
end if
zf=len(str)
for i=1 to zf/2
zh=mid(str,(i*2-1),2)&"$"
jsq=jsq&zh
next
jm=jsq
jm=replace(jm,"aa$","z")
jm=replace(jm,"ag$","y")
jm=replace(jm,"34$","x")
jm=replace(jm,"33$","w")
jm=replace(jm,"32$","v")
jm=replace(jm,"31$","u")
jm=replace(jm,"30$","t")
jm=replace(jm,"29$","s")
jm=replace(jm,"28$","r")
jm=replace(jm,"27$","q")
jm=replace(jm,"26$","p")
jm=replace(jm,"25$","o")
jm=replace(jm,"24$","n")
jm=replace(jm,"23$","m")
jm=replace(jm,"22$","l")
jm=replace(jm,"21$","k")
jm=replace(jm,"20$","j")
jm=replace(jm,"19$","i")
jm=replace(jm,"18$","h")
jm=replace(jm,"17$","g")
jm=replace(jm,"j6$","f")
jm=replace(jm,"g5$","e")
jm=replace(jm,"3e$","d")
jm=replace(jm,"cv$","c")
jm=replace(jm,"ni$","b")
jm=replace(jm,"df$","a")
jm=replace(jm,"p8$",".")
jm=replace(jm,"o7$","_")
jm=replace(jm,"h9$","9")
jm=replace(jm,"r8$","8")
jm=replace(jm,"w2$","7")
jm=replace(jm,"er$","6")
jm=replace(jm,"ki$","5")
jm=replace(jm,"ba$","4")
jm=replace(jm,"mi$","3")
jm=replace(jm,"eh$","2")
jm=replace(jm,"zm$","1")
jm=replace(jm,"lx$","0")
end function
-------------------------------------------------------------------
看看解密如何?
解密函数
-------------------------------------------------------
function jmr(str)
if str="" then
response.Write("解密数据不能为空")
end if
zf=len(str)'取字符长度
for i=1 to zf
sun=mid(str,i,1)&"¥"
jsq=jsq&sun
next
jmr=jsq