新闻观点

如何把登陆验证码,改成5位或者4位的?适用动易系统,dede系统。

2011-07-20 12:11:18   |   阅读次数:

方法一(适合动易cms版):
方法:

1、修改验证码文件 Inc/checkcode.asp 第15行、第32行、第41行 For i = 0 To 5,这是显示6位验证码的,如想显示4位,则改为 For i = 0 To 3。

2、修改所有站中要输入验证码的地方,如后台登录处改Admin目录中的Admin_Login.asp文件中的137行中的

下面为要修改的页面:
Admin/Admin_Login.asp 文件中的137行
User/User_GetPassword.asp 文件中的100行
User/User_Login.asp 文件中的99行
UserLogin.asp 文件中的76行
Install.asp (78行,这个就不必改了。^_^)

3、把下面提供的下载文件:Head.fix 放到网站根目录下的Images文件夹里(注重:因为这个Images文件夹里有同名的文件,但这个同名文件是启用6位验证码的文件,你可以把它改名,以备以后再启用6位验证码时能恢复使用)

下载文件:Head.rar


--------------------------------------------


方法二(适合动易SiteWeaver?版本)

1.修改验证码文件 Inc/checkcode.asp 第24行、第45行、第59行 For i = 0 To 5,这是显示6位验证码的,如想显示4位,则改为 For i = 0 To 3

2.然后将head.rar包内的文件覆盖服务器上image目录下同名文件,请先做备份


方法三 (需要一些技术基础)

将动易的验证码改成4位数,需要修改几个文件:

    一、用UltraEdit打开Head.Fix文件。head.fix文件在Images里找。

    将3C 改为28 就是4位验证码的宽度,改为1E就是3位的,改为14就是2位的,改为32就是5位的,改为0A就是1位的.

    二、这个文件修改后,再修改CheckCode.asp文件。修改的位置如下:
Dim zimg(4), NStr  '这里由6改为4
Randomize Timer
For i = 0 To 3  '这里由5改为3
  rNum = Fix(9 * Rnd) '将35改为9即为使用纯数字密码
  zimg(i) = rNum
  listnum = listnum & Mid(listcode, rNum + 1, 1)
Next
Session("CheckCode") = listnum
'*********************
Dim Pos
Set Ados = Server.CreateObject("Adodb.Stream")
Ados.Mode = 3
Ados.Type = 1
Ados.Open
Set Ados1 = Server.CreateObject("Adodb.Stream")
Ados1.Mode = 3
Ados1.Type = 1
Ados1.Open
Ados.LoadFromFile Server.mappath("../images/body" & CodeType & ".Fix")
Ados1.write Ados.Read(1920) '这里由2880改为1920
For i = 0 To 3 '这里由5改为3
  Ados.Position = (35 - zimg(i)) * 480
  Ados1.Position = i * 480
  Ados1.write Ados.Read(480)
Next
Ados.LoadFromFile Server.mappath("../images/head.fix")
Pos = LenB(Ados.Read())
'Ados.Position = Pos

On Error Resume Next
For i = 0 To 15
  For j = 0 To 3 '这里由5改为3
    Ados1.Position = i * 32 + j * 480
    Ados.Position = Pos + 30 * j + i * 270
    Ados.write Ados1.Read(30)
  Next
Next

    三、修改所有站中要输入验证码的地方,如后台登录处改Admin目录中的文件中的137行中的

    下面为要修改的页面:
Admin/                文件中的137行
User/                 文件中的100行
User/                 文件中的99行
UserLogin.asp         文件中的76行

首页 | 关于我们 | 网站建设 | 网站优化 | 服务范围 | 案例作品 | 信息资讯 | sitemap