- graveto
- Idade : 32
erro no script
Sex Dez 04, 2009 8:51 pm
opa eu uni dois script mas nao estou conseguindo fazer uma frase aparecer quando tenta ocultar uma pasta ja oculta todas as outras opcoes dao certo.
@echo off
title Bloquear
color 72
SET REAL_PASS=123456
SET REAL_LENGTH=********
echo e100 B4 00 CD 16 88 E0 B4 4C CD 21> %temp%.\scan.com
for %%? in (rcx A w q) do echo %%?>> %temp%.\scan.com
type %temp%.\scan.com |DEBUG %temp%.\scan.com > nul
for %%? in (pass_length) do set user_%%?=
:loop
set input=
cls
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ ³
ECHO ³ POR FAVOR DIGITE SUA SENHA ³
ECHO ³ ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ---------------:%user_length%
if "%user_pass%"=="%real_pass%" goto granted
if "%user_length%"=="%real_length%" goto denied
call %temp%.\scan.com
if errorlevel=2 if not errorlevel=3 set input=1
if errorlevel=3 if not errorlevel=4 set input=2
if errorlevel=4 if not errorlevel=5 set input=3
if errorlevel=5 if not errorlevel=6 set input=4
if errorlevel=6 if not errorlevel=7 set input=5
if errorlevel=7 if not errorlevel=8 set input=6
if errorlevel=8 if not errorlevel=9 set input=7
if errorlevel=9 if not errorlevel=10 set input=8
if errorlevel=10 if not errorlevel=11 set input=9
if errorlevel=11 if not errorlevel=12 set input=0
if errorlevel=30 if not errorlevel=31 set input=a
if errorlevel=48 if not errorlevel=49 set input=b
if errorlevel=46 if not errorlevel=47 set input=c
if errorlevel=32 if not errorlevel=33 set input=d
if errorlevel=18 if not errorlevel=19 set input=e
if errorlevel=33 if not errorlevel=34 set input=f
if errorlevel=34 if not errorlevel=35 set input=g
if errorlevel=35 if not errorlevel=36 set input=h
if errorlevel=23 if not errorlevel=24 set input=i
if errorlevel=36 if not errorlevel=37 set input=j
if errorlevel=37 if not errorlevel=38 set input=k
if errorlevel=38 if not errorlevel=39 set input=l
if errorlevel=50 if not errorlevel=51 set input=m
if errorlevel=49 if not errorlevel=50 set input=n
if errorlevel=24 if not errorlevel=25 set input=o
if errorlevel=25 if not errorlevel=26 set input=p
if errorlevel=16 if not errorlevel=17 set input=q
if errorlevel=19 if not errorlevel=20 set input=r
if errorlevel=31 if not errorlevel=32 set input=s
if errorlevel=20 if not errorlevel=21 set input=t
if errorlevel=22 if not errorlevel=23 set input=u
if errorlevel=47 if not errorlevel=48 set input=v
if errorlevel=17 if not errorlevel=18 set input=w
if errorlevel=45 if not errorlevel=46 set input=x
if errorlevel=21 if not errorlevel=22 set input=y
if errorlevel=44 if not errorlevel=45 set input=z
if errorlevel=71 if not errorlevel=72 set input=7
if errorlevel=72 if not errorlevel=73 set input=8
if errorlevel=73 if not errorlevel=74 set input=9
if errorlevel=75 if not errorlevel=76 set input=4
if errorlevel=76 if not errorlevel=77 set input=5
if errorlevel=77 if not errorlevel=78 set input=6
if errorlevel=79 if not errorlevel=80 set input=1
if errorlevel=80 if not errorlevel=81 set input=2
if errorlevel=81 if not errorlevel=82 set input=3
if errorlevel=82 if not errorlevel=83 set input=0
if "%input%"=="" goto loop
set user_length=*%user_length%
set user_pass=%user_pass%%input%
goto loop
:granted
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ ³
ECHO ³ ACESSO AUTORIZADO ³
ECHO ³ ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ping 127.0.0.1 -n 3 -w 1000 > nul
@ping 127.0.0.1 -n %1% -w 1000> nul
goto pass_end
:denied
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ ³
ECHO ³ ACESSO NAO AUTORIZADO ³
ECHO ³ SERA FINALIZADA ESSA SECAO ³
ECHO ³ ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
for %%? in (pass length) do set user_%%?=
for %%? in (pass length) do set real_%%?=
del %temp%.\scan.com
ping 127.0.0.1 -n 3 -w 1000 > nul
@ping 127.0.0.1 -n %1% -w 1000> nul
:sair
exit
:pass_end
for %%? in (pass length) do set user_%%?=
for %%? in (pass length) do set real_%%?=
del %temp%.\scan.com
:menucacls
cls
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º Bloquear º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo O que deseja fazer?
echo.
echo 1 Bloquear um Arquivo ou Pasta
echo 2 Desbloquear Arquivo ou Pasta
echo 3 Criar uma Pasta
echo 4 Ocultar a Pasta
echo 5 Desocultar Pasta
echo 6 Sair
set /p opccacls=">>"
if %opccacls%==1 (goto bloqueararq)
if %opccacls%==2 (goto desbloquearq)
if %opccacls%==3 (goto criater)
if %opccacls%==4 (goto ocultar)
if %opccacls%==5 (goto liberar)
if %opccacls%==6 (goto sair)
if %opccacls% GRT 2 (echo Opcao invalida digite 1 ou 2 &&pause&&goto menucacls)
:bloqueararq
cls
echo Arraste e solte o arquivo ou pasta aqui !
set /p caclscam=">> : "
CACLS %caclscam% /e /d Todos >nul
goto ini
:desbloquearq
cls
echo Arraste e solte o arquivo ou pasta aqui !
set /p caminhocacls2=">>"
CACLS %caminhocacls2% /e /p Todos:f >nul
goto ini
:criater
cls
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto nocreatt
if NOT EXIST private goto makee
:nocreatt
echo.
echo Ja existe uma pasta neste diretorio... prima uma tecla para voltar ao menu&&pause > nul&&goto menucacls
goto ini
:makee
echo.
md private
goto ini
:ocultar
ren private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
goto ini
:liberar
cls
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto des
if NOT EXIST private goto naoexist
:naoexist
cls
echo Pasta nao encontrada... prima uma tecla para voltar ao menu&&pause > nul&&goto menucacls
goto ini
:des
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" private
goto ini
:sair
@echo off
title Bloquear
color 72
SET REAL_PASS=123456
SET REAL_LENGTH=********
echo e100 B4 00 CD 16 88 E0 B4 4C CD 21> %temp%.\scan.com
for %%? in (rcx A w q) do echo %%?>> %temp%.\scan.com
type %temp%.\scan.com |DEBUG %temp%.\scan.com > nul
for %%? in (pass_length) do set user_%%?=
:loop
set input=
cls
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ ³
ECHO ³ POR FAVOR DIGITE SUA SENHA ³
ECHO ³ ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ---------------:%user_length%
if "%user_pass%"=="%real_pass%" goto granted
if "%user_length%"=="%real_length%" goto denied
call %temp%.\scan.com
if errorlevel=2 if not errorlevel=3 set input=1
if errorlevel=3 if not errorlevel=4 set input=2
if errorlevel=4 if not errorlevel=5 set input=3
if errorlevel=5 if not errorlevel=6 set input=4
if errorlevel=6 if not errorlevel=7 set input=5
if errorlevel=7 if not errorlevel=8 set input=6
if errorlevel=8 if not errorlevel=9 set input=7
if errorlevel=9 if not errorlevel=10 set input=8
if errorlevel=10 if not errorlevel=11 set input=9
if errorlevel=11 if not errorlevel=12 set input=0
if errorlevel=30 if not errorlevel=31 set input=a
if errorlevel=48 if not errorlevel=49 set input=b
if errorlevel=46 if not errorlevel=47 set input=c
if errorlevel=32 if not errorlevel=33 set input=d
if errorlevel=18 if not errorlevel=19 set input=e
if errorlevel=33 if not errorlevel=34 set input=f
if errorlevel=34 if not errorlevel=35 set input=g
if errorlevel=35 if not errorlevel=36 set input=h
if errorlevel=23 if not errorlevel=24 set input=i
if errorlevel=36 if not errorlevel=37 set input=j
if errorlevel=37 if not errorlevel=38 set input=k
if errorlevel=38 if not errorlevel=39 set input=l
if errorlevel=50 if not errorlevel=51 set input=m
if errorlevel=49 if not errorlevel=50 set input=n
if errorlevel=24 if not errorlevel=25 set input=o
if errorlevel=25 if not errorlevel=26 set input=p
if errorlevel=16 if not errorlevel=17 set input=q
if errorlevel=19 if not errorlevel=20 set input=r
if errorlevel=31 if not errorlevel=32 set input=s
if errorlevel=20 if not errorlevel=21 set input=t
if errorlevel=22 if not errorlevel=23 set input=u
if errorlevel=47 if not errorlevel=48 set input=v
if errorlevel=17 if not errorlevel=18 set input=w
if errorlevel=45 if not errorlevel=46 set input=x
if errorlevel=21 if not errorlevel=22 set input=y
if errorlevel=44 if not errorlevel=45 set input=z
if errorlevel=71 if not errorlevel=72 set input=7
if errorlevel=72 if not errorlevel=73 set input=8
if errorlevel=73 if not errorlevel=74 set input=9
if errorlevel=75 if not errorlevel=76 set input=4
if errorlevel=76 if not errorlevel=77 set input=5
if errorlevel=77 if not errorlevel=78 set input=6
if errorlevel=79 if not errorlevel=80 set input=1
if errorlevel=80 if not errorlevel=81 set input=2
if errorlevel=81 if not errorlevel=82 set input=3
if errorlevel=82 if not errorlevel=83 set input=0
if "%input%"=="" goto loop
set user_length=*%user_length%
set user_pass=%user_pass%%input%
goto loop
:granted
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ ³
ECHO ³ ACESSO AUTORIZADO ³
ECHO ³ ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ping 127.0.0.1 -n 3 -w 1000 > nul
@ping 127.0.0.1 -n %1% -w 1000> nul
goto pass_end
:denied
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ ³
ECHO ³ ACESSO NAO AUTORIZADO ³
ECHO ³ SERA FINALIZADA ESSA SECAO ³
ECHO ³ ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
for %%? in (pass length) do set user_%%?=
for %%? in (pass length) do set real_%%?=
del %temp%.\scan.com
ping 127.0.0.1 -n 3 -w 1000 > nul
@ping 127.0.0.1 -n %1% -w 1000> nul
:sair
exit
:pass_end
for %%? in (pass length) do set user_%%?=
for %%? in (pass length) do set real_%%?=
del %temp%.\scan.com
:menucacls
cls
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º Bloquear º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo O que deseja fazer?
echo.
echo 1 Bloquear um Arquivo ou Pasta
echo 2 Desbloquear Arquivo ou Pasta
echo 3 Criar uma Pasta
echo 4 Ocultar a Pasta
echo 5 Desocultar Pasta
echo 6 Sair
set /p opccacls=">>"
if %opccacls%==1 (goto bloqueararq)
if %opccacls%==2 (goto desbloquearq)
if %opccacls%==3 (goto criater)
if %opccacls%==4 (goto ocultar)
if %opccacls%==5 (goto liberar)
if %opccacls%==6 (goto sair)
if %opccacls% GRT 2 (echo Opcao invalida digite 1 ou 2 &&pause&&goto menucacls)
:bloqueararq
cls
echo Arraste e solte o arquivo ou pasta aqui !
set /p caclscam=">> : "
CACLS %caclscam% /e /d Todos >nul
goto ini
:desbloquearq
cls
echo Arraste e solte o arquivo ou pasta aqui !
set /p caminhocacls2=">>"
CACLS %caminhocacls2% /e /p Todos:f >nul
goto ini
:criater
cls
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto nocreatt
if NOT EXIST private goto makee
:nocreatt
echo.
echo Ja existe uma pasta neste diretorio... prima uma tecla para voltar ao menu&&pause > nul&&goto menucacls
goto ini
:makee
echo.
md private
goto ini
:ocultar
ren private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
goto ini
:liberar
cls
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto des
if NOT EXIST private goto naoexist
:naoexist
cls
echo Pasta nao encontrada... prima uma tecla para voltar ao menu&&pause > nul&&goto menucacls
goto ini
:des
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" private
goto ini
:sair
- graveto
- Idade : 32
Re: erro no script
Sex Dez 04, 2009 8:53 pm
como que eu faco para colocar como citacao!!! [Você precisa estar registrado e conectado para ver esta imagem.]
- Boss-Head
- Idade : 36
Re: erro no script
Sab Dez 05, 2009 8:04 am
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Msg * "A pasta já está protegida"
ou
if EXIST private Msg * "A pasta não está protegida"
ou
if EXIST private Msg * "A pasta não está protegida"
- graveto
- Idade : 32
Re: erro no script
Seg Dez 07, 2009 1:56 pm
vlw consegui!!!!!!!!!!!!
to aprendendo cada vez mais !!!!!!!!!!!
ficou assim!!!!
[Você precisa estar registrado e conectado para ver este link.]
to aprendendo cada vez mais !!!!!!!!!!!
ficou assim!!!!
[Você precisa estar registrado e conectado para ver este link.]
- graveto
- Idade : 32
Re: erro no script
Ter Ago 17, 2010 9:38 pm
opa
aqui volto eu com mais uma duvida
hoje eu descobri isso e gostaria de implementar nesse script
tem como ???
vai funcionar se eu simplismente trocar
vlw
por
P.S. troca essa cor de fundo do citar
vlw
aqui volto eu com mais uma duvida
hoje eu descobri isso e gostaria de implementar nesse script
tem como ???
vai funcionar se eu simplismente trocar
vlw
"Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
por
GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}
Ativando o God Mode no Windows 7 e Vista
Recentemente foi descoberto um recurso oculto no Windows que está entusiasmando muito os fãs do sistema operacional. Quando ativado, um painel com diversos atalhos é criado, através do qual o usuário pode ter acesso a muitos controles do sistema operacional dentro de uma única pasta ou janela. Trata-se do God Mode (Modo Deus). Este recurso funciona no Windows 7 e no Vista (testado na versão 32 bits).
Para criar a pasta God Mode, faça o seguinte. Cria uma pasta na área de trabalho e em seguida renomeie a pasta para o nome abaixo:
GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}
Assim que for renomeada, o ícone da nova pasta irá mudar, ficando semelhante ao ícone do painel de controle, conforme figura acima (no Windows 7). Quando abrir esta pasta o usuário terá acesso rápido e fácil a muitas funções interessantes do sistema, separadas por categoria (Central de Rede, Controle de Contas de Usuário, Sincronização, Dispositivos, Ferramentas Administrativas e muito mais. Posteriormente você poderá mover esta pasta para outro local, caso não queira deixar a mesma no seu desktop.
P.S. troca essa cor de fundo do citar
vlw
- Boss-Head
- Idade : 36
Re: erro no script
Qua Ago 18, 2010 6:57 am
Vou mudar as cores realmente muito ruim
- graveto
- Idade : 32
Re: erro no script
Qua Ago 18, 2010 8:40 am
eu testei no windows 7 64 e funciono
eu criei a pasta e ocultei trankilo
agora eu presiso de uma senha so em bat sem debug
nao sei se aqui tem alguma que funciona no 7
[Você precisa estar registrado e conectado para ver este link.]
vlw
eu criei a pasta e ocultei trankilo
agora eu presiso de uma senha so em bat sem debug
nao sei se aqui tem alguma que funciona no 7
[Você precisa estar registrado e conectado para ver este link.]
vlw
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum