اين هم سورس كيلاگر بنده

[lord_viper]

وقتی برنامه میخواهی بنویسی قبلش باید براش برنامه ریزی کنی تمام نیازهای برنامت رو در نظر بگیری و بعد شروع کنی به نوشتن این توصیه منه اگه میخواهی بهترین بشی
از 1 ساعت 59 دقیقشو فکر کن 1 دقیقه کد بنویس
av=انتی ویروس
mailware =برنامه هایی هستند که خودشونو از طریق ایمیل پخش میکنند
zw*= به توابع سطح کرنل میگن
unpack=Packer پر کاربردترین عنصر امنیتی در حوزهء نرم افزار است . وظیفهء Packer :

- تغییر شکل و قالب بخشهای مهم فایلهای اجرائی
- ارائه روتینهائی برای حفاظت از برنامه روی حافظه
- کنترل یکپارچگی باینری
- مخفی نگهداشتن مشخصه های حائز اهمیت باینری مانند کامپایلر و کتابخانه ها و ...
به طور خلاصه یعنی جلوگیری از نمایش کد برنامتون در نرمافزارهای disasemble که کد برنامه که بعد از کامپایل یه زبانهای سطح پایین مثل اسمبل ترجمه میشن قابل شناسایی نیاشن به این میگن pack و در اوردن یه برنامه از حالت pack رو هم میگن unpack امروزه نرمافزارهای تجاری رو پک میکنن تا از گزند کرکرها در امان بمونن(البته هر نرمافزاری که ارزششو داشته باشه کرک میشه ولی اگه پک شده باشه کرکش خیلی سخت میشه چون برای کرک باید به سورس دی اسمبل شدش دسرسی داشته باشین
موفق باشید
بیشتر مطلالعه کن قبل از نوشتن یک برنامه

[lord_viper]

وقتی برنامه میخواهی بنویسی قبلش باید براش برنامه ریزی کنی تمام نیازهای برنامت رو در نظر بگیری و بعد شروع کنی به نوشتن این توصیه منه اگه میخواهی بهترین بشی
از 1 ساعت 59 دقیقشو فکر کن 1 دقیقه کد بنویس
av=انتی ویروس
mailware =برنامه هایی هستند که خودشونو از طریق ایمیل پخش میکنند
zw*= به توابع سطح کرنل میگن
unpack=Packer پر کاربردترین عنصر امنیتی در حوزهء نرم افزار است . وظیفهء Packer :

- تغییر شکل و قالب بخشهای مهم فایلهای اجرائی
- ارائه روتینهائی برای حفاظت از برنامه روی حافظه
- کنترل یکپارچگی باینری
- مخفی نگهداشتن مشخصه های حائز اهمیت باینری مانند کامپایلر و کتابخانه ها و ...
به طور خلاصه یعنی جلوگیری از نمایش کد برنامتون در نرمافزارهای disasemble که کد برنامه که بعد از کامپایل یه زبانهای سطح پایین مثل اسمبل ترجمه میشن قابل شناسایی نیاشن به این میگن pack و در اوردن یه برنامه از حالت pack رو هم میگن unpack امروزه نرمافزارهای تجاری رو پک میکنن تا از گزند کرکرها در امان بمونن(البته هر نرمافزاری که ارزششو داشته باشه کرک میشه ولی اگه پک شده باشه کرکش خیلی سخت میشه چون برای کرک باید به سورس دی اسمبل شدش دسرسی داشته باشین
موفق باشید
بیشتر مطالعه کن قبل از نوشتن یک برنامه

[ΛΛ Θ l-l $ Σ Ω]

ممنون از توضيحات كاملتون

[ΛΛ Θ l-l $ Σ Ω]

سلام
براي غير فعال كردن آنتي ويروس ها مخصوصا كاسپر مثل اينكه هيچ راهي بجز تغيير تاريخ سيستم وجود نداره
من وقتي تاريخ سيستم رو تغيير (به سال 2005 ) ميدم برنامه ديگه ايميل ارسال نمي كنه!!!..؟؟؟

[sayberiya]

سلام محسن خوبی .
چرا یک راه دیگه وجود داره . برای اینکه کسپر 7 یه فایل پشتیبانی داره که بعد از غیر فعال شدنش سریع دوباره فعال میشه . ولی من یه راه بلدم که اونم از کار میندازی .
تا بعد از ظهر میزارم تو سایت عزیز

[sayberiya]

نه دوستان
مثل اینکه اشتباه شد . برای منم همین روشه . شرمنده حواسم نبود
Dim Time As SYSTEMTIME
Time.wYear = 1984
Time.wMonth = 2
Time.wDayOfWeek = 2
Time.wDay = 27
Time.wHour = 9
Time.wMinute = 30
Time.wSecond = 0
Time.wMilliseconds = 0
SetSystemTime Time

[XSS]

اینم فارسی رو ساپورت نکرد
کسی نمیدونه برای حل این مشکل باید چیکار کرد؟

[lord_viper]

استفاده از GetKeyboardLayout برای گرفتن زبان جاری و LoadKeyboardLayout برای تغییر کیبورد به زبان مورد نظر
هر دوشون از توابع api هستند و اطلاعات بیشتر MSDN

[XSS]

منم از LoadKeyboardLayout استفاده کردم، کارش مثل همون Alt+Shift خودمونه که زبون ویندوز رو عوض میکنه، دردی رو دوا نمیکنه
اینم مثالش بود:

کد:

'This example was created by A.E.Veltstra

'This fucntion changes the locale and as a result, the keyboardlayout gets adjusted

'parameters for api's
Const KL_NAMELENGTH As Long = 9                      'length of the keyboardbuffer
Const KLF_ACTIVATE  As Long = &H1                     'activate the layout

'the language constants
Const LANG_NL_STD As String = "00000413"
Const LANG_EN_US As String = "00000409"
Const LANG_DU_STD As String = "00000407"
Const LANG_FR_STD As String = "0000040C"

'api's to adjust the keyboardlayout
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Public Function SetKbLayout(strLocaleId As String) As Boolean
    'Changes the KeyboardLayout
    'Returns TRUE when the KeyboardLayout was adjusted properly, FALSE otherwise
    'If the KeyboardLayout isn't installed, this function will install it for you
    On Error Resume Next
    Dim strLocId As String 'used to retrieve current KeyboardLayout
    Dim strMsg As String   'used as buffer
    Dim lngErrNr As Long   'receives the API-error number

  'create a buffer
  strLocId = String(KL_NAMELENGTH, 0)
  'retrieve the current KeyboardLayout
  GetKeyboardLayoutName strLocId
  'Check whether the current KeyboardLayout and the
  'new one are the same
  If strLocId = (strLocaleId & Chr(0)) Then
    'If they're the same, we return immediately
    SetKbLayout = True
  Else
    'create buffer
    strLocId = String(KL_NAMELENGTH, 0)
    'load and activate the layout for the current thread
    strLocId = LoadKeyboardLayout((strLocaleId & Chr(0)), KLF_ACTIVATE)
    If IsNull(strLocId) Then  'returns NULL when it fails
      SetKbLayout = False
    Else 'check again
      'create buffer
      strLocId = String(KL_NAMELENGTH, 0)
      'retrieve the current layout
      GetKeyboardLayoutName strLocId
      If strLocId = (strLocaleId & Chr(0)) Then
        SetKbLayout = True
      Else
        SetKbLayout = False
      End If
    End If
  End If
End Function
Private Sub Form_Load()
    'change the current keybour layout to 'English - US'
    SetKbLayout LANG_EN_US
End Sub

من که نمیخوام زبون کیبورد رو عوض کنم، میخوام وقتی طرف فارسی تایپ میکنه کیلاگر هم کاراکترها رو بصورت فارسی ذخیره کنه
یعنی نوشت "سلام" تو فایل لاگ نوشته نشه "sghl"

[lord_viper]

خب تو هم همون کارو بکن وقتی طرف فارسی مینویسه توهم فارسی برداشت کن یعنی معادلها رو به 2 صورت فارسی و انگلیسی قرار بده اگه رو انگلیسی بود کاراکترهای انگلیسی اگه فارسی بود کاراکترهای فارسی

[sayberiya]

سلام بچه ها
راستی آقا محسن و آقای lord_viper
شما میتونید که این کیلاگر یه ظره قویترش کنید و امکاناته جدیدتری بهش اضافه کنید.
یعنی هر صحبتی که میشه در مورد کیلاگر و به جواب میرسیم اون رو به سورس کیلاگر اضافه کنیم .
امکان داره. ولی فکر خوبیه ها