PDA

نسخه کامل مشاهده نسخه کامل : کمک در نوشتن یک کی لاگر


Mohsen_p30world
27-01-2008, 16:40
سلام بچه ها
من می خوام یه کیلاگر بنویسم که این قابلیت ها رو داشته باشه
1- کاربر هر چی که تایپ می کنه توی یه فایل متنی ذخیره بشه(خودم انجام دادم)
2-در خط اول فایل اسم یوزر رو فقط یک بار بنویسه(اینو مشکل دارم)
3-پیدا کردن پسورد همه ی کانکشن ها (خودم انجام دادم اما فقط کانکشن اول رو ...)
4-بدست آوردن آی پی
5-بدست آوردن پسورد یاهو مسنجر (اینم مشکل دارم)
6-و در آخر اون فایل متنی رو به ایمیلم ارسال کنه (خودم انجام دادم)
-------------------------------------------------------------------------------------------------------
درمورد گزینه دوم: بااستفاده از این دستور می شه اما نمی دونم توی چه رویدادی بنویسم که فقط یک بار اونم خط اول فایل بنویسه.
کد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
majid_kntu
29-01-2008, 08:33
از روش hook كردن براي اينكار ميخواي استفاده كني ؟
حداقل سورس برنامتو بيشتر توضيح بده
majid_kntu
29-01-2008, 08:43
براي پيدا كدن نام كاربر جاري كه داره برناغمه شما تو اكانت اون اجرا ميه از تابع زير استفاده كنيد:


Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ByVal lpBuffer As String, nSize As Long) As Long
رشته اول به روش ارسال با مرجع نام كاربر رو بر ميگردونه در واقع يه جور بافره.
عدد دوم طول رشته بازگشتي رو نشون ميده اگر بازگشت موفقيت آميز باشه غير صفر در غير اين صورت صفر خواهد بود.البته اين تابع تقريبا هميشه جواب ميده.
بافر رو قبل از ارسال با دستور زير آماده كن:


Dim UserName As String
UserName = Space(40)

با با يه ستور مث دستور زير صداش كن:


GetUserName UserName, Len(UserName)
majid_kntu
29-01-2008, 09:08
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خوب سوال بعدي.
اينجوري استپ باي استپ بهتره!
Mohsen_p30world
30-01-2008, 10:24
ممنون همه ی مشکل هام حل شد