简单加密解密原形

'加密：

'适用于任何字符，包括空格和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