Registro
quiero hacer un registro que cree una base de datos para guardar los user y password pero no se el comando para crearla base y agregar los datos
Ayudaaa
Elektro H@cker: Tienes que usar títulos descriptivos
Pero tranquilo hombre, despacio xD.
Indica primero que lenguaje estás utilizando o quieres utilizar y que quieres exactamente, bien explicado para que te podamos dar nuestra ayuda :)
Un saludo Runex
Yo te mpongo aqui algo en batch:
@echo off
:inicio
cls
echo Que desea hacer? Para moverse por aqui teclee el numero correspondiente y pulse enter
echo.
echo (1) Ver usuarios
echo (2) Agregar usuario (S) Salir
set /p respuesta1=
if %respuesta1%==1 goto :ver
if %respuesta1%==2 goto :agregar
if %respuesta1%==S exit
goto :inicio
:ver
cls
if NOT exist Usuariosconcontrasenya.dat echo No hay base de datos o esta dañada & pause & goto :inicio
FOR /F "tokens=1 delims=;" %%G IN (Usuariosconcontrasenya.dat) DO (echo %%G)
pause
goto :inicio
:agregar
cls
echo Tenga en cuenta que no se puede borrar
set /p usser=Digame un usuario:
set /p pass=Digame una contrasenya:
echo Usuario: %usser% Contrasenya: %pass% >> Usuariosconcontrasenya.dat
goto :inicio
Lo de borrar solo es compatible con Windows XP asi que mejor no lo pongo...
Cita de: ELVJop en 5 Mayo 2012, 20:53 PM
Yo te mpongo aqui algo en batch:
@echo off
:inicio
cls
echo Que desea hacer?
echo.
echo (1) Ver usuarios
echo (2) Agregar usuario
set /p respuesta1=
if %respuesta1%==1 goto :ver
if %respuesta1%==2 goto :agregar
goto :inicio
:ver
cls
FOR /F "tokens=1 delims=;" %%G IN (Usuariosconcontrasenya.dat) DO (echo %%G)
pause
goto :inicio
:agregar
cls
echo Tenga en cuenta que no se puede borrar
set /p usser=Digame un usuario:
set /p pass=Digame una contraseña
echo Usuario: %usser% Contrasenya: %pass% > Usuariosconcontrasenya.dat
goto :inicio
No pongo lo de borrar porque por lo que tengo entendido da errores o algo asi buscare una forma pero yo nunca aseguro nada
Gracias
:D
No ese no tenie un fallo!!!
echo Usuario: %usser% Contrasenya: %pass% > Usuariosconcontrasenya.dat
deberia ser:
echo Usuario: %usser% Contrasenya: %pass% >> Usuariosconcontrasenya.dat
PD: Si me lo pides te pido donde se ha de colocar algo asi:
Donde usaras esta contraseña?
hay arreglo eso
pero no entiendo tu pregunta
Donde usaras la contraseña? Es como decir este usuario y contraseña es de facebook este otro de mi otro portatil este otro de mi trabajo este otro del elhacker.net
Yo tengo un programa que tiene un registro muy malo asi que queria ponerle uno mejor pero haora que le puse el que me dijeron el login no me anda aca esta el code:
@Echo OFF
TITLE Batch Program V1.0
COLOR 0A
:PDI
Echo Mi primer programa ECHO en bach.
Echo -------------------------------------
Echo -------------------------------------
Echo Pulse 1 Para Contuniar o 2 Para Salir
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :MENU1)
IF "%op%" EQU "2" (Exit /B 0)
Echo: :: WELCOME to LOGIN Script:: | MORE
Set "File=%UserProfile%\LOGINScript.txt"
:MENU1
Echo ------------
Echo 1) Registro
Echo 2) Log IN
Echo 3) Salir
Echo ------------ | MORE
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :REGIST)
IF "%op%" EQU "2" (GOTO :LOGIN)
IF "%op%" EQU "3" (Exit /B 0)
Call :ERROR & GOTO :MENU
:REGIST
Call :UserPass
IF not defined name (Call :Error & Goto :Regist) Else (If not defined passw (Call :Error & Goto :Regist))
CHOICE /M "Desea guardar esta configuracion?: "
IF %errorlevel% EQU 1 (
ATTRIB -H "%FILE%" 2>NUL
Echo Usuario:%name%> "%FILE%"
Echo Password:%passw%>> "%FILE%"
ATTRIB +H "%FILE%" 2>NUL
CLS
) ELSE (GOTO :REGIST)
:LOGIN
Echo: :: LOG IN :: | MORE
Call :UserPass
FOR /F "tokens=2 Delims=:" %%U IN ('TYPE "%FILE%" ^| Find "Usuario"') DO (SET "userlogin=%%U")
FOR /F "tokens=2 Delims=:" %%U IN ('TYPE "%FILE%" ^| Find "Password"') DO (SET "password=%%U")
IF "%name% %passw%" EQU "%userlogin% %password%" (GOTO :MENU2) else (GOTO :LOGINERROR)
:UserPass
Echo: Establece los siguientes parametros: | MORE
SET /P "name=Usuario: "
SET /P "passw=Contrasena: "
Goto :EOF
:ERROR
CLS
Echo: ERROR: Se ha producido un error, por favor verifica los datos ingresados.
Goto :EOF
:LOGINERROR
CLS
Echo: El usuario/contrasena no son validos, por favor verifica y vuelve a ingresar los datos. | MORE
GOTO :LOGIN
:MENU2
Echo Que Deseas Hacer?
Echo 1) Internet
Echo 2) Ares
Echo 3) Ajedrez
Echo 4) Exit
Echo ------------ | MORE
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :I)
IF "%op%" EQU "2" (GOTO :A)
IF "%op%" EQU "3" (Goto :Aj)
IF "%op%" EQU "4" (Exit /B 0)
Call :ERROR & GOTO :MENU
:I
Start C:\Users\BTD\Desktop/GoogleChrome
GOTO :MENU2
:A
Start C:\Users\BTD\Desktop/Ares
GOTO :MENU2
:Aj
Start C:\Users\BTD\Desktop/Ajedrez
GOTO :MENU2
Como que no te ba?
Pongo el ultimo le añadi algunas funciones interesantes:
@echo off
title Gestionador de Contrasenyas
Reg query "HKCU\general" >nul 2>&1
If %Errorlevel% equ 0 (echo Digame la contrasenya general) Else (goto :registro)
cls
:algo
cls
set /p algo=Digame la contrasenya general:
Reg query "HKCU\general" /f "%algo%" /e >NUL
If NOT %Errorlevel% equ 0 (goto :Algo)
:inicio
cls
echo Que desea hacer? Teclee el numero correspondiente y pulse enter
echo.
echo (1) Ver usuarios (C) Cambiar pass general
echo (2) Agregar usuario (S) Salir
set /p respuesta1=
if %respuesta1%==1 goto :ver
if %respuesta1%==2 goto :agregar
if %respuesta1%==S exit
if %respuesta1%==C goto :registro
goto :inicio
:ver
cls
if NOT exist Usuariosconcontrasenya.dat echo No hay base de datos o esta danyada & pause & goto :inicio
FOR /F "tokens=1 delims=;" %%G IN (Usuariosconcontrasenya.dat) DO (echo %%G)
pause
goto :inicio
:agregar
cls
echo Tenga en cuenta que no se puede borrar
set /p donde=Donde usaras esta contrasenya:
set /p usser=Digame un usuario:
set /p pass=Digame una contrasenya:
echo Donde usaras esta contrasenya: %donde% Usuario: %usser% Contrasenya: %pass% >> Usuariosconcontrasenya.dat
ATTRIB +H +S Usuariosconcontrasenya.dat 2>NUL
goto :inicio
:registro
cls
set /p pass1=Digame una contrasenya:
cls
set /p pass2=Repita la contrasenya:
if NOT %pass1%==%pass2% goto :Registro
Reg add "HKCU\general" /v "login" /d "%pass1%" /F >NUL
goto :inicio
Ahora preubo tu code... Tu code no dice donde es %file% si pusieras en la segunda linea set file=nomirar
Lo que digo es que yo tenia un programa con el codigo que estaba arriba y borre el registro que tenia antes y le puse el que vos me dijiste pero no m ando mas el LOGIN
Si quieres seguir usando tu code te lo pongo adaptado:
@Echo OFF
TITLE Batch Program V1.0
COLOR 0A
:PDI
Echo Mi primer programa ECHO en bach.
Echo -------------------------------------
Echo -------------------------------------
Echo Pulse 1 Para Contuniar o 2 Para Salir
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :MENU1)
IF "%op%" EQU "2" (Exit /B 0)
Echo: :: WELCOME to LOGIN Script:: | MORE
Set "File=%UserProfile%\LOGINScript.txt"
:MENU1
Echo ------------
Echo 1) Registro
Echo 2) Log IN
Echo 3) Salir
Echo ------------ | MORE
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :REGISTro)
IF "%op%" EQU "2" (GOTO :LOGIN)
IF "%op%" EQU "3" (Exit /B 0)
Call :ERROR & GOTO :MENU
:login
Reg query "HKCU\general" >nul 2>&1
If %Errorlevel% equ 0 (echo Digame la contrasenya general) Else (goto :registro)
cls
:algo
cls
set /p algo=Digame la contrasenya general:
Reg query "HKCU\general" /f "%algo%" /e >NUL
If NOT %Errorlevel% equ 0 (goto :Algo)
goto :menu2
:UserPass
Echo: Establece los siguientes parametros: | MORE
SET /P "name=Usuario: "
SET /P "passw=Contrasena: "
Goto :EOF
:ERROR
CLS
Echo: ERROR: Se ha producido un error, por favor verifica los datos ingresados.
Goto :EOF
:registro
cls
set /p pass1=Digame una contrasenya:
cls
set /p pass2=Repita la contrasenya:
if NOT %pass1%==%pass2% goto :Registro
Reg add "HKCU\general" /v "login" /d "%pass1%" /F >NUL
goto :menu1
:MENU2
cls
Echo Que Deseas Hacer?
Echo 1) Internet
Echo 2) Ares
Echo 3) Ajedrez
Echo 4) Exit
Echo ------------ | MORE
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :I)
IF "%op%" EQU "2" (GOTO :A)
IF "%op%" EQU "3" (Goto :Aj)
IF "%op%" EQU "4" (Exit /B 0)
Call :ERROR & GOTO :MENU
:I
Start C:\Users\BTD\Desktop/GoogleChrome
GOTO :MENU2
:A
Start C:\Users\BTD\Desktop/Ares
GOTO :MENU2
:Aj
Start C:\Users\BTD\Desktop/Ajedrez
GOTO :MENU2
Cita de: ELVJop en 5 Mayo 2012, 22:12 PM
Si quieres seguir usando tu code te lo pongo adaptado:
@Echo OFF
TITLE Batch Program V1.0
COLOR 0A
:PDI
Echo Mi primer programa ECHO en bach.
Echo -------------------------------------
Echo -------------------------------------
Echo Pulse 1 Para Contuniar o 2 Para Salir
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :MENU1)
IF "%op%" EQU "2" (Exit /B 0)
Echo: :: WELCOME to LOGIN Script:: | MORE
Set "File=%UserProfile%\LOGINScript.txt"
:MENU1
Echo ------------
Echo 1) Registro
Echo 2) Log IN
Echo 3) Salir
Echo ------------ | MORE
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :REGISTro)
IF "%op%" EQU "2" (GOTO :LOGIN)
IF "%op%" EQU "3" (Exit /B 0)
Call :ERROR & GOTO :MENU
:login
Reg query "HKCU\general" >nul 2>&1
If %Errorlevel% equ 0 (echo Digame la contrasenya general) Else (goto :registro)
cls
:algo
cls
set /p algo=Digame la contrasenya general:
Reg query "HKCU\general" /f "%algo%" /e >NUL
If NOT %Errorlevel% equ 0 (goto :Algo)
goto :menu2
:UserPass
Echo: Establece los siguientes parametros: | MORE
SET /P "name=Usuario: "
SET /P "passw=Contrasena: "
Goto :EOF
:ERROR
CLS
Echo: ERROR: Se ha producido un error, por favor verifica los datos ingresados.
Goto :EOF
:registro
cls
set /p pass1=Digame una contrasenya:
cls
set /p pass2=Repita la contrasenya:
if NOT %pass1%==%pass2% goto :Registro
Reg add "HKCU\general" /v "login" /d "%pass1%" /F >NUL
goto :menu1
:MENU2
cls
Echo Que Deseas Hacer?
Echo 1) Internet
Echo 2) Ares
Echo 3) Ajedrez
Echo 4) Exit
Echo ------------ | MORE
SET /P "op=Opcion: "
Cls
IF "%op%" EQU "1" (GOTO :I)
IF "%op%" EQU "2" (GOTO :A)
IF "%op%" EQU "3" (Goto :Aj)
IF "%op%" EQU "4" (Exit /B 0)
Call :ERROR & GOTO :MENU
:I
Start C:\Users\BTD\Desktop/GoogleChrome
GOTO :MENU2
:A
Start C:\Users\BTD\Desktop/Ares
GOTO :MENU2
:Aj
Start C:\Users\BTD\Desktop/Ajedrez
GOTO :MENU2
grax