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, 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                 )
 141                 {
 142                 goto end;
 143                 }
 144
 145         ERR_load_GOST_strings();
 146         ret = 1;
 147         end:
 148         return ret;
 149         }
 150
 151 #ifndef OPENSSL_NO_DYNAMIC_ENGINE
 152 IMPLEMENT_DYNAMIC_BIND_FN(bind_gost)
 153 IMPLEMENT_DYNAMIC_CHECK_FN()
 154 #endif  /* ndef OPENSSL_NO_DYNAMIC_ENGINE */
 155
 156 static int gost_digests(ENGINE *e, const EVP_MD **digest,
 157         const int **nids, int nid)
 158         {
 159         int ok =1 ;
 160         if (!digest)
 161                 {
 162                 *nids = gost_digest_nids;
 163                 return 1;
 164                 }
 165         /*printf("Digest no %d requested\n",nid);*/
 166         if(nid == NID_id_GostR3411_94)
 167                 {
 168                 *digest = &digest_gost;
 169                 }
 170         else
 171                 {
 172                 ok =0;
 173                 *digest = NULL;
 174                 }
 175         return ok;
 176         }
 177
 178 static int gost_ciphers (ENGINE *e,const EVP_CIPHER **cipher,
 179         const int **nids, int nid)
 180         {
 181         int ok = 1;
 182         if (!cipher)
 183                 {
 184                 *nids = gost_cipher_nids;
 185                 return 2; /* two ciphers are supported */
 186                 }
 187
 188         if(nid == NID_id_Gost28147_89)
 189                 {
 190                 *cipher = &cipher_gost;
 191                 }
 192         else if  (nid == NID_gost89_cnt)
 193                 {
 194                 *cipher = &cipher_gost_cpacnt;
 195                 }
 196         else
 197                 {
 198                 ok = 0;
 199                 *cipher = NULL;
 200                 }
 201         return ok;
 202         }
 203
 204 static int gost_pkey_meths (ENGINE *e, EVP_PKEY_METHOD **pmeth,
 205         const int **nids, int nid)
 206         {
 207         if (!pmeth)
 208                 {
 209                 *nids = gost_pkey_meth_nids;
 210                 return 5;
 211                 }
 212
 213         switch (nid)
 214                 {
 215                 case NID_id_GostR3410_94_cc: *pmeth = pmeth_GostR3410_94_cc; return 1;
 216                 case NID_id_GostR3410_94: *pmeth = pmeth_GostR3410_94; return 1;
 217                 case NID_id_GostR3410_2001_cc: *pmeth = pmeth_GostR3410_2001_cc; 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 5;
 234                 }
 235         switch (nid)
 236                 {
 237                 case NID_id_GostR3410_94_cc: *ameth = ameth_GostR3410_94_cc; return 1;
 238                 case NID_id_GostR3410_94: *ameth = ameth_GostR3410_94; return 1;
 239                 case NID_id_GostR3410_2001_cc: *ameth = ameth_GostR3410_2001_cc; return 1;
 240                 case NID_id_GostR3410_2001: *ameth = ameth_GostR3410_2001; return 1;
 241                 case NID_id_Gost28147_89_MAC: *ameth = ameth_Gost28147_MAC; return 1;
 242
 243                 default:;
 244                 }
 245
 246         *ameth = NULL;
 247         return 0;
 248         }
 249
 250 #ifdef OPENSSL_NO_DYNAMIC_ENGINE
 251 static ENGINE *engine_gost(void)
 252         {
 253         ENGINE *ret = ENGINE_new();
 254         if (!ret)
 255                 return NULL;
 256         if (!bind_gost(ret,engine_gost_id))
 257                 {
 258                 ENGINE_free(ret);
 259                 return NULL;
 260                 }
 261         return ret;
 262         }
 263
 264 void ENGINE_load_gost(void)
 265         {
 266         ENGINE *toadd =engine_gost();
 267         if (!toadd) return;
 268         ENGINE_add(toadd);
 269         ENGINE_free(toadd);
 270         ERR_clear_error();
 271         }
 272 #endif
 273