type TMBDVer = (
  {0} MMBuilder00,
  {1} MMBuilder5,
  {2} MMBuilder8,
  {3} MMBuilder10,
  {4} MMBuilder11,
  {5} MMBuilder13,
  {6} MMBuilder14,
  {7} MMBuilder15,
  {8} MMBuilder16,
  {9} MMBuilder17,
  {10} MMBuilder24,
  {11} MMBuilder25,
  {12} MMBuilder26,
  {13} MMBuilder27,
  {14} MMBuilder28,
  {15} MMBuilder29,
  {16} MMBuilder30);

var
   VerNum: array[TMBDVer] of string = (
  {0} '',
  {1} 'MMBuilder5',
  {2} 'MMBuilder8',
  {3} 'MMBuilder10',
  {4} 'MMBuilder11',
  {5} 'MMBuilder13',
  {6} 'MMBuilder14',
  {7} 'MMBuilder15',
  {8} 'MMBuilder16',
  {9} 'MMBuilder17',
  {10} 'MMBuilder24',
  {11} 'MMBuilder25',
  {12} 'MMBuilder26',
  {13} 'MMBuilder27',
  {14} 'MMBuilder28',
  {15} 'MMBuilder29',
  {16} 'MMBuilder30');

   VerDsc: array[TMBDVer] of string = (
  {0} 'Unknown (?)',
  {1} 'Unknown (MMBuilder5)',
  {2} 'Unknown (MMBuilder8)',
  {3} 'Unknown (MMBuilder10)',
  {4} '4.0\4.4',
  {5} '4.6\4.7',
  {6} '4.8.0.1\4.8.2\4.8.3',
  {7} 'Unknown (MMBuilder15)',
  {8} 'Unknown (MMBuilder16)',
  {9} '4.9.0.1',
  {10} 'Unknown (MMBuilder24)',
  {11} 'Unknown (MMBuilder25)',
  {12} 'Unknown (MMBuilder26)',
  {13} '4.9.5\4.9.6',
  {14} '4.9.7',
  {15} '4.9.8.5',
  {16} '4.9.8.13');

  CaptionOffset: array[TMBDVer] of DWORD = (
   {0} 0,
   {1} 11,
   {2} 47,
   {3} 52,
   {4} 52,
   {5} 56,
   {6} 56,
   {7} 56,
   {8} 56,
   {9} 56,
   {10} 56,
   {11} 56,
   {12} 56,
   {13} 56,
   {14} 56,
   {15} 56,
   {16} 56);

   PassOffset: array[TMBDVer] of DWORD = ( // пароль появился в версии 4.0 (?)
   {0} 0,
   {1} 0,
   {2} 0,
   {3} 0,
   {4} 16,
   {5} 16,
   {6} 16,
   {7} 16,
   {8} 16,
   {9} 16,
   {10} 16,
   {11} 16,
   {12} 16,
   {13} 16,
   {14} 16,
   {15} 16,
   {16} 16);

   PackedMBDOffset: array[TMBDVer] of DWORD = ( // SL - начиная с версии 4.6
   {0} 0,
   {1} 0,
   {2} 0,
   {3} 0,   
   {4} 0,   
   {5} 24,
   {6} 24,
   {7} 24,
   {8} 24,
   {9} 24,
   {10} 24,
   {11} 24,
   {12} 24,
   {13} 24,
   {14} 24,
   {15} 24,
   {16} 24);

function Analyze(FileName: string): Boolean;
var
   FLen: Byte;
   str: string;
   fs: PStream;
   MBDVer: string;
begin
   Result := False;
    
   // Очищаем запись
   MBDFile.Caption := '';
   MBDFile.Filename := '';
   MBDFile.HeaderLen := 0;
   MBDFile.Header := '';
   MBDFile.Offset := 0;
   MBDFile.PackedSize := 0;
   MBDFile.Password := '';
   MBDFile.SecureLayer := False;
   MBDFile.Size := 0;
   MBDFile.UnpackedSize := 0;
   MBDFile.Version := MMBuilder00;

   if not FileExists(Filename) then
   begin
     ShowMsg('Исходный файл не существует!', MB_OK or MB_ICONERROR or MB_TASKMODAL);
     Exit;
   end;
    
   MBDFile.Filename := Filename;
   MBDFile.Offset := GetImageSize(Filename);
   // Читаем поля версии
   if MBDFile.Offset <> 0 then FileVersionInfo(MBDFile.Filename);
   // Проверяем, сжат ли файл
   if MBDFile.Offset <> 0 then
   begin
     MBDFile.UPXStatus := usUnknown;
     str := GetDosOutput(GetStartDir + 'upx.exe', ' -t "' + Filename + '"');
     if FindInList(str, 'NotPackedException') then MBDFile.UPXStatus := usNotPacked else
       if FindInList(str, 'CantUnpackException') then MBDFile.UPXStatus := usUnknown else
         if FindInList(str, '[OK]') then MBDFile.UPXStatus := usPackedOk;
   end; //if

   fs := NewReadFileStream(Filename);
   MBDFile.Size := fs.Size;
   // Перемещаемся на смещение пректа
   fs.Position := MBDFile.Offset;
   // Читаем длину идентификатора и идентификатор
   fs.Read(MBDFile.HeaderLen, SizeOf(MBDFile.HeaderLen));
   SetLength(MBDVer, MBDFile.HeaderLen);
   fs.Read(MBDVer[1], MBDFile.HeaderLen);
   MBDFile.Header := MBDVer;
   // 1 ->
   if Copy(MBDVer, 1, 9) <> 'MMBuilder' then
     ShowMsg('Файл не является проектом MMB!', MB_OK or MB_ICONERROR or MB_TASKMODAL)
   else begin
     // Получаем версию проекта
     GetMBDVersion(MBDVer);
     //
     if MBDFile.Version = MMBuilder00 then
       ShowMsg('Файл имеет неподерживаемую версию!', MB_OK or MB_ICONERROR or MB_TASKMODAL)
     else begin
       Result := True;
       // Читаем флаг сжатия
       fs.Read(MBDFile.SecureLayer, SizeOf(MBDFile.SecureLayer));
       // Поправляем флаг, если используется версия 4.4
       if MBDFile.Version <= MMBuilder11 then MBDFile.SecureLayer := False;
       //
         if MBDFile.SecureLayer then
         begin
           // UnpackedSize, PackedSize
           try
             fs.Position := MBDFile.Offset + PackedMBDOffset[MBDFile.Version] - 8;
             fs.Read(MBDFile.UnpackedSize, SizeOf(MBDFile.UnpackedSize));
             fs.Read(MBDFile.PackedSize, SizeOf(MBDFile.PackedSize));
           finally end;
         end else begin
           // Получаем заголовок окна
           try
             fs.Position := MBDFile.Offset + CaptionOffset[MBDFile.Version];
             fs.Read(FLen, SizeOf(FLen));
             SetLength(MBDFile.Caption, FLen);
             fs.Read(MBDFile.Caption[1], FLen);
           finally end;

           // Пароль
           if MBDFile.Version >= MMBuilder11 then
           begin
             try
               // Получаем пароль
               fs.Position := fs.Position + PassOffset[MBDFile.Version];
               fs.Read(FLen, SizeOf(FLen));
               SetLength(MBDFile.Password, FLen);
               fs.Read(MBDFile.Password[1], FLen);
             finally end;

             // Декодируем пароль
             try
               MBDFile.Password := DecodePass(MBDFile.Password);
             finally end;
           end; //if             

         end; //if
     end; //if
   end; //if MBDFile.Version = MMBuilder00 then
   // <- 1

   fs.Free;
end;