Salve a tutti,
ricevendo tonnellate di SPAM direttamente dal form dei contatti del mio sito sto cercando di porre rimedio attraverso delle semplici funzioni, voi che filosofia adottate?
Un paio di esempi:
Controllo della validità di una E-Mail:
Restituisce "False " nel caso non sia ritenuta valida nella sintassi.codice:Function valida_email(email) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[A-Za-z0-9._-]+\@[A-Za-z0-9._-]+\.[a-z]{2,4}$" objRegExp.IgnoreCase = True valida_email = objRegExp.Test(email) End Function
Evitare che scrivano con i nostri account del sito stesso (riporto il mio):
Altro modo per evitare i SPAM BOT è l'inserimento di un codice di sicurezza, è vero, ormai molti software riescono ad arginare questa sicurezza attraverso degli OCR o altri algoritmi di lettura delle immagini stesse o dei caratteri, io ho modificato il processo con l'inserimento del proprio IP!codice:If Right(Request.Form("email"), 14) = "dscommerce.net" Then Response.redirect("contatti.asp") End If
Come ricavare l'IP del visitatore:
Quindi il visitatore dovrà compilare il Form con il suo IP, una maggiore sicurezza!codice:Request.ServerVariables("REMOTE_ADDR")
Voi cosa ne pensate, come agite o come agireste?
Grazie a tutti![]()

Rispondi quotando
