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_cc, NID_id_GostR3410_94, NID_id_GostR3410_2001_cc,
  41          NID_id_GostR3410_2001, NID_id_Gost28147_89_MAC, 0};
  42
  43 static EVP_PKEY_METHOD *pmeth_GostR3410_94_cc = NULL, *pmeth_GostR3410_94 = NULL,
  44         *pmeth_GostR3410_2001_cc = NULL, *pmeth_GostR3410_2001 = NULL,
  45         *pmeth_Gost28147_MAC = NULL;
  46
  47 static EVP_PKEY_ASN1_METHOD *ameth_GostR3410_94_cc = NULL, *ameth_GostR3410_94 = NULL,
  48         *ameth_GostR3410_2001_cc = NULL, *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         return 1;
  65         }
  66
  67 static int bind_gost (ENGINE *e,const char *id)
  68         {
  69         int ret = 0;
  70         if (id && strcmp(id, engine_gost_id)) return 0;
  71
  72         if (!ENGINE_set_id(e, engine_gost_id))
  73                 {
  74                 printf("ENGINE_set_id failed\n");
  75                 goto end;
  76                 }
  77         if (!ENGINE_set_name(e, engine_gost_name))
  78                 {
  79                 printf("ENGINE_set_name failed\n");
  80                 goto end;
  81                 }
  82         if (!ENGINE_set_digests(e, gost_digests))
  83                 {
  84                 printf("ENGINE_set_digests failed\n");
  85                 goto end;
  86                 }
  87         if (! ENGINE_set_ciphers(e, gost_ciphers))
  88                 {
  89                 printf("ENGINE_set_ciphers failed\n");
  90                 goto end;
  91                 }
  92         if (! ENGINE_set_pkey_meths(e, gost_pkey_meths))
  93                 {
  94                 printf("ENGINE_set_pkey_meths failed\n");
  95                 goto end;
  96                 }
  97         if (! ENGINE_set_pkey_asn1_meths(e, gost_pkey_asn1_meths))
  98                 {
  99                 printf("ENGINE_set_pkey_asn1_meths failed\n");
 100                 goto end;
 101                 }
 102         /* Control function and commands */
 103         if (!ENGINE_set_cmd_defns(e,gost_cmds))
 104                 {
 105                 fprintf(stderr,"ENGINE_set_cmd_defns failed\n");
 106                 goto end;
 107                 }
 108         if (!ENGINE_set_ctrl_function(e,gost_control_func))
 109                 {
 110                 fprintf(stderr,"ENGINE_set_ctrl_func failed\n");
 111                 goto end;
 112                 }
 113         if ( ! ENGINE_set_destroy_function(e, gost_engine_destroy)
 114                 || ! ENGINE_set_init_function(e,gost_engine_init)
 115                 || ! ENGINE_set_finish_function(e,gost_engine_finish))
 116                 {
 117                 goto end;
 118                 }
 119
 120         if (!register_ameth_gost(NID_id_GostR3410_94_cc, &ameth_GostR3410_94_cc, "GOST94CC", "GOST R 34.10-94, Cryptocom LTD implementation")) goto end;
 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_cc, &ameth_GostR3410_2001_cc, "GOST2001CC", "GOST R 34.10-2001, Cryptocom LTD implementation")) goto end;
 123         if (!register_ameth_gost(NID_id_GostR3410_2001, &ameth_GostR3410_2001, "GOST2001", "GOST R 34.10-2001")) goto end;
 124         if (!register_ameth_gost(NID_id_Gost28147_89_MAC, &ameth_Gost28147_MAC,
 125                 "GOST-MAC", "GOST 28147-89 MAC")) goto end;
 126
 127         if (!register_pmeth_gost(NID_id_GostR3410_94_cc, &pmeth_GostR3410_94_cc, 0)) goto end;
 128         if (!register_pmeth_gost(NID_id_GostR3410_94, &pmeth_GostR3410_94, 0)) goto end;
 129         if (!register_pmeth_gost(NID_id_GostR3410_2001_cc, &pmeth_GostR3410_2001_cc, 0)) goto end;
 130         if (!register_pmeth_gost(NID_id_GostR3410_2001, &pmeth_GostR3410_2001, 0)) goto end;
 131         if (!register_pmeth_gost(NID_id_Gost28147_89_MAC, &pmeth_Gost28147_MAC, 0))
 132                 goto end;
 133         if ( ! ENGINE_register_ciphers(e)
 134                 || ! ENGINE_register_digests(e)
 135                 || ! ENGINE_register_pkey_meths(e)
 136                 /* These two actually should go in LIST_ADD command */
 137                 || ! EVP_add_cipher(&cipher_gost)
 138                 || ! EVP_add_cipher(&cipher_gost_cpacnt)
 139                 || ! EVP_add_digest(&digest_gost)
 140                 || ! EVP_add_digest(&imit_gost_cpa)
 141                 )
 142                 {
 143                 goto end;
 144                 }
 145
 146         ERR_load_GOST_strings();
 147         ret = 1;
 148         end:
 149         return ret;
 150         }
 151
 152 #ifndef OPENSSL_NO_DYNAMIC_ENGINE
 153 IMPLEMENT_DYNAMIC_BIND_FN(bind_gost)
 154 IMPLEMENT_DYNAMIC_CHECK_FN()
 155 #endif  /* ndef OPENSSL_NO_DYNAMIC_ENGINE */
 156
 157 static int gost_digests(ENGINE *e, const EVP_MD **digest,
 158         const int **nids, int nid)
 159         {
 160         int ok =1 ;
 161         if (!digest)
 162                 {
 163                 *nids = gost_digest_nids;
 164                 return 2;
 165                 }
 166         /*printf("Digest no %d requested\n",nid);*/
 167         if(nid == NID_id_GostR3411_94)
 168                 {
 169                 *digest = &digest_gost;
 170                 }
 171         else if (nid == NID_id_Gost28147_89_MAC)
 172                 {
 173                 *digest = &imit_gost_cpa;
 174                 }
 175         else
 176                 {
 177                 ok =0;
 178                 *digest = NULL;
 179                 }
 180         return ok;
 181         }
 182
 183 static int gost_ciphers (ENGINE *e,const EVP_CIPHER **cipher,
 184         const int **nids, int nid)
 185         {
 186         int ok = 1;
 187         if (!cipher)
 188                 {
 189                 *nids = gost_cipher_nids;
 190                 return 2; /* two ciphers are supported */
 191                 }
 192
 193         if(nid == NID_id_Gost28147_89)
 194                 {
 195                 *cipher = &cipher_gost;
 196                 }
 197         else if  (nid == NID_gost89_cnt)
 198                 {
 199                 *cipher = &cipher_gost_cpacnt;
 200                 }
 201         else
 202                 {
 203                 ok = 0;
 204                 *cipher = NULL;
 205                 }
 206         return ok;
 207         }
 208
 209 static int gost_pkey_meths (ENGINE *e, EVP_PKEY_METHOD **pmeth,
 210         const int **nids, int nid)
 211         {
 212         if (!pmeth)
 213                 {
 214                 *nids = gost_pkey_meth_nids;
 215                 return 5;
 216                 }
 217
 218         switch (nid)
 219                 {
 220                 case NID_id_GostR3410_94_cc: *pmeth = pmeth_GostR3410_94_cc; return 1;
 221                 case NID_id_GostR3410_94: *pmeth = pmeth_GostR3410_94; return 1;
 222                 case NID_id_GostR3410_2001_cc: *pmeth = pmeth_GostR3410_2001_cc; return 1;
 223                 case NID_id_GostR3410_2001: *pmeth = pmeth_GostR3410_2001; return 1;
 224                 case NID_id_Gost28147_89_MAC: *pmeth = pmeth_Gost28147_MAC; return 1;
 225                 default:;
 226                 }
 227
 228         *pmeth = NULL;
 229         return 0;
 230         }
 231
 232 static int gost_pkey_asn1_meths (ENGINE *e, EVP_PKEY_ASN1_METHOD **ameth,
 233         const int **nids, int nid)
 234         {
 235         if (!ameth)
 236                 {
 237                 *nids = gost_pkey_meth_nids;
 238                 return 5;
 239                 }
 240         switch (nid)
 241                 {
 242                 case NID_id_GostR3410_94_cc: *ameth = ameth_GostR3410_94_cc; return 1;
 243                 case NID_id_GostR3410_94: *ameth = ameth_GostR3410_94; return 1;
 244                 case NID_id_GostR3410_2001_cc: *ameth = ameth_GostR3410_2001_cc; return 1;
 245                 case NID_id_GostR3410_2001: *ameth = ameth_GostR3410_2001; return 1;
 246                 case NID_id_Gost28147_89_MAC: *ameth = ameth_Gost28147_MAC; return 1;
 247
 248                 default:;
 249                 }
 250
 251         *ameth = NULL;
 252         return 0;
 253         }
 254
 255 #ifdef OPENSSL_NO_DYNAMIC_ENGINE
 256 static ENGINE *engine_gost(void)
 257         {
 258         ENGINE *ret = ENGINE_new();
 259         if (!ret)
 260                 return NULL;
 261         if (!bind_gost(ret,engine_gost_id))
 262                 {
 263                 ENGINE_free(ret);
 264                 return NULL;
 265                 }
 266         return ret;
 267         }
 268
 269 void ENGINE_load_gost(void)
 270         {
 271         ENGINE *toadd =engine_gost();
 272         if (!toadd) return;
 273         ENGINE_add(toadd);
 274         ENGINE_free(toadd);
 275         ERR_clear_error();
 276         }
 277 #endif
 278