Dos cosas:


esto devería ir asi:

y otra cosa:

Esto lo pondes poner asi para ahorrar texto:


Espero qeu te haya sido util 

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...

@echo off
color f4
md c:\passwordbas
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.
echo Hola que deseas,mirar o almacenar
echo.
echo 1.Mirar
echo 2.Almacenar
echo 3.Borrar
echo 4.Salir
echo.
set /p kacer=
if "%kacer%"=="1" goto mirar
if "%kacer%"=="2" goto almacenar
if "%kacer%"=="3" goto borrar
if "%kacer%"=="4" exit
if "%kacer%"=="" goto passwords
set /a tmpx=%kacer%*1
if not "%kacer%"=="%tempx%" goto passwords
:borrar
cls
set /p passbor=Introduce nombre de password a borrar: 
cacls c:\passwordbas /C /E /P Todos:F >NUL
if not exist "c:\passwordbas\%passbor%.txt" (
echo.
echo Nombre de password no encontrado
pause>NUL
cacls c:\passwordbas /C /E /D Todos:F >NUL
goto passwords
)
echo.
cacls "c:\passwordbas\%passbor%.txt" /C /E /P Todos:F >NUL
del /Q /F /A:- "c:\passwordbas\%passbor%.txt"
cacls c:\passwordbas /C /E /D Todos >NUL
echo Clave borrada satisfactoriamente
pause>nul
goto passwords
:almacenar
cacls c:\passwordbas /C /E /P Todos:F >NUL
cls
echo.
set /p name=Escribe el nombre para la password (Se utilizara cuando se busque): 
echo.
set /p contrasave=Ahora escribe la password: 
cls
if "%name%"=="" (
set name=
set contrasave=
goto passwords
)
if "%contrasave%"=="" (
set name=
set contrasave=
goto passwords
)
if exist "c:\passwordbas\%name%.txt" (
echo El nombre de password ya existe, se pondrá a continuacion del actual
echo.
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 >NUL
cacls c:\passwordbas /C /E /D Todos >NUL
set name=
set contrasave=
pause
cls
goto passwords
:mirar
cls
echo.
set /p passmir=Escribe el nombre de la password que deseas mirar: 
cacls c:\passwordbas /C /E /P Todos:F >NUL
if not exist "c:\passwordbas\%passmir%.txt" (
echo.
echo Nombre de password no encontrado
cacls c:\passwordbas /C /E /D Todos>NUL
pause>NUL
goto passwords
)
cacls "c:\passwordbas\%passmir%.txt" /C /E /P Todos:F >NUL
echo.
more "c:\passwordbas\%passmir%.txt"
cacls "c:\passwordbas\%passmir%.txt" /C /E /D Todos >NUL
cacls c:\passwordbas /C /E /D Todos >NUL
pause>nul
goto passwords

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