wiretap/ber.c

   1 /* ber.c
   2  *
   3  * Basic Encoding Rules (BER) file reading
   4  *
   5  * $Id$
   6  *
   7  * This program is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU General Public License
   9  * as published by the Free Software Foundation; either version 2
  10  * of the License, or (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  20  */
  21
  22 #ifdef HAVE_CONFIG_H
  23 #include "config.h"
  24 #endif
  25
  26 #include <errno.h>
  27
  28 #ifdef HAVE_SYS_STAT_H
  29 #include <sys/stat.h>
  30 #endif
  31
  32 #include "wtap-int.h"
  33 #include "file_wrappers.h"
  34 #include "buffer.h"
  35 #include "ber.h"
  36
  37
  38 #define BER_CLASS_UNI   0
  39 #define BER_CLASS_APP   1
  40 #define BER_CLASS_CON   2
  41
  42 #define BER_UNI_TAG_SEQ 16      /* SEQUENCE, SEQUENCE OF */
  43 #define BER_UNI_TAG_SET 17      /* SET, SET OF */
  44
  45 static gboolean ber_read(wtap *wth, int *err, gchar **err_info, long *data_offset)
  46 {
  47   guint8 *buf;
  48   gint64 file_size;
  49   int packet_size;
  50   struct stat statb;
  51
  52   *err = 0;
  53
  54   /* there is only ever one packet */
  55   if(wth->data_offset)
  56     return FALSE;
  57
  58   *data_offset = wth->data_offset;
  59
  60   if ((file_size = wtap_file_size(wth, err)) == -1)
  61     return FALSE;
  62
  63   if (file_size > WTAP_MAX_PACKET_SIZE) {
  64     /*
  65      * Probably a corrupt capture file; don't blow up trying
  66      * to allocate space for an immensely-large packet.
  67      */
  68     *err = WTAP_ERR_BAD_RECORD;
  69     *err_info = g_strdup_printf("ber: File has %" G_GINT64_MODIFIER "d-byte packet, bigger than maximum of %u",
  70                                 file_size, WTAP_MAX_PACKET_SIZE);
  71     return FALSE;
  72   }
  73   packet_size = (int)file_size;
  74
  75   buffer_assure_space(wth->frame_buffer, packet_size);
  76   buf = buffer_start_ptr(wth->frame_buffer);
  77
  78   wtap_file_read_expected_bytes(buf, packet_size, wth->fh, err);
  79
  80   wth->data_offset += packet_size;
  81
  82   wth->phdr.caplen = packet_size;
  83   wth->phdr.len = packet_size;
  84
  85   if (fstat(wth->fd, &statb) == -1) {
  86     *err = errno;
  87     return FALSE;
  88   }
  89
  90   wth->phdr.ts.secs = statb.st_mtime;
  91   wth->phdr.ts.nsecs = 0;
  92
  93   return TRUE;
  94 }
  95
  96 static gboolean ber_seek_read(wtap *wth, long seek_off, union wtap_pseudo_header *pseudo_header _U_,
  97                               guint8 *pd, int length, int *err, gchar **err_info _U_)
  98 {
  99   int packet_size = length;
 100
 101   /* there is only one packet */
 102   if(seek_off > 0) {
 103     *err = 0;
 104     return FALSE;
 105   }
 106
 107   if (file_seek(wth->random_fh, seek_off, SEEK_SET, err) == -1)
 108     return FALSE;
 109
 110   wtap_file_read_expected_bytes(pd, packet_size, wth->random_fh, err);
 111
 112   return TRUE;
 113 }
 114
 115 int ber_open(wtap *wth, int *err, gchar **err_info _U_)
 116 {
 117 #define BER_BYTES_TO_CHECK 4
 118   guint8 bytes[BER_BYTES_TO_CHECK];
 119   int bytes_read;
 120   guint8 id;
 121   gint8 class;
 122   gint8 tag;
 123   gboolean pc;
 124   guint8 oct, nlb = 0;
 125   int len = 0, fsize;
 126   int offset = 0, i;
 127
 128   bytes_read = file_read(&bytes, 1, BER_BYTES_TO_CHECK, wth->fh);
 129   if (bytes_read != BER_BYTES_TO_CHECK) {
 130     *err = file_error(wth->fh);
 131     return (*err != 0) ? -1 : 0;
 132   }
 133
 134   id = bytes[offset++];
 135
 136   class = (id>>6) & 0x03;
 137   pc = (id>>5) & 0x01;
 138   tag = id & 0x1F;
 139
 140   /* it must be constructed and either a SET or a SEQUENCE */
 141   /* or a CONTEXT less than 32 (arbitrary) */
 142   /* XXX: do we also want to allow APPLICATION */
 143   if(!(pc &&
 144        (((class == BER_CLASS_UNI) && ((tag == BER_UNI_TAG_SET) || (tag == BER_UNI_TAG_SEQ))) ||
 145         ((class == BER_CLASS_CON) && (tag < 32)))))
 146     return 0;
 147
 148   /* now check the length */
 149   oct = bytes[offset++];
 150
 151   if(!(oct & 0x80))
 152     len = oct;
 153   else {
 154     nlb = oct & 0x7F; /* number of length bytes */
 155
 156     if((nlb > 0) && (nlb <= (BER_BYTES_TO_CHECK - 2))) {
 157       /* not indefinite length and we have read enough bytes to compute the length */
 158       i = nlb;
 159       while(i--) {
 160         oct = bytes[offset++];
 161         len = (len<<8) + oct;
 162       }
 163     }
 164   }
 165
 166   if(len) { /* if we have a length, check it */
 167     len += (2 + nlb); /* add back Tag and Length bytes */
 168     fsize = wtap_file_size(wth, err);
 169
 170     if(len != fsize) {
 171       return 0; /* not ASN.1 */
 172     }
 173   }
 174
 175   /* seek back to the start of the file  */
 176   if (file_seek(wth->fh, 0, SEEK_SET, err) == -1)
 177     return -1;
 178
 179   wth->file_type = WTAP_FILE_BER;
 180   wth->file_encap = WTAP_ENCAP_BER;
 181   wth->snapshot_length = 0;
 182
 183   wth->subtype_read = ber_read;
 184   wth->subtype_seek_read = ber_seek_read;
 185   wth->tsprecision = WTAP_FILE_TSPREC_SEC;
 186
 187   return 1;
 188 }