• Home
 · 
• Internet/HTML
 · 
• Prevent that a robots found your email direction in your pages and send to you SPAMS , This code en

Prevent that a robots found your email direction in your pages and send to you SPAMS , This code en

Prevent that a robots found your email direction in your pages and send to you SPAMS , This code encrypt the html code ...

API Declarations


' a text1.text box with multiline and both scroll bars'
' a text2.text box with multiline and both scroll bars
´a command1 buttom
'
' How to use:
' put your email direction like:
' mailto:[email protected] in text1
' click into command buttom
' in the text2 apears the encrypt code
' copy and paste into your html page like:
' <a href="&#109;&#97;&#105;&#108;&#116;&#111;&#58;&#114;&#97;&#100;&#105;&#111;&#115;&#64;&#109;&#97;&#114;&#105;&#115;&#99;&#97;&#108;&#46;&#99;&#111;&#109;&#46;&#97;&#114;>Email me !!</a>
' this prevent to robot copy your email and put in theirs email database
' the robots ussualy search to any @ char and a . char






Rate Prevent that a robots found your email direction in your pages and send to you SPAMS , This code en

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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

Text2 = "<-- Corte y pegue desde aqui  -->" & vbCrLf & Text2 & vbCrLf & "<!-- hasta aqui -->"

End Sub