验证码识别讲座

cumulonimbus

蓝天630902 发表于 2012-8-5 19:04
图形文件 位图信息头 详细解释

对于 “图形文件 位图信息头 详细解释.rar“，我仔细欣赏了一下大哥的作品，发现里面只是些提取验证码的一些基本信息的代码，并未涉及到表二。我很困惑，你的表二有何作用？

cumulonimbus

蓝天630902 发表于 2012-8-6 21:04
对于https://jx.ac.10086.cn/sso3/common/image.jsp
看看下面附件中的21行，应该可以理解，这就是数组的 ...

恕我愚昧，你的b数组有30个、c数组有30个，而你的第21行却只有4个b数组的数据？还有其它的几十个数组从何而来？

蓝天630902

其实呢，已经涉及了表二，

Offset	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
0	28	00	00	00	3F	00	00	00	16	00	00	00	01	00	08	00
16	00	00	00	00	80	05	00	00	00	00	00	00	00	00	00	00
32	00	01	00	00	00	01	00	00

就是位图信息头的16进制表示。

蓝天630902

cumulonimbus 发表于 2012-8-6 21:13
恕我愚昧，你的b数组有30个、c数组有30个，而你的第21行却只有4个b数组的数据？还有其它的几十个数组从何 ...

你多运行几次，就会慢慢出来，
不可能一次出来30个，验证码每次就四个，
比如说，“Ａ”下面是“123345559b6”，你就让填c(8) = "A"，b(8) = "123345559b6"…………
直到ｂ数组和ｃ数组全部填满，明白？

cumulonimbus

蓝天630902 发表于 2012-8-6 21:22
你多运行几次，就会慢慢出来，
不可能一次出来30个，验证码每次就四个，
比如说，“Ａ”下面是“123345 ...

验证码里面的字符有可能是重复的，偶的神呀，如果是汉字，要把所有的数据都按出来，得按多少次呀
就算是英文字母，要按出多少次才能得到26个不重复的数据呀。
谢谢大哥指教，否则我还一直以为你有一个密码本，可以自由对换数据呢？

goldowl2011

Very good.Thanks a lot.

cumulonimbus

蓝天630902 发表于 2012-8-6 21:22
你多运行几次，就会慢慢出来，
不可能一次出来30个，验证码每次就四个，
比如说，“Ａ”下面是“123345 ...

你的方法很聪明。先把验证码用1的方法拷贝到单元格中，然后统计每列有多少个1，从而组成一组数据，这组数据就成了这个验证码的唯一标识符。然后运用这个唯一的标识符来倒推出这个唯一的验证码来。

蓝天630902

cumulonimbus 发表于 2012-8-6 23:52
你的方法很聪明。先把验证码用1的方法拷贝到单元格中，然后统计每列有多少个1，从而组成一组数据，这组数 ...

这种方法叫做“压扁法”。对于那些无噪声的图片，特别有效。但是，对于那些有明显干扰（噪声）的图片，这种方法就不灵了。就要用到另一种叫做“字模相似法”了。

蓝天630902

其实，也用不着拷贝到单元格，那样慢极了。为什么明知道慢还要操作单元格呢？因为这里是开讲座，主要是便于大家理解。如果直接操作数组，肯定要快许多。

cumulonimbus

        For i = 1 To a2 * a3    '没有调色板的话就从第40个字节开始，图像的每一个点（用3个字节表示：(蓝，绿，红），有调色板的话就从第lClipSize - a2 * a3个字节开始，图像的每一个点用1个字节表示，｛换作其他网址，这一循环要改｝
            arr(i) = ""    '1或空（就是没有）的设置，是图片显示方式不同，可以更改这个设置，来看看效果，不过要把下面的arr(i) = 1一起改。
            ts = 0    '置初值
            For j = 0 To a5 - 1
                ts = ts + Val(bytClipData((i - 1) * a5 + a1 + j))    '累加
            Next j
            ts = ts / a5    '图像的BGR的均值（不一定），有调色板的话就不是这个意思。应该说成是图片点的信息均值更贴切些
            If ts > 180 Then    '如果图像的BGR的均值>0，那么就把“1”赋给数组arr(i)
                arr(i) = "1"    '其实就是归一化处理成1
            End If
            'If i / a2 = Int(i / a2) Then a1 = a1 + 2    '防歪，不歪的话，这一句不需要，所以先注释掉。并且a1 = a1 + 2，也有可能是a1 = a1 + 3、或者a1 = a1 + 1，等等，这里需要你自己去调试
        Next i

对于前面我看不懂，大哥能否指教一下哈
如：arr(i)啥时要为1，啥时要为空？
如：ts大于180还是130，这个数值又是从哪里来的？
如： ts = ts + Val(bytClipData((i - 1) * a5 + a1 + j))    这个是什么意思？