简单加密解密原形-ASP教程,安全加密

加密：

适用于任何字符，包括空格和url冲突的"&""?""%"汉字等符号

简单加密，可以改造成移位加密，比如每个字符asc码值增加或减少一个数字

可以改造成移位随机加密。

比如每个字符前有一个随机数字，表示该字符asc码值增加或减少这个随机数字

function encode(x)

for i=1 to len(x)

tempnum=hex(asc(mid(x,i,1)))

if len(tempnum)=4 then

encode=encode & cstr(tempnum)

else

encode=encode & "00" & cstr(tempnum)

end if

next

end function

解密：

function decode(x)

for i=1 to len(x) step 4

decode=decode & chr(int("&h" & mid(x,i,4)))

next

end function