sm/misc.c

   1 /* misc.c - Miscellaneous fucntions
   2  * Copyright (C) 2004, 2009, 2011 Free Software Foundation, Inc.
   3  *
   4  * This file is part of GnuPG.
   5  *
   6  * GnuPG is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 3 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * GnuPG is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, see <https://www.gnu.org/licenses/>.
  18  */
  19
  20 #include <config.h>
  21 #include <errno.h>
  22 #include <stdio.h>
  23 #include <stdlib.h>
  24 #include <string.h>
  25 #include <ctype.h>
  26 #include <unistd.h>
  27 #ifdef HAVE_LOCALE_H
  28 #include <locale.h>
  29 #endif
  30
  31 #include "gpgsm.h"
  32 #include "i18n.h"
  33 #include "sysutils.h"
  34 #include "../common/tlv.h"
  35 #include "../common/sexp-parse.h"
  36
  37
  38 /* Setup the environment so that the pinentry is able to get all
  39    required information.  This is used prior to an exec of the
  40    protect-tool. */
  41 void
  42 setup_pinentry_env (void)
  43 {
  44 #ifndef HAVE_W32_SYSTEM
  45   char *lc;
  46   const char *name, *value;
  47   int iterator;
  48
  49   /* Try to make sure that GPG_TTY has been set.  This is needed if we
  50      call for example the protect-tools with redirected stdin and thus
  51      it won't be able to ge a default by itself.  Try to do it here
  52      but print a warning.  */
  53   value = session_env_getenv (opt.session_env, "GPG_TTY");
  54   if (value)
  55     gnupg_setenv ("GPG_TTY", value, 1);
  56   else if (!(lc=getenv ("GPG_TTY")) || !*lc)
  57     {
  58       log_error (_("GPG_TTY has not been set - "
  59                    "using maybe bogus default\n"));
  60       lc = gnupg_ttyname (0);
  61       if (!lc)
  62         lc = "/dev/tty";
  63       gnupg_setenv ("GPG_TTY", lc, 1);
  64     }
  65
  66   if (opt.lc_ctype)
  67     gnupg_setenv ("LC_CTYPE", opt.lc_ctype, 1);
  68 #if defined(HAVE_SETLOCALE) && defined(LC_CTYPE)
  69   else if ( (lc = setlocale (LC_CTYPE, "")) )
  70     gnupg_setenv ("LC_CTYPE", lc, 1);
  71 #endif
  72
  73   if (opt.lc_messages)
  74     gnupg_setenv ("LC_MESSAGES", opt.lc_messages, 1);
  75 #if defined(HAVE_SETLOCALE) && defined(LC_MESSAGES)
  76   else if ( (lc = setlocale (LC_MESSAGES, "")) )
  77     gnupg_setenv ("LC_MESSAGES", lc, 1);
  78 #endif
  79
  80   iterator = 0;
  81   while ((name = session_env_list_stdenvnames (&iterator, NULL)))
  82     {
  83       if (!strcmp (name, "GPG_TTY"))
  84         continue;  /* Already set.  */
  85       value = session_env_getenv (opt.session_env, name);
  86       if (value)
  87         gnupg_setenv (name, value, 1);
  88     }
  89
  90 #endif /*!HAVE_W32_SYSTEM*/
  91 }
  92
  93
  94
  95 /* Transform a sig-val style s-expression as returned by Libgcrypt to
  96    one which includes an algorithm identifier encoding the public key
  97    and the hash algorithm.  The public key algorithm is taken directly
  98    from SIGVAL and the hash algorithm is given by MDALGO.  This is
  99    required because X.509 merges the public key algorithm and the hash
 100    algorithm into one OID but Libgcrypt is not aware of that.  The
 101    function ignores missing parameters so that it can also be used to
 102    create an siginfo value as expected by ksba_certreq_set_siginfo.
 103    To create a siginfo s-expression a public-key s-expression may be
 104    used instead of a sig-val.  We only support RSA for now.  */
 105 gpg_error_t
 106 transform_sigval (const unsigned char *sigval, size_t sigvallen, int mdalgo,
 107                   unsigned char **r_newsigval, size_t *r_newsigvallen)
 108 {
 109   gpg_error_t err;
 110   const unsigned char *buf, *tok;
 111   size_t buflen, toklen;
 112   int depth, last_depth1, last_depth2;
 113   int is_pubkey = 0;
 114   const unsigned char *rsa_s = NULL;
 115   size_t rsa_s_len = 0;
 116   const char *oid;
 117   gcry_sexp_t sexp;
 118
 119   *r_newsigval = NULL;
 120   if (r_newsigvallen)
 121     *r_newsigvallen = 0;
 122
 123   buf = sigval;
 124   buflen = sigvallen;
 125   depth = 0;
 126   if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
 127     return err;
 128   if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
 129     return err;
 130   if (tok && toklen == 7 && !memcmp ("sig-val", tok, toklen))
 131     ;
 132   else if (tok && toklen == 10 && !memcmp ("public-key", tok, toklen))
 133     is_pubkey = 1;
 134   else
 135     return gpg_error (GPG_ERR_UNKNOWN_SEXP);
 136   if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
 137     return err;
 138   if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
 139     return err;
 140   if (!tok || toklen != 3 || memcmp ("rsa", tok, toklen))
 141     return gpg_error (GPG_ERR_WRONG_PUBKEY_ALGO);
 142
 143   last_depth1 = depth;
 144   while (!(err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen))
 145          && depth && depth >= last_depth1)
 146     {
 147       if (tok)
 148         return gpg_error (GPG_ERR_UNKNOWN_SEXP);
 149       if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
 150         return err;
 151       if (tok && toklen == 1)
 152         {
 153           const unsigned char **mpi;
 154           size_t *mpi_len;
 155
 156           switch (*tok)
 157             {
 158             case 's': mpi = &rsa_s; mpi_len = &rsa_s_len; break;
 159             default:  mpi = NULL;   mpi_len = NULL; break;
 160             }
 161           if (mpi && *mpi)
 162             return gpg_error (GPG_ERR_DUP_VALUE);
 163
 164           if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
 165             return err;
 166           if (tok && mpi)
 167             {
 168               *mpi = tok;
 169               *mpi_len = toklen;
 170             }
 171         }
 172
 173       /* Skip to the end of the list. */
 174       last_depth2 = depth;
 175       while (!(err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen))
 176              && depth && depth >= last_depth2)
 177         ;
 178       if (err)
 179         return err;
 180     }
 181   if (err)
 182     return err;
 183
 184   /* Map the hash algorithm to an OID.  */
 185   switch (mdalgo)
 186     {
 187     case GCRY_MD_SHA1:
 188       oid = "1.2.840.113549.1.1.5";  /* sha1WithRSAEncryption */
 189       break;
 190
 191     case GCRY_MD_SHA256:
 192       oid = "1.2.840.113549.1.1.11"; /* sha256WithRSAEncryption */
 193       break;
 194
 195     case GCRY_MD_SHA384:
 196       oid = "1.2.840.113549.1.1.12"; /* sha384WithRSAEncryption */
 197       break;
 198
 199     case GCRY_MD_SHA512:
 200       oid = "1.2.840.113549.1.1.13"; /* sha512WithRSAEncryption */
 201       break;
 202
 203     default:
 204       return gpg_error (GPG_ERR_DIGEST_ALGO);
 205     }
 206
 207   if (rsa_s && !is_pubkey)
 208     err = gcry_sexp_build (&sexp, NULL, "(sig-val(%s(s%b)))",
 209                            oid, (int)rsa_s_len, rsa_s);
 210   else
 211     err = gcry_sexp_build (&sexp, NULL, "(sig-val(%s))", oid);
 212   if (err)
 213     return err;
 214   err = make_canon_sexp (sexp, r_newsigval, r_newsigvallen);
 215   gcry_sexp_release (sexp);
 216
 217   return err;
 218 }