Print Page | Close Window

stop spammers

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: General Discussion
Forum Description: General discussion and chat on any topic.
URL: https://forums.webwiz.net/forum_posts.asp?TID=29144
Printed Date: 28 March 2026 at 2:20pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: stop spammers
Posted By: MadDog
Subject: stop spammers
Date Posted: 21 February 2011 at 6:08am
So today while recoding my portal to use reCaptcha and improving anti-spammer functions all over the place i came across http://www.stopforumspam.com" rel="nofollow - www.stopforumspam.com

Just letting others know about it. Seems like a pretty cool thing for other forum admins. Im working on a site that has 25k+ members. 15K are all "unconfirmed". Just ran a test script to check emails against their API about 80%+ came back as spammers. Not sure about false positives just yet but seems like if their unconfirmed this long they probably stopped by to spam anyways.

Maybe other developers have systems that suffer from spammers and could benifit from it.

Here is a very crappy quickly coded snippet:

Dim objXmlHttp 
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") 

Dim saryMembers

strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_email FROM tblAuthor WHERE Active = 0 AND Author_email <> '';"

rsCommon.Open strSQL, adoCon

saryMembers = rsCommon.getRows()

rsCommon.Close
adoCon.Close
Set adoCon = Nothing
Set rsCommon = Nothing

Response.Write(vbCrLF & "<b>Total members to check: " & UBound(saryMembers, 2) + 1 & "</b><br />")

For intLoopCounter = 0 TO UBound(saryMembers, 2)
objXmlHttp.open "POST", "http://www.stopforumspam.com/api?email=" & saryMembers(1, intLoopCounter), False 

objXmlHttp.send "" 
Response.Write(vbCrLF & saryMembers(1, intLoopCounter) & " ")

If Instr(objXmlHttp.responseText , "<appears>yes</appears>") = 0 Then
Response.Write("<span style=""color: green;"">Good</span>")
Else
Response.Write("<span style=""color: red;"">Banned</span>")
End If

Response.Write("<br />")
Next

Set objXmlHttp = Nothing

Cya Wink



Replies:
Posted By: MadDog
Date Posted: 21 February 2011 at 7:01am
I posted to soon,  http://temerc.com/forums/viewtopic.php?f=79&t=6234" rel="nofollow - http://temerc.com/forums/viewtopic.php?f=79&t=6234

-------------
http://www.iportalx.net" rel="nofollow">


Posted By: webcommerce
Date Posted: 28 March 2011 at 6:39am
I have been using  http://akismet.com/ - http://akismet.com/ for all of my web forms and they get rid of 99% of spam that used to come through prior to installing their scripts.



Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net