function code(str)
    dim i,newstr
    for i=1 to len(str)
    newstr=newstr&hex(asc(mid(str),i,1)*3)
 next
 md=newstr
end function

更正函数
function code(str)
    dim i,newstr
    for i=1 to len(str)
    newstr=newstr&(hex(asc(mid(str,i,1))*3))
 next
 md=newstr
end function