[分享]加强认证码
2016-8-8 16:40 编辑 <br /><br /><P>鉴于暴力营销已经发到了这里……</P><P>推广一下自制的认证码加强补丁……</P>
<P>测试：</P>
<P>asp文件找不到了:(</P>
<P>不过把这个放到dvbbs的getcode.asp里也不难吧</P>
方法：修改getcode.asp
<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
Dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 To 3
zimg(i)=cint(mid(NStr,i+1,1))
Next
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.Fix"))
Ados1.write Ados.read(1280)
For i=0 To 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
Next
Ados.LoadFromFile(Server.mappath("images/head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
For i=0 To 9 Step 1
For j=0 To 3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
Next
Next
Response.ContentType = "image/BMP"
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
If Err Then Session("GetCode") = 9999
End Function
'Asp code Created by BlueIdea.COM Web Team V37 2003-7-25
%>
2016-8-8 16:40 编辑 <br /><br /><P>听起来不错！</P>
论坛认证码给关掉 了，很多人不喜欢认证，不过这个是猴子自己写的？？ 2016-8-8 16:40 编辑 <br /><br /><P>嗯……</P><P>关键是通过注册认证防止程序自动注册……</P>
<P>猴子……我又闯祸了……我去谢罪了……</P> 2016-8-8 16:40 编辑 <br /><br /><DIV class=quote><B>以下是引用<I>goenitzchild</I>在2005-7-8 23:36:00的发言：</B>
<P>猴子……我又闯祸了……我去谢罪了……</P></DIV>
<P>没这么严重
<P>族长来了
<P>PS:你在跑题</P>
<P>你的头像真猥琐……</P><P>没事没事……偶尔跑题正常……</P> 2016-8-8 16:40 编辑 <br /><br /><DIV class=quote><B>以下是引用<I>goenitzchild</I>在2005-7-10 0:44:00的发言：</B>
<P>你的头像真猥琐……</P>
<P>没事没事……偶尔跑题正常……</P></DIV>
<P>
<P>自产自销</P>
<P>猥琐教主怎么可能不猥琐呢</P>
2016-8-8 16:40 编辑 <br /><br /> 哦加认证码还行 我已经在某地习惯认证码了
2016-8-8 16:40 编辑 <br /><br /><P>加吧，严重支持</P><P>受不了那些广告了</P>
页:
[1]
2