[APORTE] Login en batch.

Iniciado por Tino, 4 Octubre 2016, 20:14 PM

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

Tino

Hola ElHacker  :rolleyes:

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


@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