CrackMe Autoit v1.0 [Open Code]

#NoTrayIcon
; Powered By Jesux Herrera
; Twitter: @Jesux Herrera
; www.autoithacks.tk
; www.experimento5.com
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
$Form1 = GUICreate("AutoCrackMe - Powered by Jesux Herrera", 379, 140, -1, -1)
GUISetFont(8, 400, 0, "Verdana")
$Group1 = GUICtrlCreateGroup("", 8, 8, 361, 121)
$reg = GUICtrlCreateButton("Register", 112, 96, 75, 25)
$InputU = GUICtrlCreateInput("", 80, 32, 265, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$InputP = GUICtrlCreateInput("", 80, 64, 265, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$read = GUICtrlCreateButton("Read Me", 192, 96, 75, 25)
$homepage = GUICtrlCreateButton("HomePage", 272, 96, 75, 25)
$user = GUICtrlCreateLabel("User:", 42, 36, 35, 17, $SS_RIGHT)
$password = GUICtrlCreateLabel("Key:", 16, 68, 63, 17, $SS_RIGHT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
WinSetTrans($Form1,"", 0)
GUISetState(@SW_SHOW)

Local $i = 0
Do
    WinSetTrans($Form1,"", $i)
    $i = $i + 1
Until $i = 255


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Local $i = 255
            Do
            WinSetTrans($Form1,"", $i)
            $i = $i - 1
            Until $i = 0
            Exit

        Case $reg
            Local $stngu = "Jesux Herrera"
            Local $stngp = "4A657375782048657272657261"
            $u = GUICtrlRead($InputU)
            $p = GUICtrlRead($InputP)

            $result = StringCompare("" & $stngu,"" &  $u, 1)
            $result2 = StringCompare("" & $stngp,"" &  $p, 1)

            If $result = 0 Then
            MsgBox(64,"Bien! :D","Usuario Correcto!")
            GUICtrlSetState($InputU, $GUI_DISABLE)

            Else
            MsgBox(16,"Mal! :(","Usuario Incorrecto")
            GUICtrlSetState($reg, $GUI_DISABLE)
            GUICtrlSetState($InputU, $GUI_DISABLE)

            EndIf

            If $result2 = 0 Then
                MsgBox(64,"Bien! :D","Key Correcto!")
                GUICtrlSetState($InputP, $GUI_DISABLE)

            Else
                MsgBox(16,"Mal! :(","Key Incorrecto")
                GUICtrlSetState($reg, $GUI_DISABLE)
                GUICtrlSetState($InputP, $GUI_DISABLE)

            EndIf


        Case $read
            GUISetState(@SW_HIDE, $Form1)
            _ReadMe()

        Case $homepage


    EndSwitch
WEnd

Func _ReadMe()
    $Form2 = GUICreate('Acerca de.....', 329, 296, -1, -1, BitOR($WS_CAPTION, $WS_SYSMENU), $WS_EX_TOOLWINDOW, $Form1)
    GUICtrlCreateIcon(@ScriptFullPath, 99, 99, 10, 128, 128, BitOR($SS_NOTIFY, $WS_GROUP))
    GUICtrlCreateLabel('AutoCrackMe', 76, 145, 180, 33)
    GUICtrlSetFont(-1, 18, 800, 0, 'Verdana')
    GUICtrlCreateLabel('Gracias por descargar este humilde software', 62, 180, 254, 17)
    GUICtrlCreateLabel('Dedicado a mi amada Maricela Puente', 75, 200, 200, 17)
    $Link = GUICtrlCreateLabel('Follow Me! :D @JesuxHerrera ', 90, 230, 150, 17)
    GUICtrlSetColor(-1, 0x0000FF)
    GUICtrlSetCursor(-1, 0)
    $2Button1 = GUICtrlCreateButton('Aceptar', 77, 255, 175, 25)
    GUISetState(@SW_SHOW, $Form2)
    Do
        $GMsg = GUIGetMsg()
        If $GMsg = $Link Then ShellExecute('http://www.twitter.com/JesuxHerrera')
        Sleep(10)
    Until $GMsg = $GUI_EVENT_CLOSE Or $GMsg = $2Button1
    GUISetState(@SW_SHOW, $Form1)
    GUIDelete($Form2)
EndFunc