时间： 2007-11-09 18:31:54 阅读次数：4979
方法1:
自己动手改程序,原理就是根据人注册的过程和机器的不同来防止的.找到reg.asp页面.
在大概108行Sub reg_1()的里面加上
Sub reg_1()session("regTime")=now()
再在sub reg_3() 里面加这个代码,我是加在295行验证码代码的后面的
If session("regTime")="" or DateDiff("s",session("regTime"),now())<10 Then目前系统维护中,请稍后访问.&action=OtherErr" If Request.Form("myface")="userface/image1.gif" Then
目前系统维护中,请稍后访问.&action=OtherErr" 目前系统维护中,请稍后访问.&action=OtherErr"
If Request.Form("myface")="userface/image1.gif" Then
目前系统维护中,请稍后访问.&action=OtherErr" 目前系统维护中,请稍后访问.&action=OtherErr"
If Request.Form("myface")="userface/image1.gif" Then
目前系统维护中,请稍后访问.&action=OtherErr" 目前系统维护中,请稍后访问.&action=OtherErr"
If Request.Form("myface")="userface/image1.gif" Then
目前系统维护中,请稍后访问.&action=OtherErr" 目前系统维护中,请稍后访问.&action=OtherErr"
If Request.Form("myface")="userface/image1.gif" Then
目前系统维护中,请稍后访问.&action=OtherErr" 目前系统维护中,请稍后访问.&action=OtherErr"
If Request.Form("myface")="userface/image1.gif" Then
目前系统维护中,请稍后访问.&action=OtherErr" 目前系统维护中,请稍后访问.&action=OtherErr"
If Request.Form("myface")="userface/image1.gif" Then
目前系统维护中,请稍后访问.&action=OtherErr"
方法2:
先看程序（以动网官方Dvbbs7.1.0_Ac[2005.07.04]最新的reg.asp文件为准）
1、找到235行－246行的内容
以下是引用片段： If Request.form("quesion")="" Then
"+template.Strings(11) "+template.Strings(11)
在其下面插入
以下是引用片段： '防止恶意注册添加项 by xintiao您没有回答“防恶意注册问题答案”！&action=OtherErr" 请回答正确的“防恶意注册问题答案”！&action=OtherErr"
2、114行处找到
以下是引用片段：
在其下面添加一行
以下是引用片段：
然后再看风格处的修改，后台界面风格模板总管理page_login template.html(13)中找到
在其下面插入
以下是引用片段： 本论坛的中文名称是什么？ 此条为防止恶意注册必填项！答案：{$Forumname}
第二步:在reg.asp的适当位置加入判断代码,我更改如下(红色部分)
"+template.Strings(11)If cint(Request.form("todaydate"))<>datepart("d",date) Then"+"请填写正确的日期!" "+template.Strings(11)
方法四:
暴力营销软件采用了外部注册，直接获取form对象post提交的方式，我用了原来的5种经典方法，都遭破解了，目前最新的延时注册法似乎还不错，不过相信很快那个暴力软件会延长注册时间了，毕竟电脑跑一天注册1万个论坛，暴力营销使用者也可以接受。
所以我修改了reg.asp,而且很方便随时修改，这样估计暴力营销软件注册都没有门。
我的思路就是在基本注册那里增加一个input，也就是输入框，类似这样效果：
修改这个在：模版总管理--分页面模板(page_login)
在密码问题之前修改为：注意那个input的name要和后来的代码配套哈！比如我这里取得是haha
//--------------------------------------------------------
用户验证 ：防止机器人自动注册发广告的验证。
//------------------------------------------------------------以上才是新增加的内容
//------------------------------------------------------------以下是紧接的原来的内容，很好找的
密码问题 ：然后要把reg.asp ftp回来修改，还是比较麻烦哈。
找到sub reg_3()
Sub reg_3()
'---------------------------------以下是增加内容
"+"请填写防止机器人自动注册验证码内容，谢谢！"
'----------------以上是增加内容
普通人注册，看到了就明白了，自己填写你说明的文字即可，机器人当然不明白，只会发现注册不起了，呵呵。 飞飞Asp技术乐园
我觉得应该可以哈，不过今天以前我都是要求用户验证，但是我还是懒得验证，而且用户也麻烦，所以我今天下定决心修改了，大家看看到底行不行，我已经把我论坛修改了，本来每天有3-10个机器人注册的，不知道明天什么效果，呵呵。
如果方法可以，大家顶以下，我再想想其它更加简单的办法。 飞飞Asp技术乐园
对了，这个办法如果机器人的主人手工注册了一个，或者调整了软件，我们就修改那个name和填写的内容，随便两个都可以，我有空再做个补丁，我们随时可以更改内容，甚至要求用户填写的是一个动态的东西，除非这个成为动网标准，否则机器人理论上不可能还可以提交的。
方法5:
DVBBS根目录下——编辑 reg.asp
If Cint(dvbbs.Forum_Setting(37))=0 Then
"+template.Strings(26)
改成下列代码:
If Cint(dvbbs.Forum_Setting(37))=0 Then
"+template.Strings(26) 红色部分为修改的内容
方法6:
以下方法适用于动网论坛7.1及7.1SP1
让注册者回答随机问题
修改方法如下：蓝色代码为已存在代码，红色代码是新增加代码。 飞飞Asp.技术乐园
1. 进入后台，风格界面模板总管理，page_login,template.html(13)
密码问题 ：在此两句上面 添加如下代码
反论坛群发必填项:
为了防止群发软件的恶意注册，
请回答以下问题
{$EvilQuesion}
2. 打开reg.asp，找到TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5)) Randomize Else 在其下添加If Request.Form("EvilAnswer")="" Then
"+"请填写防恶意注册问题!" "+ "防恶意注册问题回答错误，请返回重试。 "
3. 增加一个新文件CheckEvil.asp，填写如下代码，并上传到论坛inc目录下，即 /inc/CheckEvil.asp。 <%
Function CheckEvil(Answer)
End Function
QuesionArray(0)="12的平方是多少？（数字）"
%>
针对方法2的参数查询补充
Dvbbs.7.1.0变量参数查询表
==================系统信息设置参数单==================
==================系统设置设置参数==================
==================用户积分设置参数==================
==================论坛其它设置参数==================
Dvbbs.BadWords(0)=欲过滤的脏话字符串(0)
==================板块相关参数==================
Dvbbs.Board_Setting(56)=是否开放定员帖子***能（0=关闭，1=开放）
Dvbbs.IsGroupSetting=版块中有自定义权限的用户组（以阴文逗号“,”分隔）
==================广告设置参数==================
==================用户参数==================
Dvbbs.UserToday(0)=用户今日发帖数
Dvbbs.UserGroupID=用户组ID
Dvbbs.GroupSetting(0)=可以浏览论坛（0=否，1=是）
================其它属性信息================
====================================
Allonline,只读属性，不能赋值，记录论坛总在线数字,调用如同使用一个变量dvbbs.Allonline
Dvbbs.ScriptName（访问脚本名称）
函数部分：。 。
