- Автор темы
- #1
Рылся я в глубинах своего харда и набрёл на папочку со своими ВБС скриптами и решил на примере самого безопасного из них рассказать о возможностях этого маленького и обделённого вниманием языка.
Вообще VBS - это наверно самая глубокая и очевидная дыра в безопасности Винды, а значит стоит её Вам показать.
Представьте себе, он не требует компиляции, исполняется системным интерпретатором(а значит имеет привилегии), даже самый злой код не палится антивирусами (трояны писать не пробовал, даже не знаю, есть ли библиотеки для хттп запросов, но черновую работу по обслуживанию всяких червей и их модулей выполняет на ура!)
Go ahead!
----------------------------------------------------------CODE--------------------------------------------------------------
REM - комментарий.
REM & - конкатенация
REM можно задавать не явные переменные (т.е. без предварительного задания),
dim COShell, COFSObj, v,k,r,b, SpecFolders
REM "WScript.Shell" - библиотека, подключающая окружение виндовс, здесь мы используем её для того, чтобы узнать путь к рабочему столу
Set COShell = CreateObject("WScript.Shell")
REM библиотека, которая подключает окружение файловой системы, чтобы мы потом создали файл
Set COFSObj = CreateObject("scripting.filesystemobject")
Set SpecFolders = COShell.SpecialFolders
v = 1
REM количество файлов, которое создадим. учтите мой горький опыт и не создавайте больше, чем может поместиться на десктоп, иначе экплорер рухнет, а после перезагрузки изменения откатятся
For k = 1 to 2
REM отключаем выведение ошибок, чтобы оно ошибки не запалило путь к скрипту
On Error Resume Next
REM создаём текстовик, кстати CreateTextFile позволяет создавать любые файлы, определяемые в ФС, как строчные. другими словами все, которые можно открыть в блокноте, не получив рак глазного яблока)
Set b = COFSObj.CreateTextFile(SpecFolders.Item("AllUsersDesktop")&"/"&"crash"&"("&v&")"&".txt")
REM кличество строк в каждом файле
For r = 1 to 100
REM придумайте убедительный текст ошибки. Ну или любой другой текст. Тут на ваш вкус
b.WriteLine("crash ["&Now&"] Error: 560314Crlf (Class C). Error checking license.")
Next
v = v + 1
Next
----------------------------------------------------------/CODE-------------------------------------------------------------
П.П.П.С. все скрипты закрываютсязавершением процесса wscript.exe
Вообще VBS - это наверно самая глубокая и очевидная дыра в безопасности Винды, а значит стоит её Вам показать.
Представьте себе, он не требует компиляции, исполняется системным интерпретатором(а значит имеет привилегии), даже самый злой код не палится антивирусами (трояны писать не пробовал, даже не знаю, есть ли библиотеки для хттп запросов, но черновую работу по обслуживанию всяких червей и их модулей выполняет на ура!)
Go ahead!
----------------------------------------------------------CODE--------------------------------------------------------------
REM - комментарий.
REM & - конкатенация
REM можно задавать не явные переменные (т.е. без предварительного задания),
dim COShell, COFSObj, v,k,r,b, SpecFolders
REM "WScript.Shell" - библиотека, подключающая окружение виндовс, здесь мы используем её для того, чтобы узнать путь к рабочему столу
Set COShell = CreateObject("WScript.Shell")
REM библиотека, которая подключает окружение файловой системы, чтобы мы потом создали файл
Set COFSObj = CreateObject("scripting.filesystemobject")
Set SpecFolders = COShell.SpecialFolders
v = 1
REM количество файлов, которое создадим. учтите мой горький опыт и не создавайте больше, чем может поместиться на десктоп, иначе экплорер рухнет, а после перезагрузки изменения откатятся
For k = 1 to 2
REM отключаем выведение ошибок, чтобы оно ошибки не запалило путь к скрипту
On Error Resume Next
REM создаём текстовик, кстати CreateTextFile позволяет создавать любые файлы, определяемые в ФС, как строчные. другими словами все, которые можно открыть в блокноте, не получив рак глазного яблока)
Set b = COFSObj.CreateTextFile(SpecFolders.Item("AllUsersDesktop")&"/"&"crash"&"("&v&")"&".txt")
REM кличество строк в каждом файле
For r = 1 to 100
REM придумайте убедительный текст ошибки. Ну или любой другой текст. Тут на ваш вкус
b.WriteLine("crash ["&Now&"] Error: 560314Crlf (Class C). Error checking license.")
Next
v = v + 1
Next
----------------------------------------------------------/CODE-------------------------------------------------------------
П.П.П.С. все скрипты закрываютсязавершением процесса wscript.exe