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

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [DUDA] Abrir y cambiar valores hexadecimales
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [DUDA] Abrir y cambiar valores hexadecimales  (Leído 1,951 veces)
peperote

Desconectado Desconectado

Mensajes: 1


Ver Perfil
[DUDA] Abrir y cambiar valores hexadecimales
« en: 20 Enero 2013, 16:21 pm »

buenas

me gustaria que me pueiderais solucionar la duda de como podria abrir y modificar valores hexadecimales de un archivo .bin, tengo un nivel basico de este lenguaje asique espero que me ayudeis, gracias


En línea

Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: [DUDA] Abrir y cambiar valores hexadecimales
« Respuesta #1 en: 21 Enero 2013, 15:42 pm »

Podrías hacer algo como esto.

Código
  1. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal L As Long)
  2.  
  3. Private Sub Form_Load()
  4. Dim file As String
  5. Dim datos() As Byte
  6. file = "C:\Users\Pink\Desktop\1.txt" 'tu archivo a cargar
  7. Open file For Binary As #1
  8. ReDim datos(LOF(1) - 1)  ' LOF(1) - 1 numero de offset de tu archivo
  9. Get #1, , datos  ' obtenemos tu archivo en un array de byte
  10. Close #1
  11.  
  12. 'aqui seria el numero del offset
  13. 'datos(0) =  offset 0
  14.  
  15. Call CopyMemory(datos(0), Asc("h"), 1) ' aqui copiamos la letra h a nuestro offset 0 1 byte
  16. 'si quieres copiar 30 bytes seria algo asi
  17. 'Dim bytes2() As Byte
  18. 'bytes2() = StrConv("XXXXXXXXXXXXXXXXXXXXXXXXXXXX", vbFromUnicode)
  19. 'Call CopyMemory(datos(0), bytes2(0), 30)
  20.  
  21. Open file For Binary As #1
  22. Put #1, , datos
  23. Close #1
  24.  
  25.  
  26.  
  27. End Sub

saludos


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con Valores Hexadecimales creo...
Programación Visual Basic
hacksoft 7 3,763 Último mensaje 2 Septiembre 2005, 18:51 pm
por hacksoft
[Guía] SQLi (Modificando un PHP con valores Hexadecimales)
Nivel Web
Demonic&Sound 0 3,408 Último mensaje 21 Diciembre 2009, 17:03 pm
por Demonic&Sound
duda con valores hexadecimales
Programación C/C++
mosh564 1 2,486 Último mensaje 26 Agosto 2010, 02:57 am
por Mr.Blue
Buscar valores hexadecimales « 1 2 »
Programación Visual Basic
Pegano25 11 8,825 Último mensaje 9 Julio 2011, 20:08 pm
por Pegano25
Trabajar con valores hexadecimales
Java
.:UND3R:. 1 2,579 Último mensaje 22 Noviembre 2013, 17:07 pm
por egyware
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines