elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
29 Mayo 2012, 06:58  


Tema destacado: Personaliza-Escoge el diseño del foro que más te guste.

+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting (Moderadores: Novlucker, Leo Gutiérrez., EleKtro H@cker)
| | |-+  BLOQUEAC UNA CARPETA/ Y COMO HACERLE DESDE OTRA RUTA
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: BLOQUEAC UNA CARPETA/ Y COMO HACERLE DESDE OTRA RUTA  (Leído 407 veces)
GEORGEFRT

Desconectado Desconectado

Mensajes: 18


Ver Perfil
BLOQUEAC UNA CARPETA/ Y COMO HACERLE DESDE OTRA RUTA
« en: 17 Noviembre 2011, 20:32 »

AMIGOS MI PREGUNTA ES ESTA BUENO OK TENGO UN BACH QUE BLOQUE UNA CARPETA PERO BUENO QUIERO QUE SEA DESDE OTRA UBICACIÓN QUE SE ENCUENTRE EL BACH Y OTRA LA CARPETA QUE DESEAMOS BLOQUEA, POR QUE SI NO IMAGÍNENSE DEJAMOS AHÍ MISMO LA CARPETA PRIVADA Y EL BACH JUNTOS Y SOLO OTRA PERSONA CON CONOCIMIENTO LE DARÍA BOTÓN DERECHO AL BACH CAMBIARÍA LA CLAVE Y YA ACCEDIÓ, ASÍ DE FÁCIL, CREO YO HAY QUE CAMBIAR UN BACH QUE TENGA UN DIRECCIÓN DESDE OTRO LUGAR Y QUE LA BLOQUIE O DESBLOQUIE, COMO SERIA LA PROGRAMACION LES DEJO EL CÓDIGO SOLO AUMÉNTENLE COMO LO BLOQUEARIA TENIENDO EN ESTA DIRECCIÓN LA CARPETA

QUIERO QUE EN UN LADO ESTE EL BACH Y EN OTRO MUY LEJANO LA CARPETA
C:\JORGE\876\Private




CODIGO BACH

cls
@ECHO OFF
title Desbloquear/Bloquear Carpeta
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Seguro que Quieres Bloquear La Carpeta? (S) Si (N) No
set/p "cho=>"
if %cho%==S goto LOCK
if %cho%==S goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Carpeta Bloqueada
goto End
:UNLOCK
echo Ingresa la contraseña para desbloquear la carpeta
set/p "pass=>"
if NOT %pass%== JORGE goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
echo Carpeta desbloqueada Correctamente
goto End
AIL
echo Contraseña Invalida
goto end
:MDLOCKER
md Private
echo Carpeta Privada Creada Sastifactoriamente
goto End
:End


« Última modificación: 17 Noviembre 2011, 20:34 por GEORGEFRT » En línea
EleKtro H@cker
Moderador
***
Desconectado Desconectado

Mensajes: 1.348


(8) I will have that power!! (8) Jarkor! :D


Ver Perfil
Re: BLOQUEAC UNA CARPETA/ Y COMO HACERLE DESDE OTRA RUTA
« Respuesta #1 en: 17 Noviembre 2011, 22:43 »

Bueno antes de nada, modifica en el script la ruta ENTERA de la carpeta que quieres bloquear (target) y luego ya prueba a usarlo.

EDITO: Con esta modificación que te he echo podrías agregar una entrada al registro del menú contextual del ratón que diga "Bloquear carpeta" y lanzar este script, cambiando:
Código
Set Target=C:\Program Files\Java
por
Código
Set Target=%1

un saludo.





Código
@ECHO OFF

REM Modificado por EleKtrO H@ckeR

REM Visita: Foro.ElHacker.Net
REM #########################
 
Title Desbloquear/Bloquear Carpeta
Mode con cols=60 lines=9
 
Set Mypass=JORGE
Set Private=%SYSTEMDRIVE%\Private
Set Target=C:\Program Files\Java
 
 
IF EXIST "%PRIVATE%" (Goto :UNLOCK)
IF EXIST "%TARGET%" (Goto :CONFIRM)
 
 
 
:CONFIRM
:~~~~~~~
Set Cho=
 
CLS
Echo.
Echo Objetivo: %TARGET%
Echo.
Echo Seguro que Quieres Bloquear La Carpeta? (S) Si (N) No
Echo.
Set/p "CHO=> "
 
Echo %cho%| findstr /I "^S" >nul
IF %errorlevel% equ 0 (goto :LOCK)
 
Echo %cho%| findstr /I "^N" >nul
IF %errorlevel% equ 0 (goto :END)
 
Echo.
Echo Invalid choice.
Ping -n 3 LOCALHOST >nul
Goto :CONFIRM
 
 
 
:LOCK
:~~~~
PUSHD "%TARGET%"
CD..
Takeown /F "%TARGET%" /R /D S >nul 2>&1
Icacls "%TARGET%\*" /Grant %username%:(D,WDAC) /T >nul 2>&1
Move "%TARGET%" "%Private%" >nul 2>&1
Attrib +h +s "%PRIVATE%" >nul 2>&1
Icacls "%PRIVATE%\*" /deny %username%:(D) /T >nul 2>&1
 
Echo.
Echo Carpeta Bloqueada.
Ping -n 3 LOCALHOST >nul
Goto :End
 
 
 
:UNLOCK
:~~~~~~
Echo.
Echo Ingresa la contrase¤a para desbloquear la carpeta...
Echo.
Set/p "PASS=> "
 
IF "%pass%" EQU "%MYPASS%" (
Icacls "%PRIVATE%\*" /grant %username%:^(D,wdac^) /T >nul 2>&1
Attrib -h -s "%PRIVATE%" >nul 2>&1
Move "%Private%" "%TARGET%" >nul 2>&1
 
Echo.
Echo Carpeta desbloqueada Correctamente.
Ping -n 3 LOCALHOST >nul
Goto :End
)  ELSE (
Goto :FAIL
)
 
 
 
:FAIL
:~~~~
CLS
Echo Contrase¤a Invalida
Ping -n 3 LOCALHOST >nul
Goto :END
 
 
 
:End
:~~~
CLS
Echo end.
Pause >nul
Exit


« Última modificación: 17 Noviembre 2011, 22:59 por EleKtro H@cker » En línea

Siempre habrá alguien más ignorante que uno mismo, Como por ejemplo el nuevo presidente de la SGAE:

"La banda ancha es totalmente innecesaria para navegar convencionalmente, Solo sirve para descargar megas y megas grandisimos, Y tal."

PD: Volviendo a la era de los 56 k.

GEORGEFRT

Desconectado Desconectado

Mensajes: 18


Ver Perfil
Re: BLOQUEAC UNA CARPETA/ Y COMO HACERLE DESDE OTRA RUTA
« Respuesta #2 en: 17 Noviembre 2011, 22:58 »

bueno amigo, gracias pero a lo que voy funciona el .bat ahi mismo junto a la carpeta que se va a bloquea y bueno yo quiero que sea desde otro hubicacion por decir

D:\ARCHIVOS\ARCHIVO.BAT QUE ES EL .BAT QUE SE YO QUE ES PARA DESBLOQUEAR LA CARPETA


Y


POR OTRO LADO
C:\(CARPETA DE PRIVACIDAD) (BLOQUEADA)




LO QUE QUIERO QUE EL BACH ESTE EN OTRO LADO Y ENTRE EN OPERACION PARA DESBLOQUE O BLOQUEAR LA CARPETA QUE ESTA EN OTRO EXTREMO
En línea
EleKtro H@cker
Moderador
***
Desconectado Desconectado

Mensajes: 1.348


(8) I will have that power!! (8) Jarkor! :D


Ver Perfil
Re: BLOQUEAC UNA CARPETA/ Y COMO HACERLE DESDE OTRA RUTA
« Respuesta #3 en: 17 Noviembre 2011, 23:02 »


LO QUE QUIERO QUE EL BACH ESTE EN OTRO LADO Y ENTRE EN OPERACION PARA DESBLOQUE O BLOQUEAR LA CARPETA QUE ESTA EN OTRO EXTREMO


eso es lo que hace el script que te he puesto XD

al final te entendí, Puedes usar el batch desde donde quieras, pruebalo y dime como te fue
En línea

Siempre habrá alguien más ignorante que uno mismo, Como por ejemplo el nuevo presidente de la SGAE:

"La banda ancha es totalmente innecesaria para navegar convencionalmente, Solo sirve para descargar megas y megas grandisimos, Y tal."

PD: Volviendo a la era de los 56 k.

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines