stop spammers

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   So today while recoding my portal to use reCaptcha and improving anti-spammer functions all over the place i came across 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 