Si BATCH no es lo mejor para temas de seguridad...aún así weno se podría implementar un cifrado Vigeniere o así...a lo mejor algún día me da por hacerlo...
Y para proteger el archivo lo mejor es usar cacls.exe...poca gente conoce las CACLS de Windows...
Weno pues basandome en eso he modificado tu code y ademas de mejorarlo le he añadido alguna funcion más...y es "un poko" mas seguro...sobre todo contra principiantes...por cierto lo he hecho rapido asi k puede tener errores y seguro k se puede optimizar bastante...
color f4
title PASSWORD BAS 0.1 ~ Creado por Eric - modifiqued by nhaalclkiemr
echo Bienvenido a password BAS
! En este programa podras almacenar tus passwords
echo aunque vaya contra mis principios,es muy util,para almacenar las passwords.
:passwords
cls
echo Hola que deseas,mirar o almacenar
if "
%kacer%"=="2"
goto almacenar
if "
%kacer%"==""
goto passwords
:borrar
cls
set /p passbor=Introduce nombre de password a borrar:
cacls c:\passwordbas /C /E /P Todos:F
>NULecho Nombre de password no encontrado
cacls c:\passwordbas /C /E /D Todos:F
>NUL)
cacls "c:\passwordbas\
%passbor%.txt" /C /E /P Todos:F
>NULdel /Q /F /A:- "c:\passwordbas\
%passbor%.txt"
cacls c:\passwordbas /C /E /D Todos
>NULecho Clave borrada satisfactoriamente
:almacenar
cacls c:\passwordbas /C /E /P Todos:F
>NULcls
set /p name=Escribe el nombre para la password
(Se utilizara cuando se busque
):
set /p contrasave=Ahora escribe la password:
cls
)
)
if exist "c:\passwordbas\
%name%.txt"
( echo El nombre de password ya existe, se pondrá a continuacion
del actual
cacls "c:\passwordbas\
%name%.txt" /C /E /P Todos:F
>NUL)
echo "
%contrasave%"
>>"c:\passwordbas\
%name%.txt"
cacls "c:\passwordbas\
%name%.txt" /C /E /D Todos
>NULcacls c:\passwordbas /C /E /D Todos
>NULcls
:mirar
cls
set /p passmir=Escribe el nombre de la password que deseas mirar:
cacls c:\passwordbas /C /E /P Todos:F
>NULecho Nombre de password no encontrado
cacls c:\passwordbas /C /E /D Todos
>NUL)
cacls "c:\passwordbas\
%passmir%.txt" /C /E /P Todos:F
>NULmore "c:\passwordbas\%passmir%.txt"
cacls "c:\passwordbas\
%passmir%.txt" /C /E /D Todos
>NULcacls c:\passwordbas /C /E /D Todos
>NUL
Weno ya diréis...provadlo e intentad acceder a la carpeta donde están los archivos a ver que pasa jeje...aunke si sabes un poko de Windows conseguireis acceder a la carpeta...
Saludos