by Luis Mariscal (11 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 3rd May 2005
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
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="mailto:radios@mariscal.com.ar>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
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
No comments have been posted about Prevent that a robots found your email direction in your pages and send to you SPAMS , This code en. Why not be the first to post a comment about Prevent that a robots found your email direction in your pages and send to you SPAMS , This code en.