簡單加密解密原形

'加密：
'適用於任何字元，包括空格和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