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


  Mostrar Mensajes
Páginas: 1 ... 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 [242] 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 ... 279
2411  Programación / Scripting / Re: Funcion Palindrome [Batch] en: 15 Junio 2009, 05:16 am
Lamentablemente solo funciona con 1 sola palabra, luego veo si lo soluciono.

Gracias por probar el código.
2412  Programación / Scripting / Re: Algoritmo numeros primos [Batch] [Actualizado] en: 15 Junio 2009, 05:14 am
Aqui esta el nuevo algoritmo, más optimizado:
Código
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. :code
  4. set /p "numero=Numero : "
  5. if not defined numero (goto:code)
  6. for /l %%_ in (1,1,%numero%) do (
  7. set /a "operacion=%numero%%%%%_"
  8. if !operacion! equ 0 set /a "divisores+=1"
  9. )
  10. if %divisores% equ 2 (echo.Es primo) else (echo.No es primo)
  11. pause>nul
  12. exit /b 0

Salida:

Código:
C:\>code
Numero : 2
Es primo

C:\>code
Numero : 21
No es primo

C:\>code
Numero : 71
Es primo

C:\>
2413  Programación / Ejercicios / Re: Algoritmia-Ejercicios introductorios. en: 15 Junio 2009, 03:42 am
El 2 en Batch:
Código
  1. @echo off
  2. :code
  3. set /p "numero=Numero : "
  4. if not defined numero (goto:code)
  5. if %numero% equ 0 (
  6. echo.Error
  7. exit /b 1
  8. )
  9. set /a "factorial=1"
  10. for /l %%_ in (1 1 %numero%) do (
  11. set /a factorial=factorial * %%_
  12. )
  13. echo.Factorial : %factorial%
  14. pause>nul
  15. exit /b 0
Salida:
Código:
Numero : 5
Factorial : 120

El problema 3 en Batch:
Código
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. :code
  4. set /p "numero=Numeros : "
  5. if not defined numero (goto:code)
  6. for /l %%_ in (1,1,%numero%) do (set /p "numeros[%%_]=numeros[%%_] : ")
  7. set "mayor=!numeros[1]!"
  8. for /l %%_ in (1,1,%numero%) do (
  9. if !numeros[% style="color: #448888;">%_]! geq !mayor! (set "mayor=!numeros[% style="color: #448888;">%_]!")
  10. )
  11. set "mayor"
  12. pause>nul
  13. exit /b 0

Salida:
Código:
Numeros : 5
numeros[1] : 34
numeros[2] : 6
numeros[3] : 36
numeros[4] : 567
numeros[5] : 23
mayor=567

El 5 en Batch:
Código
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. :code
  4. set /p "numero=Numero : "
  5. if not defined numero (goto:code)
  6. set "numero_=%numero%"
  7. set /a "contador-=1"
  8. :bucle
  9. set "numero=%numero:~1%"
  10. set /a "contador+=1"
  11. if defined numero (goto:bucle)
  12. :end
  13. for /l %%_ in (0,1,%contador%) do (<nul set /p "=!numero_:~% style="color: #448888;">%_,1! ")
  14. pause>nul
  15. exit /b 0

Salida:
Código:
Numero : 314592
3 1 4 5 9 2

El 6 en Batch:
Código
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. :code
  4. set /p "numero=Numero : "
  5. if not defined numero (goto:code)
  6. :: Checar que sea un numero real : 
  7. echo %numero% | find "." > nul 2>&1 || (
  8. echo.El numero no es real.
  9. exit /b 1
  10. )
  11. for /f "tokens=1-2 delims=." %%^1 in ("%numero%") do (
  12. call:lenght %%^1
  13. echo.El numero "!numero!" tiene !contador! de parte entera.
  14. call:lenght %%^2
  15. echo.El numero "!numero!" tiene !contador! de parte decimal.
  16. )
  17. pause>nul
  18. exit /b 0
  19. :lenght
  20. set "cadena=%*"
  21. set /a "contador=0"
  22. :lenght2
  23. set "cadena=%cadena:~1%"
  24. set /a "contador+=1"
  25. if defined cadena (goto:lenght2)
  26. goto:eof
Salida:
Código:
Numero : 123.456456345
El numero "123.456456345" tiene 3 de parte entera.
El numero "123.456456345" tiene 9 de parte decimal.

Saludos.
2414  Programación / Scripting / Re: algunas dudas en programacion BATCH(nuevo en esto de programacion) en: 15 Junio 2009, 01:24 am
Podrías detectar las USBS de esta forma:
Código:
for /f "tokens=1" %%_ in ('wmic logicaldisk get caption^, description ^| findstr "extra"') do (
echo USB : %%_
)
Limitaciones:
Usa wmic y requiere de privilegios de administrador.
O podrias usar el codigo de Carlos :
Código:
http://foro.elhacker.net/printpage.html;topic=218760.0
Otra opcion sería usar FSUTIL:
Código:
@echo off
for /f "tokens=2" %%_ in ('fsutil fsinfo drives ^| more') do (
fsutil fsinfo drivetype %%_ | find "extra"
)
for /f "tokens=1 skip=2" %%_ in ('fsutil fsinfo drives ^| more') do (
fsutil fsinfo drivetype %%_ | find "extra"
)

O que usaras esta aplicación que hice, es para detectar USB´sy Cdroms, esta hecha en C:
Código:
http://rapidshare.com/files/244616659/usbs.zip.html
Código:
@echo off
usbs -usb

Salida:
Código:
E:\
G:\
Código:
usbs -cdrom
Salida:
Código:
D:\

Saludos.
2415  Programación / Scripting / Funcion Palindrome [Batch] en: 15 Junio 2009, 01:09 am
Basicamente se pide una palabra, se pone la cadena de forma inversa y se compara con la primera pedida al usuario.

Código
  1. @echo off
  2. if exist "file.txt" (del /f /q "file.txt")
  3. setlocal enabledelayedexpansion
  4. :code
  5. set /p "cadena=Cadena : "
  6. if not defined cadena (goto:code)
  7. set "cadena_=%cadena%"
  8. set /a "longitud-=1"
  9. :bucle
  10. set "cadena=%cadena:~1%"
  11. set /a "longitud+=1"
  12. if defined cadena goto:bucle
  13. for /l %%_ in (%longitud%=-1=0) do <nul set /p "=!cadena_:~% style="color: #448888;">%_,1!" >> "file.txt"
  14. for /f "tokens=*" %%_ in (file.txt) do (
  15. if /i "%cadena_%"=="%%_" (echo.Palindrome) else (echo.No palindrome)
  16. )
  17. pause>nul 2>&1
  18. exit /b 0

Salida:
Código:
C:\>este
Cadena : seres
Palindrome

C:\>este
Cadena : algo
No palindrome

C:\>este
Cadena : ana
Palindrome

C:\>este
Cadena : Lalo
No palindrome

C:\>este
Cadena : arenero
No palindrome

C:\>este
Cadena : arenera
Palindrome

C:\>
2416  Programación / Scripting / Re: [batch] para q sirve el comando rem en: 13 Junio 2009, 20:02 pm
Cita de: sirdarckcat en 13 Junio 2009, 19:44 pm
Cita de: Leo Gutierrez. en 13 Junio 2009, 19:40 pm
Una ves le habia dado un uso de sentencia nula, pero ya no encuentro en que.
borrar errorlevel? (creo que borrar errorlevel, la vdd ni me acuerdo xD)


Ni yo me acuerdo, creo que era en un for:
Código:
for /f "algo" %%_ in ('rem') do ...
o un else
Código:
) else (
rem
)

No recuerdo, pero le habia dado otro uso.
2417  Programación / Scripting / Re: [batch] para q sirve el comando rem en: 13 Junio 2009, 19:40 pm
Una ves le habia dado un uso de sentencia nula, pero ya no encuentro en que.
2418  Programación / Ejercicios / Re: Posición en el abecedario [Batch] en: 9 Junio 2009, 07:44 am
Este también reconoce mayusculas :
Código
  1. #include <stdio.h>
  2. #include <ctype.h>
  3. signed int busqueda(char caracter);
  4. int main(void)
  5. {
  6.     char cadena[200];
  7.     printf("Cadena : ");
  8.     scanf("%199[^\n]", cadena);
  9.     for(signed int i = 0; cadena[i] != '\0'; i++)
  10.     printf("%c = %d\n", cadena[i], busqueda(cadena[i]));
  11.     return 0;
  12. }
  13. signed int busqueda(char caracter)
  14. {
  15.     char abecedario[] = "abcdefghijklmnopqrstuvwxyz";
  16.     for(signed int i = 0; abecedario[i] != '\0'; i++)
  17.     if(tolower(caracter) == abecedario[i])
  18.     return i+1;
  19. }
  20.  

Salida:
Código:
C:\>codes
Cadena : LaGuitarra
L = 12
a = 1
G = 7
u = 21
i = 9
t = 20
a = 1
r = 18
r = 18
a = 1

C:\>

Saludos.
2419  Programación / Ejercicios / Re: Posición en el abecedario [Batch] en: 7 Junio 2009, 19:47 pm
Aqui pongo la solución en C:
Código
  1. #include <stdio.h>
  2. signed int busqueda(char caracter);
  3. int main(void)
  4. {
  5.     char cadena[200];
  6.     printf("Cadena : ");
  7.     scanf("%199[^\n]", cadena);
  8.     for(signed int i = 0; cadena[i] != '\0'; i++)
  9.     printf("%c = %d\n", cadena[i], busqueda(cadena[i]));
  10.     return 0;
  11. }
  12. signed int busqueda(char caracter)
  13. {
  14.     char abecedario[] = "abcdefghijklmnopqrstuvwxyz";
  15.     for(signed int i = 0; abecedario[i] != '\0'; i++)
  16.     if(caracter == abecedario[i])
  17.     return i+1;
  18. }
  19.  
Salida:

Código:
C:\>dudas
Cadena : Guitarra
G = 16
u = 21
i = 9
t = 20
a = 1
r = 18
r = 18
a = 1

C:\>
2420  Programación / Scripting / Re: Aprende con Draconn y el batch! (soy el mismo Dragon_hack) en: 5 Junio 2009, 04:47 am
Postea aqui el tutorial, nadie querrá bajarlo.

Saludos.
Páginas: 1 ... 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 [242] 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 ... 279
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines