[AutoIt] Captcha Cracking/Breaking

Hallo ELITEqVpERS :)
Ich m�chte euch heute in ein Themengebiet einf�hren, welches bereits in dem Forum aus dem ich bin, gro�en Anklang gefunden hat^^
Wie ihr dem Titel unschwer entnehmen k�nnt, geht es um Captchas. Um genauer zu sein, wie ihr solche Captchas automatisch l��t unzwar per AutoIt...

Um dem Tutorial gut folgen zu k�nnen, solltet ihr nat�rlich erstmal gewisses Grundverst�ndnis ins Hinblick auf AutoIt und Programmieren mitbringen^^ Ebenfalls solltet ihr zumindest schonmal was von GDI+ geh�rt haben^^

In diesem Tutorial werde ich euch den bekannten "Offenen Kreis" zeigen und wie ihr ihn l��t:
[Only registered and activated users can see links. Click Here To Register...]

Mein Tutorial ist ca 30-40 Minuten lang und auf youtube hochgeladen, weswegen ich hier eigentlich nicht noch gro� Worte verlieren muss^^
Bei Fragen bin ich nat�rlich zur Stelle ^^

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

Hier hatb ihr nat�rlich noch die Source... aber guckt euch das Tut an, sonst versteht ihr zumindest als Noobys nicht viel davon :)

Spoiler

PHP Code:


			
#Include <GDIPLUS.au3>



Opt("MustDeclareVars", 1)





Local $iAnzahl, $aPosi, $sDlPfad, $iTimer

$iAnzahl = IniRead(@ScriptDir & '\captchas\captchas.ini', 'captchas', 'anzahl', 0)



DirCreate(@ScriptDir & '\captchas')



$sDlPfad = Captcha_Download()

$iTimer = TimerInit()

$aPosi = Captcha_Crack( $sDlPfad )

If $aPosi[0] <> -1 Then

    IniWrite(@ScriptDir & '\captchas\captchas.ini', 'captchas_' & Captcha_GetName($iAnzahl), 'zeit', TimerDiff($iTimer))

    IniWrite(@ScriptDir & '\captchas\captchas.ini', 'captchas_' & Captcha_GetName($iAnzahl), 'cracked', '1')

    IniWrite(@ScriptDir & '\captchas\captchas.ini', 'captchas_' & Captcha_GetName($iAnzahl), 'X', $aPosi[0])

    IniWrite(@ScriptDir & '\captchas\captchas.ini', 'captchas_' & Captcha_GetName($iAnzahl), 'Y', $aPosi[1])

EndIf











Func Captcha_Download()

    Local $sName

    $iAnzahl += 1

    $sName = Captcha_GetName($iAnzahl)

    InetGet("http://game.nemexia.de/captcha.php", @ScriptDir & '\captchas\captcha_' & $sName & '.gif', 1)

    IniWrite(@ScriptDir & '\captchas\captchas.ini', 'captchas', 'anzahl', $iAnzahl)

    IniWrite(@ScriptDir & '\captchas\captchas.ini', 'captchas_' & $sName, 'cracked', '0')

    IniWrite(@ScriptDir & '\captchas\captchas.ini', 'captchas_' & $sName, 'zeit', '0')

    Return @ScriptDir & '\captchas\captcha_' & $sName & '.gif'

EndFunc



Func Captcha_GetName($iNummer)

    Local $i

    For $i = StringLen($iNummer) to 5

        $iNummer = '0' & $iNummer

    Next

    Return $iNummer

EndFunc













; Diese Funktionen cracken das captcha



Func Captcha_Crack($sPfad)

    Local $hImage, $iWidth, $iHeight, $iXc, $iYc, $iPixelColor

    Local $iClick[2], $aCheckedColors[1], $iChecked, $bAnalysieren

    $aCheckedColors[0] = 0



    _GDIPlus_Startup()

    $hImage = _GDIPlus_ImageLoadFromFile($sPfad)

    $iWidth = _GDIPlus_ImageGetWidth($hImage)

    $iHeight = _GDIPlus_ImageGetHeight($hImage)



    $iClick[0] = -1

    $iClick[1] = -1



    For $iXc = 0 to $iWidth-1

        For $iYc = 0 to $iHeight-1

            $iPixelColor = Hex(_GDIPlus_GetPixel($hImage, $iXc, $iYc), 6)

            If Dec($iPixelColor) > 10 * 1000 * 1000 Then



                $bAnalysieren = True

                If $aCheckedColors[0] > 0 Then

                    For $iChecked = 1 To $aCheckedColors[0]

                        If $aCheckedColors[$iChecked] = $iPixelColor Then

                            $bAnalysieren = False

                            ExitLoop

                        EndIf

                    Next

                EndIf



                If $bAnalysieren Then

                    If Captcha_Analyse($hImage, $iXc, $iYc, $iWidth, $iHeight, $iPixelColor) Then

                        $iClick[0] = $iXc

                        $iClick[1] = $iYc

                        ExitLoop 2

                    Else

                        $aCheckedColors[0] += 1

                        ReDim $aCheckedColors[ $aCheckedColors[0] +1 ]

                        $aCheckedColors[ $aCheckedColors[0] ] = $iPixelColor

                    EndIf

                EndIf



            EndIf

        Next

    Next



    _GDIPlus_Shutdown()

    Return $iClick

EndFunc



Func Captcha_Analyse($hImage, $iXc, $iYc, $iWidth, $iHeight, $iColor)

    Local $iPixel, $iBreite, $iFound



    $iBreite = 0

    $iFound = -1



    Do

        $iBreite += 1

        $iYc = 0



        Do

            $iYc += 1

            $iPixel = Hex(_GDIPlus_GetPixel($hImage, $iXc, $iYc), 6)

            If $iColor = $iPixel Then

                $iFound = -1

            EndIf

        Until $iYc = $iHeight-1



        $iFound += 1

        $iXc +=1

    Until ($iBreite = $iWidth-1)



    $iBreite = $iBreite - $iFound

    If $iBreite > 24 And ($iBreite) < 28 Then

        Return True

    Else

        Return False

    EndIf

EndFunc





Func _GDIPlus_GetPixel($hBitmap,$X,$Y)

    Local $result = DllCall($ghGDIPDLL, "int", "GdipBitmapGetPixel", "ptr", $hBitmap, "int", $X, "int", $Y, "dword*", 0)

    If @error Then Return SetError(1,0,0)

    Return SetError($result[0],1,$result[4])

EndFunc

~ MfG AMrK~