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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  (Batch) Es Posible hacer password char en batch? (Pregunta)		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 2 [3] Ir Abajo Respuesta Imprimir
Autor Tema: (Batch) Es Posible hacer password char en batch? (Pregunta)  (Leído 21,911 veces)
Nucleorion

Desconectado Desconectado

Mensajes: 72


Ver Perfil
Re: (Batch) Es Posible hacer password char en batch? (Pregunta)
« Respuesta #20 en: 19 Mayo 2014, 18:45 pm »
Aunque han pasado años considero que es mejor dejar aqui mi duda y mi contribución.

Los codigos que usaban vbs no me han funcionado. Supongo que tendria que modificar la ruta donde se aloja el bat o algo, ya que me decia que faltaba el archivo .vbs

Como me funcionó el codigo escrito exclusivamente en batch, posteado por maty_16_94 decidí usarlo. Tuve que hacer algunos cambios ya que necesitaba que si se metia la clave se cargase un menu y si no, no. Tambien me pareció oportuno que si se cometia un error al introducir la clave te diese mas oportunidades.

Aunque el codigo funciona hay algo que no entiendo y no me conformo con que funcione, me gustaria entenderlo, jejeje. Y tambien, si he cometido alguna barbaridad, saberlo y corregirla :P

¿Porque se ejecuta la etiqueta reinicio antes de cometer ningun fallo? En un principio iba a duplicar esas lineas pero al meter un pause en la etiqueta reinicio vi que se ejecuta nada mas arrancar. Luego hice el contador de errores y ya puedo mostrar el texto de clave incorrecta, pero me ha quedado esa duda.

Es la primera vez que uso call, supongo que por ahi se me escapa algo.

Tambien me gustaria saber que hace el archivo reply.exe


Código
  1. @echo off
  2. Title Usando Asteriscos en una Clave
  3. ::Escrito por Carlos inicialmente
  4.  
  5. set /a intentos=3
  6. set MensajeIntoduzcaClave="Introduzca la clave de acceso:"
  7.  
  8. :reinicio
  9. if not exist "reply.exe" (call:reply)
  11. set PWL=
  12. set letra=
  13. set/a contador=0
  14. set /a TAM=10
  15. set PASSWORD=1234
  16. call:prompt
  17.  
  18. :inicio
  19. reply.exe
  20. set letra=%errorlevel%
  21. if [%letra%]==[13] (goto:fin) else (call:ascii %letra%)
  22. goto:eof
  23.  
  24. :fin
  26. rem set/p pass=Password <nul
  27. if [%PASSWORD%]==[%PWL%] ( 
  28. 	goto:correcta 
  29. ) else ( 
  30. 	goto:incorrecta 
  31. )
  32. goto:eof
  33.  
  34. :correcta
  35. cls
  37. goto Menu
  38. goto:eof
  39.  
  40. :incorrecta
  41. echo Clave incorrecta.
  42. if /i 1 leq %intentos% (
  43. set /a intentos=%intentos%-1
  44. echo Numero de intentos restantes=%intentos%
  45. echo Pulsa una tecla para volver a probar.
  46. pause>nul
  47. goto reinicio
  48. ) else (
  49. echo Se ha superado el numero de intentos.
  50. pause>nul
  52. )
  53.  
  54. :ascii
  55. if %1==8 (call:borrar)
  56. if %contador% GEQ %TAM% (goto:inicio)
  57. if %1==48 (set PWL=%PWL%0&goto:contador)
  58. if %1==49 (set PWL=%PWL%1&goto:contador) 
  59. if %1==50 (set PWL=%PWL%2&goto:contador)
  60. if %1==51 (set PWL=%PWL%3&goto:contador)
  61. if %1==52 (set PWL=%PWL%4&goto:contador)
  62. if %1==53 (set PWL=%PWL%5&goto:contador)
  63. if %1==54 (set PWL=%PWL%6&goto:contador)
  64. if %1==55 (set PWL=%PWL%7&goto:contador)
  65. if %1==56 (set PWL=%PWL%8&goto:contador)
  66. if %1==57 (set PWL=%PWL%9&goto:contador)
  67. if %1==65 (set PWL=%PWL%A&goto:contador)
  68. if %1==66 (set PWL=%PWL%B&goto:contador)
  69. if %1==67 (set PWL=%PWL%C&goto:contador)
  70. if %1==68 (set PWL=%PWL%D&goto:contador)
  71. if %1==69 (set PWL=%PWL%E&goto:contador)
  72. if %1==70 (set PWL=%PWL%F&goto:contador)
  73. if %1==71 (set PWL=%PWL%G&goto:contador)
  74. if %1==72 (set PWL=%PWL%H&goto:contador)
  75. if %1==73 (set PWL=%PWL%I&goto:contador)
  76. if %1==74 (set PWL=%PWL%J&goto:contador)
  77. if %1==75 (set PWL=%PWL%K&goto:contador)
  78. if %1==76 (set PWL=%PWL%L&goto:contador)
  79. if %1==77 (set PWL=%PWL%M&goto:contador)
  80. if %1==78 (set PWL=%PWL%N&goto:contador)
  81. if %1==79 (set PWL=%PWL%O&goto:contador)
  82. if %1==80 (set PWL=%PWL%P&goto:contador)
  83. if %1==81 (set PWL=%PWL%Q&goto:contador)
  84. if %1==82 (set PWL=%PWL%R&goto:contador)
  85. if %1==83 (set PWL=%PWL%S&goto:contador)
  86. if %1==84 (set PWL=%PWL%T&goto:contador)
  87. if %1==85 (set PWL=%PWL%U&goto:contador)
  88. if %1==86 (set PWL=%PWL%V&goto:contador)
  89. if %1==87 (set PWL=%PWL%W&goto:contador)
  90. if %1==88 (set PWL=%PWL%X&goto:contador)
  91. if %1==89 (set PWL=%PWL%Y&goto:contador)
  92. if %1==90 (set PWL=%PWL%Z&goto:contador)
  93. if %1==97 (set PWL=%PWL%a&goto:contador)
  94. if %1==98 (set PWL=%PWL%b&goto:contador)
  95. if %1==99 (set PWL=%PWL%c&goto:contador)
  96. if %1==100 (set PWL=%PWL%d&goto:contador)
  97. if %1==101 (set PWL=%PWL%e&goto:contador)
  98. if %1==102 (set PWL=%PWL%f&goto:contador)
  99. if %1==103 (set PWL=%PWL%g&goto:contador)
  100. if %1==104 (set PWL=%PWL%h&goto:contador)
  101. if %1==105 (set PWL=%PWL%i&goto:contador)
  102. if %1==106 (set PWL=%PWL%j&goto:contador)
  103. if %1==107 (set PWL=%PWL%k&goto:contador)
  104. if %1==108 (set PWL=%PWL%l&goto:contador)
  105. if %1==109 (set PWL=%PWL%m&goto:contador)
  106. if %1==110 (set PWL=%PWL%n&goto:contador)
  107. if %1==111 (set PWL=%PWL%o&goto:contador)
  108. if %1==112 (set PWL=%PWL%p&goto:contador)
  109. if %1==113 (set PWL=%PWL%q&goto:contador)
  110. if %1==114 (set PWL=%PWL%r&goto:contador)
  111. if %1==115 (set PWL=%PWL%s&goto:contador)
  112. if %1==116 (set PWL=%PWL%t&goto:contador)
  113. if %1==117 (set PWL=%PWL%u&goto:contador)
  114. if %1==118 (set PWL=%PWL%v&goto:contador)
  115. if %1==119 (set PWL=%PWL%w&goto:contador)
  116. if %1==120 (set PWL=%PWL%x&goto:contador)
  117. if %1==121 (set PWL=%PWL%y&goto:contador)
  118. if %1==122 (set PWL=%PWL%z&goto:contador)
  119. goto:inicio
  120.  
  121. :contador
  122. set/a contador+=1
  123. call:asterisc
  124. goto:inicio
  125.  
  126. :borrar
  127. if %contador% LEQ 0 (goto:eof)
  128. set/a contador-=1
  129. call:prompt
  130. for /l %%a in (1,1,%contador%) do (call:asterisc)
  131. set PWL=%PWL:~0,-1%
  132. goto:eof
  133.  
  134. :reply
  135. (
  136. echo n reply.dat
  137. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  138. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  139. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  140. echo rcx
  141. echo 002E
  142. echo w0
  145. )>reply.dat
  146. type reply.dat|debug>NUL 2>&1
  147. del/f/q/a "REPLY.EXE">NUL 2>&1
  148. ren reply.dat "REPLY.EXE"
  149. goto:eof
  150.  
  151. :prompt
  152. cls
  153. set/p pass=%MensajeIntoduzcaClave%<nul
  154. goto:eof
  155.  
  156. :asterisc
  157. set/p pass=*<nul
  158. goto:eof
  159.  
  160. :Menu
  162. echo  Menu:
  164. echo  1. Decir Hola
  165. echo  2. Decir Adios
  166. echo  0. Salir
  168. set /p var=Elige opcion: 
  169. if %var%==1 goto hola
  170. if %var%==2 goto adios
  171. if %var%==0 exit
  172. goto Menu
  173.  
  174. :hola
  176. echo Hola
  178. goto Menu
  179.  
  180. :adios
  182. echo Adios
  184. goto Menu
  185.  
  186.  
« Última modificación: 20 Mayo 2014, 11:15 am por Nucleorion » En línea
Zomkar

Desconectado Desconectado

Mensajes: 180


Ver Perfil
Re: (Batch) Es Posible hacer password char en batch? (Pregunta)
« Respuesta #21 en: 19 Mayo 2014, 21:38 pm »
Antes de nada aclararte que, aunque yo lo uso mucho porque mi dominio de batch supera por mucho mi dominio de otro lenguaje, para cosas como las que quieres hacer batch se queda corto.

Aun asi:

Citar
¿Porque se ejecuta la etiqueta reinicio antes de cometer ningun fallo?

Batch se ejecuta linea a linea.

Por eso usar "call" no es buena idea porque se suele hacer:
IF condicion CALL :menu

pero resulta que no estás controlando que si el IF no cumple condicion, no vaya a :menu y entonces a donde va? a la linea siguiente.

En definitiva: lo ideal es controlar si has entrado al IF o al ELSE justo después de un CALL para saber si ha habido errores.
Otra opción es usar las variables llamadas ERRORLEVEL.
Tambien con goto:eof si se habia usado call, regresas a la posicion "original".

Para acabar, siendo que hay trozos de código en VBS, yo quizás probaria a aprender algo más de VBS (saber 1 poco es facil) y hacerlo todo en VBS.

En cuanto a reply.exe creo que se utiliza para leer alguna tecla especial como enter ya que:

Código
  1. :inicio
  2. reply.exe
  3. set letra=%errorlevel%
  4. if [%letra%]==[13] (goto:fin) else (call:ascii %letra%)

Si Errorlevel=13 quiere decir que la letra es la correcta para salir del bucle. Además, creo que sirve para, en función del codigo ASCII que retorne Errorlevel, saber qué letra ha pulsado el usuario. Lo que no sé es si no hay formas más elegantes de hacerlo.

PS: vale, si, hace eso si no me equivoco, buscar en memoria la tecla pulsada y almacenarla, pero con ASM

mas informacion: http://thestarman.pcministry.com/asm/debug/debug.htm#EXE
« Última modificación: 20 Mayo 2014, 03:31 am por Zomkar » En línea
Nucleorion

Desconectado Desconectado

Mensajes: 72


Ver Perfil
Re: (Batch) Es Posible hacer password char en batch? (Pregunta)
« Respuesta #22 en: 20 Mayo 2014, 11:31 am »
Muchisimas gracias, te has explicado genialmente  :D

He programado en muchos lenguajes diferentes, como los patos ya sabes, nadan, corren y vuelan pero no destacan en nada :P

vbs no lo he tocado apenas. La proxima vez que vaya ha hacer algo en dos, pruebo a hacerlo en vbs. Espero que haya mas documentacion ya que es un lenguaje de programacion en si, porque en dos aparte la escueta documentacion casi sin ejemplos de:

http://technet.microsoft.com/en-us/library/bb490873.aspx

Lo demas que he encontrado esta disperso.
En línea
Zomkar

Desconectado Desconectado

Mensajes: 180


Ver Perfil
Re: (Batch) Es Posible hacer password char en batch? (Pregunta)
« Respuesta #23 en: 20 Mayo 2014, 20:43 pm »
Bueno, lo cierto es que en VBS hay más ejemplos que en DOS/Batch, pero también te vas a encontrar con el problema de que las documentaciones están orientadas a quien ya sabe usar las herramientas

Lo ideal, para mi, como con cualquier lenguaje, es aprender leyendo tutoriales, que no sean muy basicos pero que sobretodo usen ejemplos y los conceptos se te queden un poco y cuando quieras hacer un programa sepas por donde tirar.

Por ejemplo tutoriales asi:
http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html

por cierto para DOS hay muchas paginas pero si quieres ejemplos esta esta muy bien:
http://www.robvanderwoude.com/batchcommands.php
En línea
Nucleorion

Desconectado Desconectado

Mensajes: 72


Ver Perfil
Re: (Batch) Es Posible hacer password char en batch? (Pregunta)
« Respuesta #24 en: 22 Mayo 2014, 12:50 pm »
Gracias por los enlaces

Al probarlo en un sistema de 64bits me ha dado error el archivo reply.exe. Imagino que habria que programarlo diferente para 64bits. Creo que he encontrado la manera para detectar que arquitectura de sistema se esta usando con el comando %PROCESSOR_ARCHITECTURE% podria definir si se crea un reply u otro, pero no tengo ni idea de como hacer un reply para 64bits
« Última modificación: 22 Mayo 2014, 12:57 pm por Nucleorion » En línea
Zomkar

Desconectado Desconectado

Mensajes: 180


Ver Perfil
Re: (Batch) Es Posible hacer password char en batch? (Pregunta)
« Respuesta #25 en: 22 Mayo 2014, 21:35 pm »
yo tampoco, si no me equivoco se puede hacer en C:

-leer desde Memoria el valor de la tecla pulsada
-si es Enter devolver ERRORLEVEL 13
-si es retroceso borrar letra
-para el resto de caracteres ascii, devolver su valor en ERRORLEVEL
http://www.ascii-code.com/
(en el batch usan a partir de '0' que es 48 pero puedes hacer más si es que batch los admite)

en realidad se puede hacer todo el codigo en C pero para usarlo con este batch seria eso

compilas el codigo sobre la plataforma que vayas a usar (64) y te olvidas de la parte que crea el archivo.exe si se puede evitar porque para eso hay que saber un poco de ASM por lo menos

PS: si no creas el exe otra vez tendras que conseguir que te funcione y eso quizas no sea posible, prueba con propiedades->compatibilidad
« Última modificación: 22 Mayo 2014, 22:01 pm por Zomkar » En línea
Páginas: 1 2 [3] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[BATCH] Password BAS 0.1
Scripting 		ËrîC# 3 3,445 Último mensaje 11 Diciembre 2007, 17:23 pm
por nhaalclkiemr
[Batch] cambiar password
Scripting 		mindfreak93 2 3,173 Último mensaje 13 Marzo 2009, 01:41 am
por mindfreak93
[batch] PASS-CHAR BY -.: GUERREROHGP :.-
Scripting 		Guerrerohgp 3 3,508 Último mensaje 6 Agosto 2009, 17:21 pm
por leogtz
es posible hacer lo siguiente con batch
Scripting 		junior spanish 3 4,096 Último mensaje 17 Noviembre 2009, 17:35 pm
por junior spanish
[Batch] Insertar un batch dentro de un batch que fabrique un .txt
Scripting 		$pedrojo2704 2 6,484 Último mensaje 23 Agosto 2012, 10:08 am
por $pedrojo2704
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines