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

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Funciones utiles [batch]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Funciones utiles [batch]  (Leído 5,553 veces)
<< Lucas, ¿quién más? >>

Desconectado Desconectado

Mensajes: 51


ANTI KIRCHNER- MONTONEROS - TERRORISTAS Y ASESINOS


Ver Perfil
Funciones utiles [batch]
« en: 12 Febrero 2010, 00:37 am »

Aqui estan otras más que pude encontrar en mi extinto disco.

EDITO: Ya supe de quien eran los códigos: The Shadow  :silbar:

Invertir cadena de texto

Código:
@echo off
::Por: yo no, si The Shadow ¬¬, jeje
::Info: Invierte una cadena especifica
::Parametros: %1=cadena
::Devuelve: %ohce%=cadena invertida
:ohce
set wrd=
set ohce=
if %1'==' goto er_o
set wrd=%1
set wrd=%wrd:"=cnf%
call :len %wrd%
set /a len=%len%-1
for /l %%a in (%len%,-1,0) do (
call :st %%wrd:~%%a,1%%
)
set ohce=%ohce:"=%
set ohce=%ohce:fnc="%
echo %ohce%
goto :EOF
:st
set p1=%1
set ohce=%ohce%%p1%
goto :EOF
:len
if %1'==' echo La sintaxis es: len [cadena] && goto :EOF
set w=%1
set a=0
set bol=0
:lp
call :cnt "%%w:~%a%,1%%" %a%
if %bol%==1 goto :EOF
set /a a=%a%+1
goto lp
:cnt
set cur=%1
set len=%2
if %cur%a==""a (
set bol=1
)
goto :EOF
:er_o
echo La sintaxis es: h2d [cadena]
goto :EOF

Longitud de cadena

Código:
@echo off
::LEN
::Info: Regresa la longitud de la cadena especificada.
::      Si la cadena contiene espacios, el script
::      tomara la cadena que esta antes del 1er espacio.
::Parametros: %1=cadena
:len
if %1'==' echo La sintaxis es: len [cadena] && goto :EOF
set w=%1
set a=0
set bol=0
:lp
call :cnt "%%w:~%a%,1%%" %a%
if %bol%==1 goto :EOF
set /a a=%a%+1
goto lp
:cnt
set cur=%1
set len=%2
if %cur%a==""a (
echo %len%
set bol=1
)
goto :EOF


« Última modificación: 20 Febrero 2010, 00:35 am por Lucas AC » En línea



Personalmente, prefiero tecnologías de Microsoft. Yo reconozco que defendí el software libre, pero ahora yo quiero vivir de esto. Mi trabajo.
---saster---

Desconectado Desconectado

Mensajes: 55


Ver Perfil
Re: Funciones utiles [batch]
« Respuesta #1 en: 15 Febrero 2010, 15:49 pm »

mmmm se ven buenas y bien trabajadas

yo hice hace poco un code de la longitud de una string, bastante mas sencillo pero que sirve igual
Código
  1. @echo off
  2. set /p string= ingrese cadena ^>
  3. set cont=0
  4. :ini
  5. call:script "%%string%:~%cont%,1%%"
  6. :script
  7. if %1=="" (
  8. echo %cont%
  9. pause>nul
  10. ) else (set /a cont+=1&goto:ini)
  11. goto:eof

me acabo de dar cuenta de que la de shadow al estar en modo comando solo cuenta hasta el primer espacion y el mio cuenta todo, los espacios y mas palabras

se puede arreglar poniendo un

Código:
for /f "tokens=1 delims= " %%a in ("%string%") do (set string=%%a)

si no tambien pueden modificar el de shadow para que no coja solo una palabra, sería cambiar la linea

Código:
set w=%1
por
Código:
set "w=%*"

saludos


« Última modificación: 15 Febrero 2010, 17:40 pm por ---saster--- » En línea

xassiz_

Desconectado Desconectado

Mensajes: 273


Ich werde dich töten..


Ver Perfil WWW
Re: Funciones utiles [batch]
« Respuesta #2 en: 16 Febrero 2010, 17:20 pm »

Si los hizo shadow porque pone Por Lucas AC?
En línea



YXVuIGVyZXMgbWF0YWRvIHBhcmEgcG9uZXJ0ZSBhIGRlc2NpZnJhciBlc3RvIHhE
<< Lucas, ¿quién más? >>

Desconectado Desconectado

Mensajes: 51


ANTI KIRCHNER- MONTONEROS - TERRORISTAS Y ASESINOS


Ver Perfil
Re: Funciones utiles [batch]
« Respuesta #3 en: 20 Febrero 2010, 00:31 am »

Si los hizo shadow porque pone Por Lucas AC?

Gracias por tu comentario, pero antes ya había resaltado que los códigos son de The Shadow, amigo  :¬¬.
« Última modificación: 20 Febrero 2010, 00:33 am por Lucas AC » En línea



Personalmente, prefiero tecnologías de Microsoft. Yo reconozco que defendí el software libre, pero ahora yo quiero vivir de esto. Mi trabajo.
xassiz_

Desconectado Desconectado

Mensajes: 273


Ich werde dich töten..


Ver Perfil WWW
Re: Funciones utiles [batch]
« Respuesta #4 en: 21 Febrero 2010, 22:05 pm »

Y que? Si lo pones en el codigo no es lógico.
En línea



YXVuIGVyZXMgbWF0YWRvIHBhcmEgcG9uZXJ0ZSBhIGRlc2NpZnJhciBlc3RvIHhE
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines