Programa con su código fuente

[[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;

[[fer21unmsm]]

Empezado por 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;

Lo voy a probar, gracias man.

[pcicom]

Esta super tu codigo y lo que el hace....... sabes hace tiempo navegando por internet encrontre un programa que te servia para recuperar archivos borrados en el sistema... el codigo estaba en DELPHI, en ese entonces lo grabe en mi disco, pero con el paso del tiempo cambie de disco porque me fallo y este programa ya no lo he podido encontrar...

en fin...


bueno leyendo algo de lo que haces, me gustaria saber si conoces un metodo o la forma en como saber en que sector del disco esta grabado un archivo que yo eliga... posiscion, pista, sector y esas cosas...


desde ya gracias......

[[seoane]]

Empezado por pcicom

bueno leyendo algo de lo que haces, me gustaria saber si conoces un metodo o la forma en como saber en que sector del disco esta grabado un archivo que yo eliga... posiscion, pista, sector y esas cosas...

Bueno, no exactamente el sector pero si se una forma de averiguar en que clusters esta localizado el archivo. Aunque no entiendo muy bien para que necesitas esa información, si es para conocer lo fragmentado que esta un fichero esto es lo que buscas, si lo que quieres es hacer algún tipo de protección anticopia esto también te puede servir.

Código Delphi [-]
program Cluster;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

const
  FSCTL_GET_RETRIEVAL_POINTERS = $90073;

type
  Extent = record
    Vcn: int64;
    Lcn: int64;
  end;

  RETRIEVAL_POINTERS_BUFFER = record
    ExtentCount: Cardinal;
    StartingVcn: int64;
    Extents: array[0..0] of Extent;
  end;
  PRETRIEVAL_POINTERS_BUFFER = ^RETRIEVAL_POINTERS_BUFFER ;

procedure OutString(Str: string);
begin
  Writeln(Str);
end;    

procedure DumpFile(Filename: string);
var
  hFile: THandle;
  Buffer: array[1..512+2] of int64;
  StartVcn: Int64;
  ClusterList: PRETRIEVAL_POINTERS_BUFFER;
  Returned: Cardinal;
  Success: BOOL;
  LastError: Cardinal;
  i: integer;
begin
  hFile:= CreateFile(PChar(Filename),GENERIC_READ, FILE_SHARE_READ or
    FILE_SHARE_WRITE ,nil, OPEN_EXISTING,FILE_FLAG_NO_BUFFERING,0);
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    StartVcn:= 0;
    ClusterList:= @Buffer;
    repeat
      Success:= DeviceIOControl(hFile, FSCTL_GET_RETRIEVAL_POINTERS, @StartVcn,
        Sizeof(StartVcn),@Buffer, Sizeof(Buffer), Returned, nil);
      if Success then
        LastError:= 0
      else
        LastError:= GetLastError;
      if Success or (LastError = ERROR_MORE_DATA) then
      begin
        StartVcn:= ClusterList^.StartingVcn;
        for i:= 0 to ClusterList^.ExtentCount - 1 do
        begin
          OutString(Format('VCN: %d LCN: %d LEN: %d',[StartVcn, ClusterList^.Extents[i].Lcn,
            ClusterList^.Extents[i].Vcn - StartVcn]));
          StartVcn := ClusterList^.Extents[i].Vcn;
        end;
      end else OutString(SysErrorMessage(LastError));
    until LastError <> ERROR_MORE_DATA;
    CloseHandle(hFile);
  end else OutString(SysErrorMessage(GetLastError));
end;  

begin
  DumpFile(ParamStr(0));
  readln;
end.

El programa anterior muestra una lista con los cluster que pertenecen al archivo. VCN -> Virtual cluster, LCN -> Logic Cluster (el numero de cluster real, posiblemente el que te interesa), LEN -> Es el numero de clusters contiguos en ese trozo. Lo normal, sobre todo si el archivo es pequeño, es que todos los cluster del archivo sean contiguos, así que la lista solo tendrá una entrada. Busca un archivo muy fragmentado para probar la función y veras como te devuelve la posición de cada trozo.

Aquí te dejo el programa compilado y con el código fuente, listo para usar:

[[Lepe]]

¿habrá algo que este chico no pueda solucionar?
Él dice que sí... pero yo no me lo creo.


Vaya derroche de... de... yo que sé... no me salen las palabras....

Emilio: Muy buen punto ese de limitar a 10 el número de emoticones en cada mensaje jajaja, pero la verdad, a mí hoy se me han hecho pequeños .
Saludos

[dec]

Hola,

Empezado por Lepe

¿habrá algo que este chico no pueda solucionar?

Él dice que sí... pero yo no me lo creo.

Bueno. Gracias Lepe. Suelo decir que sí, ya sabes, por modestia y eso...