General Discussion - stop spammers

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

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.