|
|
简单加密解密原形 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
'加密: '适用于任何字符,包括空格和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
|
|
相关文章:相关软件: |
|