Creacion De Un Keyloger En .Net

Creacion de un keylogger en Vbasic 6.0
por: BLackShadow.

Diseño visual
Lo primero es lo primero... Abrir Visualbasic y seleccionar un nuevo formulario estandard tipo .exe, luego seleccionamos de la caja de controles una etiqueta o "Label" a la que llamaremos Memoria y su propiedad Caption la estableceremos en "", o sea nada, que no diga nada, podemos cambiar lapropiedad del borde .BorderStyle y pasaela a 1 la cual es fixed single. Ahora bien colocamos dos botones, podemos dejarles los nombres command1 y 2 por defecto pero le cambiamos la propiedad de Caption a "Obtener" para command1 y "Detener", para command2. Una vez terminado esto ya podemos decir que tenemos el diseño visual de nuestro keylogger basico.

Creacion de un modulo para la APIOk, en esta parte tratare de no ondar mucho y solo explicar lo basico para el entendimiento del keylogger. Una API (del ingles Application Programming Interface ­ Interface de Programacion de Aplicaciones, interfaz de programación de la aplicación) es un conjunto de especificaciones de comunicación entre componentes   software.   Representa   un   método   para   conseguir   abstracción   en   la   programación,generalmente (aunque no necesariamente) entre los niveles o capas inferiores y los superiores del software. Uno de los principales propósitos de una API consiste en proporcionar un conjunto de funciones. Pues bien... entendiendo lo que es una api y tratando de explicarlo de manera coloquial, podemos decir que una api es codigo ya diseñado por los programadores de windows que facilita a uno elprogramar cosas complejas como las salidas y etradas estandares de una pc. Para llamar una api a nuestro proyecto debemos agregar el modulo y podemos seleccionar en el menu de arriba la opcion proyecto­­­>agregar Modulo, con esto estariamos agregando un modulo y en el modulo agregaremos el codigo xapaz de llamar a la api en tiempo de ejecucion. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As IntegerLa  parte  azul   que  escribi   arriba  son  los  llamados  a  las  apis  necesarias  para  nuestro   proposito. Tenemos la funcion GetAsyncKeyState la cual tomamos de user32, esa funcion como su nombre lo dice es la encargada de obtener las teclas y esta contenida en la libreria user32.dll. Una vez declarada esa lireria podemos hacer otra funcion que nos retorne las teclas de la siguientemanera:

Function GetPressedKey() As String     For Cnt = 1 To 1000         If GetAsyncKeyState(Cnt)  0 Then              GetPressedKey = Cnt 'Chr$(Cnt)              Exit For         End If     Next Cnt End Function La funcion GetPressedKey traduccion "Toma la tecla presionada" hecha por nosotros contiene un foreste for hace un recorrido por todas las teclas qut tienen valores entre 1 y 1000, si una de las teclas tiene un valor para el momento del recorrido este se compara con el valor contenido en Cnt el cual es un acumulador "del for", y si es difernte de cero se toma el valor y pasa a la funcion getpressedkey para crear recursividad. Ese valor capturado que es el mismo que esta en Cnt para el momento de la captura de la tecla, esatecla esta representada por un numero, ahora solo nos queda hacer varias condiciones para escribir la tecla. Todo el codigo expplicado arriba va en el modulo que agregamos. 3.­ Codigo del formulario La parte que nos toca es la mas sencilla, ya tenemos el keylogger listo, solo nos queda saber que numero de tecla tenemos y cual es su correspondiente leyenda. Dim Sold As String 'declaramos a sold como una variable global y tipo cadena 'agrgamos un boton,  "command1"Private Sub Command1_Click() Timer1.Enabled = True 'activamos el timer o sea comienza a obtener las teclas End Sub 'agrgamos un boton , "command2" Private Sub Command2_Click() Timer1.Enabled = False 'desactivamos el timer, dejamos de obtener End Sub 'agrgamos un timer con la propiedad interval = 1,  "Timer1" Private Sub Timer1_Timer() On Error Resume Next...