Codificar o email

[joaorosa]

Boas.

Estou aqui às voltas com uma situação, não consigo codificar o e-mail na interface para não ser apanhado por bots.

Qualquer coisa como http://www.wbwip.com/wbw/emailencoder.html...

Como é que posso fazer? Não encontrei nada relevante no google...

Cps, JR

[ribeiro55]

Se procuras uma codificação como a do site que indicaste, o que obténs é a simples representação do caractere em código ASCII, e por isso, é quase tão seguro como ter o texto 🙂

Ainda assim, podes escrever uma pequena função para codificar emails, e qualquer outra informação que pretendas, dessa forma:

    Public Function CodificarEmail(ByVal Email As String) As String

        Dim EmailCodificado As String = String.Empty

        For Each C As Char In Email.ToCharArray
            Dim TempAscCod As Integer = CInt(Asc(C.ToString))
            Dim TempCodComp As String = TempAscCod.ToString

            If TempAscCod < 10 Then TempCodComp = "00" & TempAscCod.ToString
            If TempAscCod < 100 Then TempCodComp = "0" & TempAscCod.ToString

            EmailCodificado &= "& #" & TempCodComp & ";"
        Next

        Return EmailCodificado

    End Function

(na linha em destaque, o & e o # são juntos e não separados. Estão separados porque o parser está a interpretar por alguma razão)

Exprimenta dar uma olhadela no código com um simples "print" para veres se é o que pretendes.

<%= "O meu email codificado: " & CodificarEmail("geral@sergioribeiro.com")%>