engines/ccgost/gost_eng.c

   1 /**********************************************************************
   2  *                          gost_eng.c                                *
   3  *             Copyright (c) 2005-2006 Cryptocom LTD                  *
   4  *         This file is distributed under the same license as OpenSSL *
   5  *                                                                    *
   6  *              Main file of GOST engine                              *
   7  *       for OpenSSL                                                  *
   8  *          Requires OpenSSL 0.9.9 for compilation                    *
   9  **********************************************************************/
  10 #include <string.h>
  11 #include <openssl/evp.h>
  12 #include <openssl/engine.h>
  13 #include <openssl/obj_mac.h>
  14 #include "e_gost_err.h"
  15 #include "gost_lcl.h"
  16 static const char *engine_gost_id = "gost";
  17 static const char *engine_gost_name = "Reference implementation of GOST engine";
  18
  19 /* Symmetric cipher and digest function registrar */
  20
  21 static int gost_ciphers(ENGINE *e, const EVP_CIPHER **cipher,
  22         const int **nids, int nid);
  23
  24 static int gost_digests(ENGINE *e, const EVP_MD **digest,
  25         const int **nids, int ind);
  26
  27 static int gost_pkey_meths (ENGINE *e, EVP_PKEY_METHOD **pmeth,
  28         const int **nids, int nid);
  29
  30 static int gost_pkey_asn1_meths (ENGINE *e, EVP_PKEY_ASN1_METHOD **ameth,
  31         const int **nids, int nid);
  32
  33 static int gost_cipher_nids[] =
  34     {NID_id_Gost28147_89, NID_gost89_cnt,0};
  35
  36 static int gost_digest_nids[] =
  37         {NID_id_GostR3411_94,NID_id_Gost28147_89_MAC, 0};
  38
  39 static int gost_pkey_meth_nids[] =
  40         {NID_id_GostR3410_94,
  41          NID_id_GostR3410_2001, NID_id_Gost28147_89_MAC, 0};
  42
  43 static EVP_PKEY_METHOD *pmeth_GostR3410_94 = NULL,
  44          *pmeth_GostR3410_2001 = NULL,
  45         *pmeth_Gost28147_MAC = NULL;
  46
  47 static EVP_PKEY_ASN1_METHOD *ameth_GostR3410_94 = NULL,
  48         *ameth_GostR3410_2001 = NULL,
  49         *ameth_Gost28147_MAC = NULL;
  50
  51
  52 static int gost_engine_init(ENGINE *e)
  53         {
  54         return 1;
  55         }
  56
  57 static int gost_engine_finish(ENGINE *e)
  58         {
  59         return 1;
  60         }
  61
  62 static int gost_engine_destroy(ENGINE *e)
  63         {
  64         gost_param_free();
  65         return 1;
  66         }
  67
  68 static int bind_gost (ENGINE *e,const char *id)
  69         {
  70         int ret = 0;
  71         if (id && strcmp(id, engine_gost_id)) return 0;
  72
  73         if (!ENGINE_set_id(e, engine_gost_id))
  74                 {
  75                 printf("ENGINE_set_id failed\n");
  76                 goto end;
  77                 }
  78         if (!ENGINE_set_name(e, engine_gost_name))
  79                 {
  80                 printf("ENGINE_set_name failed\n");
  81                 goto end;
  82                 }
  83         if (!ENGINE_set_digests(e, gost_digests))
  84                 {
  85                 printf("ENGINE_set_digests failed\n");
  86                 goto end;
  87                 }
  88         if (! ENGINE_set_ciphers(e, gost_ciphers))
  89                 {
  90                 printf("ENGINE_set_ciphers failed\n");
  91                 goto end;
  92                 }
  93         if (! ENGINE_set_pkey_meths(e, gost_pkey_meths))
  94                 {
  95                 printf("ENGINE_set_pkey_meths failed\n");
  96                 goto end;
  97                 }
  98         if (! ENGINE_set_pkey_asn1_meths(e, gost_pkey_asn1_meths))
  99                 {
 100                 printf("ENGINE_set_pkey_asn1_meths failed\n");
 101                 goto end;
 102                 }
 103         /* Control function and commands */
 104         if (!ENGINE_set_cmd_defns(e,gost_cmds))
 105                 {
 106                 fprintf(stderr,"ENGINE_set_cmd_defns failed\n");
 107                 goto end;
 108                 }
 109         if (!ENGINE_set_ctrl_function(e,gost_control_func))
 110                 {
 111                 fprintf(stderr,"ENGINE_set_ctrl_func failed\n");
 112                 goto end;
 113                 }
 114         if ( ! ENGINE_set_destroy_function(e, gost_engine_destroy)
 115                 || ! ENGINE_set_init_function(e,gost_engine_init)
 116                 || ! ENGINE_set_finish_function(e,gost_engine_finish))
 117                 {
 118                 goto end;
 119                 }
 120
 121         if (!register_ameth_gost(NID_id_GostR3410_94, &ameth_GostR3410_94, "GOST94", "GOST R 34.10-94")) goto end;
 122         if (!register_ameth_gost(NID_id_GostR3410_2001, &ameth_GostR3410_2001, "GOST2001", "GOST R 34.10-2001")) goto end;
 123         if (!register_ameth_gost(NID_id_Gost28147_89_MAC, &ameth_Gost28147_MAC,
 124                 "GOST-MAC", "GOST 28147-89 MAC")) goto end;
 125
 126         if (!register_pmeth_gost(NID_id_GostR3410_94, &pmeth_GostR3410_94, 0)) goto end;
 127         if (!register_pmeth_gost(NID_id_GostR3410_2001, &pmeth_GostR3410_2001, 0)) goto end;
 128         if (!register_pmeth_gost(NID_id_Gost28147_89_MAC, &pmeth_Gost28147_MAC, 0))
 129                 goto end;
 130         if ( ! ENGINE_register_ciphers(e)
 131                 || ! ENGINE_register_digests(e)
 132                 || ! ENGINE_register_pkey_meths(e)
 133                 /* These two actually should go in LIST_ADD command */
 134                 || ! EVP_add_cipher(&cipher_gost)
 135                 || ! EVP_add_cipher(&cipher_gost_cpacnt)
 136                 || ! EVP_add_digest(&digest_gost)
 137                 || ! EVP_add_digest(&imit_gost_cpa)
 138                 )
 139                 {
 140                 goto end;
 141                 }
 142
 143         ERR_load_GOST_strings();
 144         ret = 1;
 145         end:
 146         return ret;
 147         }
 148
 149 #ifndef OPENSSL_NO_DYNAMIC_ENGINE
 150 IMPLEMENT_DYNAMIC_BIND_FN(bind_gost)
 151 IMPLEMENT_DYNAMIC_CHECK_FN()
 152 #endif  /* ndef OPENSSL_NO_DYNAMIC_ENGINE */
 153
 154 static int gost_digests(ENGINE *e, const EVP_MD **digest,
 155         const int **nids, int nid)
 156         {
 157         int ok =1 ;
 158         if (!digest)
 159                 {
 160                 *nids = gost_digest_nids;
 161                 return 2;
 162                 }
 163         /*printf("Digest no %d requested\n",nid);*/
 164         if(nid == NID_id_GostR3411_94)
 165                 {
 166                 *digest = &digest_gost;
 167                 }
 168         else if (nid == NID_id_Gost28147_89_MAC)
 169                 {
 170                 *digest = &imit_gost_cpa;
 171                 }
 172         else
 173                 {
 174                 ok =0;
 175                 *digest = NULL;
 176                 }
 177         return ok;
 178         }
 179
 180 static int gost_ciphers (ENGINE *e,const EVP_CIPHER **cipher,
 181         const int **nids, int nid)
 182         {
 183         int ok = 1;
 184         if (!cipher)
 185                 {
 186                 *nids = gost_cipher_nids;
 187                 return 2; /* two ciphers are supported */
 188                 }
 189
 190         if(nid == NID_id_Gost28147_89)
 191                 {
 192                 *cipher = &cipher_gost;
 193                 }
 194         else if  (nid == NID_gost89_cnt)
 195                 {
 196                 *cipher = &cipher_gost_cpacnt;
 197                 }
 198         else
 199                 {
 200                 ok = 0;
 201                 *cipher = NULL;
 202                 }
 203         return ok;
 204         }
 205
 206 static int gost_pkey_meths (ENGINE *e, EVP_PKEY_METHOD **pmeth,
 207         const int **nids, int nid)
 208         {
 209         if (!pmeth)
 210                 {
 211                 *nids = gost_pkey_meth_nids;
 212                 return 3;
 213                 }
 214
 215         switch (nid)
 216                 {
 217                 case NID_id_GostR3410_94: *pmeth = pmeth_GostR3410_94; return 1;
 218                 case NID_id_GostR3410_2001: *pmeth = pmeth_GostR3410_2001; return 1;
 219                 case NID_id_Gost28147_89_MAC: *pmeth = pmeth_Gost28147_MAC; return 1;
 220                 default:;
 221                 }
 222
 223         *pmeth = NULL;
 224         return 0;
 225         }
 226
 227 static int gost_pkey_asn1_meths (ENGINE *e, EVP_PKEY_ASN1_METHOD **ameth,
 228         const int **nids, int nid)
 229         {
 230         if (!ameth)
 231                 {
 232                 *nids = gost_pkey_meth_nids;
 233                 return 3;
 234                 }
 235         switch (nid)
 236                 {
 237                 case NID_id_GostR3410_94: *ameth = ameth_GostR3410_94; return 1;
 238                 case NID_id_GostR3410_2001: *ameth = ameth_GostR3410_2001; return 1;
 239                 case NID_id_Gost28147_89_MAC: *ameth = ameth_Gost28147_MAC; return 1;
 240
 241                 default:;
 242                 }
 243
 244         *ameth = NULL;
 245         return 0;
 246         }
 247
 248 #ifdef OPENSSL_NO_DYNAMIC_ENGINE
 249 static ENGINE *engine_gost(void)
 250         {
 251         ENGINE *ret = ENGINE_new();
 252         if (!ret)
 253                 return NULL;
 254         if (!bind_gost(ret,engine_gost_id))
 255                 {
 256                 ENGINE_free(ret);
 257                 return NULL;
 258                 }
 259         return ret;
 260         }
 261
 262 void ENGINE_load_gost(void)
 263         {
 264         ENGINE *toadd =engine_gost();
 265         if (!toadd) return;
 266         ENGINE_add(toadd);
 267         ENGINE_free(toadd);
 268         ERR_clear_error();
 269         }
 270 #endif
 271