elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Batch] Ayuda base de datos		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: [Batch] Ayuda base de datos  (Leído 7,840 veces)
juan196518

Desconectado Desconectado

Mensajes: 23


Ver Perfil
[Batch] Ayuda base de datos
« 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
« Última modificación: 6 Mayo 2012, 05:31 am por EleKtro H@cker » En línea
Back Track 5♥
Runex

Desconectado Desconectado

Mensajes: 192


http://tutogramacion.blogspot.com


Ver Perfil WWW
Re: Ayuda
« Respuesta #1 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
En línea
"No renunciaría al bambú.
Nunca renuciaría a ti.
No te compares con otros" "El me dijo:
El bambú tenía un propósito diferente al del
helecho, sin embargo eran necesarios y
hacían del bosque un lugar hermoso".
ELVJop

Desconectado Desconectado

Mensajes: 132



Ver Perfil
Re: Ayuda
« Respuesta #2 en: 5 Mayo 2012, 20:53 pm »
Yo te mpongo aqui algo en batch:
Código:
@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...
« Última modificación: 5 Mayo 2012, 21:04 pm por ELVJop » En línea
El dia 3 de mayo esta cuenta sera borrada.
juan196518

Desconectado Desconectado

Mensajes: 23


Ver Perfil
Re: Ayuda
« Respuesta #3 en: 5 Mayo 2012, 20:59 pm »
Cita de: ELVJop en  5 Mayo 2012, 20:53 pm
Yo te mpongo aqui algo en batch:
Código:
@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
« Última modificación: 5 Mayo 2012, 21:02 pm por juan196518 » En línea
Back Track 5♥
ELVJop

Desconectado Desconectado

Mensajes: 132



Ver Perfil
Re: Ayuda
« Respuesta #4 en: 5 Mayo 2012, 21:02 pm »
No ese no tenie un fallo!!!
Código:
echo Usuario: %usser% Contrasenya: %pass% > Usuariosconcontrasenya.dat
deberia ser:
Código:
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?
« Última modificación: 5 Mayo 2012, 21:05 pm por ELVJop » En línea
El dia 3 de mayo esta cuenta sera borrada.
juan196518

Desconectado Desconectado

Mensajes: 23


Ver Perfil
Re: Ayuda
« Respuesta #5 en: 5 Mayo 2012, 21:13 pm »
hay arreglo eso
pero no entiendo tu pregunta
En línea
Back Track 5♥
ELVJop

Desconectado Desconectado

Mensajes: 132



Ver Perfil
Re: Ayuda
« Respuesta #6 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
« Última modificación: 5 Mayo 2012, 21:22 pm por ELVJop » En línea
El dia 3 de mayo esta cuenta sera borrada.
juan196518

Desconectado Desconectado

Mensajes: 23


Ver Perfil
Re: Ayuda
« Respuesta #7 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:
Código
  1. @Echo OFF
  2. TITLE Batch Program V1.0
  3. COLOR 0A
  4.  
  5. :PDI
  6. Echo Mi  primer  programa  ECHO  en  bach.
  7. Echo -------------------------------------
  8. Echo -------------------------------------
  9. Echo Pulse 1 Para Contuniar o 2 Para Salir
  10. SET /P "op=Opcion: "
  11. Cls
  12. IF "%op%" EQU "1" (GOTO :MENU1)
  13. IF "%op%" EQU "2" (Exit /B 0)
  14.  
  15. Echo: :: WELCOME to LOGIN Script:: | MORE
  16. Set "File=%UserProfile%\LOGINScript.txt"
  17.  
  18. :MENU1
  19. Echo ------------
  20. Echo 1) Registro
  21. Echo 2) Log IN
  22. Echo 3) Salir
  23. Echo ------------ | MORE
  24. SET /P "op=Opcion: "
  25. Cls
  26. IF "%op%" EQU "1" (GOTO :REGIST)
  27. IF "%op%" EQU "2" (GOTO :LOGIN)
  28. IF "%op%" EQU "3" (Exit /B 0)
  29. Call :ERROR & GOTO :MENU
  30.  
  31. :REGIST
  32. Call :UserPass
  33. IF not defined name (Call :Error & Goto :Regist) Else (If not defined passw (Call :Error & Goto :Regist))
  34.  
  35. CHOICE /M "Desea guardar esta configuracion?: "
  36. IF %errorlevel% EQU 1 (
  37. 	ATTRIB -H "%FILE%" 2>NUL
  38. 	Echo Usuario:%name%> "%FILE%"
  39. 	Echo Password:%passw%>> "%FILE%"
  40. 	ATTRIB +H "%FILE%" 2>NUL
  41. 	CLS
  42. ) ELSE (GOTO :REGIST)
  43.  
  44. :LOGIN
  45. Echo: :: LOG IN :: | MORE
  46. Call :UserPass
  47. FOR /F "tokens=2 Delims=:" %%U IN ('TYPE "%FILE%" ^| Find "Usuario"') DO (SET "userlogin=%%U")
  48. FOR /F "tokens=2 Delims=:" %%U IN ('TYPE "%FILE%" ^| Find "Password"') DO (SET "password=%%U")
  49. IF "%name% %passw%" EQU "%userlogin% %password%" (GOTO :MENU2) else (GOTO :LOGINERROR)
  50.  
  51. :UserPass
  52. Echo: Establece los siguientes parametros: | MORE
  53. SET /P "name=Usuario: "
  54. SET /P "passw=Contrasena: "
  55. Goto :EOF
  56.  
  57. :ERROR
  58. CLS
  59. Echo: ERROR: Se ha producido un error, por favor verifica los datos ingresados.
  60. Goto :EOF
  61.  
  62. :LOGINERROR
  63. CLS
  64. Echo: El usuario/contrasena no son validos, por favor verifica y vuelve a ingresar los datos. | MORE
  65. GOTO :LOGIN
  66.  
  67. :MENU2
  68. Echo Que Deseas Hacer?
  69. Echo 1) Internet
  70. Echo 2) Ares
  71. Echo 3) Ajedrez
  73. Echo ------------ | MORE
  74. SET /P "op=Opcion: "
  75. Cls
  76. IF "%op%" EQU "1" (GOTO :I)
  77. IF "%op%" EQU "2" (GOTO :A)
  78. IF "%op%" EQU "3" (Goto :Aj)
  79. IF "%op%" EQU "4" (Exit /B 0)
  80. Call :ERROR & GOTO :MENU
  81.  
  82. :I
  83. Start C:\Users\BTD\Desktop/GoogleChrome
  84. GOTO :MENU2
  85.  
  86. :A
  87. Start C:\Users\BTD\Desktop/Ares
  88. GOTO :MENU2
  89.  
  90. :Aj
  91. Start C:\Users\BTD\Desktop/Ajedrez
  92. GOTO :MENU2
« Última modificación: 6 Mayo 2012, 05:29 am por EleKtro H@cker » En línea
Back Track 5♥
ELVJop

Desconectado Desconectado

Mensajes: 132



Ver Perfil
Re: Ayuda
« Respuesta #8 en: 5 Mayo 2012, 21:44 pm »
Como que no te ba?
Pongo el ultimo le añadi algunas funciones interesantes:
Código:
@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
« Última modificación: 5 Mayo 2012, 21:48 pm por ELVJop » En línea
El dia 3 de mayo esta cuenta sera borrada.
juan196518

Desconectado Desconectado

Mensajes: 23


Ver Perfil
Re: Ayuda
« Respuesta #9 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
En línea
Back Track 5♥
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[batch]base de datos
Scripting 		Mark.18 2 6,423 Último mensaje 16 Octubre 2008, 22:57 pm
por Mark.18
[BATCH]Ayuda Base de Datos
Scripting 		Geormarsch 5 3,551 Último mensaje 4 Noviembre 2011, 20:40 pm
por Geormarsch
[Batch][Aporte] Base de datos para clientes.
Scripting 		Geormarsch 7 5,921 Último mensaje 7 Noviembre 2011, 22:28 pm
por Geormarsch
Ayuda por favor. Batch que almacene datos en un txt consultable
Scripting 		VicInFlames 1 3,737 Último mensaje 12 Agosto 2013, 09:39 am
por Meine programmen
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines