[xanburzum]

Codificação e decodificação Hex string

function hexEncoder(str)
        dim strEncoded, i
        strEncoded = ""
        for i = 1 to Len(str)
                strEncoded = strEncoded + "%" + Hex(Asc(Mid(str, i, 1)))
        next
        hexEncoder = strEncoded
end function

function hexDecoder(str)
        dim strDecoded, i, hexValue
        strDecoded = ""
        for i = 2 to Len(str)
                hexValue = ""
                while Mid(str, i, 1) <> "%" and i <= Len(str)
                        hexValue = hexValue + Mid(str, i, 1)
                        i = i+1
                wend
                strDecoded = strDecoded + chr(CLng("&h" & hexValue))
        next
        hexDecoder = strDecoded
end function