• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

joaorosa

Codificar o email

2 mensagens neste tópico

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")%>

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora