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

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Mensajes
Páginas: 1 ... 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 [941] 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 ... 1236
9401  Informática / Software / Re: Software para convertir UTF-8 a UTF-16 LE? en: 14 Marzo 2013, 13:17 pm
Es tán fácil hacer las conversiones de codificación de texto en cualquier lenguaje de programación (menos en el limitado Batch xD) que me da pereza ponerme a buscarte por internet algún soft ya hecho, y encima de pago.

EDITO: Aunque hay una utilidad commandline (GRATIS) muy buena que se llama "nstringconverter 1.2" de "Guillaume", pero si no recuerdo mal creo que sólo convierte entre ASCII (ANSI), UTF16 y a Base64.

Aquí tienes una mini aplicación que acabo de hacer:



http://elektrostudios.tk/ansi-utf8-utf16.exe

PD: Si necesitas te la hago commandline para automatizar la taréa.
PD2: Si te ha sido útil ...me debes una xD.

Saludos!
9402  Programación / Scripting / Re: Donde falla este script. Alguien me puede ayudar?. Gracias. en: 14 Marzo 2013, 12:18 pm
Que lío tienes montado en las condicionales, pero de entre todo, hay una cosa que resaltar con creces:

Código
  1. :longitud
  2. if !num5! gtr -1 (
  3. goto compara4
  4. )
  5. if !num4! gtr -1 (
  6. goto compara3
  7. etc...
  8. )

No entiendo la lógica que se te ha pasado por la cabeza para realizar esas comparaciones, porque en ninguno de los casos la cifra podrá ser negativa (-1), el número que obtienes del substring siempre será positivo, así que esas comparaciones ni son necesarias ni se que intentas conseguir con eso reálmente.

EDITO: Si de ese pretendías saber si la variable estaba vacía podrías haber hecho:
Código:
if "!num1!"=="" (Goto..)
if "!num2!"=="" (Goto...)
o
Código:
if not defined num1 (goto...)
if not defined num2 (goto...)

Véo que no te sirvió de nada el ejemplo que te puse en este post: http://foro.elhacker.net/scripting/ayuda_con_dudas_de_programacion_batch-t384295.0.html;msg1832789#msg1832789

Código
  1. @Echo OFF
  2.  
  3. REM By Elektro H@cker
  4.  
  5. :: Esperar el input del usuario
  6. Set /P "Word=Introduce una palabra >> "
  7.  
  8. :: Obtener la longitud del input
  9. (ECHO "%WORD%">"%TEMP%\Word.txt" & FOR %%# IN ("%TEMP%\Word.txt") DO (SET /A "Word_Length=%%~z# - 5"))
  10.  
  11. :: Obtener el punto de separación del string
  12. Set /A "Word_Middle=%Word_Length% / 2"
  13.  
  14. :: Setear las variables de las comparaciones
  15. Call Set "Compare_A=%%WORD:~0,%Word_Middle%%%"
  16. Call Set "Compare_B=%%WORD:~-%Word_Middle%%%"
  17.  
  18. :: Revertir la variable "Compare_B"
  19. FOR /L %%X in (1,1,%Word_Middle%) DO (Call Set "Compare_B_REVERSED=%%Compare_B_REVERSED%%%%Compare_B:~-%%X,1%%")
  20.  
  21. :: Comparar y mostrar el resultado
  22. IF "%Compare_A%" EQU "%Compare_B_REVERSED%" (
  23. Echo El string es palindromo.    | MORE
  24. ) ELSE (
  25. Echo El string no es palindromo. | MORE
  26. )
  27.  
  28. Pause&Exit



Bueno, aquí tienes algo mucho más sencillo siguiendo la línea de tu ejercicio:

Código
  1. @Echo off
  2. title Ejercicio 9. Numeros Capicua
  3.  
  4. :comienzo
  5. Set "numero="
  6. Cls
  7. echo ===========================================
  8. echo          Numero Capicua o no....
  9. echo ===========================================
  10. Set /P "numero=Introduce un numero menor de 5 cifras >> "
  11. if not defined numero (GOTO :error)
  12. if %numero% GTR 99999 (GOTO :error)
  13.  
  14. :longitud
  15. if %numero% LEQ     9 (Call :Comparar %numero:~0,1% %numero:~0,1%)
  16. if %numero% LEQ    99 (Call :Comparar %numero:~0,1% %numero:~1,1%)
  17. if %numero% LEQ   999 (Call :Comparar %numero:~0,1% %numero:~2,1%)
  18. if %numero% LEQ  9999 (Call :Comparar %numero:~0,1%%numero:~1,1% %numero:~3,1%%numero:~2,1%)
  19. if %numero% LEQ 99999 (Call :Comparar %numero:~0,1%%numero:~1,1% %numero:~4,1%%numero:~3,1%)
  20. GOTO :comienzo
  21.  
  22. :error
  23. echo ERROR! Numero incorrecto.
  24. goto :comienzo
  25.  
  26. :comparar                    
  27. if %1 equ %2 (echo El numero introducido es Capicua.) else (echo El numero introducido no es Capicua.)
  28. GOTO:comienzo

Saludos.
9403  Programación / Scripting / Re: como bloquear el acceso a diferentes paginas web por medio del comando .bat en: 14 Marzo 2013, 03:47 am
Es tán fácil como esto:

Código
  1. @Echo OFF
  2. :Hosts
  3. Set /P "URL=Pagina a bloquear >>"
  4. If not "%URL%" EQU "" (Echo 127.0.0.1 %URL%>>"%windir%\system32\drivers\etc\hosts") ELSE (GOTO :HOSTS)
  5. Choice /M "Mas?"
  6. If %ERRORLEVEL% EQU 1 (GOTO :HOSTS) ELSE (Exit)

Saludos.
9404  Informática / Software / Re: Dos veces al botón Apagar para que se apague pc en: 13 Marzo 2013, 14:00 pm
Puede ser que tengas algunos programas que usen mucha memoria y por eso se clave

se pudiera presentar el problema que por la cantidad de procesos que tiene el equipo tarde en ejecutar el reinicio o apagado

Normalmente el SO te notifica de que hay programas que necesitan cerrarse antes del apagado.

Se puede activar un parámetro llamado "AutoEndTasks" para modificar (disminuir) el tiempo máximo de espera para cerrar todas las aplicaciones y servicios en el apagado del sistema, así que si ese fuese el problema, esto debería solucionarlo:

Código:
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Desktop]

' Activar/desactivar AutoEndTasks
"AutoEndTasks"="1"

' AutoEndTasks: Aplicaciones
"HungAppTimeout"="2500"
"WaitToKillAppTimeout"="5000"

' AutoEndTasks: Servicios (de Microsoft)
"WaitToKillServiceTimeout"="1000"

Instrucciones: Aplica el script de registro, reinicia 1 vez para que los cambios tnegan efecto, y luego prueba a reiniciar de nuevo de esta manera.

También podría ser que tuvieras problemas con el PageFile (Cuando Windows se cierra hace cambios en el arrchivo PageFile.sys y quien sabe...podrías tenerlo corrupto o podría tardar más de la cuenta por algún motivo quizás si has agrandado apropósito el archivo PageFile.sys unos cuantos GB de más), así que no te vendría mal aplicar también este script, para que en el apagado no se hagan cambios en el archivo del PageFile.sys:

Código:
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"ClearPageFileAtShutdown"=dword:00000000
EDITO: Creo que por defecto en una instalación limpia de Windows está desactivada la limpieza de del pagefile, pero por si acaso úsalo.
EDITO 2: O diréctamente puedes probar a desactivar el archivo de paginación de la memória virtual.

Saludos.
9405  Programación / Scripting / Re: Batch para listar archivos de una unidad en: 12 Marzo 2013, 14:00 pm
(Quiero, quiero, y lo quiero todo hecho...)

Hacer eso en Batch es una locura, más que nada si se trata de un Disco duro y estuviese más o menos LLENO, por el consumo de tiempo que tardarían dichas operaciones (Listar + ordenar), no puedes ordenar natívamente por fecha de creación (Sólo de modificación), ni tampoco puedes ordenar números por el método burbuja, así que hay que hacer malabares para ordenar fechas y tamaños, esto es Batch, un "lenguaje" limitado, hay que usarlo por otros medios que consumen más tiempo.

Diréctamente yo te iría recomendando que lo hicieras en cualquier otro lenguaje, pero bueno, aquí tienes para empezar en Batch:

Método básico:
Código
  1. @Echo OFF
  2.  
  3. :: By Elektro H@cker
  4.  
  5. Echo Sort files by...       | MORE
  6. Echo [1] Full path
  7. Echo [2] Modified date
  8. Echo [3] FileSize     | MORE
  9.  
  10. Choice /C 123
  11.  
  12. IF "%ERRORLEVEL%" EQU "1" (DIR /B /S /A-D /ON "*")
  13. IF "%ERRORLEVEL%" EQU "2" (DIR /B /S /A-D /OD "*")
  14. IF "%ERRORLEVEL%" EQU "3" (DIR /B /S /A-D /OS "*")
  15.  
  16. Pause&Exit

Método avanzado:

Código:
@Echo OFF
SetLocal EnableDelayedExpansion

MODE CON COLS=999 LINES=999

:: By Elektro H@cker

Echo Sort files by... | MORE
Echo [1] Path
Echo [2] Date
Echo [3] FileSize     | MORE

Choice /C 123

Set "Sorting=%ERRORLEVEL%"

Echo [+] Listing files... | MORE
DIR /B /S /A-D "*" > "%TEMP%\FileList_Unsorted.tmp"

Echo [+] Sorting files... | MORE

:: Path
IF "%Sorting%" EQU "1" (
(For /F "Tokens=* usebackq" %%# in ("%TEMP%\FileList_Unsorted.tmp") Do (Echo %%#))>"%TEMP%\FileList_Sorted.tmp"
)

:: Date
IF "%Sorting%" EQU "2" (
(For /F "Tokens=* usebackq" %%# in ("%TEMP%\FileList_Unsorted.tmp") Do (
   SET "Date=%%~t#"
   SET "Date=!DATE:~6,4!-!DATE:~3,2!-!DATE:~0,2!"
   Echo !DATE! ^| %%#
    ))>"%TEMP%\FileList_Sorted.tmp"
)

:: Size
IF "%Sorting%" EQU "3" (
Set /A "Bubble_MAX=0"

(For /F "Tokens=* usebackq" %%# in ("%TEMP%\FileList_Unsorted.tmp") Do (
Echo %%~z# ^| %%#
ECHO %%~z# >"%TEMP%\FileSize.tmp"
FOR %%X IN ("%TEMP%\FileSize.tmp") DO (SET /A "Number_Length=%%~zX-3")
If !Number_Length! GTR !Bubble_MAX!   (Set /A "Bubble_MAX=!Number_Length!")
)))>"%TEMP%\FileList_Sorted.tmp"

    :: Zero fill
(FOR /F "Tokens=1,* usebackq Delims= " %%X in ("%TEMP%\FileList_Sorted.tmp") DO (
   Echo %%X >"%TEMP%\FileSize.tmp"
   FOR %%X IN ("%TEMP%\FileSize.tmp") DO (SET /A "Number_Length=%%~zX-3")
       IF NOT !Number_Length! EQU !Bubble_MAX! (
       Set /A "Zero_Count=!bubble_Max!-!Number_Length!"
       For /L %%@ in (1,1,!Zero_Count!) do (SET "Zero_Fill=0!Zero_Fill!")
       SET "Number_Filled=!Zero_Fill!%%X"
       Echo !Number_Filled! %%Y
       SET "Zero_Fill="
       ) ELSE (Echo %%X %%Y)
    ))>"%TEMP%\FileList_Bubble_Sorted.tmp"
)

ENDLOCAL

:Show_List
Echo [+] Showing files... | MORE
(Type "%TEMP%\FileList_Bubble_Sorted.tmp" || Type "%TEMP%\FileList_Sorted.tmp") | SORT
Pause&Exit

Imagen de este último script:




Saludos
9406  Informática / Hardware / Re: impresora con tinta no imprime en: 11 Marzo 2013, 19:18 pm
Gracias pero nada, no ha funcionado, tendré que ir pensando en actualizarla... xD

Saludos
9407  Programación / Scripting / Re: Problema batch en: 11 Marzo 2013, 12:00 pm
@viperx666
El script de Almapa no te funcionaba porque hay un error en el foro al postear códigos que usan el caracter de exclamación "!" y usar la etiqueta DOS de GeShi, ha sido error mío, ya he modificado de nuevo el formato del código de Almapa, ahora debería funcionar.

Sobre lo de explicarte cada línea... pues sincéramente no lo voy a hacer por una sencilla razón, y es da la sensación de que no quieres aprender y que sólo quieres tener una chuleta preparada, te lo han dado todo hecho, ahora puedes esforzarte un poco en buscar información acerca de cada comando usado en el script...

Bueno, aquí tienes la epxlicación: http://foro.elhacker.net/empty-t384295.0.html
(Si hubiera sabido que ese otro usuario buscaba una chuleta para hacer el mismo trabajo no habría explicado nada xD)

Más info:
> (Tema bloqueado hasta finalizar el tuto) Tutorial extendido de aprendizaje Batch
> http://ss64.com/nt/syntax.html

Un saludo
9408  Informática / Hardware / impresora con tinta no imprime en: 11 Marzo 2013, 09:56 am
tengo una Canon Pixma Ip1800 con sus drivers correctos (siempre he usado el mismo driver) en Windows 7, los cartuchos tienen tinta porque me ha soltado un chorro en la mano xD, pero la impresora no me imprime, bueno, imprime las hojas mal, es decir, quizás empieza a imprimir el color negro pero luego todo el resto de la hoja queda complétamente blanca, sin imprimirse, ni en color ni en blanco y negro.

Los inyectores creo que estan bien, no lo sé, he realizado todos los tests de mantenimiento/limpieza de la impresora con el software pero sigue sin imprimirme nada.

¿A alguien se le ocurre algo?
9409  Programación / Scripting / Re: Problema batch en: 11 Marzo 2013, 03:15 am
Esto lo solucioné hace poco, usa el buscador:

http://foro.elhacker.net/programacion_general/ayuda_para_realizar_2_programas_en_batch-t383910.0.html

Saludos
9410  Programación / .NET (C#, VB.NET, ASP) / Ayuda para crear y poder usar un Knob desde cero, a lo cutre. en: 10 Marzo 2013, 13:02 pm
Hola

Antes de nada, para quien no lo sepa, esto es un Knob:



Actualmente uso un control Knob de terceros, pero con ninguna opción de customización, y me gustaría poder crear mi propio Knob así podría usar el Skin que yo quisiera (el de la imagen por ejemplo, es un PSD).

Me gustaría usar el Knob que muestro en la imagen, eso sólo es un diseño en Photoshop, pero bueno, al menos eso ya lo tengo, el diseño.

No busco hacer nada profesional, porque no tengo los conocimientos necesarios para heredar un control (Que para empezar, no se me ocurre cual) y customizarlo hasta el punto de hacer un knob, así que yo preferiría tirar al modo cutre usando pictureboxes o algo parecido (un picturebox por cada lucecita y un picturebox central para la rueda, por ejemplo)

El tema de las lucecitas azules y el skin ya lo tengo hecho, pero bien, ¿Como le doy vida a esto?, es decir, ¿Como haría para poder girar la rueda del knob con las mismas características como si se tratase de un TrackBar?, lo que quiero decir es... como le hago para que quedase igual de funcional que este Knob de terceros que estoy usando:



Muy a malas y todavía más cutre pero es una posibilidad, podría seguir utilizando el Knob del video pero reemplazando la imagen de la rueda blanca por la rueda negra del diseño que quiero, pero claro, si pongo una imagen encima del control, pierdo la funcionalidad del control (al pinchar en el picturebox no estoy pinchando en el Knob, así que la rueda no giraría), y no sé como añadir un handle al picturebox encima del control para que pudiese funcionar como quiero... ¿Me entienden?

Con que me digan por donde empezar me sería útil, no sé por donde cojerlo... sólo me imagino que tendré que usar el evento "hoverMouse", pero no sé como hacer para rotar la rueda... como en el Knob del video.

Esto me parece complicado, ¿Alguna ayuda?

Gracias por leer.
Páginas: 1 ... 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 [941] 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines