识别代码5(国外英语资料).docVIP

识别代码5(国外英语资料) Single graphic captcha recognition code A simple written in verification code identification code, the code quality is not high, part and denoising algorithm is very bad, but now identify website graphics authentication code has been enough. Than some time ago to a group of scum automatically voting system is used with a quite a powerful graphics processing class compared to the OCR to identify and denoising was too far away, put under the code simply remind to pay attention to the management of access and administrator password security, as long as I can have a chance to properly identify graphical verification code, you can pass to the HTTP header to add new headers, can to brute force the administrator account: Imports System Imports System. Text Imports System. Data Imports System. Data. The OleDb Imports System. Drawing Imports System. Drawing Graphics Public Class CrackImage Private ConnStr As String = Provider = Microsoft. Private resultNumber As String Private rsultStudy As Boolean = False recognition The Public Sub New (ByVal SrcImage As Bitmap) GetImageNumber = GetIamgeResultNumber (SrcImage) End Sub learning Public Sub New (ByVal SrcImagePath As String, ByVal StudyNumber As String) RsultStudy = StudyCode (StudyNumber) End Sub Public Property GetImageNumber () As String The Get Return resultNumber End the Get Set (ByVal Value As a String) ResultNumber = Value End the Set End the Property Public Property GetStudyImageResult () As Boolean The Get Return rsultStudy End the Get Set (ByVal Value As Boolean) RsultStudy = Value End the Set End the Property deal with the new picture Private Function GetNewIamge (ByVal srcBitBmpImage As Bitmap) As Bitmap Temporary table Dim myDataTable As New DataTable Dim myCol2 As New DataColumn ( 32 ) Mycol2.columnname = RgbValue MyDataTable. Columns. The Add (myCol2) Dim myCol3 As New DataColumn Mycol3.datatype = system.type.gettype ( 32 ) Mycol3.columnname = RgbCount MyDataTable. Columns. The Add (myCol3) load t