LCOV - code coverage report
Current view: top level - sm - misc.c (source / functions) Hit Total Coverage
Test: coverage.info Lines: 0 93 0.0 %
Date: 2016-09-12 13:01:59 Functions: 0 2 0.0 %

          Line data    Source code
       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 <http://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           0 : 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           0 :   value = session_env_getenv (opt.session_env, "GPG_TTY");
      54           0 :   if (value)
      55           0 :     gnupg_setenv ("GPG_TTY", value, 1);
      56           0 :   else if (!(lc=getenv ("GPG_TTY")) || !*lc)
      57             :     {
      58           0 :       log_error (_("GPG_TTY has not been set - "
      59             :                    "using maybe bogus default\n"));
      60           0 :       lc = gnupg_ttyname (0);
      61           0 :       if (!lc)
      62           0 :         lc = "/dev/tty";
      63           0 :       gnupg_setenv ("GPG_TTY", lc, 1);
      64             :     }
      65             : 
      66           0 :   if (opt.lc_ctype)
      67           0 :     gnupg_setenv ("LC_CTYPE", opt.lc_ctype, 1);
      68             : #if defined(HAVE_SETLOCALE) && defined(LC_CTYPE)
      69           0 :   else if ( (lc = setlocale (LC_CTYPE, "")) )
      70           0 :     gnupg_setenv ("LC_CTYPE", lc, 1);
      71             : #endif
      72             : 
      73           0 :   if (opt.lc_messages)
      74           0 :     gnupg_setenv ("LC_MESSAGES", opt.lc_messages, 1);
      75             : #if defined(HAVE_SETLOCALE) && defined(LC_MESSAGES)
      76           0 :   else if ( (lc = setlocale (LC_MESSAGES, "")) )
      77           0 :     gnupg_setenv ("LC_MESSAGES", lc, 1);
      78             : #endif
      79             : 
      80           0 :   iterator = 0;
      81           0 :   while ((name = session_env_list_stdenvnames (&iterator, NULL)))
      82             :     {
      83           0 :       if (!strcmp (name, "GPG_TTY"))
      84           0 :         continue;  /* Already set.  */
      85           0 :       value = session_env_getenv (opt.session_env, name);
      86           0 :       if (value)
      87           0 :         gnupg_setenv (name, value, 1);
      88             :     }
      89             : 
      90             : #endif /*!HAVE_W32_SYSTEM*/
      91           0 : }
      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           0 : 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           0 :   int is_pubkey = 0;
     114           0 :   const unsigned char *rsa_s = NULL;
     115           0 :   size_t rsa_s_len = 0;
     116             :   const char *oid;
     117             :   gcry_sexp_t sexp;
     118             : 
     119           0 :   *r_newsigval = NULL;
     120           0 :   if (r_newsigvallen)
     121           0 :     *r_newsigvallen = 0;
     122             : 
     123           0 :   buf = sigval;
     124           0 :   buflen = sigvallen;
     125           0 :   depth = 0;
     126           0 :   if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
     127           0 :     return err;
     128           0 :   if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
     129           0 :     return err;
     130           0 :   if (tok && toklen == 7 && !memcmp ("sig-val", tok, toklen))
     131             :     ;
     132           0 :   else if (tok && toklen == 10 && !memcmp ("public-key", tok, toklen))
     133           0 :     is_pubkey = 1;
     134             :   else
     135           0 :     return gpg_error (GPG_ERR_UNKNOWN_SEXP);
     136           0 :   if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
     137           0 :     return err;
     138           0 :   if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
     139           0 :     return err;
     140           0 :   if (!tok || toklen != 3 || memcmp ("rsa", tok, toklen))
     141           0 :     return gpg_error (GPG_ERR_WRONG_PUBKEY_ALGO);
     142             : 
     143           0 :   last_depth1 = depth;
     144           0 :   while (!(err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen))
     145           0 :          && depth && depth >= last_depth1)
     146             :     {
     147           0 :       if (tok)
     148           0 :         return gpg_error (GPG_ERR_UNKNOWN_SEXP);
     149           0 :       if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
     150           0 :         return err;
     151           0 :       if (tok && toklen == 1)
     152             :         {
     153             :           const unsigned char **mpi;
     154             :           size_t *mpi_len;
     155             : 
     156           0 :           switch (*tok)
     157             :             {
     158           0 :             case 's': mpi = &rsa_s; mpi_len = &rsa_s_len; break;
     159           0 :             default:  mpi = NULL;   mpi_len = NULL; break;
     160             :             }
     161           0 :           if (mpi && *mpi)
     162           0 :             return gpg_error (GPG_ERR_DUP_VALUE);
     163             : 
     164           0 :           if ((err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen)))
     165           0 :             return err;
     166           0 :           if (tok && mpi)
     167             :             {
     168           0 :               *mpi = tok;
     169           0 :               *mpi_len = toklen;
     170             :             }
     171             :         }
     172             : 
     173             :       /* Skip to the end of the list. */
     174           0 :       last_depth2 = depth;
     175           0 :       while (!(err = parse_sexp (&buf, &buflen, &depth, &tok, &toklen))
     176           0 :              && depth && depth >= last_depth2)
     177             :         ;
     178           0 :       if (err)
     179           0 :         return err;
     180             :     }
     181           0 :   if (err)
     182           0 :     return err;
     183             : 
     184             :   /* Map the hash algorithm to an OID.  */
     185           0 :   switch (mdalgo)
     186             :     {
     187             :     case GCRY_MD_SHA1:
     188           0 :       oid = "1.2.840.113549.1.1.5";  /* sha1WithRSAEncryption */
     189           0 :       break;
     190             : 
     191             :     case GCRY_MD_SHA256:
     192           0 :       oid = "1.2.840.113549.1.1.11"; /* sha256WithRSAEncryption */
     193           0 :       break;
     194             : 
     195             :     case GCRY_MD_SHA384:
     196           0 :       oid = "1.2.840.113549.1.1.12"; /* sha384WithRSAEncryption */
     197           0 :       break;
     198             : 
     199             :     case GCRY_MD_SHA512:
     200           0 :       oid = "1.2.840.113549.1.1.13"; /* sha512WithRSAEncryption */
     201           0 :       break;
     202             : 
     203             :     default:
     204           0 :       return gpg_error (GPG_ERR_DIGEST_ALGO);
     205             :     }
     206             : 
     207           0 :   if (rsa_s && !is_pubkey)
     208           0 :     err = gcry_sexp_build (&sexp, NULL, "(sig-val(%s(s%b)))",
     209             :                            oid, (int)rsa_s_len, rsa_s);
     210             :   else
     211           0 :     err = gcry_sexp_build (&sexp, NULL, "(sig-val(%s))", oid);
     212           0 :   if (err)
     213           0 :     return err;
     214           0 :   err = make_canon_sexp (sexp, r_newsigval, r_newsigvallen);
     215           0 :   gcry_sexp_release (sexp);
     216             : 
     217           0 :   return err;
     218             : }

Generated by: LCOV version 1.11