validatecode.php

来自「PHP免费网摘程序 详细说明: 安装说明： 1、把文件上穿上去以后」· PHP 代码 · 共 54 行

<?
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-control","no-cache"
Dim Rndnum,ImgFilecontent
Randomize Timer
Rndnum = cint(7999*Rnd+1000)
Session("mmei8") = cstr(Rndnum)
ImgFilecontent=numcode(Rndnum)
Response.contentType = "image/BMP"
Response.BinaryWrite ImgFilecontent

Function numcode(numS)
    Dim numI,numJ
    Dim AdoM,AdoN
    Dim Arr_Img(4),NStr
        NStr=cstr(numS)
        For numI=0 To 3
            Arr_Img(numI)=cint(Mid(NStr,numI+1,1))
        Next
    Dim Position
    Set AdoM=Server.createObject("Adodb.Stream")
        AdoM.Mode=3
        AdoM.Type=1
        AdoM.Open
        Set AdoN=Server.createObject("Adodb.Stream")
        AdoN.Mode=3
        AdoN.Type=1
        AdoN.Open
        AdoM.LoadfromFile(Server.Mappath("validatebody.fix"))
        AdoN.Write AdoM.Read(1280)
        For numI=0 To 3
            AdoM.Position=(9-Arr_Img(numI))*320
            AdoN.Position=numI*320
            AdoN.Write AdoM.Read(320)
        Next    
        AdoM.LoadfromFile(Server.Mappath("validatehead.fix"))
        Position=Lenb(AdoM.Read())
        AdoM.Position=Position
        For numI=0 To 9 Step 1
            For numJ=0 To 3
                AdoN.Position=numI*32+numJ*320
                AdoM.Position=Position+30*numJ+numI*120
                AdoM.Write AdoN.Read(30)
            Next
        Next
        AdoM.Position = 0
        numcode = AdoM.Read()
        AdoM.close:Set AdoM=Nothing
        AdoN.close:Set AdoN=Nothing
End Function
?>