function UnEncode(temp)
but=1
for i =1 to len(temp)
if mid(temp,i,1)>"汤" then
pk=asc(mid(temp,i,1))-but
if pk>126 then
pk=pk-95
elseif pk32 then
pk=pk+95
end if
a=achr(pk)
else
a=avbcrlf
end if
next
UnEncode=a
end function
function Encode(temp)
but=1
cc=replace(temp,vbcrlf,"汤")
for i= 1 to len(cc)
if mid(cc,i,1)>"汤" then
pk=asc(mid(cc,i,1))+but
if pk>126 then
pk=pk-95
elseif pk32 then
pk=pk+95
end if
a=achr(pk)
else
a=a"汤"
end if
next
’a=replace(a,"""","""""")
Encode=a
end function
