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