root/ext/fileinfo/libmagic/readcdf.c

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. cdf_clsid_to_mime
  2. cdf_app_to_mime
  3. cdf_file_property_info
  4. cdf_file_summary_info
  5. file_trycdf

   1 /*-
   2  * Copyright (c) 2008 Christos Zoulas
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  15  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  16  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  18  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  19  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  20  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  21  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  22  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  23  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  24  * POSSIBILITY OF SUCH DAMAGE.
  25  */
  26 #include "file.h"
  27 
  28 #ifndef lint
  29 FILE_RCSID("@(#)$File: readcdf.c,v 1.40 2014/03/06 15:23:33 christos Exp $")
  30 #endif
  31 
  32 #include <stdlib.h>
  33 #ifdef PHP_WIN32
  34 #include "win32/unistd.h"
  35 #else
  36 #include <unistd.h>
  37 #endif
  38 #include <string.h>
  39 #include <time.h>
  40 #include <ctype.h>
  41 #if defined(HAVE_LOCALE_H)
  42 #include <locale.h>
  43 #endif
  44 
  45 #include "cdf.h"
  46 #include "magic.h"
  47 
  48 #define NOTMIME(ms) (((ms)->flags & MAGIC_MIME) == 0)
  49 
  50 static const struct nv {
  51         const char *pattern;
  52         const char *mime;
  53 } app2mime[] =  {
  54         { "Word",                       "msword",               },
  55         { "Excel",                      "vnd.ms-excel",         },
  56         { "Powerpoint",                 "vnd.ms-powerpoint",    },
  57         { "Crystal Reports",            "x-rpt",                },
  58         { "Advanced Installer",         "vnd.ms-msi",           },
  59         { "InstallShield",              "vnd.ms-msi",           },
  60         { "Microsoft Patch Compiler",   "vnd.ms-msi",           },
  61         { "NAnt",                       "vnd.ms-msi",           },
  62         { "Windows Installer",          "vnd.ms-msi",           },
  63         { NULL,                         NULL,                   },
  64 }, name2mime[] = {
  65         { "WordDocument",               "msword",               },
  66         { "PowerPoint",                 "vnd.ms-powerpoint",    },
  67         { "DigitalSignature",           "vnd.ms-msi",           },
  68         { NULL,                         NULL,                   },
  69 }, name2desc[] = {
  70         { "WordDocument",               "Microsoft Office Word",},
  71         { "PowerPoint",                 "Microsoft PowerPoint", },
  72         { "DigitalSignature",           "Microsoft Installer",  },
  73         { NULL,                         NULL,                   },
  74 };
  75 
  76 #ifdef PHP_WIN32
  77 # define strcasestr strstr
  78 #endif
  79 
  80 static const struct cv {
  81         uint64_t clsid[2];
  82         const char *mime;
  83 } clsid2mime[] = {
  84         {
  85 #ifdef PHP_WIN32
  86                 { 0x00000000000c1084ui64, 0x46000000000000c0ui64 },
  87 #else
  88                 { 0x00000000000c1084LLU, 0x46000000000000c0LLU },
  89 #endif
  90                 "x-msi",
  91         },
  92         {       { 0,                     0                      },
  93                 NULL,
  94         }
  95 }, clsid2desc[] = {
  96         {
  97 #ifdef PHP_WIN32
  98                 { 0x00000000000c1084ui64, 0x46000000000000c0ui64 },
  99 #else
 100                 { 0x00000000000c1084LLU, 0x46000000000000c0LLU },
 101 #endif
 102                 "MSI Installer",
 103         },
 104         {       { 0,                     0                      },
 105                 NULL,
 106         }
 107 };
 108 
 109 private const char *
 110 cdf_clsid_to_mime(const uint64_t clsid[2], const struct cv *cv)
 111 {
 112         size_t i;
 113         for (i = 0; cv[i].mime != NULL; i++) {
 114                 if (clsid[0] == cv[i].clsid[0] && clsid[1] == cv[i].clsid[1])
 115                         return cv[i].mime;
 116         }
 117         return NULL;
 118 }
 119 
 120 private const char *
 121 cdf_app_to_mime(const char *vbuf, const struct nv *nv)
 122 {
 123         size_t i;
 124         const char *rv = NULL;
 125 
 126         (void)setlocale(LC_CTYPE, "C");
 127         for (i = 0; nv[i].pattern != NULL; i++)
 128                 if (strcasestr(vbuf, nv[i].pattern) != NULL) {
 129                         rv = nv[i].mime;
 130                         break;
 131                 }
 132         (void)setlocale(LC_CTYPE, "");
 133         return rv;
 134 }
 135 
 136 private int
 137 cdf_file_property_info(struct magic_set *ms, const cdf_property_info_t *info,
 138     size_t count, const cdf_directory_t *root_storage)
 139 {
 140         size_t i;
 141         cdf_timestamp_t tp;
 142         struct timeval ts;
 143         char buf[64];
 144         const char *str = NULL;
 145         const char *s;
 146         int len;
 147 
 148         memset(&ts, 0, sizeof(ts));
 149 
 150         if (!NOTMIME(ms) && root_storage)
 151                 str = cdf_clsid_to_mime(root_storage->d_storage_uuid, clsid2mime);
 152 
 153         for (i = 0; i < count; i++) {
 154                 cdf_print_property_name(buf, sizeof(buf), info[i].pi_id);
 155                 switch (info[i].pi_type) {
 156                 case CDF_NULL:
 157                         break;
 158                 case CDF_SIGNED16:
 159                         if (NOTMIME(ms) && file_printf(ms, ", %s: %hd", buf,
 160                             info[i].pi_s16) == -1)
 161                                 return -1;
 162                         break;
 163                 case CDF_SIGNED32:
 164                         if (NOTMIME(ms) && file_printf(ms, ", %s: %d", buf,
 165                             info[i].pi_s32) == -1)
 166                                 return -1;
 167                         break;
 168                 case CDF_UNSIGNED32:
 169                         if (NOTMIME(ms) && file_printf(ms, ", %s: %u", buf,
 170                             info[i].pi_u32) == -1)
 171                                 return -1;
 172                         break;
 173                 case CDF_FLOAT:
 174                         if (NOTMIME(ms) && file_printf(ms, ", %s: %g", buf,
 175                             info[i].pi_f) == -1)
 176                                 return -1;
 177                         break;
 178                 case CDF_DOUBLE:
 179                         if (NOTMIME(ms) && file_printf(ms, ", %s: %g", buf,
 180                             info[i].pi_d) == -1)
 181                                 return -1;
 182                         break;
 183                 case CDF_LENGTH32_STRING:
 184                 case CDF_LENGTH32_WSTRING:
 185                         len = info[i].pi_str.s_len;
 186                         if (len > 1) {
 187                                 char vbuf[1024];
 188                                 size_t j, k = 1;
 189 
 190                                 if (info[i].pi_type == CDF_LENGTH32_WSTRING)
 191                                     k++;
 192                                 s = info[i].pi_str.s_buf;
 193                                 for (j = 0; j < sizeof(vbuf) && len--;
 194                                     j++, s += k) {
 195                                         if (*s == '\0')
 196                                                 break;
 197                                         if (isprint((unsigned char)*s))
 198                                                 vbuf[j] = *s;
 199                                 }
 200                                 if (j == sizeof(vbuf))
 201                                         --j;
 202                                 vbuf[j] = '\0';
 203                                 if (NOTMIME(ms)) {
 204                                         if (vbuf[0]) {
 205                                                 if (file_printf(ms, ", %s: %s",
 206                                                     buf, vbuf) == -1)
 207                                                         return -1;
 208                                         }
 209                                 } else if (str == NULL && info[i].pi_id ==
 210                                     CDF_PROPERTY_NAME_OF_APPLICATION) {
 211                                         str = cdf_app_to_mime(vbuf, app2mime);
 212                                 }
 213                         }
 214                         break;
 215                 case CDF_FILETIME:
 216                         tp = info[i].pi_tp;
 217                         if (tp != 0) {
 218                                                         char tbuf[64];
 219 #if defined(PHP_WIN32) && _MSC_VER <= 1500
 220                                                         if (tp < 1000000000000000i64) {
 221 #else
 222                                                         if (tp < 1000000000000000LL) {
 223 #endif
 224                                         cdf_print_elapsed_time(tbuf,
 225                                             sizeof(tbuf), tp);
 226                                         if (NOTMIME(ms) && file_printf(ms,
 227                                             ", %s: %s", buf, tbuf) == -1)
 228                                                 return -1;
 229                                 } else {
 230                                         char *c, *ec;
 231                                         const time_t sec = ts.tv_sec;
 232                                         if (cdf_timestamp_to_timespec(&ts, tp) == -1) {
 233                                                                                         return -1;
 234                                                                                 }
 235                                         c = cdf_ctime(&sec, tbuf);
 236                                         if (c != NULL &&
 237                                             (ec = strchr(c, '\n')) != NULL)
 238                                                 *ec = '\0';
 239 
 240                                         if (NOTMIME(ms) && file_printf(ms,
 241                                             ", %s: %s", buf, c) == -1)
 242                                                 return -1;
 243                                 }
 244                         }
 245                         break;
 246                 case CDF_CLIPBOARD:
 247                         break;
 248                 default:
 249                         return -1;
 250                 }
 251         }
 252         if (!NOTMIME(ms)) {
 253                 if (str == NULL)
 254                         return 0;
 255                 if (file_printf(ms, "application/%s", str) == -1)
 256                         return -1;
 257         }
 258         return 1;
 259 }
 260 
 261 private int
 262 cdf_file_summary_info(struct magic_set *ms, const cdf_header_t *h,
 263     const cdf_stream_t *sst, const cdf_directory_t *root_storage)
 264 {
 265         cdf_summary_info_header_t si;
 266         cdf_property_info_t *info;
 267         size_t count;
 268         int m;
 269 
 270         if (cdf_unpack_summary_info(sst, h, &si, &info, &count) == -1)
 271                 return -1;
 272 
 273         if (NOTMIME(ms)) {
 274                 const char *str;
 275 
 276                 if (file_printf(ms, "Composite Document File V2 Document")
 277                     == -1)
 278                         return -1;
 279 
 280                 if (file_printf(ms, ", %s Endian",
 281                     si.si_byte_order == 0xfffe ?  "Little" : "Big") == -1)
 282                         return -2;
 283                 switch (si.si_os) {
 284                 case 2:
 285                         if (file_printf(ms, ", Os: Windows, Version %d.%d",
 286                             si.si_os_version & 0xff,
 287                             (uint32_t)si.si_os_version >> 8) == -1)
 288                                 return -2;
 289                         break;
 290                 case 1:
 291                         if (file_printf(ms, ", Os: MacOS, Version %d.%d",
 292                             (uint32_t)si.si_os_version >> 8,
 293                             si.si_os_version & 0xff) == -1)
 294                                 return -2;
 295                         break;
 296                 default:
 297                         if (file_printf(ms, ", Os %d, Version: %d.%d", si.si_os,
 298                             si.si_os_version & 0xff,
 299                             (uint32_t)si.si_os_version >> 8) == -1)
 300                                 return -2;
 301                         break;
 302                 }
 303                 if (root_storage) {
 304                         str = cdf_clsid_to_mime(root_storage->d_storage_uuid, clsid2desc);
 305                         if (str)
 306                                 if (file_printf(ms, ", %s", str) == -1)
 307                                         return -2;
 308                         }
 309                 }
 310 
 311         m = cdf_file_property_info(ms, info, count, root_storage);
 312         free(info);
 313 
 314         return m == -1 ? -2 : m;
 315 }
 316 
 317 protected int
 318 file_trycdf(struct magic_set *ms, int fd, const unsigned char *buf,
 319     size_t nbytes)
 320 {
 321         cdf_info_t info;
 322         cdf_header_t h;
 323         cdf_sat_t sat, ssat;
 324         cdf_stream_t sst, scn;
 325         cdf_dir_t dir;
 326         int i;
 327         const char *expn = "";
 328         const char *corrupt = "corrupt: ";
 329         const cdf_directory_t *root_storage;
 330 
 331         info.i_fd = fd;
 332         info.i_buf = buf;
 333         info.i_len = nbytes;
 334         if (ms->flags & MAGIC_APPLE)
 335                 return 0;
 336         if (cdf_read_header(&info, &h) == -1)
 337                 return 0;
 338 #ifdef CDF_DEBUG
 339         cdf_dump_header(&h);
 340 #endif
 341 
 342         if ((i = cdf_read_sat(&info, &h, &sat)) == -1) {
 343                 expn = "Can't read SAT";
 344                 goto out0;
 345         }
 346 #ifdef CDF_DEBUG
 347         cdf_dump_sat("SAT", &sat, CDF_SEC_SIZE(&h));
 348 #endif
 349 
 350         if ((i = cdf_read_ssat(&info, &h, &sat, &ssat)) == -1) {
 351                 expn = "Can't read SSAT";
 352                 goto out1;
 353         }
 354 #ifdef CDF_DEBUG
 355         cdf_dump_sat("SSAT", &ssat, CDF_SHORT_SEC_SIZE(&h));
 356 #endif
 357 
 358         if ((i = cdf_read_dir(&info, &h, &sat, &dir)) == -1) {
 359                 expn = "Can't read directory";
 360                 goto out2;
 361         }
 362 
 363         if ((i = cdf_read_short_stream(&info, &h, &sat, &dir, &sst,
 364             &root_storage)) == -1) {
 365                 expn = "Cannot read short stream";
 366                 goto out3;
 367         }
 368 #ifdef CDF_DEBUG
 369         cdf_dump_dir(&info, &h, &sat, &ssat, &sst, &dir);
 370 #endif
 371 
 372         if ((i = cdf_read_summary_info(&info, &h, &sat, &ssat, &sst, &dir,
 373             &scn)) == -1) {
 374                 if (errno == ESRCH) {
 375                         corrupt = expn;
 376                         expn = "No summary info";
 377                 } else {
 378                         expn = "Cannot read summary info";
 379                 }
 380                 goto out4;
 381         }
 382 #ifdef CDF_DEBUG
 383         cdf_dump_summary_info(&h, &scn);
 384 #endif
 385         if ((i = cdf_file_summary_info(ms, &h, &scn, root_storage)) < 0)
 386             expn = "Can't expand summary_info";
 387 
 388         if (i == 0) {
 389                 const char *str = NULL;
 390                 cdf_directory_t *d;
 391                 char name[__arraycount(d->d_name)];
 392                 size_t j, k;
 393 
 394                 for (j = 0; str == NULL && j < dir.dir_len; j++) {
 395                         d = &dir.dir_tab[j];
 396                         for (k = 0; k < sizeof(name); k++)
 397                                 name[k] = (char)cdf_tole2(d->d_name[k]);
 398                         str = cdf_app_to_mime(name,
 399                             NOTMIME(ms) ? name2desc : name2mime);
 400                 }
 401                 if (NOTMIME(ms)) {
 402                         if (str != NULL) {
 403                                 if (file_printf(ms, "%s", str) == -1)
 404                                         return -1;
 405                                 i = 1;
 406                         }
 407                 } else {
 408                         if (str == NULL)
 409                                 str = "vnd.ms-office";
 410                         if (file_printf(ms, "application/%s", str) == -1)
 411                                 return -1;
 412                         i = 1;
 413                 }
 414         }
 415         free(scn.sst_tab);
 416 out4:
 417         free(sst.sst_tab);
 418 out3:
 419         free(dir.dir_tab);
 420 out2:
 421         free(ssat.sat_tab);
 422 out1:
 423         free(sat.sat_tab);
 424 out0:
 425         if (i == -1) {
 426             if (NOTMIME(ms)) {
 427                 if (file_printf(ms,
 428                     "Composite Document File V2 Document") == -1)
 429                     return -1;
 430                 if (*expn)
 431                     if (file_printf(ms, ", %s%s", corrupt, expn) == -1)
 432                         return -1;
 433             } else {
 434                 if (file_printf(ms, "application/CDFV2-corrupt") == -1)
 435                     return -1;
 436             }
 437             i = 1;
 438         }
 439         return i;
 440 }

/* [<][>][^][v][top][bottom][index][help] */