VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



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

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="&#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




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

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

End Sub


Download this snippet    Add to My Saved Code

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

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.

Post your comment

Subject:
Message:
0/1000 characters