engines/afalg/e_afalg.c

   1 /*
   2  * Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the OpenSSL license (the "License").  You may not use
   5  * this file except in compliance with the License.  You can obtain a copy
   6  * in the file LICENSE in the source distribution or at
   7  * https://www.openssl.org/source/license.html
   8  */
   9
  10 /* Required for vmsplice */
  11 #define _GNU_SOURCE
  12 #include <stdio.h>
  13 #include <string.h>
  14 #include <unistd.h>
  15
  16 #include <openssl/engine.h>
  17 #include <openssl/async.h>
  18 #include <openssl/err.h>
  19
  20 #include <linux/version.h>
  21 #define K_MAJ   4
  22 #define K_MIN1  1
  23 #define K_MIN2  0
  24 #if LINUX_VERSION_CODE <= KERNEL_VERSION(K_MAJ, K_MIN1, K_MIN2)
  25 # warning "AFALG ENGINE requires Kernel Headers >= 4.1.0"
  26 # warning "Skipping Compilation of AFALG engine"
  27 void engine_load_afalg_int(void)
  28 {
  29 }
  30 #else
  31
  32 # include <linux/if_alg.h>
  33 # include <sys/socket.h>
  34 # include <fcntl.h>
  35 # include <sys/utsname.h>
  36
  37 # include <linux/aio_abi.h>
  38 # include <sys/syscall.h>
  39 # include <errno.h>
  40
  41 # include "e_afalg.h"
  42
  43 # define AFALG_LIB_NAME "AFALG"
  44 # include "e_afalg_err.h"
  45
  46 # ifndef SOL_ALG
  47 #  define SOL_ALG 279
  48 # endif
  49
  50 # ifdef ALG_ZERO_COPY
  51 #  ifndef SPLICE_F_GIFT
  52 #   define SPLICE_F_GIFT    (0x08)
  53 #  endif
  54 # endif
  55
  56 # define ALG_AES_IV_LEN 16
  57 # define ALG_IV_LEN(len) (sizeof(struct af_alg_iv) + (len))
  58 # define ALG_OP_TYPE     unsigned int
  59 # define ALG_OP_LEN      (sizeof(ALG_OP_TYPE))
  60
  61 #define ALG_MAX_SALG_NAME       64
  62 #define ALG_MAX_SALG_TYPE       14
  63
  64 # ifdef OPENSSL_NO_DYNAMIC_ENGINE
  65 void engine_load_afalg_int(void);
  66 # endif
  67
  68 /* Local Linkage Functions */
  69 static int afalg_init_aio(afalg_aio *aio);
  70 static int afalg_fin_cipher_aio(afalg_aio *ptr, int sfd,
  71                                 unsigned char *buf, size_t len);
  72 static int afalg_create_sk(afalg_ctx *actx, const char *ciphertype,
  73                                 const char *ciphername);
  74 static int afalg_destroy(ENGINE *e);
  75 static int afalg_init(ENGINE *e);
  76 static int afalg_finish(ENGINE *e);
  77 const EVP_CIPHER *afalg_aes_128_cbc(void);
  78 static int afalg_ciphers(ENGINE *e, const EVP_CIPHER **cipher,
  79                          const int **nids, int nid);
  80 static int afalg_cipher_init(EVP_CIPHER_CTX *ctx, const unsigned char *key,
  81                              const unsigned char *iv, int enc);
  82 static int afalg_do_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
  83                            const unsigned char *in, size_t inl);
  84 static int afalg_cipher_cleanup(EVP_CIPHER_CTX *ctx);
  85 static int afalg_chk_platform(void);
  86
  87 /* Engine Id and Name */
  88 static const char *engine_afalg_id = "afalg";
  89 static const char *engine_afalg_name = "AFALG engine support";
  90
  91 static int afalg_cipher_nids[] = {
  92     NID_aes_128_cbc
  93 };
  94
  95 static EVP_CIPHER *_hidden_aes_128_cbc = NULL;
  96
  97 static ossl_inline int io_setup(unsigned n, aio_context_t *ctx)
  98 {
  99     return syscall(__NR_io_setup, n, ctx);
 100 }
 101
 102 static ossl_inline int eventfd(int n)
 103 {
 104     return syscall(__NR_eventfd, n);
 105 }
 106
 107 static ossl_inline int io_destroy(aio_context_t ctx)
 108 {
 109     return syscall(__NR_io_destroy, ctx);
 110 }
 111
 112 static ossl_inline int io_read(aio_context_t ctx, long n, struct iocb **iocb)
 113 {
 114     return syscall(__NR_io_submit, ctx, n, iocb);
 115 }
 116
 117 static ossl_inline int io_getevents(aio_context_t ctx, long min, long max,
 118                                struct io_event *events,
 119                                struct timespec *timeout)
 120 {
 121     return syscall(__NR_io_getevents, ctx, min, max, events, timeout);
 122 }
 123
 124 static void afalg_waitfd_cleanup(ASYNC_WAIT_CTX *ctx, const void *key,
 125                                  OSSL_ASYNC_FD waitfd, void *custom)
 126 {
 127     close(waitfd);
 128 }
 129
 130 static int afalg_setup_async_event_notification(afalg_aio *aio)
 131 {
 132     ASYNC_JOB *job;
 133     ASYNC_WAIT_CTX *waitctx;
 134     void *custom = NULL;
 135     int ret;
 136
 137     if ((job = ASYNC_get_current_job()) != NULL) {
 138         /* Async mode */
 139         waitctx = ASYNC_get_wait_ctx(job);
 140         if (waitctx == NULL) {
 141             ALG_WARN("%s: ASYNC_get_wait_ctx error", __func__);
 142             return 0;
 143         }
 144         /* Get waitfd from ASYNC_WAIT_CTX if it is alreday set */
 145         ret = ASYNC_WAIT_CTX_get_fd(waitctx, engine_afalg_id,
 146                                     &aio->efd, &custom);
 147         if (ret == 0) {
 148             /*
 149              * waitfd is not set in ASYNC_WAIT_CTX, create a new one
 150              * and set it. efd will be signaled when AIO operation completes
 151              */
 152             aio->efd = eventfd(0);
 153             if (aio->efd == -1) {
 154                 ALG_PERR("%s: Failed to get eventfd : ", __func__);
 155                 AFALGerr(AFALG_F_AFALG_SETUP_ASYNC_EVENT_NOTIFICATION,
 156                          AFALG_R_EVENTFD_FAILED);
 157                 return 0;
 158             }
 159             ret = ASYNC_WAIT_CTX_set_wait_fd(waitctx, engine_afalg_id,
 160                                              aio->efd, custom,
 161                                              afalg_waitfd_cleanup);
 162             if (ret == 0) {
 163                 ALG_WARN("%s: Failed to set wait fd", __func__);
 164                 close(aio->efd);
 165                 return 0;
 166             }
 167             /* make fd non-blocking in async mode */
 168             if (fcntl(aio->efd, F_SETFL, O_NONBLOCK) != 0) {
 169                 ALG_WARN("%s: Failed to set event fd as NONBLOCKING",
 170                          __func__);
 171             }
 172         }
 173         aio->mode = MODE_ASYNC;
 174     } else {
 175         /* Sync mode */
 176         aio->efd = eventfd(0);
 177         if (aio->efd == -1) {
 178             ALG_PERR("%s: Failed to get eventfd : ", __func__);
 179             AFALGerr(AFALG_F_AFALG_SETUP_ASYNC_EVENT_NOTIFICATION,
 180                      AFALG_R_EVENTFD_FAILED);
 181             return 0;
 182         }
 183         aio->mode = MODE_SYNC;
 184     }
 185     return 1;
 186 }
 187
 188 int afalg_init_aio(afalg_aio *aio)
 189 {
 190     int r = -1;
 191
 192     /* Initialise for AIO */
 193     aio->aio_ctx = 0;
 194     r = io_setup(MAX_INFLIGHTS, &aio->aio_ctx);
 195     if (r < 0) {
 196         ALG_PERR("%s: io_setup error : ", __func__);
 197         AFALGerr(AFALG_F_AFALG_INIT_AIO, AFALG_R_IO_SETUP_FAILED);
 198         return 0;
 199     }
 200
 201     memset(aio->cbt, 0, sizeof(aio->cbt));
 202     aio->efd = -1;
 203     aio->mode = MODE_UNINIT;
 204
 205     return 1;
 206 }
 207
 208 int afalg_fin_cipher_aio(afalg_aio *aio, int sfd, unsigned char *buf,
 209                          size_t len)
 210 {
 211     int r;
 212     int retry = 0;
 213     unsigned int done = 0;
 214     struct iocb *cb;
 215     struct timespec timeout;
 216     struct io_event events[MAX_INFLIGHTS];
 217     u_int64_t eval = 0;
 218
 219     timeout.tv_sec = 0;
 220     timeout.tv_nsec = 0;
 221
 222     /* if efd has not been initialised yet do it here */
 223     if (aio->mode == MODE_UNINIT) {
 224         r = afalg_setup_async_event_notification(aio);
 225         if (r == 0)
 226             return 0;
 227     }
 228
 229     cb = &(aio->cbt[0 % MAX_INFLIGHTS]);
 230     memset(cb, '\0', sizeof(*cb));
 231     cb->aio_fildes = sfd;
 232     cb->aio_lio_opcode = IOCB_CMD_PREAD;
 233     if (sizeof(buf) != sizeof(cb->aio_buf)) {
 234         /*
 235          * The pointer has to be converted to 32 bit unsigned value first
 236          * to avoid sign extension on cast to 64 bit value
 237          */
 238         cb->aio_buf = (uint64_t)(unsigned long)buf;
 239     } else {
 240         cb->aio_buf = (uint64_t)buf;
 241     }
 242     cb->aio_offset = 0;
 243     cb->aio_data = 0;
 244     cb->aio_nbytes = len;
 245     cb->aio_flags = IOCB_FLAG_RESFD;
 246     cb->aio_resfd = aio->efd;
 247
 248     /*
 249      * Perform AIO read on AFALG socket, this in turn performs an async
 250      * crypto operation in kernel space
 251      */
 252     r = io_read(aio->aio_ctx, 1, &cb);
 253     if (r < 0) {
 254         ALG_PWARN("%s: io_read failed : ", __func__);
 255         return 0;
 256     }
 257
 258     do {
 259         /* While AIO read is being performed pause job */
 260         ASYNC_pause_job();
 261
 262         /* Check for completion of AIO read */
 263         r = read(aio->efd, &eval, sizeof(eval));
 264         if (r < 0) {
 265             if (errno == EAGAIN || errno == EWOULDBLOCK)
 266                 continue;
 267             ALG_PERR("%s: read failed for event fd : ", __func__);
 268             return 0;
 269         } else if (r == 0 || eval <= 0) {
 270             ALG_WARN("%s: eventfd read %d bytes, eval = %lu\n", __func__, r,
 271                      eval);
 272         }
 273         if (eval > 0) {
 274
 275             /* Get results of AIO read */
 276             r = io_getevents(aio->aio_ctx, 1, MAX_INFLIGHTS,
 277                              events, &timeout);
 278             if (r > 0) {
 279                 /*
 280                  * events.res indicates the actual status of the operation.
 281                  * Handle the error condition first.
 282                  */
 283                 if (events[0].res < 0) {
 284                     /*
 285                      * Underlying operation cannot be completed at the time
 286                      * of previous submission. Resubmit for the operation.
 287                      */
 288                     if (events[0].res == -EBUSY && retry++ < 3) {
 289                         r = io_read(aio->aio_ctx, 1, &cb);
 290                         if (r < 0) {
 291                             ALG_PERR("%s: retry %d for io_read failed : ",
 292                                      __func__, retry);
 293                             return 0;
 294                         }
 295                         continue;
 296                     } else {
 297                         /*
 298                          * Retries exceed for -EBUSY or unrecoverable error
 299                          * condition for this instance of operation.
 300                          */
 301                         ALG_WARN
 302                             ("%s: Crypto Operation failed with code %lld\n",
 303                              __func__, events[0].res);
 304                         return 0;
 305                     }
 306                 }
 307                 /* Operation successful. */
 308                 done = 1;
 309             } else if (r < 0) {
 310                 ALG_PERR("%s: io_getevents failed : ", __func__);
 311                 return 0;
 312             } else {
 313                 ALG_WARN("%s: io_geteventd read 0 bytes\n", __func__);
 314             }
 315         }
 316     } while (!done);
 317
 318     return 1;
 319 }
 320
 321 static ossl_inline void afalg_set_op_sk(struct cmsghdr *cmsg,
 322                                    const unsigned int op)
 323 {
 324     cmsg->cmsg_level = SOL_ALG;
 325     cmsg->cmsg_type = ALG_SET_OP;
 326     cmsg->cmsg_len = CMSG_LEN(ALG_OP_LEN);
 327     *CMSG_DATA(cmsg) = (char)op;
 328 }
 329
 330 static void afalg_set_iv_sk(struct cmsghdr *cmsg, const unsigned char *iv,
 331                             const unsigned int len)
 332 {
 333     struct af_alg_iv *aiv;
 334
 335     cmsg->cmsg_level = SOL_ALG;
 336     cmsg->cmsg_type = ALG_SET_IV;
 337     cmsg->cmsg_len = CMSG_LEN(ALG_IV_LEN(len));
 338     aiv = (struct af_alg_iv *)CMSG_DATA(cmsg);
 339     aiv->ivlen = len;
 340     memcpy(aiv->iv, iv, len);
 341 }
 342
 343 static ossl_inline int afalg_set_key(afalg_ctx *actx, const unsigned char *key,
 344                                 const int klen)
 345 {
 346     int ret;
 347     ret = setsockopt(actx->bfd, SOL_ALG, ALG_SET_KEY, key, klen);
 348     if (ret < 0) {
 349         ALG_PERR("%s: Failed to set socket option : ", __func__);
 350         AFALGerr(AFALG_F_AFALG_SET_KEY, AFALG_R_SOCKET_SET_KEY_FAILED);
 351         return 0;
 352     }
 353
 354     return 1;
 355 }
 356
 357 static int afalg_create_sk(afalg_ctx *actx, const char *ciphertype,
 358                                 const char *ciphername)
 359 {
 360     struct sockaddr_alg sa;
 361
 362     actx->bfd = actx->sfd = -1;
 363     int r = -1;
 364
 365     memset(&sa, 0, sizeof(sa));
 366     sa.salg_family = AF_ALG;
 367     strncpy((char *) sa.salg_type, ciphertype, ALG_MAX_SALG_TYPE);
 368     sa.salg_type[ALG_MAX_SALG_TYPE-1] = '\0';
 369     strncpy((char *) sa.salg_name, ciphername, ALG_MAX_SALG_NAME);
 370     sa.salg_name[ALG_MAX_SALG_NAME-1] = '\0';
 371
 372     actx->bfd = socket(AF_ALG, SOCK_SEQPACKET, 0);
 373     if (actx->bfd == -1) {
 374         ALG_PERR("%s: Failed to open socket : ", __func__);
 375         AFALGerr(AFALG_F_AFALG_CREATE_SK, AFALG_R_SOCKET_CREATE_FAILED);
 376         goto err;
 377     }
 378
 379     r = bind(actx->bfd, (struct sockaddr *)&sa, sizeof(sa));
 380     if (r < 0) {
 381         ALG_PERR("%s: Failed to bind socket : ", __func__);
 382         AFALGerr(AFALG_F_AFALG_CREATE_SK, AFALG_R_SOCKET_BIND_FAILED);
 383         goto err;
 384     }
 385
 386     actx->sfd = accept(actx->bfd, NULL, 0);
 387     if (actx->sfd < 0) {
 388         ALG_PERR("%s: Socket Accept Failed : ", __func__);
 389         AFALGerr(AFALG_F_AFALG_CREATE_SK, AFALG_R_SOCKET_ACCEPT_FAILED);
 390         goto err;
 391     }
 392
 393     return 1;
 394
 395  err:
 396     if (actx->bfd >= 0)
 397         close(actx->bfd);
 398     if (actx->sfd >= 0)
 399         close(actx->sfd);
 400     actx->bfd = actx->sfd = -1;
 401     return 0;
 402 }
 403
 404 static int afalg_start_cipher_sk(afalg_ctx *actx, const unsigned char *in,
 405                                  size_t inl, const unsigned char *iv,
 406                                  unsigned int enc)
 407 {
 408     struct msghdr msg = { 0 };
 409     struct cmsghdr *cmsg;
 410     struct iovec iov;
 411     ssize_t sbytes;
 412 # ifdef ALG_ZERO_COPY
 413     int ret;
 414 # endif
 415     char cbuf[CMSG_SPACE(ALG_IV_LEN(ALG_AES_IV_LEN)) + CMSG_SPACE(ALG_OP_LEN)];
 416
 417     memset(cbuf, 0, sizeof(cbuf));
 418     msg.msg_control = cbuf;
 419     msg.msg_controllen = sizeof(cbuf);
 420
 421     /*
 422      * cipher direction (i.e. encrypt or decrypt) and iv are sent to the
 423      * kernel as part of sendmsg()'s ancillary data
 424      */
 425     cmsg = CMSG_FIRSTHDR(&msg);
 426     afalg_set_op_sk(cmsg, enc);
 427     cmsg = CMSG_NXTHDR(&msg, cmsg);
 428     afalg_set_iv_sk(cmsg, iv, ALG_AES_IV_LEN);
 429
 430     /* iov that describes input data */
 431     iov.iov_base = (unsigned char *)in;
 432     iov.iov_len = inl;
 433
 434     msg.msg_flags = MSG_MORE;
 435
 436 # ifdef ALG_ZERO_COPY
 437     /*
 438      * ZERO_COPY mode
 439      * Works best when buffer is 4k aligned
 440      * OPENS: out of place processing (i.e. out != in)
 441      */
 442
 443     /* Input data is not sent as part of call to sendmsg() */
 444     msg.msg_iovlen = 0;
 445     msg.msg_iov = NULL;
 446
 447     /* Sendmsg() sends iv and cipher direction to the kernel */
 448     sbytes = sendmsg(actx->sfd, &msg, 0);
 449     if (sbytes < 0) {
 450         ALG_PERR("%s: sendmsg failed for zero copy cipher operation : ",
 451                  __func__);
 452         return 0;
 453     }
 454
 455     /*
 456      * vmsplice and splice are used to pin the user space input buffer for
 457      * kernel space processing avoiding copys from user to kernel space
 458      */
 459     ret = vmsplice(actx->zc_pipe[1], &iov, 1, SPLICE_F_GIFT);
 460     if (ret < 0) {
 461         ALG_PERR("%s: vmsplice failed : ", __func__);
 462         return 0;
 463     }
 464
 465     ret = splice(actx->zc_pipe[0], NULL, actx->sfd, NULL, inl, 0);
 466     if (ret < 0) {
 467         ALG_PERR("%s: splice failed : ", __func__);
 468         return 0;
 469     }
 470 # else
 471     msg.msg_iovlen = 1;
 472     msg.msg_iov = &iov;
 473
 474     /* Sendmsg() sends iv, cipher direction and input data to the kernel */
 475     sbytes = sendmsg(actx->sfd, &msg, 0);
 476     if (sbytes < 0) {
 477         ALG_PERR("%s: sendmsg failed for cipher operation : ", __func__);
 478         return 0;
 479     }
 480
 481     if (sbytes != (ssize_t) inl) {
 482         ALG_WARN("Cipher operation send bytes %zd != inlen %zd\n", sbytes,
 483                 inl);
 484         return 0;
 485     }
 486 # endif
 487
 488     return 1;
 489 }
 490
 491 static int afalg_cipher_init(EVP_CIPHER_CTX *ctx, const unsigned char *key,
 492                              const unsigned char *iv, int enc)
 493 {
 494     int ciphertype;
 495     int ret;
 496     afalg_ctx *actx;
 497     char ciphername[ALG_MAX_SALG_NAME];
 498
 499     if (ctx == NULL || key == NULL) {
 500         ALG_WARN("%s: Null Parameter\n", __func__);
 501         return 0;
 502     }
 503
 504     if (EVP_CIPHER_CTX_cipher(ctx) == NULL) {
 505         ALG_WARN("%s: Cipher object NULL\n", __func__);
 506         return 0;
 507     }
 508
 509     actx = EVP_CIPHER_CTX_get_cipher_data(ctx);
 510     if (actx == NULL) {
 511         ALG_WARN("%s: Cipher data NULL\n", __func__);
 512         return 0;
 513     }
 514
 515     ciphertype = EVP_CIPHER_CTX_nid(ctx);
 516     switch (ciphertype) {
 517     case NID_aes_128_cbc:
 518         strncpy(ciphername, "cbc(aes)", ALG_MAX_SALG_NAME);
 519         break;
 520     default:
 521         ALG_WARN("%s: Unsupported Cipher type %d\n", __func__, ciphertype);
 522         return 0;
 523     }
 524     ciphername[ALG_MAX_SALG_NAME-1]='\0';
 525
 526     if (ALG_AES_IV_LEN != EVP_CIPHER_CTX_iv_length(ctx)) {
 527         ALG_WARN("%s: Unsupported IV length :%d\n", __func__,
 528                 EVP_CIPHER_CTX_iv_length(ctx));
 529         return 0;
 530     }
 531
 532     /* Setup AFALG socket for crypto processing */
 533     ret = afalg_create_sk(actx, "skcipher", ciphername);
 534     if (ret < 1)
 535         return 0;
 536
 537
 538     ret = afalg_set_key(actx, key, EVP_CIPHER_CTX_key_length(ctx));
 539     if (ret < 1)
 540         goto err;
 541
 542     /* Setup AIO ctx to allow async AFALG crypto processing */
 543     if (afalg_init_aio(&actx->aio) == 0)
 544         goto err;
 545
 546 # ifdef ALG_ZERO_COPY
 547     pipe(actx->zc_pipe);
 548 # endif
 549
 550     actx->init_done = MAGIC_INIT_NUM;
 551
 552     return 1;
 553
 554 err:
 555     close(actx->sfd);
 556     close(actx->bfd);
 557     return 0;
 558 }
 559
 560 static int afalg_do_cipher(EVP_CIPHER_CTX *ctx, unsigned char *out,
 561                            const unsigned char *in, size_t inl)
 562 {
 563     afalg_ctx *actx;
 564     int ret;
 565     char nxtiv[ALG_AES_IV_LEN] = { 0 };
 566
 567     if (ctx == NULL || out == NULL || in == NULL) {
 568         ALG_WARN("NULL parameter passed to function %s\n", __func__);
 569         return 0;
 570     }
 571
 572     actx = (afalg_ctx *) EVP_CIPHER_CTX_get_cipher_data(ctx);
 573     if (actx == NULL || actx->init_done != MAGIC_INIT_NUM) {
 574         ALG_WARN("%s afalg ctx passed\n",
 575                  ctx == NULL ? "NULL" : "Uninitialised");
 576         return 0;
 577     }
 578
 579     /*
 580      * set iv now for decrypt operation as the input buffer can be
 581      * overwritten for inplace operation where in = out.
 582      */
 583     if (EVP_CIPHER_CTX_encrypting(ctx) == 0) {
 584         memcpy(nxtiv, in + (inl - ALG_AES_IV_LEN), ALG_AES_IV_LEN);
 585     }
 586
 587     /* Send input data to kernel space */
 588     ret = afalg_start_cipher_sk(actx, (unsigned char *)in, inl,
 589                                 EVP_CIPHER_CTX_iv(ctx),
 590                                 EVP_CIPHER_CTX_encrypting(ctx));
 591     if (ret < 1) {
 592         return 0;
 593     }
 594
 595     /* Perform async crypto operation in kernel space */
 596     ret = afalg_fin_cipher_aio(&actx->aio, actx->sfd, out, inl);
 597     if (ret < 1)
 598         return 0;
 599
 600     if (EVP_CIPHER_CTX_encrypting(ctx)) {
 601         memcpy(EVP_CIPHER_CTX_iv_noconst(ctx), out + (inl - ALG_AES_IV_LEN),
 602                ALG_AES_IV_LEN);
 603     } else {
 604         memcpy(EVP_CIPHER_CTX_iv_noconst(ctx), nxtiv, ALG_AES_IV_LEN);
 605     }
 606
 607     return 1;
 608 }
 609
 610 static int afalg_cipher_cleanup(EVP_CIPHER_CTX *ctx)
 611 {
 612     afalg_ctx *actx;
 613
 614     if (ctx == NULL) {
 615         ALG_WARN("NULL parameter passed to function %s\n", __func__);
 616         return 0;
 617     }
 618
 619     actx = (afalg_ctx *) EVP_CIPHER_CTX_get_cipher_data(ctx);
 620     if (actx == NULL || actx->init_done != MAGIC_INIT_NUM) {
 621         ALG_WARN("%s afalg ctx passed\n",
 622                  ctx == NULL ? "NULL" : "Uninitialised");
 623         return 0;
 624     }
 625
 626     close(actx->sfd);
 627     close(actx->bfd);
 628 # ifdef ALG_ZERO_COPY
 629     close(actx->zc_pipe[0]);
 630     close(actx->zc_pipe[1]);
 631 # endif
 632     /* close efd in sync mode, async mode is closed in afalg_waitfd_cleanup() */
 633     if (actx->aio.mode == MODE_SYNC)
 634         close(actx->aio.efd);
 635     io_destroy(actx->aio.aio_ctx);
 636
 637     return 1;
 638 }
 639
 640 const EVP_CIPHER *afalg_aes_128_cbc(void)
 641 {
 642     if (_hidden_aes_128_cbc == NULL
 643         && ((_hidden_aes_128_cbc =
 644              EVP_CIPHER_meth_new(NID_aes_128_cbc,
 645                                  AES_BLOCK_SIZE,
 646                                  AES_KEY_SIZE_128)) == NULL
 647             || !EVP_CIPHER_meth_set_iv_length(_hidden_aes_128_cbc, AES_IV_LEN)
 648             || !EVP_CIPHER_meth_set_flags(_hidden_aes_128_cbc,
 649                                           EVP_CIPH_CBC_MODE |
 650                                           EVP_CIPH_FLAG_DEFAULT_ASN1)
 651             || !EVP_CIPHER_meth_set_init(_hidden_aes_128_cbc,
 652                                          afalg_cipher_init)
 653             || !EVP_CIPHER_meth_set_do_cipher(_hidden_aes_128_cbc,
 654                                               afalg_do_cipher)
 655             || !EVP_CIPHER_meth_set_cleanup(_hidden_aes_128_cbc,
 656                                             afalg_cipher_cleanup)
 657             || !EVP_CIPHER_meth_set_impl_ctx_size(_hidden_aes_128_cbc,
 658                                                   sizeof(afalg_ctx)))) {
 659         EVP_CIPHER_meth_free(_hidden_aes_128_cbc);
 660         _hidden_aes_128_cbc = NULL;
 661     }
 662     return _hidden_aes_128_cbc;
 663 }
 664
 665 static int afalg_ciphers(ENGINE *e, const EVP_CIPHER **cipher,
 666                          const int **nids, int nid)
 667 {
 668     int r = 1;
 669
 670     if (cipher == NULL) {
 671         *nids = afalg_cipher_nids;
 672         return (sizeof(afalg_cipher_nids) / sizeof(afalg_cipher_nids[0]));
 673     }
 674
 675     switch (nid) {
 676     case NID_aes_128_cbc:
 677         *cipher = afalg_aes_128_cbc();
 678         break;
 679     default:
 680         *cipher = NULL;
 681         r = 0;
 682     }
 683
 684     return r;
 685 }
 686
 687 static int bind_afalg(ENGINE *e)
 688 {
 689     /* Ensure the afalg error handling is set up */
 690     ERR_load_AFALG_strings();
 691
 692     if (!ENGINE_set_id(e, engine_afalg_id)
 693         || !ENGINE_set_name(e, engine_afalg_name)
 694         || !ENGINE_set_destroy_function(e, afalg_destroy)
 695         || !ENGINE_set_init_function(e, afalg_init)
 696         || !ENGINE_set_finish_function(e, afalg_finish)) {
 697         AFALGerr(AFALG_F_BIND_AFALG, AFALG_R_INIT_FAILED);
 698         return 0;
 699     }
 700
 701     /*
 702      * Create _hidden_aes_128_cbc by calling afalg_aes_128_cbc
 703      * now, as bind_aflag can only be called by one thread at a
 704      * time.
 705      */
 706     if (afalg_aes_128_cbc() == NULL) {
 707         AFALGerr(AFALG_F_BIND_AFALG, AFALG_R_INIT_FAILED);
 708         return 0;
 709     }
 710
 711     if (!ENGINE_set_ciphers(e, afalg_ciphers)) {
 712         AFALGerr(AFALG_F_BIND_AFALG, AFALG_R_INIT_FAILED);
 713         return 0;
 714     }
 715
 716     return 1;
 717 }
 718
 719 # ifndef OPENSSL_NO_DYNAMIC_ENGINE
 720 static int bind_helper(ENGINE *e, const char *id)
 721 {
 722     if (id && (strcmp(id, engine_afalg_id) != 0))
 723         return 0;
 724
 725     if (!afalg_chk_platform())
 726         return 0;
 727
 728     if (!bind_afalg(e))
 729         return 0;
 730     return 1;
 731 }
 732
 733 IMPLEMENT_DYNAMIC_CHECK_FN()
 734     IMPLEMENT_DYNAMIC_BIND_FN(bind_helper)
 735 # endif
 736
 737 static int afalg_chk_platform(void)
 738 {
 739     int ret;
 740     int i;
 741     int kver[3] = { -1, -1, -1 };
 742     int sock;
 743     char *str;
 744     struct utsname ut;
 745
 746     ret = uname(&ut);
 747     if (ret != 0) {
 748         AFALGerr(AFALG_F_AFALG_CHK_PLATFORM,
 749                  AFALG_R_FAILED_TO_GET_PLATFORM_INFO);
 750         return 0;
 751     }
 752
 753     str = strtok(ut.release, ".");
 754     for (i = 0; i < 3 && str != NULL; i++) {
 755         kver[i] = atoi(str);
 756         str = strtok(NULL, ".");
 757     }
 758
 759     if (KERNEL_VERSION(kver[0], kver[1], kver[2])
 760         < KERNEL_VERSION(K_MAJ, K_MIN1, K_MIN2)) {
 761         ALG_ERR("ASYNC AFALG not supported this kernel(%d.%d.%d)\n",
 762                  kver[0], kver[1], kver[2]);
 763         ALG_ERR("ASYNC AFALG requires kernel version %d.%d.%d or later\n",
 764                  K_MAJ, K_MIN1, K_MIN2);
 765         AFALGerr(AFALG_F_AFALG_CHK_PLATFORM,
 766                  AFALG_R_KERNEL_DOES_NOT_SUPPORT_ASYNC_AFALG);
 767         return 0;
 768     }
 769
 770     /* Test if we can actually create an AF_ALG socket */
 771     sock = socket(AF_ALG, SOCK_SEQPACKET, 0);
 772     if (sock == -1) {
 773         AFALGerr(AFALG_F_AFALG_CHK_PLATFORM, AFALG_R_SOCKET_CREATE_FAILED);
 774         return 0;
 775     }
 776     close(sock);
 777
 778     return 1;
 779 }
 780
 781 # ifdef OPENSSL_NO_DYNAMIC_ENGINE
 782 static ENGINE *engine_afalg(void)
 783 {
 784     ENGINE *ret = ENGINE_new();
 785     if (ret == NULL)
 786         return NULL;
 787     if (!bind_afalg(ret)) {
 788         ENGINE_free(ret);
 789         return NULL;
 790     }
 791     return ret;
 792 }
 793
 794 void engine_load_afalg_int(void)
 795 {
 796     ENGINE *toadd;
 797
 798     if (!afalg_chk_platform())
 799         return;
 800
 801     toadd = engine_afalg();
 802     if (toadd == NULL)
 803         return;
 804     ENGINE_add(toadd);
 805     ENGINE_free(toadd);
 806     ERR_clear_error();
 807 }
 808 # endif
 809
 810 static int afalg_init(ENGINE *e)
 811 {
 812     return 1;
 813 }
 814
 815 static int afalg_finish(ENGINE *e)
 816 {
 817     return 1;
 818 }
 819
 820 static int afalg_destroy(ENGINE *e)
 821 {
 822     ERR_unload_AFALG_strings();
 823     EVP_CIPHER_meth_free(_hidden_aes_128_cbc);
 824     _hidden_aes_128_cbc = NULL;
 825     return 1;
 826 }
 827
 828 #endif                          /* KERNEL VERSION */