自己做过好多验证码的脚本,但是都是回复在别人帖子上的,现在开始自己发帖公布出来.
如有问题,请不要不自己研究就问我,
如问我QQ,就是
开始第一个,今天做的
下载 (42.89 KB)
2007-7-12 17:19
下图中沿绿色点,红色点指的就是起始坐标(97,37) 具体你要自己对一下(我是根据1024×768分辨率写的)
下载 (40.14 KB)
2007-7-12 17:19
///////////////////////////////////////////////////////
Rem 开始
//起始坐标(97,37).只要换下面的x.y坐标即可
VBS x=11:y=9:n=0
VBS okn=""
For 4
Rem [左边第1位数字起]
Gosub [0]
Gosub [1]
Gosub [2]
Gosub [3]
Gosub [4]
Gosub [5]
Gosub [6]
Gosub [7]
Gosub [8]
Gosub [9]
Rem [输出数字]
VBS x=x+25
VBS okn=okn&txt
Delay 80
EndFor
VBSCall MessageBox(okn)
EndScript
//〓〓〓〓〓〓〓〓〓以下是子程序〓〓〓〓〓〓〓〓〓
Sub [0]
VBS n=0
VBSCall c=GetPixelColor(x+5,y+8)
Gosub [p]
VBSCall c=GetPixelColor(x+6,y+9)
Gosub [p]
VBSCall c=GetPixelColor(x+7,y+10)
Gosub [p]
VBSCall c=GetPixelColor(x+8,y+11)
Gosub [p]
VBSCall c=GetPixelColor(x+9,y+12)
Gosub [p]
VBSCall c=GetPixelColor(x+10,y+13)
Gosub [p]
VBSCall c=GetPixelColor(x+11,y+14)
Gosub [p]
VBSCall c=GetPixelColor(x+12,y+15)
Gosub [p]
VBSCall c=GetPixelColor(x+13,y+16)
Gosub [p]
VBSCall c=GetPixelColor(x+14,y+17)
Gosub [p]
VBSCall c=GetPixelColor(x+15,y+18)
Gosub [p]
If n>=9
VBS txt=0
Goto [输出数字]
EndIf
Return [0]
Sub [1]
VBS n=0
VBSCall c=GetPixelColor(x+5,y+7)
Gosub [p]
VBSCall c=GetPixelColor(x+7,y+7)
Gosub [p]
VBSCall c=GetPixelColor(x+7,y+5)
Gosub [p]
VBSCall c=GetPixelColor(x+9,y+3)
Gosub [p]
VBSCall c=GetPixelColor(x+9,y+9)
Gosub [p]
VBSCall c=GetPixelColor(x+9,y+14)
Gosub [p]
VBSCall c=GetPixelColor(x+9,y+20)
Gosub [p]
VBSCall c=GetPixelColor(x+10,y+10)
Gosub [p]
VBSCall c=GetPixelColor(x+10,y+15)
Gosub [p]
VBSCall c=GetPixelColor(x+11,y+11)
Gosub [p]
VBSCall c=GetPixelColor(x+11,y+16)
Gosub [p]
If n>=9
VBS txt=1
Goto [输出数字]
EndIf
Return [1]
Sub [2]
VBS n=0
VBSCall c=GetPixelColor(x+12,y+17)
Gosub [p]
VBSCall c=GetPixelColor(x+13,y+16)
Gosub [p]
VBSCall c=GetPixelColor(x+14,y+15)
Gosub [p]
VBSCall c=GetPixelColor(x+15,y+14)
Gosub [p]
VBSCall c=GetPixelColor(x+3,y+23)
Gosub [p]
VBSCall c=GetPixelColor(x+4,y+22)
Gosub [p]
VBSCall c=GetPixelColor(x+5,y+21)
Gosub [p]
VBSCall c=GetPixelColor(x+6,y+20)
Gosub [p]
VBSCall c=GetPixelColor(x+16,y+27)
Gosub [p]
VBSCall c=GetPixelColor(x+17,y+26)
Gosub [p]
VBSCall c=GetPixelColor(x+18,y+25)
Gosub [p]
If n>=9
VBS txt=2
Goto [输出数字]
EndIf
Return [2]
Sub [3]
VBS n=0
VBSCall c=GetPixelColor(x+2,y+20)
Gosub [p]
VBSCall c=GetPixelColor(x+3,y+21)
Gosub [p]
VBSCall c=GetPixelColor(x+4,y+22)
Gosub [p]
VBSCall c=GetPixelColor(x+10,y+12)
Gosub [p]
VBSCall c=GetPixelColor(x+11,y+15)
Gosub [p]
VBSCall c=GetPixelColor(x+12,y+15)
Gosub [p]
VBSCall c=GetPixelColor(x+13,y+3)
Gosub [p]
VBSCall c=GetPixelColor(x+15,y+16)
Gosub [p]
VBSCall c=GetPixelColor(x+16,y+9)
Gosub [p]
VBSCall c=GetPixelColor(x+17,y+7)
Gosub [p]
VBSCall c=GetPixelColor(x+18,y+5)
Gosub [p]
If n>=9
VBS txt=3
Goto [输出数字]
EndIf
Return [3]
Sub [4]
VBS n=0
VBSCall c=GetPixelColor(x+10,y+4)
Gosub [p]
VBSCall c=GetPixelColor(x+9,y+5)
Gosub [p]
VBSCall c=GetPixelColor(x+8,y+7)
Gosub [p]
VBSCall c=GetPixelColor(x+7,y+8)
Gosub [p]
VBSCall c=GetPixelColor(x+6,y+10)
Gosub [p]
VBSCall c=GetPixelColor(x+5,y+11)
Gosub [p]
VBSCall c=GetPixelColor(x+4,y+13)
Gosub [p]
VBSCall c=GetPixelColor(x+3,y+15)
Gosub [p]
VBSCall c=GetPixelColor(x+13,y+23)
Gosub [p]
VBSCall c=GetPixelColor(x+14,y+24)
Gosub [p]
VBSCall c=GetPixelColor(x+15,y+25)
Gosub [p]
If n>=9
VBS txt=4
Goto [输出数字]
EndIf
Return [4]
Sub [5]
VBS n=0
VBSCall c=GetPixelColor(x+2,y+1)
Gosub [p]
VBSCall c=GetPixelColor(x+18,y+1)
Gosub [p]
VBSCall c=GetPixelColor(x+9,y+9)
Gosub [p]
VBSCall c=GetPixelColor(x+13,y+9)
Gosub [p]
VBSCall c=GetPixelColor(x+14,y+10)
Gosub [p]
VBSCall c=GetPixelColor(x+2,y+13)
Gosub [p]
VBSCall c=GetPixelColor(x+19,y+13)
Gosub [p]
VBSCall c=GetPixelColor(x+4,y+22)
Gosub [p]
VBSCall c=GetPixelColor(x+7,y+28)
Gosub [p]
VBSCall c=GetPixelColor(x+10,y+28)
Gosub [p]
VBSCall c=GetPixelColor(x+12,y+28)
Gosub [p]
If n>=9
VBS txt=5
Goto [输出数字]
EndIf
Return [5]
Sub [6]
VBS n=0
VBSCall c=GetPixelColor(x+18,y+3)
Gosub [p]
VBSCall c=GetPixelColor(x+1,y+12)
Gosub [p]
VBSCall c=GetPixelColor(x+1,y+15)
Gosub [p]
VBSCall c=GetPixelColor(x+2,y+13)
Gosub [p]
VBSCall c=GetPixelColor(x+3,y+17)
Gosub [p]
VBSCall c=GetPixelColor(x+5,y+13)
Gosub [p]
VBSCall c=GetPixelColor(x+9,y+9)
Gosub [p]
VBSCall c=GetPixelColor(x+14,y+9)
Gosub [p]
VBSCall c=GetPixelColor(x+15,y+10)
Gosub [p]
VBSCall c=GetPixelColor(x+16,y+11)
Gosub [p]
VBSCall c=GetPixelColor(x+17,y+13)
Gosub [p]
If n>=9
VBS txt=6
Goto [输出数字]
EndIf
Return [6]
Sub [7]
VBS n=0
VBSCall c=GetPixelColor(x+2,y+1)
Gosub [p]
VBSCall c=GetPixelColor(x+4,y+2)
Gosub [p]
VBSCall c=GetPixelColor(x+11,y+18)
Gosub [p]
VBSCall c=GetPixelColor(x+12,y+17)
Gosub [p]
VBSCall c=GetPixelColor(x+13,y+13)
Gosub [p]
VBSCall c=GetPixelColor(x+14,y+8)
Gosub [p]
VBSCall c=GetPixelColor(x+15,y+7)
Gosub [p]
VBSCall c=GetPixelColor(x+16,y+6)
Gosub [p]
VBSCall c=GetPixelColor(x+17,y+5)
Gosub [p]
VBSCall c=GetPixelColor(x+18,y+4)
Gosub [p]
VBSCall c=GetPixelColor(x+19,y+3)
Gosub [p]
If n>=9
VBS txt=7
Goto [输出数字]
EndIf
Return [7]
Sub [8]
VBS n=0
VBSCall c=GetPixelColor(x+2,y+18)
Gosub [p]
VBSCall c=GetPixelColor(x+3,y+6)
Gosub [p]
VBSCall c=GetPixelColor(x+4,y+16)
Gosub [p]
VBSCall c=GetPixelColor(x+5,y+15)
Gosub [p]
VBSCall c=GetPixelColor(x+6,y+14)
Gosub [p]
VBSCall c=GetPixelColor(x+5,y+10)
Gosub [p]
VBSCall c=GetPixelColor(x+6,y+11)
Gosub [p]
VBSCall c=GetPixelColor(x+7,y+3)
Gosub [p]
VBSCall c=GetPixelColor(x+8,y+1)
Gosub [p]
VBSCall c=GetPixelColor(x+9,y+13)
Gosub [p]
VBSCall c=GetPixelColor(x+17,y+9)
Gosub [p]
If n>=9
VBS txt=8
Goto [输出数字]
EndIf
Return [8]
Sub [9]
VBS n=0
VBSCall c=GetPixelColor(x+1,y+8)
Gosub [p]
VBSCall c=GetPixelColor(x+4,y+14)
Gosub [p]
VBSCall c=GetPixelColor(x+5,y+5)
Gosub [p]
VBSCall c=GetPixelColor(x+5,y+15)
Gosub [p]
VBSCall c=GetPixelColor(x+6,y+18)
Gosub [p]
VBSCall c=GetPixelColor(x+7,y+19)
Gosub [p]
VBSCall c=GetPixelColor(x+8,y+19)
Gosub [p]
VBSCall c=GetPixelColor(x+14,y+17)
Gosub [p]
VBSCall c=GetPixelColor(x+15,y+116)
Gosub [p]
VBSCall c=GetPixelColor(x+17,y+3)
Gosub [p]
VBSCall c=GetPixelColor(x+20,y+14)
Gosub [p]
If n>=9
VBS txt=9
Goto [输出数字]
EndIf
Return [9]
Sub [p]
VBS p=(Cint("&H" & Right(c,2))+Cint("&H" & Mid(c,3,2))+Cint("&H" & Left(c,2)))/3
If p<220
VBS n=n+1
EndIf
Return [p]
把BMP的处理图也发上来,给喜欢研究的
用放大8倍以后,里面第三行的数上,从蓝点拉到红点,看画图板的右下 a,b 就是 这个数字点的x+a,y+b 的特征点。
为安全期间，每个数取了11个，只要满足9个就输出数字。
0-9.rar (6.89 KB)
特征点取的越多，判别时间越长，准确率高
特征点取的越少，判别时间越短，准确率低！
这里根据网友传上来的十多张图片做的，测试下来都识辨正确。
时间慢不影响的，我以前也做过这个网赚，知道一点的。
*凡是知道这是什么的验证码，请不要用文字说出来，不然网站一改，就没用了！大家心知肚明。
