易语言验证码识别源码

资源介绍：

通过画板，和特征码实现验证码识别。

资源作者：

@三叶自学网

资源界面：

.版本 2

.子程序 _识别_被单击
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 RGB, 字节集
.局部变量 特征码, 文本型
.局部变量 t, 整数型
.局部变量 c, 整数型
.局部变量 R, 整数型
.局部变量 G, 整数型
.局部变量 B, 整数型
.局部变量 Y, 整数型
.局部变量 黑线, 逻辑型
.局部变量 线段, 整数型
.局部变量 长度, 整数型

' 本源码来自三叶资源网(www.sanye.cx)

' 画板1.底图 ＝彗星 HTTP读文件 (“ad.joycool.net/enter/verify.jsp;bvy3Vp0u”)
' 处理事件 ()
' 欢迎光临本淘宝店：http://showfresh.taobao.com
t ＝ 取启动时间 ()
编辑框1.内容 ＝ “”
' 灰度公式Y = ((R*299)+(G*587)+(B*114))/1000
' 调试输出 (画板1.底图)
' ---------------------------------------------
' 二值化R分量低八位，G分量中八位。B分量高八位
.计次循环首 (20, i)
    .计次循环首 (60, j)
        c ＝ 画板1.取点 (j, i)
        R ＝ 位与 (c, 255)
        G ＝ 位与 (c, 65280)
        G ＝ 右移 (G, 8)
        B ＝ 位与 (c, 16711680)
        B ＝ 右移 (B, 16)
        Y ＝ (R × 299 ＋ G × 587 ＋ B × 114) ÷ 1000
        .判断开始 (Y ＜ 129)  ' 阀值选用通常的129。可以适当调整
            画板2.画点 (j, i, #黑色)
        .默认
            画板2.画点 (j, i, #白色)
        .判断结束
        ' 本源码来自三叶资源网(www.sanye.cx)
    .计次循环尾 ()
.计次循环尾 ()

' ---------------------------------------------
' 分割
画板2.复制 (4, 0, 15, 16, 画板3, 0, 0, )
画板2.复制 (18, 0, 15, 16, 画板4, 0, 0, )
画板2.复制 (31, 0, 15, 16, 画板5, 0, 0, )
画板2.复制 (44, 0, 15, 16, 画板6, 0, 0, )

' --------------------------------------------
' 识别第一个
特征码 ＝ “”
.计次循环首 (15, i)
    .计次循环首 (15, j)
        .判断开始 (画板3.取点 (j － 1, i) ≠ #白色)
            数据 [j] [i] ＝ 0
            特征码 ＝ 特征码 ＋ “0”

        .默认
            特征码 ＝ 特征码 ＋ “1”
            数据 [j] [i] ＝ 1
            ' 本源码来自三叶资源网(www.sanye.cx)

        .判断结束

    .计次循环尾 ()
    特征码 ＝ 特征码 ＋ #换行符
.计次循环尾 ()

编辑框1.加入文本 (到文本 (识别2 (数据)))
长度 ＝ 0
线段 ＝ 0
黑线 ＝ 假
' --------------------------------------------
' 识别第二个
特征码 ＝ “”
.计次循环首 (15, i)
    .计次循环首 (15, j)
        .判断开始 (画板4.取点 (j － 1, i) ≠ #白色)
            数据 [j] [i] ＝ 0


        .默认
            数据 [j] [i] ＝ 1

        .判断结束

    .计次循环尾 ()
.计次循环尾 ()
编辑框1.加入文本 (到文本 (识别2 (数据)))
' --------------------------------------------
' 识别第三个
特征码 ＝ “”
.计次循环首 (15, i)
    .计次循环首 (15, j)
        .判断开始 (画板5.取点 (j － 1, i) ≠ #白色)
            数据 [j] [i] ＝ 0

        .默认
            数据 [j] [i] ＝ 1
            ' 本源码来自三叶资源网(www.sanye.cx)
        .判断结束

    .计次循环尾 ()
.计次循环尾 ()
编辑框1.加入文本 (到文本 (识别2 (数据)))

' --------------------------------------------
' 识别第四个
特征码 ＝ “”
.计次循环首 (15, i)
    .计次循环首 (15, j)
        .判断开始 (画板6.取点 (j － 1, i) ≠ #白色)
            数据 [j] [i] ＝ 0

        .默认
            数据 [j] [i] ＝ 1

        .判断结束

    .计次循环尾 ()
.计次循环尾 ()
编辑框1.加入文本 (到文本 (识别2 (数据)))
' 输出调试文本 (取启动时间 () － t)

资源下载：