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

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22
81  Programación / Scripting / Re: Batch - Contar letras de una variable en: 29 Julio 2008, 21:00 pm
If defined lo que hace es preguntar si una variable está definida.

Como al principio del code tengo un set /p palabra=Ingrese texto

si le haces un enter sin escribir nada, el cmd hace:
set palabra=
y borra esa variable.
Podría emularse así también: if not "%variable%"=="" pero no queda tan bien porqué si la variable contiene un " al principio el cmd se confunde con el código, y para eso hay que escribir más

call :length %palabra: =_%

significa que le paso un parametro a :length sustituyendo los espacios por _ lo que no significa que el contenido de la variable no pueda tener espacios, pero es para que no me los elimine al pasarlo por parametro. Ejemplo:
palabra=[espacio][espacio]abc
palabra tiene 5 caracteres

y si comienza con espacio y termina con espacio se borran si llamo a una función (función trim :D). Ejemplo:
call :length %palabra%
hace
call :length   abc
y pasa solo abc

:length
recibe todos los parametros en variable arg y en variable word
variable word redundantemente reemplaza los espacios por _ (aunque ahora pienso que se podría borrar esa línea porque ya viene con el reemplazo desde arriba) establecemos el cont en 0, y luego vamos eliminando un carácter por ciclo repetitivo, y aumentado el cont en 1, cuando ya no queden más letras, tendremos un set word= y la borramos, cuando word ya no está definida salimos del ciclo, y establecemos una variable con el nombre del parametro.length con el contenido de cont.  Ejemplo:

call :length   abc
call :length __abc
set __abc.length=%cont%

Luego cuando se sale de :length pregunta
¿está definida  __abc.length? si así es imprime dicha variable, esta vez ayudado por setlocal enabledelayedexpansion porque antes lo tenía así:
call echo %%%palabra: =_%.length%%
pero si el contenido de la variable comenzaba con un numero, el cmd se confundia al hacer un %1 y no imprimia bien.
82  Programación / Scripting / Re: Descargar mp3's desde Goear [vbscript] en: 29 Julio 2008, 04:05 am
Oye Novlucker, podrías tener un blog o un repositorio con tus codes, para consultarlos.
83  Programación / Scripting / Re: Programacion BAT! AYUda Por favor! en: 29 Julio 2008, 03:58 am
Yo te ayudo, pero necesito entender bien el patrón.

¿Me darías un ejemplo de archivo de texto?

2_00018

¿Todos los archivos de texto tienen 7 carácteres de longitud?
¿Tienen solo numeros y un _?

¿Necesitas siempre el número antes del _?
¿Necesitas siempre el número después del _ sin contar los ceros?

Si me explicas bien que valores según un patrón tendrán siempre esos archivos de texto, te ayudo.
84  Programación / Scripting / Batch - Contar letras de una variable en: 28 Julio 2008, 22:02 pm
Código:

::CarlitoS.dll
::Función que cuenta los carácteres de una variable
@echo off
setlocal enabledelayedexpansion

set /p palabra=Ingrese una palabra con espacios si quiere:

if defined palabra (call :length %palabra: =_%)
if defined %palabra: =_%.length (echo !%palabra: =_%.length!)

pause

goto :eof

:length
if "%*"=="" (goto :eof)
set arg=%*
set word=%*
set word=%word: =_%
set /a cont=0
:loop
if not defined word (goto end)
set word=%word:~1%
set /a cont +=1
goto loop
:end
set %arg: =_%.length=%cont%
goto :eof

85  Programación / Scripting / Re: Crackme in batch en: 27 Julio 2008, 04:24 am
Me diste una idea Smart. Voy a comenzar a hacer un verdadero compilador de batch, open-source, pero de pago eso si, el acceso.

86  Programación / Scripting / Re: Detector unidades Pendrive 5.0c en: 26 Julio 2008, 21:45 pm
Con un programa llamado timethis.exe calculé el tiempo que se demoraba (en mi máquina claro) la versión 1.0 del presente script y la 5.0

La 1.0 se demoró 0.625 segundos.
La 5.0 se demoró 0.265 segundos.

Ahora ne queda claro que más líneas no significa mejor programación.

87  Programación / Scripting / Re: Detector unidades Pendrive 5.0c en: 26 Julio 2008, 21:28 pm

Si funciona, la condición es el %errorlevel%

dir /a unidad:\ >NUL
rem redirigiendo la salida a NUL
2 >&1
rem redirigiendo errores e información de errores a NUL
&& echo.unidad:
si se completó el comando dir /a sin errores devuelve 0 en %errorlevel% sino 1
y ese && significa que efectúa el comando solo si el anterior tuvo éxito, es decir si en este caso dir /a devolvió %errorlevel% igual a 0.

Buena información de redirección en:
http://www.ss64.com/ntsyntax/redirection.html
y de condiciones en:
http://www.ss64.com/ntsyntax/conditional.html


88  Programación / Scripting / Re: Crackme in batch en: 26 Julio 2008, 21:09 pm
La password es un número.
Si lo consigues, y prestas atención, verás su código fuente.
Nota: si ingresas un número, te dirá si el número que ingresaste es menor a la password o mayor.

89  Programación / Scripting / Re: Detector unidades Pendrive 5.0c en: 26 Julio 2008, 20:49 pm
no entiendo para que es ese cambio o.Ô, que tiene de malo if exist..?

Me dijo que le aparecía una ventana dónde tenía que hacer clic en Cancelar, Reintentar, Continuar.

Yo en un computador de escritorio puse if exist a:\ echo A
y no aparecía ningún mensaje.

Pero eso mismo, lo puse en un notebook.
if exist a:\ echo A
sale una ventana diciendo en el título: Windows - No hay disco. En el mensaje dice: Exception Processing Message c0000013 Parameters 75b1bf9c 4 751bf9c 751bb9c

Entonces entendí que lo mismo le aparecía a él, con los pendrives respectivamente.

Y su solución funciona, porque si en el mismo notebook, coloco
dir /a a:\ >NUL
Me dice en consola: El dispositivo no está listo.

90  Programación / Scripting / Detector unidades Pendrive 5.0c en: 26 Julio 2008, 19:53 pm
Código:

::DETECTOR OF REMOVABLE DEVICES [V5.0c Final] author CarlitoS.dll
::carlitosdll.blogspot.com
::Tested in Windows 2000 and XP. Not works in Windows 98 and Me.

@echo off
if "%errorlevel%"=="" goto other

echo Mounted removable devices detected
echo ----------------------------------

ver | findstr "2000 NT" >NUL && goto NT2000

:XPVISTASEVEN
for /f "tokens=3 delims=\:" %%a in ('reg query HKLM\SYSTEM\MountedDevices ^| find "530054004F00520041"') do (
dir /a %%a:\ >NUL 2>&1 && echo.%%a:)
pause
goto :eof

:NT2000
regedit /e "%temp%\devices.dat" "HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices"
for /f "tokens=3 delims=\:" %%a in ('find /i "DosDevices" ^< "%temp%\devices.dat" ^| find /i "53,00,54,00,4f,00,52,00,41"') do (
dir /a %%a:\ >NUL 2>&1 && echo.%%a:)
del /f /q "%temp%\devices.dat" >NUL
pause
goto :eof

:other
echo Current batch is not supported in this Operating System version.
exit

Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines