两招解决动网论坛被群发软件强奸的难题
先警告一下，那些用群发软件的菜鸟站长：
你别286了，这种方法，98年以前还有效，2000年基本没人用了，2006你还在用，说明你落伍了。
这种万人恨，千人烦的手段，不要用了，今天我就动网论坛出两招，让你的群发软件彻底下岗。
方法一，新手适合：
将reg.asp文件改成其它文件名如reg_new.asp传到论坛目录下面!
然后将reg.asp文件里的内容改成如下内容
在此两句上面添加如下代码
2. 打开reg.asp，找到
在其下添加
找到
在其下添加
找到
在其下添加
3. 增加一个新文件CheckEvil.asp，填写如下代码，并上传到论坛inc目录下，即 /inc/CheckEvil.asp。
你别286了，这种方法，98年以前还有效，2000年基本没人用了，2006你还在用，说明你落伍了。
这种万人恨，千人烦的手段，不要用了，今天我就动网论坛出两招，让你的群发软件彻底下岗。
方法一，新手适合：
将reg.asp文件改成其它文件名如reg_new.asp传到论坛目录下面!
然后将reg.asp文件里的内容改成如下内容
QUOTE:
<html>
<body>
<br><br>
<p align="center">要注册成为XXXXXXXXXX论坛的用户，请点击“<a href="reg_new.asp">下一步</a>”<br><br><br><br><br><br>
这是做是为了防止某些网络营销软件自动注册而影响到论坛的正常运行！
</body>
</html>
<body>
<br><br>
<p align="center">要注册成为XXXXXXXXXX论坛的用户，请点击“<a href="reg_new.asp">下一步</a>”<br><br><br><br><br><br>
这是做是为了防止某些网络营销软件自动注册而影响到论坛的正常运行！
</body>
</html>
这样的话,当用户点击reg.asp的时候,必需要点"下一步"才能注册,而网络营销软件不会探测到reg_new.asp的,因为后台模板的代码里根本没有提到reg_new.asp这个真正的注册用户文件!
方法二，老少皆宜，一招致命：
让注册者回答随机问题
显然，这是上个思路的一点改进。至于在效果上是否有区别，还未实践证明。
这里我给出了修改方法。蓝色代码为已存在代码，红色代码是新增加代码。
1. 进入后台，风格界面模板总管理，page_login,template.html(13)
QUOTE:
<TR>
<TD class=tablebody1><B>密码问题</B>：<BR>忘记密码的提示问题</TD>
<TD class=tablebody1><B>密码问题</B>：<BR>忘记密码的提示问题</TD>
在此两句上面添加如下代码
QUOTE:
<TR>
<TD class=tablebody1>
<div style="color:red"><b>反论坛群发必填项:</b></div>
<div>为了防止群发软件的恶意注册，</div>
<div>请回答以下问题</div>
<div style="color:blue;font-size=18px"><b>{$EvilQuesion}<b></div>
</TD>
<TD class=tablebody1><INPUT size=30 name=evilanswer> </TD>
</TR>
<TD class=tablebody1>
<div style="color:red"><b>反论坛群发必填项:</b></div>
<div>为了防止群发软件的恶意注册，</div>
<div>请回答以下问题</div>
<div style="color:blue;font-size=18px"><b>{$EvilQuesion}<b></div>
</TD>
<TD class=tablebody1><INPUT size=30 name=evilanswer> </TD>
</TR>
2. 打开reg.asp，找到
QUOTE:
<!--#include file="inc/md5.asp"-->
在其下添加
QUOTE:
<!--#include file="inc/CheckEvil.asp"-->
找到
QUOTE:
TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))
在其下添加
QUOTE:
Randomize
Session("EvilID")=int(Rnd*QuesionNum)
TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("EvilID")))
Session("EvilID")=int(Rnd*QuesionNum)
TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("EvilID")))
找到
QUOTE:
Else
quesion=Request.form("quesion")
End If
quesion=Request.form("quesion")
End If
在其下添加
QUOTE:
If Request.Form("EvilAnswer")="" Then
ErrCodes=ErrCodes+"<li>"+"请填写防恶意注册问题!"
End If
If Not CheckEvil(Request.Form("EvilAnswer")) Then
ErrCodes=ErrCodes+"<li>"+ "防恶意注册问题回答错误，请返回重试。"
End If
ErrCodes=ErrCodes+"<li>"+"请填写防恶意注册问题!"
End If
If Not CheckEvil(Request.Form("EvilAnswer")) Then
ErrCodes=ErrCodes+"<li>"+ "防恶意注册问题回答错误，请返回重试。"
End If
3. 增加一个新文件CheckEvil.asp，填写如下代码，并上传到论坛inc目录下，即 /inc/CheckEvil.asp。
QUOTE:
<%
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=5 '请在这里正确设置问题的总数
Function CheckEvil(Answer)
Dim TrueAnswer
If Session("EvilID")="" Then
CheckEvil=False
Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
If Answer=TrueAnswer Then
CheckEvil=true
End If
End Function
QuesionArray(0)="12的平方是多少？（数字）"
AnswerArray(0)="144"
QuesionArray(1)="中国最长的河流叫什么名字？"
AnswerArray(1)="长江"
QuesionArray(2)="“举头望明月”的下句是什么？（提示：低头??乡）"
AnswerArray(2)="低头思故乡"
QuesionArray(3)="“举头望明月”的下句是什么？（提示：低头??乡）"
AnswerArray(3)="低头思故乡"
QuesionArray(4)="中国史上唯一的女皇是谁？（提示：武?天）"
AnswerArray(4)="武则天"
%>
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=5 '请在这里正确设置问题的总数
Function CheckEvil(Answer)
Dim TrueAnswer
If Session("EvilID")="" Then
CheckEvil=False
Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
If Answer=TrueAnswer Then
CheckEvil=true
End If
End Function
QuesionArray(0)="12的平方是多少？（数字）"
AnswerArray(0)="144"
QuesionArray(1)="中国最长的河流叫什么名字？"
AnswerArray(1)="长江"
QuesionArray(2)="“举头望明月”的下句是什么？（提示：低头??乡）"
AnswerArray(2)="低头思故乡"
QuesionArray(3)="“举头望明月”的下句是什么？（提示：低头??乡）"
AnswerArray(3)="低头思故乡"
QuesionArray(4)="中国史上唯一的女皇是谁？（提示：武?天）"
AnswerArray(4)="武则天"
%>
网页吧·中国站长第一门户
