This is my first time EVER creating such thing, any suggestions, tips, etc. would be helpfull.
I have no idea how hard it is to crack such thing... Oh well.
Syntax
_CaptchaCode($iNumOfTries)
Screenshot
Example
AutoIt
#include <EditConstants.au3> #include "CaptchaCode.au3" $GUI = GUICreate("Register Form", 210, 110) GUICtrlCreateLabel("Userame:", 10, 10) GUICtrlCreateLabel("Email:", 10, 30) GUICtrlCreateLabel("Password:", 10, 50) $Username = GUICtrlCreateInput("", 100, 7, 100) $Email = GUICtrlCreateInput("", 100, 27, 100) $Password = GUICtrlCreateInput("", 100, 47, 100, 20, $ES_PASSWORD) $Register = GUICtrlCreateButton("Register", 10, 75, 90) $Clear = GUICtrlCreateButton("Clear", 110, 75, 90) GUISetState() While 1 Switch GUIGetMsg() Case -3 Exit Case $Register If GUICtrlRead($Username) <> "" And GUICtrlRead($Email) <> "" And GUICtrlRead($Password) <> "" Then If _CaptchaCode(3) Then MsgBox(64, Default, "Registration done!") $Data = "" $Data &= "Username : " & GUICtrlRead($Username) & @CRLF $Data &= "Email : " & GUICtrlRead($Email) & @CRLF $Data &= "Password : " & GUICtrlRead($Password) & @CRLF FileWrite(@DesktopDir & "\register_form.txt", $Data) Else MsgBox(16, Default, "Tries maxed out, exiting program.") Exit EndIf Else MsgBox(16, Default, "Please fill in every information.") EndIf Case $Clear GUICtrlSetData($Username, "") GUICtrlSetData($Email, "") GUICtrlSetData($Password, "") EndSwitch WEnd
CaptchaCode.au3
AutoIt
#include <GUIConstantsEx.au3> ; MD5 UDF: <a href='http://www.autoitscript.com/forum/index.php?showtopic=10590' class='bbc_url' title=''>http://www.autoitscript.com/forum/index.php?showtopic=10590</a> $iOptOld = Opt("GUIEventOptions",0) Opt("GUIEventOptions", $iOptOld) Global $__CaptchaCode_cCharacter[6], $c__CaptchaCode_Label[5], $c__CaptchaCode_Line[2], $a__CaptchaCode_Font[6] Global $__CaptchaCode_Tries Func _CaptchaCode($iNumOfTries) Local $sCaptchaCode $__CaptchaCode_Tries = 0 $hWnd = GUICreate(" * ENTER CODE *", 175, 150, -1, -1, 0x00080000) $cBg = GUICtrlCreateLabel("", 10, 10, 150, 50) GUICtrlSetState($cBg, 128) GUICtrlSetBkColor($cBg, 0x000000) $cInput = GUICtrlCreateInput("", 10, 70, 150, 20) $cCheck = GUICtrlCreateButton("Check", 10, 95, 70) $cNew = GUICtrlCreateButton("New", 90, 95, 70) $sCaptchaCode = __CaptchaCode_Create() $cFg = GUICtrlCreateLabel("", 10, 10, 150, 50) GUICtrlSetBkColor($cFg, -2) GUISetState() While 1 Switch GUIGetMsg() Case -3 Case $cNew __CaptchaCode_Delete() $sCaptchaCode = __CaptchaCode_Create() GUICtrlSetData($cInput, "") Case $cCheck If $__CaptchaCode_Tries == $iNumOfTries - 1 Then __CaptchaCode_Delete() GUIDelete($hWnd) Return False ExitLoop Else If (GUICtrlRead($cInput) == $sCaptchaCode) Then __CaptchaCode_Delete() GUIDelete($hWnd) Return True ExitLoop Else $__CaptchaCode_Tries += 1 MsgBox(16, "* ERROR *", "Wrong Code!") __CaptchaCode_Delete() $sCaptchaCode = __CaptchaCode_Create() GUICtrlSetData($cInput, "") EndIf EndIf EndSwitch WEnd EndFunc Func __CaptchaCode_Create() Local $sCaptcha = __CaptchaCode_Generate() Local $iX = Random(15, 25, 1) Local $iY = Random(15, 40, 1) $a__CaptchaCode_Font[0] = "Arial Black" $a__CaptchaCode_Font[1] = "Comic Sans MS" $a__CaptchaCode_Font[2] = "Impact" $a__CaptchaCode_Font[3] = "Tahoma" $a__CaptchaCode_Font[4] = "System" $a__CaptchaCode_Font[5] = "Verdama" $aSplit = StringSplit($sCaptcha, "") For $x = 0 To 5 $__CaptchaCode_cCharacter[$x] = GUICtrlCreateLabel($aSplit[$x + 1], $iX, $iY) $iX += 20 + Random(1, 5, 1) $iY = Random(15, 40, 1) GUICtrlSetBkColor($__CaptchaCode_cCharacter[$x], -2) GUICtrlSetColor($__CaptchaCode_cCharacter[$x], Random(0x808080, 0xC0C0C0)) $iNum = Random(1, 7, 1) Switch $iNum Case 1 $iStyle = 2 ;2 Case 2 $iStyle = 4 ;4 Case 3 $iStyle = 8 ;8 Case 4 $iStyle = 2 + 4 ;6 Case 5 $iStyle = 4 + 8 ;12 Case 6 $iStyle = 2 + 8 ;10 Case 7 $iStyle = 2 + 4 + 8 ;16 EndSwitch GUICtrlSetFont($__CaptchaCode_cCharacter[$x], 13, Random(350, 450, 1), $iStyle, $a__CaptchaCode_Font[Random(0, 5, 1)]) Sleep(10) Next $iX = 15 + Random(1, 10, 1) $iY = 5 + Random(1, 10, 1) For $z = 0 To 4 $c__CaptchaCode_Label[$z] = GUICtrlCreateLabel("", $iX, $iY, 1, 30) $iX += 25 + Random(1, 10, 1) $iY = 5 + Random(1, 30, 1) GUICtrlSetBkColor($c__CaptchaCode_Label[$z], Random(0x808080, 0xC0C0C0)) Next $iX = 5 + Random(1, 25, 1) $iY = 20 + Random(1, 10, 1) For $b = 0 To 1 $c__CaptchaCode_Line[$b] = GUICtrlCreateLabel("", $iX, $iY, 130, 1) $iX = 5 + Random(1, 10, 1) $iY += 10 + Random(1, 10, 1) GUICtrlSetBkColor($c__CaptchaCode_Line[$b], Random(0x808080, 0xC0C0C0)) Next Return $sCaptcha EndFunc Func __CaptchaCode_Delete() For $y = 0 To 5 GUICtrlDelete($__CaptchaCode_cCharacter[$y]) Next For $a = 0 To 4 GUICtrlDelete($c__CaptchaCode_Label[$a]) Next For $c = 0 To 1 GUICtrlDelete($c__CaptchaCode_Line[$c]) Next EndFunc Func __CaptchaCode_Generate() Local $sCharacters = StringSplit("BCDFGHJKLMNPQRSTVWXYZ1234567890", "") Local $sCode = "" For $i = 1 To 6 $sCode &= $sCharacters[Random(1, $sCharacters[0], 1)] Next Return $sCode EndFunc
UPDATE 09-04-10: Changed variable names, function names, added a tries system
Edited by AlmarM, 09 April 2010 - 07:56 AM.
