base64.c

Go to the documentation of this file.

 
#include "config.h"
#include "base64.h"
#include "buffer.h"
#include "memory.h"
#include "string2.h"
 
#define BAD -1

static const char B64Chars[64] = {
  'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
  'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
  'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
  'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',
  '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', '/',
};

static const char B64CharsUrlSafe[64] = {
  'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
  'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
  'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
  'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',
  '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-', '_'
};

const int Index64[128] = {
  // clang-format off
  -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,62, -1,-1,-1,63,
  52,53,54,55, 56,57,58,59, 60,61,-1,-1, -1,-1,-1,-1,
  -1, 0, 1, 2,  3, 4, 5, 6,  7, 8, 9,10, 11,12,13,14,
  15,16,17,18, 19,20,21,22, 23,24,25,-1, -1,-1,-1,-1,
  -1,26,27,28, 29,30,31,32, 33,34,35,36, 37,38,39,40,
  41,42,43,44, 45,46,47,48, 49,50,51,-1, -1,-1,-1,-1
  // clang-format on
};

static size_t b64_encode(const char *in, size_t inlen, char *out, size_t outlen,
                         const char *alpha)
{
  if (!in || !out)
    return 0;
 
  unsigned char *begin = (unsigned char *) out;
  const unsigned char *inu = (const unsigned char *) in;
 
  while ((inlen >= 3) && (outlen > 4))
  {
    *out++ = alpha[inu[0] >> 2];
    *out++ = alpha[((inu[0] << 4) & 0x30) | (inu[1] >> 4)];
    *out++ = alpha[((inu[1] << 2) & 0x3c) | (inu[2] >> 6)];
    *out++ = alpha[inu[2] & 0x3f];
    outlen -= 4;
    inlen -= 3;
    inu += 3;
  }
 
  /* clean up remainder */
  if ((inlen > 0) && (outlen > 4))
  {
    unsigned char fragment;
 
    *out++ = alpha[inu[0] >> 2];
    fragment = (inu[0] << 4) & 0x30;
    if (inlen > 1)
      fragment |= inu[1] >> 4;
    *out++ = alpha[fragment];
    *out++ = (inlen < 2) ? '=' : alpha[(inu[1] << 2) & 0x3c];
    *out++ = '=';
  }
  *out = '\0';
  return out - (char *) begin;
}

size_t mutt_b64_encode(const char *in, size_t inlen, char *out, size_t outlen)
{
  return b64_encode(in, inlen, out, outlen, B64Chars);
}

size_t mutt_b64_encode_urlsafe(const char *in, size_t inlen, char *out, size_t outlen)
{
  return b64_encode(in, inlen, out, outlen, B64CharsUrlSafe);
}

int mutt_b64_decode(const char *in, char *out, size_t olen)
{
  if (!in || !*in || !out)
    return -1;
 
  int len = 0;
 
  for (; *in; in += 4)
  {
    const unsigned char digit1 = in[0];
    if ((digit1 > 127) || (base64val(digit1) == BAD))
      return -1;
    const unsigned char digit2 = in[1];
    if ((digit2 > 127) || (base64val(digit2) == BAD))
      return -1;
 
    /* The 3rd and 4th bytes can be terminating padding chars ('='). Some
     * mailers don't properly terminate base64-encoded strings, so we allow for
     * the input string to terminate without padding. */
    const unsigned char digit3 = in[2] ? in[2] : '=';
    if ((digit3 > 127) || ((digit3 != '=') && (base64val(digit3) == BAD)))
      return -1;
    const unsigned char digit4 = (digit3 == '=') ? '=' : in[3];
    if ((digit4 > 127) || ((digit4 != '=') && (base64val(digit4) == BAD)))
      return -1;
 
    /* digits are already sanity-checked */
    if (len == olen)
      return len;
    *out++ = (base64val(digit1) << 2) | (base64val(digit2) >> 4);
    len++;
    if (digit3 != '=')
    {
      if (len == olen)
        return len;
      *out++ = ((base64val(digit2) << 4) & 0xf0) | (base64val(digit3) >> 2);
      len++;
      if (digit4 != '=')
      {
        if (len == olen)
          return len;
        *out++ = ((base64val(digit3) << 6) & 0xc0) | base64val(digit4);
        len++;
      }
    }
 
    /* did we reach the end? */
    if (digit4 == '=')
    {
      break;
    }
  }
 
  return len;
}

size_t mutt_b64_buffer_encode(struct Buffer *buf, const char *in, size_t len)
{
  if (!buf)
    return 0;
 
  buf_alloc(buf, MAX((len * 2), 1024));
  size_t num = mutt_b64_encode(in, len, buf->data, buf->dsize);
  buf_fix_dptr(buf);
  return num;
}

int mutt_b64_buffer_decode(struct Buffer *buf, const char *in)
{
  if (!buf)
    return -1;
 
  buf_alloc(buf, mutt_str_len(in));
  int olen = mutt_b64_decode(in, buf->data, buf->dsize);
  // mutt_b64_decode returns raw bytes, so don't terminate the buffer either
  if (olen > 0)
    buf_seek(buf, olen);
  else
    buf_seek(buf, 0);
 
  return olen;
}