加密：
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
