Tengo un aporte para ustedes, por si quieren hacer un ""programa"" con Logins
Son unos scripts bastante largos y me costaron un par de horas...
Yo soy nuevo en esto así que hay unos fallos, pero son pocos!
Fallos:
1- Se cierra al terminar de registrarse (Se tiene que volver a abrir, PERO, se queda todo registrado en la Database del CMD)
2- No se si existe este error (en el code) pero por las dudas hice un redirect a RegisterFailed por si existen contraseñas con caracteres especiales (Como pueden ser &, el espacio, *, [, ], etc..)
He testeado el código varias veces y no he encontrado ningún error (Además de esos 2)
Sin mas que decir, les dejo el code!
Código:
@echo off
color f0
SET programname=Login
:logincode
cls
title %programname% by TinoCode
::::::::::::::::::::MODE
::::: El MODE se puede borrar, ya que es opcional
mode con cols=155 lines=50
:::::::...CODE
find /c "Password: " %temp%\registers.tinolog
if %errorlevel% equ 1 goto register
goto login
:register
cls
echo.
echo No tienes cuenta!
echo Create una!
echo.
echo Usuario:
SET /P user=
echo Usuario: %user% >> %temp%\registers.tinolog
cls
echo.
echo No tienes cuenta!
echo Create una!
echo.
echo Contrasena:
SET /P pass=
echo Password: %pass% >> %temp%\registers.tinolog
goto successreg_quest
:successreq_quest
find /c "Password: " %temp%\registers.tinolog
if %errorlevel% equ 1 goto regfailed
goto successregister
:successregister
cls
echo.
echo Registrado correctamente.
echo Ahora te puedes loguear!
echo.
echo Presiona cualquier tecla para irte a loguear
pause >nul
goto logincode
:regfailed
cls
title TinoCode > chars.report
echo.
echo %programname% no ha podido procesar tu registro
echo y ha fallado.
echo Intenta eliminar todos los caracteres (Excepto: A-Z, 0-9)
echo de tu usuario y contrasena
echo.
echo Guardando Crashreport
ping localhost -n 3 >nul
echo [Register Error 02] %programname% >> chars.report
echo.
pause
goto logincode
:login
cls
echo.
echo Logueate!
echo.
echo Ingresa tu usuario:
SET /P userlogin=
find /c "Usuario: %userlogin%" %temp%\registers.tinolog
if %errorlevel% equ 1 goto loginfailed
goto password
:password
cls
echo.
echo Logueate!
echo.
echo Ingresa tu contrasena:
SET /P passwordlogin=
find /c "Password: %passwordlogin%" %temp%\registers.tinolog
if %errorlevel% equ 1 goto loginfailed
goto loggedin
:loginfailed
cls
echo Usuario o contrasena incorrecta...
echo.
echo Volviendo a LOGIN_09 en 5 segundos
sleep 5
goto login
:loggedin
cls
echo.
echo Logueado correctamente.
pause >nul
goto logincode
color f0
SET programname=Login
:logincode
cls
title %programname% by TinoCode
::::::::::::::::::::MODE
::::: El MODE se puede borrar, ya que es opcional
mode con cols=155 lines=50
:::::::...CODE
find /c "Password: " %temp%\registers.tinolog
if %errorlevel% equ 1 goto register
goto login
:register
cls
echo.
echo No tienes cuenta!
echo Create una!
echo.
echo Usuario:
SET /P user=
echo Usuario: %user% >> %temp%\registers.tinolog
cls
echo.
echo No tienes cuenta!
echo Create una!
echo.
echo Contrasena:
SET /P pass=
echo Password: %pass% >> %temp%\registers.tinolog
goto successreg_quest
:successreq_quest
find /c "Password: " %temp%\registers.tinolog
if %errorlevel% equ 1 goto regfailed
goto successregister
:successregister
cls
echo.
echo Registrado correctamente.
echo Ahora te puedes loguear!
echo.
echo Presiona cualquier tecla para irte a loguear
pause >nul
goto logincode
:regfailed
cls
title TinoCode > chars.report
echo.
echo %programname% no ha podido procesar tu registro
echo y ha fallado.
echo Intenta eliminar todos los caracteres (Excepto: A-Z, 0-9)
echo de tu usuario y contrasena
echo.
echo Guardando Crashreport
ping localhost -n 3 >nul
echo [Register Error 02] %programname% >> chars.report
echo.
pause
goto logincode
:login
cls
echo.
echo Logueate!
echo.
echo Ingresa tu usuario:
SET /P userlogin=
find /c "Usuario: %userlogin%" %temp%\registers.tinolog
if %errorlevel% equ 1 goto loginfailed
goto password
:password
cls
echo.
echo Logueate!
echo.
echo Ingresa tu contrasena:
SET /P passwordlogin=
find /c "Password: %passwordlogin%" %temp%\registers.tinolog
if %errorlevel% equ 1 goto loginfailed
goto loggedin
:loginfailed
cls
echo Usuario o contrasena incorrecta...
echo.
echo Volviendo a LOGIN_09 en 5 segundos
sleep 5
goto login
:loggedin
cls
echo.
echo Logueado correctamente.
pause >nul
goto logincode