查看: 3176|回复: 2

防止暴力注册新方法-颠倒用户名

5340 主题	8360 帖子	1万积分

管理员

出售国内外虚拟空间

Rank: 10

积分: 14731
帖子: 8360
精华: 67
体力: 14731 点
蓝豆: 2391 点

注册时间: 2007-6-8

发表于 2007-6-21 19:34:00 | 显示全部楼层 |阅读模式

{$getcode}

在下面加入：

第二步：倒填检测项修改（reg.asp文件）

用记事本打开reg.asp文件，找到：

\'防止填写QQ号码为非数字类型 2005-3-22 Dv.Yz
If Isnumeric(Request.Form(\"OICQ\")) Then
Qq = Int(Request.Form(\"OICQ\"))
Else
Qq = \"\"
End If

在下面加入：

\'防暴力用户名倒填判断检测代码开始
dim username_che,rosLen,name_D,koomv_name
If Request.form(\"username_che\")=\"\" Then
Response.redirect \"showerr.asp?ErrCodes=

宝贝，不好意思，请您填写好用户名倒填项，否则无法注册哦！&action=OtherErr\"
Else
koomv_name=Request.form(\"username_che\")
rosLen=Len(koomv_name)
do while rosLen<>0
name_D=name_D+mid(koomv_name,rosLen,1)
if rosLen=0 then
exit do
else
rosLen=rosLen-1
end if
loop
username_che=name_D
If username_che<>username Then
Response.redirect \"showerr.asp?ErrCodes=

宝贝，你倒填的用户名没有通过系统验证，为了锻炼你的逆向思维，请继续！！&action=OtherErr\"
End If
End If
\'防暴力用户名倒填判断检测代码结束

第一步：增加注册必填项目

动网默认风格分页面模板(page_login)界面风格管理template.html(13) 找到：

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