Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: NsTeam en 16 Enero 2010, 00:15 am



Título: Ayuda con Hex
Publicado por: NsTeam en 16 Enero 2010, 00:15 am
hola a todos

tengo una duda con visualizar una imagen en visual basic
pero a la vez ver su codigo hexadecimal...
modificarlo y guardarlo

nose si me explico, les dejo una imagen del proyecto que quiero hacer

(http://www.mundoimg.com/imagenes/otros/223340_mundoimg_xd.jpg)

quiero abrir una imagen y en el textbox se vea su codigo hexadecimal

poder modificar ese codigo y luego poder guardarlo...

 :)

como podria hacerlo... talves alguien tenga alguna guia o ayuda q pueda compartir
conmigo :D

gracias de antemano


Título: Re: Ayuda con Hex
Publicado por: seba123neo en 16 Enero 2010, 00:58 am
proba:

Convert image to Hex (http://www.vbforums.com/showthread.php?t=484987)


Título: Re: Ayuda con Hex
Publicado por: NsTeam en 16 Enero 2010, 01:08 am
aver si lo tradusco y consigo algo

muchas gracias por responder


Título: Re: Ayuda con Hex
Publicado por: NsTeam en 16 Enero 2010, 16:34 pm
Como que me hice bolas  :-\

alguien podria ayudarme con esto

es que no se bien trabajar con Hex... :huh:


Título: Re: Ayuda con Hex
Publicado por: MCKSys Argentina en 17 Enero 2010, 04:50 am
Hola!

El link de seba123neo no tiene otra cosa mas que la lectura del archivo de imagen en una matriz de bytes, y luego la conversion de dicha matriz a cadena de caracteres. La conversion la hace representando cada byte de la matriz, como valor hexadecimal.

Ahora... ¿ es eso lo que quieres hacer ?. ¿ Solamente cargar un archivo de imagen en un array de bytes y despues convertir dichos bytes en una cadena Hexa?

Saludos!


Título: Re: Ayuda con Hex
Publicado por: Snopk en 17 Enero 2010, 21:18 pm
Hola!

El link de seba123neo no tiene otra cosa mas que la lectura del archivo de imagen en una matriz de bytes, y luego la conversion de dicha matriz a cadena de caracteres. La conversion la hace representando cada byte de la matriz, como valor hexadecimal.

Ahora... ¿ es eso lo que quieres hacer ?. ¿ Solamente cargar un archivo de imagen en un array de bytes y despues convertir dichos bytes en una cadena Hexa?

Saludos!

De seguro también quiere editar el código hexadecimal y guardar los cambios. En el mismo enlace que posteo seba123neo, mas abajo se encuentra la función "Hex2ByteArr" para convertir de cadena de caracteres a matriz de bytes para que lo guardes los cambios en la imagen. Luego luego podrías cargar de nuevo la imagen en el PictureBox para visualizar los cambios.
 :rolleyes:


Título: Re: Ayuda con Hex
Publicado por: BlackZeroX en 18 Enero 2010, 00:25 am
mira mi post de HexAndString

copea y mete en un podulo despues mete este codigo:

Código
  1.  
  2. Sub main()
  3. Dim Datos       As String
  4. Dim ff          As Integer
  5. Const Ruta      As String = "c:\archivox.txt"
  6.    ff = FreeFile
  7.    Open Ruta For Binary As ff
  8.        Datos = Space(LOF(ff) )
  9.        Get ff, , Datos
  10.    Close ff
  11.    MsgBox Datos
  12.    MsgBox HexAndString(Datos, StringToHex)
  13. End Sub
  14.  
  15.  

Dulces Lunas!¡.


Título: Re: Ayuda con Hex
Publicado por: NsTeam en 18 Enero 2010, 15:06 pm
gracias a todos por responder



De seguro también quiere editar el código hexadecimal y guardar los cambios.


exactamente eso  :)

pero en el link q puso seba123neo

como que no logro entender ese code

Stoy un Poko bajo en esto... :-\


Título: Re: Ayuda con Hex
Publicado por: NsTeam en 27 Enero 2010, 15:04 pm
hola

weno me sirvio de mucha ayuda seba123neo

ya pude leer una imagen ...



Título: Re: Ayuda con Hex
Publicado por: MCKSys Argentina en 27 Enero 2010, 22:00 pm
Hola!

Puedes probar algo asi:

Código:
Dim Matriz() as byte
Dim ruta as string

Matriz =Hex2ByteArr(text1.text)
ruta = app.path + "\imagen.bin"
open ruta for binary access write as #1
put #1,, Matriz
close #1

Saludos!