die funktion konvertiert die zeichen beliebiger strings (in dem fall mail-adressen) in den entsprechenden ascii-wert... was es mail-spidern ziemlich schwer macht, zum beispiel mailadressen von websites (gästebücher, foren) zu grabben - die funktion zB in nem href bleibt die gleiche, d.h. der user bekommt davon nix mit.
Function MailCrypt(strMail)
Dim a, i
For i = 1 To Len(strMail)
a = a & "&#" & Asc(Mid(strMail,i,1)) & ";"
Next
MailCrypt = a
End Function