Hola,me gustaria saber como puedo abrir un archivo y localizar cierto offset y cierta parte hexadecimal comparandolas con unas de un texto.
Nose se que pido mucho jeje.O tambien localizando strings dentro de dicho archivo y despues compararlo para saber si es el mismo o no.
Lo intente hacer mediante md5,pero al modificar una misera parte dl fichero pues cambia por completo,y mediante crc no funciona muy bien.
Y no se me ocurren muchos mas metodos jee
Dim Archivo As String
Dim FF As Integer
Dim OffSet() As Byte
Dim fLen As Long
Archivo = "C:\Executable.exe"
FF = FreeFile
Open Archivo For Binary As FF
fLen = LOF(FF)
ReDim OffSet(fLen)
Get FF, , OffSet
Close FF
MsgBox "Contenido del OffSet 584: " & Hex$(OffSet(584)) ' Offset 584
Espero y te sirva Saludos!
Gracias,funciona de 10,aunque solo me abre ejecutables pero bueno jeje.
Intente añadir esto Hex$(OffSet(584) & (585)) para que me lea el ofset de al ladito,pero resulta que no me da el valor de al lado,sino una especie d suma de los offsets :S
Aun asi muchas gracias por el code,me ha servido de muchisimo.
y una ultima cosina,conocen algun tipo de algoritmo de identificacion estilo md5,sha1...que sea identificativo para cada archivo pero que no varie cuando cambio una misera letra d un texto y siga conservando parte de su esencia?¿ algo stilo crc,que si cambio algo sigue manteniendolo.
Gracias Gracias Gracias
Como que solo te abre ejecutables? :-\
No, te debe abrir todos (o casi todos), los tipos de archivos.
Archivo = "C:\otroarchivo.dat"
Archivo = "C:\otroarchivo.dll"
Archivo = "C:\otroarchivo.com"
Hex$(OffSet(584) & Hex$(OffSet((585)))
gracias funciona de lujo.
Salvo que si el archivo es demasiado pequeño no me lo da,pero no es problema.
Un Millon de gracias