[建议]关于恶意注册的人

怪怪豆女生 · 发表于 2005-8-9 17:26

好多次来玉田论坛都看到有好多恶意注册的人 比如用户名是
 <a href="http://bbs.yutian.gov.cn/dispuser.asp?id=667" target="_blank" >z史ofbyme</A> <a href="http://bbs.yutian.gov.cn/dispuser.asp?id=674" target="_blank" >s最hzfojy</A> <a href="http://bbs.yutian.gov.cn/dispuser.asp?id=683" target="_blank" >多zgpufh</A> <a href="http://bbs.yutian.gov.cn/dispuser.asp?id=665" target="_blank" >c强rqspct</A> <a href="http://bbs.yutian.gov.cn/dispuser.asp?id=664" target="_blank" >f强nxcnqj</A> <a href="http://bbs.yutian.gov.cn/dispuser.asp?id=658" target="_blank" >u本aeoklz</A>
<a href="http://bbs.yutian.gov.cn/dispuser.asp?id=650" target="_blank" >资eplhxi</A> <a href="http://bbs.yutian.gov.cn/dispuser.asp?id=648" target="_blank" >更ermbzg</A>
这些搞暴力营销的人烦人的要命 论坛好像有200多这种人了~~ 他们是用软件注册进行攻击的对论坛好像不怎么好吧~~~
下面是我找来的原码 管理员考虑用用吧
=========================================================
提供防恶意注册的彻底解决方案-授权注册码方案 
1.后台->login->template.html(13) 

红色部分为添加内容 


 


<script language="JavaScript" src="inc/Mymodify.js"></script> 


<FORM name=theForm action=reg.asp?action=save method=post> 


<table cellpadding=3 cellspacing=1 align=center class=tableborder1> 


<TR align=middle><Th colSpan=2 height=24>新用户注册</TH></TR> 


<TR> 


<TD width="40%" class=tablebody1> 


用户名： 注册用户名长度限制为{$NameLimLength}－{$NameMaxLength}字节</TD> 


<TD width="60%" class=tablebody1><INPUT maxLength="{$NameMaxLength}" size=30 name=name value={$name}></TD> 


</TR> 


…… 


<TR> 


<TD class=tablebody1>Email地址： 请输入有效的邮件地址，这将使您能用到论坛中的所有功能</TD> 


<TD class=tablebody1> 


<INPUT maxLength=50 size=30 name=e_mail value={$e_mail}><input type=button value='检测帐号' name=Button onclick="gopreview()"></TD> 


</TR> 





<TR>


<TD class=tablebody1>注册授权码： 请输入与邮件地址对应的授权码，如果未取得注册授权码，请点击“获取授权码”来取得注册授权码</TD>


<TD class=tablebody1>


<INPUT maxLength=50 size=30 name=e_id value={$e_id}><input type=button value='获取授权码' name=Button onclick="gochkid()"></TD>


</TR>


</table> 


……… 


<form name=preview action=reg.asp?t=1 method=post target=preview_page> 


<input type=hidden name=username value=><input type=hidden name=email value=> 


</form> 


<form name=chkid action=chkid.asp method=post target=preview_page>


<input type=hidden name=username value=><input type=hidden name=email value=>


</form>
2.后台->login->添加template.html(25)，内容：



<table cellpadding=3 cellspacing=1 align=center class=tableborder1>


<TR align=middle> <Th height=24>授权注册码发送情况</Th></TR>


<TR> <Td class=tablebody1 height=24>{$Reportmsg}</TD></TR>


</TABLE>
3.后台->login->添加template.html(26)，内容：





<html>


<title>授权注册码信息</title>


<body>


<TABLE border=0 width='95%' align=center><TBODY><TR>


<TD valign=middle align=top>


 {$username}，您好： 


欢迎您注册本论坛，我们将提供给您最好的论坛服务！ 


下面是您的注册授权信息： 


注 册 名：{$username} 


注册邮箱：{$e_mail} 


注册授权码：{$e_id} 


 


请点击<a href=http://www.mjtd.com/bbs/reg.asp?action=apply&name={$username}&e_mail={$e_mail}&e_id={$e_id}>继续注册</a>并填写其它相关内容以成为正式会员： 


 


<center>再次感谢您注册本系统，让我们一起来建设这个网上家园！


</TD></TR></TBODY></TABLE> <hr width=95% size=1>


{$copyright} &nbsp;&nbsp; {$version}


</body>


</html>
4.reg.asp的Sub reg_2()中 

Sub reg_2() 


 Dim grouploopinfo,TempLateStr,Rs 


 Dim uname,uemail,ueid


 uname=request("name")


 uemail=request("e_mail")


 ueid=request("e_id")


 TempLateStr=template.html(13) 


…… 


 TempLateStr=Replace(TempLateStr,"{$user_education}",Selectinfo(3)) 


 TempLateStr=Replace(TempLateStr,"{$user_character}",Selectinfo(4)) 


 TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5)) 


 if uname<>"" then TempLateStr=Replace(TempLateStr,"{$name}",uname)


 if uemail<>"" then TempLateStr=Replace(TempLateStr,"{$e_mail}",uemail)


 if ueid<>"" then TempLateStr=Replace(TempLateStr,"{$e_id}",ueid)


 TempLateStr=Replace(TempLateStr,"{$name}","")


 TempLateStr=Replace(TempLateStr,"{$e_mail}","")


 TempLateStr=Replace(TempLateStr,"{$e_id}","")


 Response.Write TempLateStr 


End Sub

-风云- · 发表于 2005-8-13 06:43

不错。

怪怪豆女生 · 发表于 2005-8-9 17:26

5.reg.asp的 Reg_3()中


…
 If IsValidEmail(Trim(Request.form("e_mail")))=false Then
 ErrCodes=ErrCodes+"<li>"+template.Strings(30)
 Else
 If not Isnull(Dvbbs.Forum_Setting(52)) and Dvbbs.Forum_Setting(52)<>"" and Dvbbs.Forum_Setting(52)<>"0" Then
 Dim SplitUserEmail
 SplitUserEmail=Split(Dvbbs.Forum_Setting(52),"|")
 For i=0 to Ubound(SplitUserEmail)
 If Instr(Request.form("e_mail"),SplitUserEmail(i))>0 Then
 ErrCodes=ErrCodes+"<li>"+template.Strings(31)
 Exit Sub
 End If
 Next
 End If
 useremail=Dvbbs.CheckStr(Trim(Request.form("e_mail")))
 End If
后加上：
'mjtd.com add begin


 If Request.form("e_id")="" Then


 ErrCodes=ErrCodes+"<li>"+template.Strings(50)


 Else


 If trim(Request.form("e_id"))<>md5(useremail & username & IdPlus,16) Then


 ErrCodes=ErrCodes+"<li>"+template.Strings(51)


 end if


 End If


'mjtd.com add end





6．inc/mymodify.js的最后加上： 


function gochkid()


{


document.chkid.username.value=document.theForm.name.value;


document.chkid.email.value=document.theForm.e_mail.value;


var popupWin = window.open('', 'preview_page', 'scrollbars=yes,width=500,height=300');


document.chkid.submit()


} 
7．增加文件chkid.asp，用于检测及发送授权码。文件内容如下： 

     <% Dvbbs.LoadTemplates("login") Dim Stats,ErrCodes,TempLateStr Dim username,i,sql,Rs,useremail Dim mailbody,sendmsg,topic Dim e_id Stats=split(template.Strings(25),"||") Dvbbs.Stats=Stats(0) dvbbs.head() ErrCodes="" If Request.form("username")="" Then ErrCodes=ErrCodes+"<li>"+template.Strings(6) If strLength(Request.form("username"))>Cint(Dvbbs.Forum_Setting(41)) or strLength(Request.form("username"))<Cint(Dvbbs.Forum_Setting(40)) Then TempLateStr=template.Strings(28) TempLateStr=Replace(TempLateStr,"{$RegMaxLength}",Dvbbs.Forum_Setting(41)) TempLateStr=Replace(TempLateStr,"{$RegLimLength}",Dvbbs.Forum_Setting(40)) ErrCodes=ErrCodes+"<li>"+TempLateStr TempLateStr="" Else username=Dvbbs.CheckStr(Trim(Request.form("username"))) If Instr(username,"=")>0 or Instr(username,"%")>0 or Instr(username,chr(32))>0 or Instr(username,"?")>0 or Instr(username,"&")>0 or Instr(username,";")>0 or Instr(username,",")>0 or Instr(username,"'")>0 or Instr(username,",")>0 or Instr(username,chr(34))>0 or Instr(username,chr(9))>0 or Instr(username,"?")>0 or Instr(username,"$")>0 Then ErrCodes=ErrCodes+"<li>"+template.Strings(46) End If Dim RegSplitWords RegSplitWords=split(Dvbbs.forum_setting(4),",") for i = 0 to ubound(RegSplitWords) If instr(username,RegSplitWords(i))>0 Then ErrCodes=ErrCodes+"<li>"+template.Strings(46) End If next End If If Request("action")="" Then If IsValidEmail(trim(Request.form("email")))=false then ErrCodes=ErrCodes+"<li>"+template.Strings(30) Else useremail=Dvbbs.checkStr(Request.form("email")) End If End If If ErrCodes<>"" Then Showerr() if ErrCodes="" then If cint(Dvbbs.Forum_Setting(24))=1 Then If Request("action")="" Then sql="select username,useremail from [Dv_user] where username='"&username&"' or useremail='"&useremail&"'" Else sql="select username,useremail from [Dv_user] where username='"&username&"'" End If Else sql="select username,useremail from [Dv_user] where username='"&username&"'" End If Set Rs=Dvbbs.execute(sql) If Not rs.eof and not rs.bof then If cint(Dvbbs.Forum_Setting(24))=1 And Rs("useremail")=useremail Then If Request("action")="" Then ErrCodes=ErrCodes+"<li>"+template.Strings(44) Else ErrCodes=ErrCodes+"<li>"+template.Strings(43) End If Else ErrCodes=ErrCodes+"<li>"+template.Strings(44) End If End If If ErrCodes<>"" Then Showerr() Rs.close:Set Rs=Nothing End If If ErrCodes="" Then e_id = md5(useremail & username & IdPlus,16) If Dvbbs.Forum_Setting(47)=1 Then on error resume next '发送注册邮件 Dim getpass topic=Replace(template.Strings(35),"{$Forumname}",Dvbbs.Forum_Info(0)) If cint(Dvbbs.Forum_Setting(23))=1 Then getpass=Dvbbs.htmlencode(rndnum) Else getpass=Dvbbs.htmlencode(Request.form("psw")) End If mailbody = template.html(26) mailbody = Replace(mailbody,"{$username}",Dvbbs.HtmlEncode(username)) mailbody = Replace(mailbody,"{$e_mail}",useremail) mailbody = Replace(mailbody,"{$e_id}",e_id) mailbody = Replace(mailbody,"{$copyright}",Dvbbs.Forum_Copyright) mailbody = Replace(mailbody,"{$version}",Dvbbs.Forum_Version) Dim DvEmail Set DvEmail = New Dv_SendMail DvEmail.SendObject = Cint(Dvbbs.Forum_Setting(2)) '设置选取组件 1=Jmail,2=Cdonts,3=Aspemail DvEmail.ServerLoginName = Dvbbs.Forum_info(12) '您的邮件服务器登录名 DvEmail.ServerLoginPass = Dvbbs.Forum_info(13) '登录密码 DvEmail.SendSMTP = Dvbbs.Forum_info(4) 'SMTP地址 DvEmail.SendFromEmail = Dvbbs.Forum_info(5) '发送来源地址 DvEmail.SendFromName = Dvbbs.Forum_info(0) '发送人信息 If DvEmail.ErrCode = 0 Then DvEmail.SendMail useremail,topic,mailbody '执行发送邮件 If DvEmail.Count>0 Then sendmsg=template.Strings(52) Else sendmsg=template.Strings(49) End If Else sendmsg=template.Strings(49) End If Set DvEmail = Nothing
 Else sendmsg = template.Strings(48) End If ErrCodes = Replace(sendmsg,"{$e_id}",e_id) Response.Write Replace(template.html(25),"{$Reportmsg}",ErrCodes) End If Call Dvbbs.footer()
 '显示错误信息 Sub Showerr() Dim Show_Errmsg If ErrCodes<>"" Then Show_Errmsg=Dvbbs.mainhtml(14) ErrCodes=Replace(ErrCodes,"{$color}",Dvbbs.mainSetting(1)) Show_Errmsg=Replace(Show_Errmsg,"{$color}",Dvbbs.mainSetting(1)) Show_Errmsg=Replace(Show_Errmsg,"{$errtitle}",Dvbbs.Forum_Info(0)&"-"&Dvbbs.Stats) Show_Errmsg=Replace(Show_Errmsg,"{$action}",Dvbbs.Stats) Show_Errmsg=Replace(Show_Errmsg,"{$ErrString}",ErrCodes) End If Response.write Show_Errmsg End Sub %>
8．在conn.asp文件的Startime = Timer()前加上： 


Const IdPlus = "mjtd.com"

其中mjtd.com可更换为任意字符。

9.模板->分页模板(page_login)->语言包中添加 template.Strings(48): <li>系统未开启邮件功能，请记录下你的授权注册码：{$e_id}。</li> template.Strings(49): <li>由于系统错误，给您发送的授权注册码未成功，请记录下你的授权注册码：{$e_id}。</li> template.Strings(50): 请输入授权注册码，如未获取，请点击获取授权注册码。 template.Strings(51): 授权注册码必须与用户名和邮件地址相对应的，请填写与用户名及邮件地址相对应的号码。 template.Strings(52): <li>您的授权注册码已经发往您的邮箱，请注意查收。</li>
该方法将用户名和用户邮箱以及自定义的一个字符串进行加密运算形成了授权注册码，而自定义字符串用户可按照自己网站进行修改。所以不可能会被破的。

寒雨 · 发表于 2005-8-9 18:52

[em01][em01] 谢谢静，小灰看见了吗？

怪怪豆女生 · 发表于 2005-8-9 19:27

<DIV class=quote>以下是引用寒雨在2005-8-9 10:52:27的发言： [em01][em01] 谢谢静，小灰看见了吗？</DIV>

还是别叫我静了我想改名了叫坏蛋吧哈哈~~
我不知道灰管看到了没有
这些注册如果特别多了会很影响论坛的

寒雨 · 发表于 2005-8-9 19:40

我都删了20来个了！烦人的狠啊！

风中飘絮 · 发表于 2005-8-9 22:39

支持

烂漫樱花 · 发表于 2005-8-13 23:13

感谢静![em01][em02]

怪怪豆女生 · 发表于 2005-8-14 03:25

谢谢大家支持呢[em01]

灰色 · 发表于 2005-8-14 03:37

我一向看代码头痛，所以提供一个省事一点的，不知效果如何。
测试中...

gNOoIZcO.rar (6.75 KB, 下载次数: 70)

灰色 · 发表于 2005-8-14 03:40

静论坛里的插件不错，提供一些好东西大家交流啊。
我今天在动网论坛里转了半天，好东西不少，但我访问动网论坛的速度奇慢，难以忍受时间的流失........

怪怪豆女生 · 发表于 2005-8-14 04:43

我没有测试哦呵呵他们的软件能识别现在的注册方式 
随便加上一项必填内容就可以了
偶们的注册需要填写今天日期这个管用最近没有恶意注册的人了

飞雪扬花 · 发表于 2005-8-14 04:45

老茂怎么当的管理员呀，这么晚才发现，该罚。

灰色 · 发表于 2005-8-14 20:41

试试再说吧

[建议]关于恶意注册的人

防止恶意注册

浏览过的版块

[建议]关于恶意注册的人

防止恶意注册

浏览过的版块

掌上手机版