[Линда Кайе]

#post-id: 3647-17-48
#original-date: 21.07.2010 Wed
#original-time: 5:48 PM
#original-day:  3647
#original-host: WinXP Prof SP3 (Build 2600)

Сегодня мне в очередной раз принесли флэшку с вирусом. И тут у меня созрел план как город постепенно избавить от заразы. Да, так глобально. Но оказалаось, что на флэшке уже было такое решение, только работало оно не так.

Там предлагалось: авторан запускает скрипт, который остаётся в памяти и выносит вирусы на всех новоприбывших флэшках. Мне не нравится, хотя ход мыслей хороший.

Моё решение - кардинальное. Таким же вирусным способом я буду запускать в народ скрипт, который будет вырубать авторан в системе. И всё. Преимущества налицо: в памяти ничего не будет висеть, скрипт сразу уничтожит причину вирусных эпидемий, а пользователь врядли сможет на новых флэшках запустить вирусы. Ибо со времён WinFile.EXE вирусы начали прятаться. Он просто не найдёт вирус чтобы запустить его!

Сегодня был первый тестовый выброс. Дальше будет больше ^^

Если кому интересно, код "вируса" могу процитировать ^^

Comments

[KurtWagnar]

ну в общем то заботливый пользователь авторан на ХР в первую очередь отрубает.
скрипт мне

[Линда Кайе]

Ну, учитывая эпидемию по нашему городу, заботливых пользователей там минимум, особенно на предприятиях.

Скрипт. Правда, не доделала. Там указан абсолютный путь, а надо чтобы на все флэшки писался, лень было заниматься ^^ И описание неточное ^^ Короче, данный фрагмент записывает в указанную папку AutoRun.INF и ARD806RT.VBS. Вот они и должны сделать чёрное дело в целевой системе.

'====================================================================
' AJPapps - ARD806
' Линда Кайе 2010. Посвящается Ариэль
' 
' Этот скрипт отключает автозапуск со всех видов носителей для 
' локальной системы в целом или для текущего пользователя. Это очень
' полезно для борьбы вирусов, распространяющихся через флэшки, 
' дискеты или сетевые диски.
' 
' • 24.07.2010
'   Первая версия ^^
' 
'====================================================================
' Маленький копирайт
' 
' 1. Программа и исходный код распространяются бесплатно.
' 2. Вы имеете право распространять их на тех же условиях.
' 3. Вы не имеете права использовать имя автора после модификации 
'    исходного кода.
' 4. При этом желательно указывать ссылку на автора оригинальной 
'    версии исходного кода.
' 5. Вы не имеете права на платное распространение исходного кода, 
'    а также программных модулей, содержащих данный исходнй код.
' 6. Программа и исходный код распространяются как есть. Автор не 
'    несёт ответственности за любые трагедии или несчастные случаи, 
'    вызванные использованием программы и исходного кода.
' 7. Для любого пункта данного соглашения может быть сделано 
'    исключение с разрешения автора программы.
' 8. По любым вопросам, связанным с данной программой, обращайтесь 
'    по адресу [e-mail]
' 
' Загружено с http://purl.oclc.org/Linda_Kaioh/Homepage/
'====================================================================
Option Explicit

Const AppTitle = "AJPapps - ARD806"

CreateFile "I:\Documents\Programming\ARD806\AutoRun.INF", GetAutoRunText()
CreateFile "I:\Documents\Programming\ARD806\ARD806RT.VBS", GetScriptText()

MsgBox "Готово ^_^v", vbInformation, AppTitle

'====================================================================
Private Sub CreateFile(ByVal FileName, ByVal Text)
  Dim FSO
  Dim File

  On Error Resume Next

  Set FSO = CreateObject("Scripting.FileSystemObject")

  Set File = FSO.GetFile(FileName)
  File.Attributes = 0

  Set File = FSO.CreateTextFile(FileName, True)
  File.WriteLine Text
  File.Close

  Set File = FSO.GetFile(FileName)
  File.Attributes = 4 Or 2 Or 1
End Sub

'====================================================================
Private Function GetAutoRunText()
  GetAutoRunText = "[autorun]" & vbCrLf & _
                   "open=ARD806RT.VBS"
End Function

'====================================================================
Private Function GetScriptText()
  GetScriptText = _
    "'====================================================================" & vbCrLf & _
    "' Просто хороший скрипт." & vbCrLf & _
    "' " & vbCrLf & _
    "' Закрывает автозапуск со всех носителей и предотвращает " & vbCrLf & _
    "' распространение autorun вирусов." & vbCrLf & _
    "' " & vbCrLf & _
    "' Недовольным. А кто виноват, что у вас даже антивируса нет? А если " & vbCrLf & _
    "' и есть, то пять, обновлённых три года назад? Сами виноваты." & vbCrLf & _
    "'====================================================================" & vbCrLf & _
    "Dim Reg" & vbCrLf & _
    "Dim Path" & vbCrLf & _
    "" & vbCrLf & _
    "Set Reg = CreateObject(""WScript.Shell"")" & vbCrLf & _
    "" & vbCrLf & _
    "Path = ""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\""" & vbCrLf & _
    "Reg.RegWrite Path & ""NoDriveTypeAutoRun"", &h000000FF&, ""REG_DWORD""" & vbCrLf & _
    "Reg.RegWrite Path & ""NoDriveAutoRun"", &HFFFFFFFF&, ""REG_DWORD"" ' REG_BINARY" & vbCrLf & _
    "" & vbCrLf & _
    "Path = ""HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\""" & vbCrLf & _
    "Reg.RegWrite Path & ""NoDriveTypeAutoRun"", &h000000FF&, ""REG_DWORD""" & vbCrLf & _
    "Reg.RegWrite Path & ""NoDriveAutoRun"", &HFFFFFFFF&, ""REG_DWORD"" ' REG_BINARY" & vbCrLf & _
    "" & vbCrLf & _
    "MsgBox ""Хороший скрипт только что закрыл доступ для некоторых типов "" & _" & vbCrLf & _
    "       ""вирусов ^_^v"" & vbCrLf & vbCrLf & ""Пожалуйста, не забудьте "" & _" & vbCrLf & _
    "       ""установить хороший антивирус или обновить, если такой уже "" & _" & vbCrLf & _
    "       ""установлен!"", vbInformation, ""Хороший скрипт"""
End Function

[KurtWagnar]

Ну, учитывая эпидемию по нашему городу, заботливых пользователей там минимум, особенно на предприятиях.

напомните мне как ваш город называется

[Линда Кайе]

КП №18/36 ГПУ РФ ^^

[sinbad7]

существуют вирусы которым авторан не нужен

[Линда Кайе]

Ну да, появился иконочный недавно. Однако как правило, в вирусах нет ничего волшебного, и они бесполезны пока их тем или иным образом не запустишь.

[KurtWagnar]

Однако как правило, в вирусах нет ничего волшебного, и они бесполезны пока их тем или иным образом не запустишь.

почти всегда))

[Линда Кайе]

^^