چند تا و*ی*ر*و*س ساده

دوستان این اموزش برای یادگیری هست و استفاده نا درست به عهده خود فرد است

 

چند تا و*ی*ر*و*س ساده 

{سلام ویروس اول}

go to the game

loop

به جای گیم اسم پوشه یا هرچیزه دیگه.}

۲. ایجاد ویروس Cdrom بی ضرر

دفترچه یادداشت را باز کنید و کد زیر را در آن جای دهید و آن را به عنوان CD-ROM.vbs یا هر چیزی ذخیره کنید.

Set oWMP = CreateObject(“WMPlayer.OCX.7”)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – ۱
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – ۱
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000

۳. ویروس ایجاد کنید تا آنتی ویروس خود را آزمایش کنید (دفترچه یادداشت جعلی)

دفترچه یادداشت را باز کرده و کد داده شده را جای گذاری کرده و پرونده را به عنوان “EICAR.COM” ذخیره کنید.

X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*