دوستان این اموزش برای یادگیری هست و استفاده نا درست به عهده خود فرد است
چند تا و*ی*ر*و*س ساده
{سلام ویروس اول}
go to the game
loop
به جای گیم اسم پوشه یا هرچیزه دیگه.}
دفترچه یادداشت را باز کنید و کد زیر را در آن جای دهید و آن را به عنوان 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*