ari3kab

Hola les dejo el codigo 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 "La seguridad de este método es relativo" Recomendación, guarden archivos zip con pass INGRESAR TU CONTRASEÑA EN LA LINEA if NOT %pass% == (ACA PONE TU CONTRASEÑA) goto FAIL Tiene que quedar asi EJ: if NOT %pass% == 223344 goto FAIL Al intento numero 3 si la pass es incorrecta se va a cerrar windows. CODIGO title %USERNAME%@%USERDOMAIN% @echo off color a cls if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto Menu1 if NOT EXIST Private goto MDLOCKER set n=0 set suma=0 set /A n=%n%+1 cls :Menu1 echo . echo Ingrese la contraseña echo . ECHO.º 1) Desencriptar Carpeta echo. ECHO.º 2) Encriptar Carpeta echo. ECHO.º 3) Salir echo. 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 color a ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" echo Carpeta Bloqueada echo Cerrando Pause>Nul 2>&1 goto End :UNLOCK color a echo PASSWORD: set/p "pass=>" echo Intento numero: %n% if ["%pass%"]==[""] set/p "pass=>" set /A n=%n%+1 if "%n%"=="4" goto fuiste ELSE ( Set /A suma= %suma% + %n% ) if NOT %pass% == (ACA PONE TU CONTRASEÑA) goto FAIL attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private echo Carpeta Desbloqueada pause goto End :fuiste echo Te fuiste a la mierda Cerrando Windows timeout 3 shutdown -L : FAIL color 0c echo Contraseña Incorrecta timeout 3 goto UNLOCK :MDLOCKER md Private echo Carpeta Private creada correctamente, volve a ejecutar el programa despues de ingresar datos. pause goto End :End Pause>Nul 2>&1

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