Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Anti-bot Registration Puzzles or Images?

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
jamminjames Posted - 11 July 2009 : 17:07:37
I can't find any Mods on this in the forum -- has anyone written an anti-bot registration puzzle or image mod? Keeping up with these idiot porn-pushing registrations is a chore...
9   L A T E S T    R E P L I E S    (Newest First)
Shaggy Posted - 28 July 2009 : 04:11:26
There are other anti-spam features included in the latest version of Snitz that do not inconvenience real members.
jamminjames Posted - 27 July 2009 : 23:47:23
Worked perfectly! Thank you so much for all your help! I'm surprised Snitz doesn't include CAPTCHA code like this from the start, as the spammers are a real problem.
leatherlips Posted - 27 July 2009 : 20:13:33
Here you go.

In register.asp look for:

Dim strURLError
ABOVE that add:

'###################
'## Antispam Start
'####################
'We now set the code
strRCCode = Request.QueryString("rc")
strRC = Request.QueryString("code")
strRCP = Request.QueryString("p")

If strRC = "image" then
	NullStop = False
	RandCode = (strRCCode + 17456) / 50000
	lenCode = Len(RandCode)
	If LenCode < 6 and Nullstop = False then
	For J = 1 to (6 - LenCode)
		NullRC = NullRC & "0"
	Next
	NullStop = True
	End If
	RandCode = NullRC & RandCode
	ImageP = Mid(RandCode, strRCP,1)
	Response.Redirect "images/" & ImageP & ".gif"
Else
'#####################
'## Antspam End
'#####################

Then look for:

if Request.Form("Password") <> Request.Form("Password2") then
            Err_Msg = Err_Msg & "<li>Your Passwords didn't match.</li>"
         end if
      end if
AFTER that add:

'###########################
		'#### Antispam Error Start
		RandCode = Request.Form("reg_code")
		strRCCode = Request.Form("regid")
		RandCode2 = (strRCCode + 17456) / 50000
		lenCode = Len(RandCode2)
		NullStop = False
		If LenCode < 6 and Nullstop = False then
			For J = 1 to (6 - LenCode)
				NullRC = NullRC & "0"
			Next
			NullStop = True
		End If
		RandCode2 = NullRC & RandCode2

		If RandCode <> RandCode2 then
			Err_Msg = Err_Msg & "<li>The registration code you have enterd is not correct!</li>"
		End If
		'#### Antispam Error End 
		'########################

Then look for the third instance of:

WriteFooter
AFTER that add:

'#### Antispam modification
end if
'#### Antispam End
Lastly, make sure the number image files are where all of your other forum images are, most likely a folder named images.
leatherlips Posted - 27 July 2009 : 17:14:48
OK. I'll post that a little later, my wife is on my main computer.
jamminjames Posted - 27 July 2009 : 16:17:01
Thanks, but the info they give for the register.asp file is also off, so it's hard to tell where to insert that code as well.
leatherlips Posted - 27 July 2009 : 15:24:19
If I remeber right, those instructions assume you have the active users mod installed. Here is where you should place the code if you don't have that mod installed:

In inc_profile.asp look for the second instance of:

if Request.Form("Method_Type") = "Modify" then

ABOVE that add:
'########################
'## Anti-Spam Code Start
'########################

'We check that the page calling the profile is the register.asp

If Right(Request.Servervariables("SCRIPT_NAME"),12) = "register.asp" then
		'Defining the randomized code
		'We define the number of images to show

		HowManyNbr = 6

		'We loop through the Number Generating to get all the HowManyNbr

		NumbersToShow = ""
		Randomize

		For I = 1 to HowManyNbr
			NumbersToShow = NumbersToShow & Fix(9*Rnd)
		Next

		'We will now decode the randomized numbers (Very Simple)
		RandomizedCode = NumbersToShow * 50000 - 17456

		'We genearte the table now

		Response.Write "                    <tr>" & vbNewLine & _
				"                      <td valign=""top"" align=""center"" colspan=""2"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Registration Anti SPAM Confirmation</font></b></td>" & vbNewLine & _
				"                    </tr>" & vbNewLine & _
				"                    <tr>" & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
				"Your unique registration code</b><br>If you do not see any numbers, or see broken "& vbNewLine & _
				"images, please contact a board administrator to rectify the problem.</td>"& vbNewLine
		Response.Write	"                      </font></td>" & vbNewLine & _
				"                    </tr>" & vbNewLine & _
				"                    <tr>" & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
		Response.Write "<input type='hidden' name='regid' value='"& RandomizedCode &"'>"& vbNewLine
		'We now define the images
		'Again we loop through to get the image number
		NullStop = False
		Response.Write "                    </tr>" & vbNewLine & _
				" <tr>"  & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """></font> </font></b></td>" & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
		For I = 1 to HowManyNbr
			Response.Write "<img src='register.asp?code=image&rc=" & RandomizedCode &"&p=" & I & "' border='0' alt='Code'>"& vbNewLine
		Next
		Response.Write "                    </tr>" & vbNewLine & _
				" <tr>"  & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
				"<b>Confirm registration code</b><br>To prevent mass registration programs from registering " &_
				"accounts, please enter the 6 digit code shown above in image format.<br>Note: Only numbers are " & _
				" allowed, a '0' is a numerical zero, not the alphabetical 'O'.</td>"& vbNewLine
		Response.Write	"                      </font></td>" & vbNewLine & _
				"                    </tr>" & vbNewLine & _
				" <tr>"  & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> </font></b></td>" & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
				" <input type='text' size='7' maxlength='6' name='reg_code' class='forminput'>" & vbNewLine
		Response.Write	"                      </font></td>" & vbNewLine & _
				"                    </tr>" & vbNewLine
End If

'#######################
'## Anti-Spam Code - END
'#######################

If you need more help let me know.
jamminjames Posted - 27 July 2009 : 13:59:06
leatherlips,

I checked out yours and it looks good, I'd like to use it. But when I downloaded the files at http://www.snitzbitz.com/mods/details.asp?Version=All&mid=139 and went to make the changes to inc_profile.asp as the instructions say, the section it describes to place the new code is not there, at least not as they have it. They say there's a section above line 507 that starts with:

if strAUAnon = "1" then

but there is nothing in the whole file with "strAUAnon" in it. There are also other phrases they mention that should be there that are not. Therefore, I don't know where to put the new code. Please help. Thanks.
leatherlips Posted - 11 July 2009 : 22:39:41
Here is one at Snitzbitz.

I have this one installed on my forum and it seems to work really well. You can go to my register page or contact page to see what it looks like.
Carefree Posted - 11 July 2009 : 20:29:58
Search for "CAPTCHA"

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.05 seconds. Powered By: Snitz Forums 2000 Version 3.4.07