Sustituir bytes de un binario

[aguml]

Buenas, quiero sustituir un byte concreto en una dirección concreta del archivo.
La cosa es que no se exactamente cómo hacer eso o si estoy obligado a volcar el archivo completo en memoria y hacer ahí los cambios.
Si es así me imagino que una buena opción es usar TMemoryStream pero no sé bien cómo hacerlo. ¿Alguna ayuda que me ponga en la buena dirección?

[ecfisa]

Hola.

Código PHP:

void replaceByte(const AnsiString &aFilename, const unsigned char &Byte,
  const unsigned int &position)
{
  TFileStream *stream;

  stream = new TFileStream(aFilename, fmOpenWrite);
  try
  {
    stream->Seek(position, soBeginning);
    stream->Write(&Byte, sizeof(Byte));
  }
  __finally
  {
    delete stream;
  }
} 


Saludos

[aguml]

Muchas gracias.
Eso sería para escritura en binario ¿Verdad?
Supongo que es el equivalente a fwrite de C y Write de fstream de C++ ¿No?
Otra cosa, ¿Sabes si los nuevas versiones de embarcadero ya traen alguna librería para calcular crc32, MD5 y similares?

[aguml]

También recuerdo que había una función para hacer duplicado del archivo pero no recuerdo cuál. CopyFile o algo así me suena. ¿Sabrías decirme?

[[escafandra]]

Si tienes localizado el offset del BYTE que quieres sobrescribir, puedes hacerlo sin necesidad de leer todo el fichero. Esto te lo permiten las funciones de fichero de C y la API de Windows. Si prefieres la API mira esto: SetFilePointer. Para copiar un fichero: CopyFile


Las funciones criptográficas de windows te permiten calcular el Hash MD5. Aquí tienes un ejemplo para calcular el MD5 de un fichero: GetMD5FromFile.




Saludos.