Programa con su código fuente

[[fer21unmsm]]

Hola Seoane, está muy interesante lo que hace tu programa, sabes algo sobre el MBR (Master Boot Record), lo que quiero hacer es una aplicación que repare los MBR, si tuvieras alguna información, te lo agradecería.

Saludos y gracias anticipadas.

[[seoane]]

Antes de nada, tengo mis dudas sobre si trastear con el MBR desde windows sea buena idea. Pero que demonios, mientras no arda ...

En principio el MBR es el primer sector del disco, es decir los primeros 512 bytes. Simplemente con el programa Dump que pongo mas arriba podriamos copiarlo, escribirlo ya es una operacion mas complicada y peligrosa.

A modo de prueba, teclea lo siguiente:

  dump /d \\.\Physicaldrive0 > c:\imagen.bin

Esto crea una imagen del primer disco duro, Physicaldrive1 para el segundo, etc. Fíjate que estoy hablando de discos duros y no de particiones.

  \\.\Physicaldrive0  --> Primer disco duro
  \\.\C: --> Primera particion

Cuando ejecutamos el comando anterior, como mi programa esta preparado para crear imágenes enteras, se pondrá a copiar cientos de sectores por segundo como un loco así que pulsa Ctrl+C para pararlo. Ahora el archivo C:\imagen.bin contienen los primeros sectores del disco duro. Los que nos interesan son los primeros 512 bytes que corresponden al MBR. Como te dije esta es una forma un poco cutre de hacerlo, solo es una demostracion.

Ahora es cuando explico como funciona. Si conoces C y le has echado un vistazo al código ya tendrás una idea de como trabaja el programa. Es muy simple la API CreateFile permite abrir un disco como si se tratara de un archivo, y utilizar las API WriteFile y ReadFile para escribir y leer. La única limitación es que siempre se debe leer y escribir un numero de bytes múltiplo del tamaño del sector, es decir, si cada sector mide 512 bytes, puedes leer 512, 1024, 2048, etc pero no 1000 bytes.

Después de todo este rollo, podemos sacar en claro que utilizando CreateFile y ReadFile puedes leer los primeros 512 Bytes, el MBR, y usando WriteFile podemos escribirlo. El problema es que tienes el MBR roto como vas a iniciar windows y así ejecutar el programa de recuperación aunque una aplicación útil/divertida es copiar el MBR del disco duro y grabarlo en el primer sector de un disquete. Si el sector de arranque se estropea solo tienes que insertar el disquete y arrancar el equipo, el MBR hace su trabajo y arranca el sistema.

Por hoy ya solté mucho rollo, si el tema te interesa podemos seguir hablando.

[[seoane]]

Aquí te dejo todo lo necesario para copiar el MBR al primer sector de un disquete, de esta manera podremos arrancar el sistema en caso de emergencia. En este caso el código esta en delphi:

Código Delphi [-]
function LeerMBR(Drive: Integer; Sector: Pointer): Boolean;
var
  hDisk: THandle;
  BytesRead: DWORD;
begin
  Result:= FALSE;
  hDisk:= CreateFile(PChar('\\.\Physicaldrive' + IntToStr(Drive)),GENERIC_READ,
    FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_FLAG_SEQUENTIAL_SCAN,0);
  if hDisk <> INVALID_HANDLE_VALUE then
  begin
    if ReadFile(hDisk,Sector^,512,BytesRead,nil) then
      Result:= BytesRead = 512
    else ShowMessage(SysErrorMessage(GetLastError));
    CloseHandle(hDisk);
  end else ShowMessage(SysErrorMessage(GetLastError));
end;

function EscribirMBR(Letra: Char; Sector: Pointer): Boolean;
var
  hDisk: THandle;
  BytesWritten: DWORD;
begin
  Result:= FALSE;
  hDisk:= CreateFile(PChar('\\.\' + Letra + ':'),GENERIC_WRITE,FILE_SHARE_READ,
    nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if hDisk <> INVALID_HANDLE_VALUE then
  begin
    if WriteFile(hDisk,Sector^,512,BytesWritten,nil) then
      Result:= BytesWritten = 512
    else ShowMessage(SysErrorMessage(GetLastError));
    CloseHandle(hDisk);
  end else ShowMessage(SysErrorMessage(GetLastError));
end;


var
  Buffer: array[1..512] of Byte;
begin
  // Leemos el primer sector del primer disco duro
  if LeerMBR(0,@Buffer) then
    // Lo copiamos al primer sector del disquete A
    if EscribirMBR('A',@Buffer) then
      ShowMessage('El sector se ha copiado al disquete');
end;

Con esto creo que ya se puede hacer una utilidad de rescate bastante resultona. ¿Que te parece?

[dec]

Hola,

Seoane, hombre, todo lo que has comentado es muy interesante y puede resultar muy útil. ¿Porqué no publicas en el apartado de Trucos el par de funciones anterior? Más aún, ¿porqué no publicas en el apartado de Trucos tu anterior mensaje (por lo menos) al completo? NO es que te critique el que no lo publiques, es una forma de decirte, ¡publícalo, que está muy bien!

[[seoane]]

Dec, lo que pasa es que entiendo que en la sección de trucos se debe publicar código probado y seguro, en este caso probado si esta, el jueguecito de copiar el MBR a un disquete y arrancar desde ahí ya lo he echo varias veces. Pero seguro, ya no es tan seguro, si no se sabe lo que se esta haciendo trastear con el MBR puede dejarnos sin el arranque del sistema.

fer21unmsm por otros mensajes que ha publicado parece que le gusta experimentar, por eso le paso el código, no sin antes advertirle del riesgo que conlleva. De todas formas, deja que lo ponga todo un poco mas bonito, y ya lo publico.

EDITO: Ya está publicado: truco 356

[dec]

Hola,

Bueno. Yo creo que avisando en los trucos tal y como has hecho aquí... por eso decía de que publicaras todo tu mensaje anterior, porque me parecía curioso, pero, para que también quedara claro que se trata de algo que puede hacerse, pero, que hay que saber lo que se hace, que el que avisa no es traidor, vamos.

[[fer21unmsm]]

Empezado por seoane

Dec, lo que pasa es que entiendo que en la sección de trucos se debe publicar código probado y seguro, en este caso probado si esta, el jueguecito de copiar el MBR a un disquete y arrancar desde ahí ya lo he echo varias veces. Pero seguro, ya no es tan seguro, si no se sabe lo que se esta haciendo trastear con el MBR puede dejarnos sin el arranque del sistema.

fer21unmsm por otros mensajes que ha publicado parece que le gusta experimentar, por eso le paso el código, no sin antes advertirle del riesgo que conlleva. De todas formas, deja que lo ponga todo un poco mas bonito, y ya lo publico.

EDITO: Ya está publicado: truco 356

Jeje, si tienes razón me gusta investigar y experimentar, claro!! me gustaría hablar sobre este tema que es muy interesante en la universidad llevé un curso llamado sistemas operativos, donde nos explicaron un poco sobre el DIsco Duro (MBR, FAT, etc). Bueno tambien hay que tener en cuenta que el sector varía dependiendo del formateo que se le haga, segun he leído por ahí dicen que el mbr ocupa el primer sector del HHDD, como lo comentastes en tu post anterior, pero si el formato varia, entonces el tamaño del sector varía, por tanto supongo que el MBR varía dependiendo del tamaño del sector o no es así?.

Bueno, espero que podamos seguir comentando sobre este tema, yo trataré de aportar algo con mis pobres conocimientos, aunque estoy repasando, algunas cositas.

PD: Si llego a desarrollar el aplicativo, que repare el MBR, lo voy a postear.

Saludos y a seguir investigando y comentando este post tan bonito, y tambien se agradece por los aportes y el interes brindados por ustedes.

Bytes.

[[seoane]]

Nunca había oído hablar de un MBR que no midiera 512 bytes, pero hay muchas cosas que desconozco. Aunque lo que si se es que el tamaño del sector depende de la geometría del disco y no del formateo que se haga del mismo, aunque también puedo estar equivocado

De todas formas si ese es todo el problema lo solucionamos fácilmente averiguando el tamaño del sector y actuando en consecuencia:

Código Delphi [-]
type
  DISK_GEOMETRY = record
    Cylinders: LARGE_INTEGER;
    MediaType: Integer;
    TracksPerCylinder: DWORD;
    SectorsPerTrack: DWORD;
    BytesPerSector: DWORD;
  end;

const
  IOCTL_DISK_GET_DRIVE_GEOMETRY = 458752;

function GetBytesPerSector(Drive: Integer): DWORD;
var
  hDisk: THandle;
  Geometry: DISK_GEOMETRY;
  Returned: DWORD;
begin
  Result:= 0;
  hDisk:= CreateFile(PChar('\\.\Physicaldrive' + IntToStr(Drive)),GENERIC_READ,
    FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_FLAG_SEQUENTIAL_SCAN,0);
  if hDisk <> INVALID_HANDLE_VALUE then
  begin
    FillChar(Geometry,Sizeof(Geometry),0);
    if DeviceIoControl(hDisk,IOCTL_DISK_GET_DRIVE_GEOMETRY,nil,0,@Geometry,
      sizeof(Geometry),Returned,nil) then
     Result:= Geometry.BytesPerSector
    else ShowMessage(SysErrorMessage(GetLastError));
    CloseHandle(hDisk);
  end else ShowMessage(SysErrorMessage(GetLastError));
end;