Foro de elhacker.net

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

Podrías hacer algo como esto.

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal L As Long)
 
Private Sub Form_Load()
Dim file As String
Dim datos() As Byte
file = "C:\Users\Pink\Desktop\1.txt" 'tu archivo a cargar
Open file For Binary As #1
ReDim datos(LOF(1) - 1)  ' LOF(1) - 1 numero de offset de tu archivo
Get #1, , datos  ' obtenemos tu archivo en un array de byte
Close #1
 
'aqui seria el numero del offset
'datos(0) =  offset 0
 
Call CopyMemory(datos(0), Asc("h"), 1) ' aqui copiamos la letra h a nuestro offset 0 1 byte
'si quieres copiar 30 bytes seria algo asi
'Dim bytes2() As Byte
'bytes2() = StrConv("XXXXXXXXXXXXXXXXXXXXXXXXXXXX", vbFromUnicode)
'Call CopyMemory(datos(0), bytes2(0), 30)
 
Open file For Binary As #1
Put #1, , datos
Close #1
 
 
 
End Sub

saludos