• Home
 · 
• Internet/HTML
 · 
• 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: [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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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

For i = 1 To Len(Text1)
    df = Mid$(Text1, i, 1)
    result = Asc(df)
        'm
    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