这种解密代码，怎么写出加密的代码来。谢谢！

[suny2003]

function Unencode(venshop)
venshopbut=5
for i=1 to len(venshop)
if mid(venshop,i,1)<>"＋" then
ven=asc(mid(venshop,i,1))-venshopbut
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
Unencode=vena
end function
上面是解密代码

[suny2003]

怎么没人??