反SPAM新思路—换Z-BLOG的验证码！(9)

                dy = UnitWidth - 2
                way = 1
            End If
        End If
        For i=0 To deltaT
            For ii=ary(dx,i) To dy Step way
                Call pcd_setDot(ary(0,i)*dx+ii*(1-dx),ary(1,i)*(1-dx)+ii*(dx),str,pcd_getDot(ary(0,i)*dx+(ii+way)*(1-dx),ary(1,i)*(1-dx)+(ii+way)*(dx),str,UnitWidth),UnitWidth)
            Next
            '添补空白
            Call pcd_setDot(ary(0,i)*dx+(dy+way)*(1-dx),ary(1,i)*(1-dx)+(dy+way)*(dx),str,"1",UnitWidth)
        Next
    Next
    pcd_doubter = str
End Function

Rem 得到某点的字符
Function pcd_getDot(x,y,str,UnitWidth)
    pcd_getDot = Mid(str,x+1+y*UnitWidth,1)
End Function

Rem 设置某点的字符
Sub pcd_setDot(x,y,ByRef str,newDot,UnitWidth)
    str = Left(str,x+y*UnitWidth) & newDot & Right(str,Len(str)-x-y*UnitWidth-1)
End Sub

Rem 将数字转为bmp需要的格式 lens是目标字节长度
Function Num2ChrB(ByVal num,lens)
    Dim ret,i
    ret = ""
    While (num>0)
        ret = ret & ChrB(num mod 256)
        num = num \ 256
    WEnd
    For i=Lenb(ret) To lens-1
        ret = ret & chrB(0)
    Next
    Num2ChrB = ret
End Function
%>