验证码识别初级

处男1

#include <GDIPlus.au3>

_GDIPlus_Startup ()

$sBmpFile = @ScriptDir & "\028.bmp";要识别的文件
$hBitmap = _GDIPlus_BitmapCreateFromFile($sBmpFile)

$i_Left = 8
$i_Top = 4
$i_Width = 7
$i_Height = 11
$i_Between = 1

$sOcr = ""
For $i=1 To 4
        $hClone = _GDIPlus_BitmapCloneArea($hBitmap, $i_Left + ($i-1) * $i_Width, $i_Top, $i_Width - $i_Between, $i_Height, $GDIP_PXF24RGB);取出单个验证码位图信息
        $aBmpData = _myReadBitmapMsg($hClone,0);颜色信息读为串[0]
        ;ConsoleWrite($aBmpData[0]&@crlf)
        Switch $aBmpData[0]
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400C86400C86400C86400F5F3F0"
                        $sOcr &= "0"
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0"
                        $sOcr &= "1"
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400C86400C86400"
                        $sOcr &= "2"
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0C86400C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400C86400C86400C86400F5F3F0"
                        $sOcr &= "3"
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400F5F3F0F5F3F0C86400F5F3F0F5F3F0C86400F5F3F0F5F3F0C86400F5F3F0F5F3F0C86400F5F3F0C86400C86400C86400C86400C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0"
                        $sOcr &= "4"
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400C86400C86400C86400F5F3F0"
                        $sOcr &= "5"
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400C86400C86400F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400C86400C86400C86400F5F3F0"
                        $sOcr &= "6"
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0"
                        $sOcr &= "7"
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0C86400C86400C86400C86400F5F3F0"
                        $sOcr &= "8"
                Case "F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0C86400C86400C86400F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0F5F3F0F5F3F0F5F3F0C86400C86400F5F3F0F5F3F0F5F3F0C86400F5F3F0F5F3F0C86400C86400C86400F5F3F0F5F3F0"
                        $sOcr &= "9"
        EndSwitch
Next
ConsoleWrite("识别结果:" & $sOcr & @crlf)

_GDIPlus_ImageDispose ($hClone)
_WinAPI_DeleteObject ($hClone)
_GDIPlus_ImageDispose ($hBitmap)
_WinAPI_DeleteObject ($hBitmap)
_GDIPlus_ShutDown ()
Exit


Func _myReadBitmapMsg($hBitmap, $ReturnType=1);
        Local $aBmpData[5]
    $aBmpData[1] = _GDIPlus_ImageGetWidth ($hBitmap)

    $aBmpData[2] = _GDIPlus_ImageGetHeight ($hBitmap)

        Local $BitmapData = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, $aBmpData[1], $aBmpData[2], $GDIP_ILMREAD, $GDIP_PXF24RGB)
        $aBmpData[3] = Abs(DllStructGetData($BitmapData, "Stride"))

        $aBmpData[4] = DllStructGetData($BitmapData, "Scan0")

        _GDIPlus_BitmapUnlockBits($hBitmap, $BitmapData)
        $ReturnType=Int($ReturnType)
        If $ReturnType<-2 Or $ReturnType>1 Then $ReturnType=1
        Local $tBuff
        Select
        Case $ReturnType = -2;仅返回位图信息
                MsgBox(0,3,3)
                        Return $aBmpData
                Case $ReturnType = -1;返回位图信息及颜色串(Binary)
                        MsgBox(0,2,2)
                        $tBuff = DllStructCreate("byte lData[" & ($aBmpData[3] * $aBmpData[2]) & "]", $aBmpData[4])
                        $aBmpData[0] = DllStructGetData($tBuff, "lData")
                        Return $aBmpData
                Case $ReturnType=0;返回位图信息及颜色串(String)
                        MsgBox(0,1,1)
                        Local $iH
                        For $iH = 1 To $aBmpData[2]
                                $tBuff = DllStructCreate("byte 2Data[" & ($aBmpData[1]*3) & "]", $aBmpData[4] + ($iH-1)*$aBmpData[3])
                                $aBmpData[0] &=StringTrimLeft(DllStructGetData($tBuff, "2Data"),2)
;~                                 MsgBox(0,1,$aBmpData[0])
                        Next
                        Return $aBmpData
                Case Else;返回颜色一维数组
                        MsgBox(0,4,4)
                        Local $iH, $aRet[$aBmpData[2]]
                        For $iH = 1 To $aBmpData[2]
                                $tBuff = DllStructCreate("byte[" & ($aBmpData[1]*3) & "]", $aBmpData[4] + ($iH-1)*$aBmpData[3])
                                $aRet[$iH-1] = StringTrimLeft(DllStructGetData($tBuff, 1), 2)
                        Next
                        Return $aRet
        EndSelect
EndFunc

以上代码为阿福之前发布的，在这里我作为一个例子和初学者一起分析。

$i_Left = 8
$i_Top = 4
$i_Width = 7
$i_Height = 11
$i_Between = 1，，，，，，，，，，，，，，，，定义验证码每个数字的大小，为了取出每个验证码上数字的位图信息。

_GDIPlus_BitmapCloneArea，，，，，，，，，创建一个位图，为了之后获取位图相关信息。

为什么要锁定_GDIPlus_BitmapLockBits，因为位图在内存中根据他的格式锁定后，可以对图像进行修改，（和PHOTOshop类似）。能进行修改才能把图片转化成字符。

锁定之后，就要进行转化了。首先要获取位图的的跨度。跨度【（STRIDE）DllStructGetData($BitmapData, "Stride")】跨度就是一个图像扫描第一行的长度，但是他不等于像素，比如一个50*50的32位图像，它的跨度就是WIDTH*4=200，因为32位的图像中每个像素是4个字节，也就是说STRIDE的单位是字节。比如一个11*20的24位图像，他的跨度就是11*3+3=36，因为24位他的每个像素为3个字节，又因为stride的值必须是4的倍数，不够4的倍数要补值。所以*3还是*4要看$hClone = _GDIPlus_BitmapCloneArea($hBitmap, $i_Left + ($i-1) * $i_Width, $i_Top, $i_Width - $i_Between, $i_Height, $GDIP_PXF24RGB)中$GDIP_PXF24RGB【本文纯分析阿福这段代码】


获取了每个验证码数字后就要获取他在内存中的首地址。scan0就是该位图在内存中的首地址。也就是说该图像的数据都以字符形式保留在了内存中，找到了首地址，就找到了验证码数字的最上面一行的信息，因为数字是width*height,所以要找到整个数字的数据不能只扫描第一行的STRDE，应该扫描HEIgHT个行。


这样，就把一个图像数字化了。

zhongzijie

好強大啊，謝謝分享。

lilachue

不错哈，虽然没看明白，还是谢谢

jiaosc

謝謝分享。