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