Foro de elhacker.net

Bueno pues esto es un almacenador de contraseñas que hice hace muchísimo, si tiene algun bug me avisais.

Dos cosas:


esto devería ir asi:

y otra cosa:

Esto lo pondes poner asi para ahorrar texto:


Espero qeu te haya sido util  ;)

Estaria bien que encriptase las contraseñas pero para cifrar en BATCH...
Y tambien estaria bien que pidiese contraseña para ver las pass pero entonces habria que ponerle codigo para evitar BATCH Injection...

El lenguage BATCH no es muy util para esto... (se que le busco pegas a todo pero es lo que hay xD)


Saludos!

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 ;)