Título: [Batch] Ayuda base de datos
Publicado por: juan196518 en 5 Mayo 2012, 20:13 pm
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
Título: Re: Ayuda
Publicado por: Runex en 5 Mayo 2012, 20:36 pm
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
Título: Re: Ayuda
Publicado por: ELVJop en 5 Mayo 2012, 20:53 pm
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...
Título: Re: Ayuda
Publicado por: juan196518 en 5 Mayo 2012, 20:59 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
Título: Re: Ayuda
Publicado por: ELVJop en 5 Mayo 2012, 21:02 pm
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?
Título: Re: Ayuda
Publicado por: juan196518 en 5 Mayo 2012, 21:13 pm
hay arreglo eso pero no entiendo tu pregunta
Título: Re: Ayuda
Publicado por: ELVJop en 5 Mayo 2012, 21:18 pm
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
Título: Re: Ayuda
Publicado por: juan196518 en 5 Mayo 2012, 21:33 pm
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: COLOR 0A :PDI Echo ------------------------------------- Echo ------------------------------------- Echo Pulse 1 Para Contuniar o 2 Para Salir Cls Echo: : : WELCOME to LOGIN Script:: | MORE Set "File= %UserProfile%\LOGINScript.txt" :MENU1 Cls :REGIST CHOICE /M "Desea guardar esta configuracion?: " Echo Usuario: %name%> " %FILE%" Echo Password: %passw%>> " %FILE%" CLS :LOGIN 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 "passw=Contrasena: " :ERROR CLS Echo: ERROR: Se ha producido un error, por favor verifica los datos ingresados. :LOGINERROR CLS Echo: El usuario/contrasena no son validos, por favor verifica y vuelve a ingresar los datos. | MORE :MENU2 Cls :I Start C:\Users\BTD\Desktop/GoogleChrome :A Start C:\Users\BTD\Desktop/Ares :Aj Start C:\Users\BTD\Desktop/Ajedrez
Título: Re: Ayuda
Publicado por: ELVJop en 5 Mayo 2012, 21:44 pm
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
Título: Re: Ayuda
Publicado por: juan196518 en 5 Mayo 2012, 21:54 pm
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
Título: Re: Ayuda
Publicado por: 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
Título: Re: Ayuda
Publicado por: juan196518 en 5 Mayo 2012, 22:13 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
|