Hola les dejo el codigo con algunas mejoras para crear una carpeta Oculta
Solo tienen que copiar el codigo que les dejo a continuacion, crear un archivo txt con el nombre que quieran y le pegan el codigo. Luego le cambian la extencion del archivo por .bat
para darle mayor "seguridad" busquen el programa "bat to exe"
o descargalo de aca
http://www.f2ko.de/downloads/Bat_To_Exe_Converter.zip
El bat crea un registro de las veces que se ingreso; guardando solo las credenciales erroneas (es una BETA) la idea es que el log este cifrado con una herramienta de windows y tambien en la parte del final esta la idea de poder configurar facilmente las credenciales. Esos valores se van a guardar en una clave del registro codificandolo. Tambien tomara la MAC de la mother para identificar la pc y valide que el programa corresponde a la PC. Pero eso estara para la proxima V.
SI TIENEN APORTES PARA MEJORARLO SERIA GENIAL,
title %USERNAME%@%USERDOMAIN% Carpeta Privada V 1.0
@echo off
color A
cls
if EXIST "%cd%Private" goto :LOCK
REM SETEO DE VARIABLES
REM SETEO DE CONTADORES LOGICOS
set n=0
set suma=0
set /A n=%n%+1
set ubicacion=%cd%
set intRest=4
REM SETEO DE CREDENCIALES
REM usser es el nombre de logeo al programa
set usser=1
REM passwordd es la contraseña del usuario para acceder
set passwordd=2
REM pass es el codigo para desbloquear la carpeta
Set pass=3
REM SETEO DE HORA Y FECHA
Set Fecha=%Date:~0,2%%Date:~3,2%
Set Hora=%Time:~0,2%:%Time:~3,2%
cls
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto INGRESO ELSE (
if NOT EXIST Private goto MDLOCKER
)
:INGRESO
color A
cls
echo =================================
echo. Usuario y contraseña de Ingreso
echo =================================
set /p answer=Usuario:
set /p pss=Codigo:
IF %answer%==%usser% goto CONTRA ELSE (
Echo Credenciales erroneas: Uss: "%answer%" Pass: "%pss%" >> %var%Log%Fecha%%Hora%
color 0c
echo Usuario o contraseña incorrecto.
timeout 1
goto INGRESO
)
:CONTRA
IF %pss%==%passwordd% goto Menu1 ELSE (
REM Registro de credenciales ingresadas solo si es incorrecto
Echo Credenciales erroneas: Uss: "%answer%" Pass: "%pss%" >> %var%Log%Fecha%%Hora%
color 0c
echo Usuario o contraseña incorrecto.
timeout 1
goto INGRESO
)
:Menu1
cls
echo.----------------------------
echo. Carpeta Oculta V 1.0
echo.----------------------------
echo.----------------------------
ECHO. 1) Desencriptar Carpeta
echo.
ECHO. 2) Encriptar Carpeta
echo.
ECHO. 3) Salir
echo.----------------------------
echo Ubicacion actual: %ubicacion%
date /t
time /t
Set choice=
set /p choice= Ingrese la opcion:
cls
IF /I '%Choice%'=='1' GOTO UNLOCK
IF /I '%Choice%'=='2' GOTO LOCK
IF /I '%Choice%'=='3' GOTO End
-----------------------------------------------------------------------------------------------
:LOCK
Echo %USERNAME%@%USERDOMAIN% "Se bloqueó la carpeta " >> %var%Log%Fecha%%Hora%
Echo %Date% >> %var%Log%Fecha%%Hora%
color a
echo Aplicando atributos de acceso privado confirme el Bloqueo
REM Aca reemplazamos el nombre de la carpeta Private
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
REM Cambiamos los permisos de acceso a la carpeta Private
rem "/E /R usuario Revoca derechos del usuario (sólo válida con /E)."
rem "/e /p usuario:N permiso Reemplaza derechos de acceso del usuario."
rem "/E /D usuario Deniega acceso al usuario especificado."
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /T /D "%username%"
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /E /P "%username%":N
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /E /R "%username%"
cls
echo Carpeta Bloqueada
timeout 1
goto End
:UNLOCK
REM Contador de intentos maximo configurado 3
set /A intRest1=%intRest% - %n%
echo Intentos restantes: %intRest1%
color a
echo PASSWORD:
set/p "pass1=>"
IF ["%pass1%"]==[""] set/p "pass1=>"
set /A n=%n%+1
IF "%n%"=="5" goto fuiste ELSE (
Set /A suma= %suma% + %n%
)
REM SETEO DE CODIGO PARA DESBLOQUEAR
IF NOT %pass1% == %pass% goto FAIL
REM Crea un regitro en el que se desbloqueo la carpeta
Echo %USERNAME%@%USERDOMAIN% "Desbloqueo la carpeta correctamente" >> %var%Log%Fecha%%Hora%
Echo %Date% >> %var%Log%Fecha%%Hora%
REM Aplica los permisos de acceso a la carpeta Private
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /E /P "%username%": F
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /E /G "%username%": F
REM Aca establece los atributos de lectura y acceso
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
rem aca restaura el nombre de la carpeta PRIVATE
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
cacls "%ubicacion%Private" /E /P "%username%": F
echo Carpeta Desbloqueada
timeout 1
goto End
:fuiste
rem shutdown -L -f
echo aca ejecutamos alguna accion para bloquear la pc o cambiar permisos o cualquier cosa que quieran.
timeout 1
exit
: FAIL
REM Guardamos las credenciales erroneas ingresadas
Echo Intento N°: %intRest1% >> %var%Log%Fecha%%Hora%
Echo Contraseña erronea: %pass% >> %var%Log%Fecha%%Hora%
color 0c
echo Password Incorrecta
timeout 1
goto UNLOCK
:MDLOCKER
REM Aca la idea es que el usuario pueda configurar sus credenciales pero es muy vulnerable
REM en la proxima version el programa registrara la MAC y otros patrones de seguridad
RAM aunque la palabra SEGURIDAD le queda muy grande a este bat. la idea es siempre convertirlo a un .exe
REM echo.
REM echo Bienvenido ingrese los datos de acceso.
REM echo.
REM ECHO Ingrese nombre y contraseña de Inicio
REM echo.
REM echo Usuario de acceso:
REM set/p "Nombre=>"
REM echo.
REM echo Contraseña de acceso:
REM set/p "contracceso=>"
REM echo.
REM MKDIR "%ALLUSERSPROFILE%Privatebin"
REM Echo %nombre% >> "%ALLUSERSPROFILE%Privatebinini"
REM Echo %contracceso% >> "%ALLUSERSPROFILE%Privatebinini"
REM echo.
REM echo Datos guardados correctamente
REM echo.
REM ECHO Ingrese el codigo para desbloquear la carpeta Privada
REM echo.
REM echo Codigo de seguridad:
REM set /p "CODD=>"
REM echo.
REM Echo %CODD% >> "%ALLUSERSPROFILE%Privatebinini"
REM Echo %USERNAME%@%USERDOMAIN% "Bienvenido al Registro de ingresos" >> %var%Log%Fecha%%Hora%
REM attrib -h -s "%ALLUSERSPROFILE%Private"
md Private
echo Carpeta Privada creada correctamente, vuelva a ejecutar el programa despues de ingresar datos.
timeout 2
goto End
:End
cls
ECHO Cerrando
timeout 1
exit
Solo tienen que copiar el codigo que les dejo a continuacion, crear un archivo txt con el nombre que quieran y le pegan el codigo. Luego le cambian la extencion del archivo por .bat
para darle mayor "seguridad" busquen el programa "bat to exe"
o descargalo de aca
http://www.f2ko.de/downloads/Bat_To_Exe_Converter.zip
El bat crea un registro de las veces que se ingreso; guardando solo las credenciales erroneas (es una BETA) la idea es que el log este cifrado con una herramienta de windows y tambien en la parte del final esta la idea de poder configurar facilmente las credenciales. Esos valores se van a guardar en una clave del registro codificandolo. Tambien tomara la MAC de la mother para identificar la pc y valide que el programa corresponde a la PC. Pero eso estara para la proxima V.
SI TIENEN APORTES PARA MEJORARLO SERIA GENIAL,
title %USERNAME%@%USERDOMAIN% Carpeta Privada V 1.0
@echo off
color A
cls
if EXIST "%cd%Private" goto :LOCK
REM SETEO DE VARIABLES
REM SETEO DE CONTADORES LOGICOS
set n=0
set suma=0
set /A n=%n%+1
set ubicacion=%cd%
set intRest=4
REM SETEO DE CREDENCIALES
REM usser es el nombre de logeo al programa
set usser=1
REM passwordd es la contraseña del usuario para acceder
set passwordd=2
REM pass es el codigo para desbloquear la carpeta
Set pass=3
REM SETEO DE HORA Y FECHA
Set Fecha=%Date:~0,2%%Date:~3,2%
Set Hora=%Time:~0,2%:%Time:~3,2%
cls
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto INGRESO ELSE (
if NOT EXIST Private goto MDLOCKER
)
:INGRESO
color A
cls
echo =================================
echo. Usuario y contraseña de Ingreso
echo =================================
set /p answer=Usuario:
set /p pss=Codigo:
IF %answer%==%usser% goto CONTRA ELSE (
Echo Credenciales erroneas: Uss: "%answer%" Pass: "%pss%" >> %var%Log%Fecha%%Hora%
color 0c
echo Usuario o contraseña incorrecto.
timeout 1
goto INGRESO
)
:CONTRA
IF %pss%==%passwordd% goto Menu1 ELSE (
REM Registro de credenciales ingresadas solo si es incorrecto
Echo Credenciales erroneas: Uss: "%answer%" Pass: "%pss%" >> %var%Log%Fecha%%Hora%
color 0c
echo Usuario o contraseña incorrecto.
timeout 1
goto INGRESO
)
:Menu1
cls
echo.----------------------------
echo. Carpeta Oculta V 1.0
echo.----------------------------
echo.----------------------------
ECHO. 1) Desencriptar Carpeta
echo.
ECHO. 2) Encriptar Carpeta
echo.
ECHO. 3) Salir
echo.----------------------------
echo Ubicacion actual: %ubicacion%
date /t
time /t
Set choice=
set /p choice= Ingrese la opcion:
cls
IF /I '%Choice%'=='1' GOTO UNLOCK
IF /I '%Choice%'=='2' GOTO LOCK
IF /I '%Choice%'=='3' GOTO End
-----------------------------------------------------------------------------------------------
:LOCK
Echo %USERNAME%@%USERDOMAIN% "Se bloqueó la carpeta " >> %var%Log%Fecha%%Hora%
Echo %Date% >> %var%Log%Fecha%%Hora%
color a
echo Aplicando atributos de acceso privado confirme el Bloqueo
REM Aca reemplazamos el nombre de la carpeta Private
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
REM Cambiamos los permisos de acceso a la carpeta Private
rem "/E /R usuario Revoca derechos del usuario (sólo válida con /E)."
rem "/e /p usuario:N permiso Reemplaza derechos de acceso del usuario."
rem "/E /D usuario Deniega acceso al usuario especificado."
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /T /D "%username%"
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /E /P "%username%":N
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /E /R "%username%"
cls
echo Carpeta Bloqueada
timeout 1
goto End
:UNLOCK
REM Contador de intentos maximo configurado 3
set /A intRest1=%intRest% - %n%
echo Intentos restantes: %intRest1%
color a
echo PASSWORD:
set/p "pass1=>"
IF ["%pass1%"]==[""] set/p "pass1=>"
set /A n=%n%+1
IF "%n%"=="5" goto fuiste ELSE (
Set /A suma= %suma% + %n%
)
REM SETEO DE CODIGO PARA DESBLOQUEAR
IF NOT %pass1% == %pass% goto FAIL
REM Crea un regitro en el que se desbloqueo la carpeta
Echo %USERNAME%@%USERDOMAIN% "Desbloqueo la carpeta correctamente" >> %var%Log%Fecha%%Hora%
Echo %Date% >> %var%Log%Fecha%%Hora%
REM Aplica los permisos de acceso a la carpeta Private
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /E /P "%username%": F
cacls "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" /E /G "%username%": F
REM Aca establece los atributos de lectura y acceso
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
rem aca restaura el nombre de la carpeta PRIVATE
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
cacls "%ubicacion%Private" /E /P "%username%": F
echo Carpeta Desbloqueada
timeout 1
goto End
:fuiste
rem shutdown -L -f
echo aca ejecutamos alguna accion para bloquear la pc o cambiar permisos o cualquier cosa que quieran.
timeout 1
exit
: FAIL
REM Guardamos las credenciales erroneas ingresadas
Echo Intento N°: %intRest1% >> %var%Log%Fecha%%Hora%
Echo Contraseña erronea: %pass% >> %var%Log%Fecha%%Hora%
color 0c
echo Password Incorrecta
timeout 1
goto UNLOCK
:MDLOCKER
REM Aca la idea es que el usuario pueda configurar sus credenciales pero es muy vulnerable
REM en la proxima version el programa registrara la MAC y otros patrones de seguridad
RAM aunque la palabra SEGURIDAD le queda muy grande a este bat. la idea es siempre convertirlo a un .exe
REM echo.
REM echo Bienvenido ingrese los datos de acceso.
REM echo.
REM ECHO Ingrese nombre y contraseña de Inicio
REM echo.
REM echo Usuario de acceso:
REM set/p "Nombre=>"
REM echo.
REM echo Contraseña de acceso:
REM set/p "contracceso=>"
REM echo.
REM MKDIR "%ALLUSERSPROFILE%Privatebin"
REM Echo %nombre% >> "%ALLUSERSPROFILE%Privatebinini"
REM Echo %contracceso% >> "%ALLUSERSPROFILE%Privatebinini"
REM echo.
REM echo Datos guardados correctamente
REM echo.
REM ECHO Ingrese el codigo para desbloquear la carpeta Privada
REM echo.
REM echo Codigo de seguridad:
REM set /p "CODD=>"
REM echo.
REM Echo %CODD% >> "%ALLUSERSPROFILE%Privatebinini"
REM Echo %USERNAME%@%USERDOMAIN% "Bienvenido al Registro de ingresos" >> %var%Log%Fecha%%Hora%
REM attrib -h -s "%ALLUSERSPROFILE%Private"
md Private
echo Carpeta Privada creada correctamente, vuelva a ejecutar el programa despues de ingresar datos.
timeout 2
goto End
:End
cls
ECHO Cerrando
timeout 1
exit