破译动网验证码的简单方法

Option Explicit
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long) As Long
Private Const CF_BITMAP = 2
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Dim phobit(0 To 9, 0 To 9) As Integer       '标识位图的像素
Private Sub cmdGetChar_Click()
Dim X As Long
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim mintCurPos As Integer
With Picture2
    For k = 0 To 3          '表示有四个字符，
        For i = 0 To 9
            mintCurPos = InStr(txtPhoBit.Text, "数字" & i & ":") + 4  '数字字符的当前位置
            For j = 0 To 9
                X = GetPixel(.hdc, k * 10, j)        '获得它的像素值
                If (X = 15658734 And Mid(txtPhoBit.Text, mintCurPos + j, 1) = "0") _
                   Or (X <> 15658734 And Mid(txtPhoBit.Text, mintCurPos + j, 1) = "1") Then  '判断像素是否相同。
                Else    '不同则跳出
                    Exit For
                End If
            Next j
            If j = 10 Then  '在此就可以判断当前字符为 i
                txtPhoChar.Text = txtPhoChar.Text & i
                Exit For
            End If
        Next i
    Next k
End With
End Sub

[1] [2] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:挑战捆绑文件扫描器的一种方法

下一篇:PGP的密匙和口令的安全性问题