Administrador De Contraseñas Bacth

Iniciado por By_DraxX, 3 Septiembre 2017, 16:29 PM

0 Miembros y 1 Visitante están viendo este tema.

By_DraxX

Código (dos) [Seleccionar]
@echo off
:menu
cls
color 2
title Administrador De Contraseñas:Menu
echo Seleccione opcion:
echo 1a-Ver contraseñas  1b-Añadir Contraseña -0c USAR SOLO LA PRIMERA VEZ QUE SE ABRE EL PROGRAMA
SET /p ver=
if %ver%==1b goto 1b
if %ver%==1a goto 1n
if %ver%==0c goto 0c
echo NO SELECCIONASTE NADA!
pause
goto menu
:1n
cls
title Administrador De Contraseñas:Ver Contraseñas
echo Se necesita contraseña para ver.
SET /p var=Introduzca contraseña:
if %var%==macario goto correcto
echo INCORRECTO!
pause
goto 1n
:correcto
cls
echo Que contraseña quiere ver?
echo 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10
SET /p vor=
if %vor%==1 goto 1c
if %vor%==2 goto 2c
if %vor%==3 goto 3c
if %vor%==4 goto 4c
if %vor%==5 goto 5c
if %vor%==6 goto 6c
if %vor%==7 goto 7c
if %vor%==8 goto 8c
if %vor%==9 goto 9c
if %vor%==10 goto 10c

:1c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 1c.txt
goto menu
:2c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 2c.txt
goto menu
:3c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 3c.txt
goto menu
:4c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 4c.txt
goto menu
:5c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 5c.txt
goto menu
:6c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 6c.txt
goto menu
:7c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 7c.txt
goto menu
:8c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 8c.txt
goto menu
:9c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 9c.txt
goto menu
:10c
cls
echo Pulse INTRO para mostrar contraseña
pause >nul
start 10c.txt
goto menu

:0c
cls
c>>1c.txt
c>>2c.txt
c>>3c.txt
c>>4c.txt
c>>5c.txt
c>>6c.txt
c>>7c.txt
c>>8c.txt
c>>9c.txt
c>>10c.txt
attrib +h 1c.txt
attrib +h 2c.txt
attrib +h 3c.txt
attrib +h 4c.txt
attrib +h 5c.txt
attrib +h 6c.txt
attrib +h 7c.txt
attrib +h 8c.txt
attrib +h 9c.txt
attrib +h 10c.txt  

:1b
cls
echo Contraseña necesaria
SET /p vir=
if %vir%==macario goto 1m
echo ERROR
pause
goto 1b

:1m
echo Introduzca en que slot quiere añadir la clave: 1 2 3 4 5 6 7 8 9 10
SET /p vb=
if %vb%==1 goto 1
if %vb%==2 goto 2
if %vb%==3 goto 3
if %vb%==4 goto 4
if %vb%==5 goto 5
if %vb%==6 goto 6
if %vb%==7 goto 7
if %vb%==8 goto 8
if %vb%==9 goto 9
if %vb%==10 goto 10
:1
echo CONTRASEÑA:
SET /p vm=
echo %vm%>>1c.txt
goto menu
:2
echo CONTRASEÑA:
SET /p v1=
echo %v1%>>2c.txt
goto menu
:3
echo CONTRASEÑA:
SET /p v2=
echo %v2%>>3c.txt
goto menu
:4
echo CONTRASEÑA:
SET /p v3=
echo %v3%>>4c.txt
goto menu
:5
echo CONTRASEÑA:
SET /p v5=
echo %v5%>>5c.txt
goto menu
:6
echo CONTRASEÑA:
SET /p v4=
echo %v4%>>6c.txt
goto menu
:7
echo CONTRASEÑA:
SET /p v8=
echo %v8%>>7c.txt
goto menu
:8
echo CONTRASEÑA:
SET /p v9=
echo %vm%>>9c.txt
goto menu
:9
echo CONTRASEÑA:
SET /p v7=
echo %v7%>>9c.txt
goto menu
:10
echo CONTRASEÑA:
SET /p vv=
echo %vv%>>10c.txt
goto menu


------------------------------HASTA AQUI EL CODIGO----------------
Pues me ha costado es sencillo puede almacenar hasta 10 contraseñas mas tarde lo actualizare para que almacene 20 o mas y guarda las contraseñas en archivos .txt ocultos no se ven si no tienes una opcion activada. Y solo los abre la consola y eso hace la opcion 1a abrir los .txt para verlos. Espero que guste y hasta la proxima. :D




· Los códigos deben ir en etiquetas GeSHi
· Los códigos deben ir en su respectivo subforo
>aquí las reglas del foro
-Engel Lex