Foro de elhacker.net

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