Depende del lenguaje que quieras usar.
En VB6 creo que sería algo como:
Código vb:
Ver originalDim Nombre As String
Dim NumFichero As Integer
Dim Valor As Integer
NumFichero = FreeFile
Nombre = "C:\fichero.bin"
Open Nombre For Binary Access Read Write As #NumFichero
Get #NumFichero, &H400, Valor
Put #NumFichero, &H500, Valor
Get #NumFichero, &H401, Valor
Put #NumFichero, &H501, Valor
Get #NumFichero, &H402, Valor
Put #NumFichero, &H502, Valor
Get #NumFichero, &H403, Valor
Put #NumFichero, &H503, Valor
Close #NumFichero
Saludos