LXR linux/arch/s390/crypto/sha512

   1/*
   2 * Cryptographic API.
   3 *
   4 * s390 implementation of the SHA512 and SHA38 Secure Hash Algorithm.
   5 *
   6 * Copyright IBM Corp. 2007
   7 * Author(s): Jan Glauber (jang@de.ibm.com)
   8 *
   9 * This program is free software; you can redistribute it and/or modify it
  10 * under the terms of the GNU General Public License as published by the Free
  11 * Software Foundation; either version 2 of the License, or (at your option)
  12 * any later version.
  13 *
  14 */
  15#include <crypto/internal/hash.h>
  16#include <crypto/sha.h>
  17#include <linux/errno.h>
  18#include <linux/init.h>
  19#include <linux/kernel.h>
  20#include <linux/module.h>
  21
  22#include "sha.h"
  23#include "crypt_s390.h"
  24
  25static int sha512_init(struct shash_desc *desc)
  26{
  27        struct s390_sha_ctx *ctx = shash_desc_ctx(desc);
  28
  29        *(__u64 *)&ctx->state[0] = 0x6a09e667f3bcc908ULL;
  30        *(__u64 *)&ctx->state[2] = 0xbb67ae8584caa73bULL;
  31        *(__u64 *)&ctx->state[4] = 0x3c6ef372fe94f82bULL;
  32        *(__u64 *)&ctx->state[6] = 0xa54ff53a5f1d36f1ULL;
  33        *(__u64 *)&ctx->state[8] = 0x510e527fade682d1ULL;
  34        *(__u64 *)&ctx->state[10] = 0x9b05688c2b3e6c1fULL;
  35        *(__u64 *)&ctx->state[12] = 0x1f83d9abfb41bd6bULL;
  36        *(__u64 *)&ctx->state[14] = 0x5be0cd19137e2179ULL;
  37        ctx->count = 0;
  38        ctx->func = KIMD_SHA_512;
  39
  40        return 0;
  41}
  42
  43static int sha512_export(struct shash_desc *desc, void *out)
  44{
  45        struct s390_sha_ctx *sctx = shash_desc_ctx(desc);
  46        struct sha512_state *octx = out;
  47
  48        octx->count[0] = sctx->count;
  49        octx->count[1] = 0;
  50        memcpy(octx->state, sctx->state, sizeof(octx->state));
  51        memcpy(octx->buf, sctx->buf, sizeof(octx->buf));
  52        return 0;
  53}
  54
  55static int sha512_import(struct shash_desc *desc, const void *in)
  56{
  57        struct s390_sha_ctx *sctx = shash_desc_ctx(desc);
  58        const struct sha512_state *ictx = in;
  59
  60        if (unlikely(ictx->count[1]))
  61                return -ERANGE;
  62        sctx->count = ictx->count[0];
  63
  64        memcpy(sctx->state, ictx->state, sizeof(ictx->state));
  65        memcpy(sctx->buf, ictx->buf, sizeof(ictx->buf));
  66        sctx->func = KIMD_SHA_512;
  67        return 0;
  68}
  69
  70static struct shash_alg sha512_alg = {
  71        .digestsize     =       SHA512_DIGEST_SIZE,
  72        .init           =       sha512_init,
  73        .update         =       s390_sha_update,
  74        .final          =       s390_sha_final,
  75        .export         =       sha512_export,
  76        .import         =       sha512_import,
  77        .descsize       =       sizeof(struct s390_sha_ctx),
  78        .statesize      =       sizeof(struct sha512_state),
  79        .base           =       {
  80                .cra_name       =       "sha512",
  81                .cra_driver_name=       "sha512-s390",
  82                .cra_priority   =       CRYPT_S390_PRIORITY,
  83                .cra_flags      =       CRYPTO_ALG_TYPE_SHASH,
  84                .cra_blocksize  =       SHA512_BLOCK_SIZE,
  85                .cra_module     =       THIS_MODULE,
  86        }
  87};
  88
  89MODULE_ALIAS_CRYPTO("sha512");
  90
  91static int sha384_init(struct shash_desc *desc)
  92{
  93        struct s390_sha_ctx *ctx = shash_desc_ctx(desc);
  94
  95        *(__u64 *)&ctx->state[0] = 0xcbbb9d5dc1059ed8ULL;
  96        *(__u64 *)&ctx->state[2] = 0x629a292a367cd507ULL;
  97        *(__u64 *)&ctx->state[4] = 0x9159015a3070dd17ULL;
  98        *(__u64 *)&ctx->state[6] = 0x152fecd8f70e5939ULL;
  99        *(__u64 *)&ctx->state[8] = 0x67332667ffc00b31ULL;
 100        *(__u64 *)&ctx->state[10] = 0x8eb44a8768581511ULL;
 101        *(__u64 *)&ctx->state[12] = 0xdb0c2e0d64f98fa7ULL;
 102        *(__u64 *)&ctx->state[14] = 0x47b5481dbefa4fa4ULL;
 103        ctx->count = 0;
 104        ctx->func = KIMD_SHA_512;
 105
 106        return 0;
 107}
 108
 109static struct shash_alg sha384_alg = {
 110        .digestsize     =       SHA384_DIGEST_SIZE,
 111        .init           =       sha384_init,
 112        .update         =       s390_sha_update,
 113        .final          =       s390_sha_final,
 114        .export         =       sha512_export,
 115        .import         =       sha512_import,
 116        .descsize       =       sizeof(struct s390_sha_ctx),
 117        .statesize      =       sizeof(struct sha512_state),
 118        .base           =       {
 119                .cra_name       =       "sha384",
 120                .cra_driver_name=       "sha384-s390",
 121                .cra_priority   =       CRYPT_S390_PRIORITY,
 122                .cra_flags      =       CRYPTO_ALG_TYPE_SHASH,
 123                .cra_blocksize  =       SHA384_BLOCK_SIZE,
 124                .cra_ctxsize    =       sizeof(struct s390_sha_ctx),
 125                .cra_module     =       THIS_MODULE,
 126        }
 127};
 128
 129MODULE_ALIAS_CRYPTO("sha384");
 130
 131static int __init init(void)
 132{
 133        int ret;
 134
 135        if (!crypt_s390_func_available(KIMD_SHA_512, CRYPT_S390_MSA))
 136                return -EOPNOTSUPP;
 137        if ((ret = crypto_register_shash(&sha512_alg)) < 0)
 138                goto out;
 139        if ((ret = crypto_register_shash(&sha384_alg)) < 0)
 140                crypto_unregister_shash(&sha512_alg);
 141out:
 142        return ret;
 143}
 144
 145static void __exit fini(void)
 146{
 147        crypto_unregister_shash(&sha512_alg);
 148        crypto_unregister_shash(&sha384_alg);
 149}
 150
 151module_init(init);
 152module_exit(fini);
 153
 154MODULE_LICENSE("GPL");
 155MODULE_DESCRIPTION("SHA512 and SHA-384 Secure Hash Algorithm");
 156