This code encrypt Emails for put into webpage and prevents SPAM -convert to hexadecinal Sample: inf

by Luis Mariscal (11 Submissions)
Category: Internet/HTML
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Sun 30^th August 2009
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

This code encrypt Emails for put into webpage and prevents SPAM -convert to hexadecinal Sample: [email protected] convert to : Web

API Declarations
Public df Public result 'Create the following: 'Text1 'Text2 'Text3 'Text4 'command1 button

Rate This code encrypt Emails for put into webpage and prevents SPAM -convert to hexadecinal Sample: inf





Private Sub Command1_Click()
Dim i
Text2 = ""
Text3 = ""
Text4 = ""

For i = 1 To Len(Text1)
    df = Mid$(Text1, i, 1)
    result = Asc(df)
        '&#109;
    Text2 = Text2 & "&#" & result & ";"
Next



For i = 1 To Len(Text1)
    df = Mid$(Text1, i, 1)
    result = Asc(df)
        
    Text3 = Text3 & " & chr(" & result & ") & "
Next
Text3 = Replace(Text3, ") &", ")")
Text3 = Mid(Text3, 4, Len(Text3))


For i = 1 To Len(Text1)
    df = Mid$(Text1, i, 1)
    result = Hex$(Asc(df))
       
    Text4 = Text4 & result
Next





End Sub

Download this snippet Add to My Saved Code

This code encrypt Emails for put into webpage and prevents SPAM -convert to hexadecinal Sample: inf Comments

No comments have been posted about This code encrypt Emails for put into webpage and prevents SPAM -convert to hexadecinal Sample: inf. Why not be the first to post a comment about This code encrypt Emails for put into webpage and prevents SPAM -convert to hexadecinal Sample: inf.

This code encrypt Emails for put into webpage and prevents SPAM -convert to hexadecinal Sample: inf

This code encrypt Emails for put into webpage and prevents SPAM -convert to hexadecinal Sample: inf Comments

Post your comment

Difficulty