FUNCTION sus_caracter(cadena STRING)

    DEFINE buf base.StringBuffer
    LET buf = base.StringBuffer.create()

    CALL buf.append(cadena)

    CALL buf.replace(" ", "%20;", 0)
    CALL buf.replace("!", "%21", 0)
    CALL buf.replace("#", "%23", 0)
    CALL buf.replace("$", "%24", 0)
    CALL buf.replace("&", "%26", 0)
    CALL buf.replace("'", "%27", 0)
    CALL buf.replace("(", "%28", 0)
    CALL buf.replace(")", "%29", 0)
    CALL buf.replace("*", "%2A", 0)
    CALL buf.replace("+", "%2B", 0)
    CALL buf.replace(",", "%2C", 0)
    CALL buf.replace("/", "%2F", 0)
    CALL buf.replace(":", "%3A", 0)
    CALL buf.replace(";", "%3B", 0)

    RETURN buf.toString()
    
END FUNCTION