quote:

---

Originally posted by AnonJr

I'm sure its possible, but it would require a little extra work.

---

quote:

---

Any hints on what that work would be, I'm getting hammered by theses idiots !

---

		"              <form name=""PostTopic"" method=""post"" action=""post_info.asp"""

		"              <form name=""PostTopic"" method=""post"" action=""38324785_post_info.asp"""

quote:

---

Originally posted by jitterwocky

I wrote some very similar code to take care of the problem.

--
Dim strSpamEmail
strSpamEmail = Request.Form("Email")
Dim strSpamIP
strSpamIP = "http://" & Request.ServerVariables("REMOTE_HOST")
if InStr(1,strSpamEmail,"@u-yep.com",1) > 0 then
response.redirect strSpamIP
end if
--

I found I had to Dim my variables before putting them in the InStr code otherwise valid registrants would be shown a Snitz error message. Perhaps that has something to do with my particular version of VBScript.

The "1"s in the InStr code make it so that case doesn't matter.

My favorite part is redirecting the spam bot back to its own server via REMOTE_HOST. If enough Snitz forums used this code then the spammer servers would essentially initiate a mild denial-of-service attack against themselves.

---

'Anti-ForumPoster code
Dim isSpambot : isSpambot = 0
Dim strSpamEmail : strSpamEmail = Request.Form("Email")
Dim strSpamIP : strSpamIP = "http://" & Request.ServerVariables("REMOTE_HOST")
agent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If InStr(agent, "forum poster") > 0 Then isSpamBot = 1
set rss = my_conn.execute("SELECT SPAM_SERVER FROM FORUM_SPAM_MAIL")
rss.MoveFirst
While not rss.EOF
	strSPAM_SERVER="@"&rss("SPAM_SERVER")
	if InStr(1,strSpamEmail,strSPAM_SERVER,1) > 0 then isSpamBot = 1
rss.MoveNext
wend 
rss.Close
set rss=Nothing
If InStr(agent, "fp.icontool.com") > 0 Then isSpamBot = 1
If InStr(agent, "icontool") > 0 Then isSpamBot = 1
If isSpambot = 1 Then Response.Redirect("http://" & Request.ServerVariables("REMOTE_ADDR"))
'End Anti-ForumPoster Code

quote:

---

Originally posted by Podge

quote:

---

Any hints on what that work would be, I'm getting hammered by theses idiots !

---

In the short term you could try renaming post_info.asp to something random like 38324785_post_info.asp
You will need to edit post.asp so that line 494 is changed from

		"              <form name=""PostTopic"" method=""post"" action=""post_info.asp"""

to

		"              <form name=""PostTopic"" method=""post"" action=""38324785_post_info.asp"""

---

quote:

---

Originally posted by sschaer

help needed. just downloaded the mod and did what it said in the readme file.

unfortunately i get the following error message :

Microsoft VBScript compilation error- Error '800a03ea'
Syntax error
/admin_spamserver.asp, line 143


i use windows xp pro (sp2) and no database (aka access like).

what could be the issue here ??

---

quote:

---

Originally posted by MarcelG

TO block top level domains, just add some lines in between, which are constructed like this:

(right(lcase(Request.Form("Email")),3)=".ru") or _

<

---