Password Bas [0.1 & Alpha 2] [Ultima actualización: 2/02/08]

[Erik#]

Password bas:
Password Bas es un programa de almacenamiento de contraseñas, su funcionamiento es claro aunque inseguro para hackers, tu introduces una palabra clave como puede ser un correo o la cuenta de una web (ahora usaremos un ejemplo con elhacker.net) queremos introducir la pass de la web elhacker.net, pondremos como palabra clave erikelhacker (ejemplo), y de contraseña pondremos 123456, despues, una vez almacenadas, cuando le demos a buscar, pondremos erikelhacker y saldra la password 123456.

Remake:
Bueno, he hecho un remake de las variables, porque las variables tenian nombres un poco vulgares.

Password Bas 0.1:

Código (dos) [Seleccionar] Expandir

@echo off
color fc
if exist c:\passwordbas cd c:\passwordbas
if not exist c:\passwordbas md c:\passwordbas
title PASSWORD BAS 0.1 ~ Creado por Erik
echo Bienvenido a password BAS! En este programa podras almacenar tus passwords.
echo.
goto passwords
:passwords
echo Bienvenido, que desea hacer:
echo 1.Mirar
echo 2.Almacenar
echo 3.Salir
set /p ejecutar=Elijo la opcion:
cls
if %ejecutar%==1 goto mirar
if %ejecutar%==2 goto almacenar
if %ejecutar%==3 exit
:almacenar
set /p name=Escribe el nombre para la password (Se utilizara cuando se busque):
set /p contrasave=Escribe la contraseña:
echo %contrasave%>%name%.txt
pause
cls
goto passwords
:mirar
set /p passmir=Escribe el nombre de la password que deseas mirar:
if exist %name%.txt goto mostrar
if not exist %name%.txt goto passwords
:mostrar
echo Password:
more %name%.txt
pause>nul
goto passwords

Password Bas Alpha 2:

Código (dos) [Seleccionar] Expandir

@echo off
color fc
if exist c:\passwordbas cd c:\passwordbas
if not exist c:\passwordbas md c:\passwordbas
title PASSWORD BAS ALPHA 2 ~ Creado por Erik
echo Bienvenido a password BAS! En este programa podras almacenar tus passwords.
echo.
goto passwords
:passwords
echo Bienvenido, que desea hacer:
echo 1.Mirar
echo 2.Almacenar
echo 3.Borrar
echo 4.Salir
set /p ejecutar=Elijo la opcion:
cls
if %ejecutar%==1 goto mirar
if %ejecutar%==2 goto almacenar
if %ejecutar%==3 goto borrar
if %ejecutar%==4 exit
:almacenar
set /p name=Escribe el nombre para la password (Se utilizara cuando se busque):
set /p contrasave=Escribe la contraseña:
echo %contrasave%>%name%.pb
pause
cls
goto passwords
:mirar
set /p passmir=Escribe el nombre de la password que deseas mirar:
if exist %name%.pb goto mostrar
if not exist %name%.pb goto passwords
:mostrar
echo Password:
more %name%.pb
pause>nul
goto passwords
:borrar
set /p borrar=Introduce el nombre clave de la contraseña que desea borrar:
if exist %borrar%.pb del %borrar%.pb
if not exist %borrar%.pb goto passwords
goto passwords

[leogtz]

Se le pueden hacer una pequeñas mejoritas :

Código [Seleccionar] Expandir

@echo off
color fc
if exist %homedrive%\passwordbas cd /d %homedrive%\passwordbas
if not exist %homedrive%\passwordbas mkdir %homedrive%\passwordbas
title PASSWORD BAS 0.1 ~ Creado por Erik
echo Bienvenido a password BAS! En este programa podras almacenar tus passwords.
echo.
:passwords
echo Bienvenido, que desea hacer:
echo 1.Mirar
echo 2.Almacenar
echo 3.Salir
set /p ejecutar=Elijo la opcion:
if not defined ejecutar (cls & goto:passwords)
cls
if %ejecutar%==1 goto:mirar
if %ejecutar%==2 goto:almacenar
if %ejecutar%==3 (exit) else (goto:passwords)
:almacenar
set /p name=Escribe el nombre para la password (Se utilizara cuando se busque):
if not defined name (goto:almacenar)
set /p contrasave=Escribe la contraseña:
if not defined contrasave (goto:almacenar)
echo %contrasave%>%name%.txt
pause
cls
goto:passwords
:mirar
set /p passmir=Escribe el nombre de la password que deseas mirar:
if not defined passmir (goto:mirar)
if exist %name%.txt goto mostrar
if not exist %name%.txt goto passwords
:mostrar
echo Password:
more %name%.txt
pause>nul
goto:passwords