/* misc.c - Miscellaneous functions
 * Copyright (C) 2004, 2009, 2011 Free Software Foundation, Inc.
 *
 * This file is part of GnuPG.
 *
 * GnuPG is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * GnuPG is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, see <https://www.gnu.org/licenses/>.
 */

#include <config.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>
#ifdef HAVE_LOCALE_H
#include <locale.h>
#endif

#include "gpgsm.h"
#include "../common/i18n.h"
#include "../common/sysutils.h"
#include "../common/tlv.h"
#include "../common/sexp-parse.h"


/* Print a message
 *   "(further info: %s)\n
 * in verbose mode to further explain an error.  That message is
 * intended to help debug a problem and should not be translated.
 */
void
gpgsm_print_further_info (const char *format, ...)
{
  va_list arg_ptr;

  if (!opt.verbose)
    return;

  log_info (_("(further info: "));
  va_start (arg_ptr, format);
  log_logv (GPGRT_LOGLVL_CONT, format, arg_ptr);
  va_end (arg_ptr);
  log_printf (")\n");
}


/* Transform a sig-val style s-expression as returned by Libgcrypt to
   one which includes an algorithm identifier encoding the public key
   and the hash algorithm.  The public key algorithm is taken directly
   from SIGVAL and the hash algorithm is given by MDALGO.  This is
   required because X.509 merges the public key algorithm and the hash
   algorithm into one OID but Libgcrypt is not aware of that.  The
   function ignores missing parameters so that it can also be used to
   create an siginfo value as expected by ksba_certreq_set_siginfo.
   To create a siginfo s-expression a public-key s-expression may be
   used instead of a sig-val.  */
gpg_error_t
transform_sigval (const unsigned char *sigval, size_t sigvallen, int mdalgo,
                  unsigned char **r_newsigval, size_t *r_newsigvallen)
{
  gpg_error_t err;
  const unsigned char *buf, *tok;
  size_t buflen, toklen;
  int depth, last_depth1, last_depth2, pkalgo;
  int is_pubkey = 0;
  const unsigned char *rsa_s, *ecc_r, *ecc_s;
  size_t rsa_s_len, ecc_r_len, ecc_s_len;
  const char *oid;
  gcry_sexp_t sexp;
  const char *eddsa_curve = NULL;

  rsa_s = ecc_r = ecc_s = NULL;
  rsa_s_len = ecc_r_len = ecc_s_len = 0;

  *r_newsigval = NULL;
  if (r_newsigvallen)
    *r_newsigvallen = 0;

  buf = sigval;
  buflen = sigvallen;
  depth = 0;
  if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
    return err;
  if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
    return err;
  if (tok && toklen == 7 && !memcmp ("sig-val", tok, toklen))
    ;
  else if (tok && toklen == 10 && !memcmp ("public-key", tok, toklen))
    is_pubkey = 1;
  else
    return gpg_error (GPG_ERR_UNKNOWN_SEXP);
  if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
    return err;
  if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
    return err;
  if (!tok)
    return gpg_error (GPG_ERR_WRONG_PUBKEY_ALGO);
  if (toklen == 3 && !memcmp ("rsa", tok, 3))
    pkalgo = GCRY_PK_RSA;
  else if (toklen == 3 && !memcmp ("ecc", tok, 3))
    pkalgo = GCRY_PK_ECC;
  else if (toklen == 5 && !memcmp ("ecdsa", tok, 5))
    pkalgo = GCRY_PK_ECC;
  else if (toklen == 5 && !memcmp ("eddsa", tok, 5))
    pkalgo = GCRY_PK_EDDSA;
  else
    return gpg_error (GPG_ERR_WRONG_PUBKEY_ALGO);

  last_depth1 = depth;
  while (!(err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen))
         && depth && depth >= last_depth1)
    {
      if (tok)
        return gpg_error (GPG_ERR_UNKNOWN_SEXP);
      if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
        return err;
      if (tok && toklen == 1)
        {
          const unsigned char **mpi = NULL;
          size_t *mpi_len = NULL;

          switch (*tok)
            {
            case 's':
              if (pkalgo == GCRY_PK_RSA)
                {
                  mpi = &rsa_s;
                  mpi_len = &rsa_s_len;
                }
              else if (pkalgo == GCRY_PK_ECC || pkalgo == GCRY_PK_EDDSA)
                {
                  mpi = &ecc_s;
                  mpi_len = &ecc_s_len;
                }
              break;

            case 'r': mpi = &ecc_r; mpi_len = &ecc_r_len; break;
            default:  mpi = NULL;   mpi_len = NULL; break;
            }

          if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
            return err;
          if (tok && mpi)
            {
              *mpi = tok;
              *mpi_len = toklen;
            }
        }
      else if (toklen == 5 && !memcmp (tok, "curve", 5))
        {
          if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
            return err;
          if ((toklen == 7 && !memcmp (tok, "Ed25519", 7))
              || (toklen == 22 && !memcmp (tok, "1.3.6.1.4.1.11591.15.1", 22))
              || (toklen == 11 && !memcmp (tok, "1.3.101.112", 11)))
            eddsa_curve = "1.3.101.112";
          else if ((toklen == 5 && !memcmp (tok, "Ed448", 5))
                   || (toklen == 11 && !memcmp (tok, "1.3.101.113", 11)))
            eddsa_curve = "1.3.101.113";
        }

      /* Skip to the end of the list. */
      last_depth2 = depth;
      while (!(err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen))
             && depth && depth >= last_depth2)
        ;
      if (err)
        return err;
    }
  if (err)
    return err;

  if (eddsa_curve)
    oid = eddsa_curve;
  else
    {
      /* Map the hash algorithm to an OID.  */
      if (mdalgo < 0 || mdalgo > (1<<15) || pkalgo < 0 || pkalgo > (1<<15))
        return gpg_error (GPG_ERR_DIGEST_ALGO);

      switch (mdalgo | (pkalgo << 16))
        {
        case GCRY_MD_SHA1 | (GCRY_PK_RSA << 16):
          oid = "1.2.840.113549.1.1.5";  /* sha1WithRSAEncryption */
          break;

        case GCRY_MD_SHA256 | (GCRY_PK_RSA << 16):
          oid = "1.2.840.113549.1.1.11"; /* sha256WithRSAEncryption */
          break;

        case GCRY_MD_SHA384 | (GCRY_PK_RSA << 16):
          oid = "1.2.840.113549.1.1.12"; /* sha384WithRSAEncryption */
          break;

        case GCRY_MD_SHA512 | (GCRY_PK_RSA << 16):
          oid = "1.2.840.113549.1.1.13"; /* sha512WithRSAEncryption */
          break;

        case GCRY_MD_SHA224 | (GCRY_PK_ECC << 16):
          oid = "1.2.840.10045.4.3.1"; /* ecdsa-with-sha224 */
          break;

        case GCRY_MD_SHA256 | (GCRY_PK_ECC << 16):
          oid = "1.2.840.10045.4.3.2"; /* ecdsa-with-sha256 */
          break;

        case GCRY_MD_SHA384 | (GCRY_PK_ECC << 16):
          oid = "1.2.840.10045.4.3.3"; /* ecdsa-with-sha384 */
          break;

        case GCRY_MD_SHA512 | (GCRY_PK_ECC << 16):
          oid = "1.2.840.10045.4.3.4"; /* ecdsa-with-sha512 */
          break;

        case GCRY_MD_SHA512 | (GCRY_PK_EDDSA << 16):
          oid = "1.3.101.112"; /* ed25519 */
          break;

        default:
          return gpg_error (GPG_ERR_DIGEST_ALGO);
        }
    }

  if (is_pubkey)
    err = gcry_sexp_build (&sexp, NULL, "(sig-val(%s))", oid);
  else if (pkalgo == GCRY_PK_RSA)
    err = gcry_sexp_build (&sexp, NULL, "(sig-val(%s(s%b)))", oid,
                           (int)rsa_s_len, rsa_s);
  else if (pkalgo == GCRY_PK_ECC || pkalgo == GCRY_PK_EDDSA)
    err = gcry_sexp_build (&sexp, NULL, "(sig-val(%s(r%b)(s%b)))", oid,
                           (int)ecc_r_len, ecc_r, (int)ecc_s_len, ecc_s);
  if (err)
    return err;
  err = make_canon_sexp (sexp, r_newsigval, r_newsigvallen);
  gcry_sexp_release (sexp);

  return err;
}


/* Wrapper around ksba_cms_get_sig_val to return a gcrypt object
 * instead of ksba's canonical s-expression.  On error NULL is return
 * and in some cases an error message is printed.  */
gcry_sexp_t
gpgsm_ksba_cms_get_sig_val (ksba_cms_t cms, int idx)
{
  gpg_error_t err;
  ksba_sexp_t sigval;
  gcry_sexp_t s_sigval;
  size_t n;

  sigval = ksba_cms_get_sig_val (cms, idx);
  if (!sigval)
    return NULL;
  n = gcry_sexp_canon_len (sigval, 0, NULL, NULL);
  if (!n)
    {
      log_error ("%s: libksba did not return a proper S-Exp\n", __func__);
      ksba_free (sigval);
      return NULL;
    }
  err = gcry_sexp_sscan (&s_sigval, NULL, (char*)sigval, n);
  ksba_free (sigval);
  if (err)
    {
      log_error ("%s: gcry_sexp_scan failed: %s\n",
                 __func__, gpg_strerror (err));
      s_sigval = NULL;
    }

  return s_sigval;
}


/* Return the hash algorithm from the S-expression SIGVAL.  Returns 0
 * if the hash algorithm is not encoded in SIGVAL or it is not
 * supported by libgcrypt.  It further stores flag values for the
 * public key algorithm at R_PKALGO_FLAGS; the only flag we currently
 * support is PK_ALGO_FLAG_RSAPSS.  */
int
gpgsm_get_hash_algo_from_sigval (gcry_sexp_t sigval_arg,
                                 unsigned int *r_pkalgo_flags)
{
  gcry_sexp_t sigval, l1;
  size_t n;
  const char *s;
  char *string;
  int hashalgo;
  int i;

  *r_pkalgo_flags = 0;

  sigval = gcry_sexp_find_token (sigval_arg, "sig-val", 0);
  if (!sigval)
    return 0;   /* Not a sig-val.  */

  /* First check whether this is a rsaPSS signature and return that as
   * additional info.  */
  l1 = gcry_sexp_find_token (sigval, "flags", 0);
  if (l1)
    {
      /* Note that the flag parser assumes that the list of flags
       * contains only strings and in particular not a sub-list.  This
       * is always the case for the current libksba. */
      for (i=1; (s = gcry_sexp_nth_data (l1, i, &n)); i++)
        if (n == 3 && !memcmp (s, "pss", 3))
          {
            *r_pkalgo_flags |= PK_ALGO_FLAG_RSAPSS;
            break;
          }
      gcry_sexp_release (l1);
    }

  l1 = gcry_sexp_find_token (sigval, "hash", 0);
  if (!l1)
    {
      gcry_sexp_release (sigval);
      return 0; /* hash algorithm not given in sigval. */
    }
  string = gcry_sexp_nth_string (l1, 1);
  gcry_sexp_release (sigval);
  if (!string)
    return 0; /* hash algorithm has no value. */
  hashalgo = gcry_md_map_name (string);
  gcry_free (string);

  return hashalgo;
}


/* Map OIDSTR to an OID.  Returns NULL is OIDSTR is not looking like
 * an OID or if a string which has no known mapping to an OID.  */
const char *
gpgsm_map_cipher_name_to_oid (const char *oidstr)
{
  static struct {
    const char *oidstr;
    const char *name;
    const char *altname;
  } oidtbl[] =
    {
      { "2.16.840.1.101.3.4.1.2",    "AES",    "AES-CBC"  },
      { "2.16.840.1.101.3.4.1.2",    "AES128", "AES128-CBC" },
      { "2.16.840.1.101.3.4.1.22",   "AES192", "AES192-CBC" },
      { "2.16.840.1.101.3.4.1.42",   "AES256", "AES256-CBC" },
      { "2.16.840.1.101.3.4.1.6",    "AES-GCM"    },
      { "2.16.840.1.101.3.4.1.6",    "AES128-GCM" },
      { "2.16.840.1.101.3.4.1.26",   "AES192-GCM" },
      { "2.16.840.1.101.3.4.1.46",   "AES256-GCM" },
      { "1.2.392.200011.61.1.1.1.2", "CAMELLIA",    "CAMELLIA-CBC" },
      { "1.2.392.200011.61.1.1.1.2", "CAMELLIA128", "CAMELLIA128-CBC" },
      { "1.2.392.200011.61.1.1.1.3", "CAMELLIA192", "CAMELLIA192-CBC" },
      { "1.2.392.200011.61.1.1.1.4", "CAMELLIA256", "CAMELLIA256-CBC" },
      { "1.2.410.200004.1.4",        "SEED", "SEED-CBC" },
      { "1.3.6.1.4.1.11591.13.2.2",  "SERPENT",    "SERPENT-CBC" },
      { "1.3.6.1.4.1.11591.13.2.2",  "SERPENT128", "SERPENT128-CBC" },
      { "1.3.6.1.4.1.11591.13.2.22", "SERPENT192", "SERPENT192-CBC" },
      { "1.3.6.1.4.1.11591.13.2.42", "SERPENT256", "SERPENT256-CBC" },
      { "1.2.840.113549.3.7",        "3DES",  "3DES-CBC" }
    };
  int idx;
  const char *s;

  if (!oidstr || !*oidstr)
    return NULL;

  /* Do a simple syntax check to see whether it looks like an OID.
   * Note that checking just the first char for a digit is not
   * sufficent due to the algo name "3DES".  */
  for (s=oidstr; *s; s++)
    if (*s != '.' && !digitp (s))
      break;
  if (!*s)
    return oidstr;   /* Looks like an OID - return as-is.  */

  for (idx=0; idx < DIM (oidtbl); idx++)
    if (!ascii_strcasecmp (oidtbl[idx].name, oidstr)
        || (oidtbl[idx].altname
            && !ascii_strcasecmp (oidtbl[idx].altname, oidstr)))
      return oidtbl[idx].oidstr;

  return NULL;
}
