[AutoIt] Captcha Cracking/Breaking

[AMrK]

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:


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 ^^






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~

[Jeoni]

nice tut. Ich brauch´s zwar nicht, aber man sieht, dass du dir Mühe gegeben hast. Allerding solltest du noch die GDIPLUS.au3 uploaden, da man ja ohne sie nichts anfangen kann.

[AMrK]

Originally Posted by Jeoni

Allerding solltest du noch die GDIPLUS.au3 uploaden, da man ja ohne sie nichts anfangen kann.

Die GDIPlus.au3 Ist standardmäßig bei Autoit mit dabei einfach per <GDIPlus.au3> includen fertig^^ (findeste im Ordner: C:\Programme\Autoit3\Inclueds\GdiPlus.au3^^)

[beefm4ker]

ist das ganze auch möglich mit Zahlen bzw mit Worten?

[chainsta]

Originally Posted by Junkfood ftw

ist das ganze auch möglich mit Zahlen bzw mit Worten?

das interessiert mich auch. da bei "meim" captcha entweder 1, 2 oder 3 buchstaben sind.. ist halt ein randomcaptcha.

[Fuyo]

Mich würde interessieren, wie das Cracken bei Buchstaben o./u. Zahlen aussieht.

[Jay Niize]

nett gehen auch Captcha codes?


#added to list

[zodiak88]

Das würtde mich auch interessieren

[Shadow992]

Originally Posted by Jusikid

nett gehen auch Captcha codes?


#added to list

Captcha Codes gehen theoretisch auch, aber nicht mit diesem Code!
Außerdem denke ich, dass AutoIt einfach zu langsam fürs Cracken von Codes ist.