Linux Audio

Check our new training course

Loading...
v5.9
  1// SPDX-License-Identifier: GPL-2.0-or-later
  2/* SHA-512 code by Jean-Luc Cooke <jlcooke@certainkey.com>
  3 *
  4 * Copyright (c) Jean-Luc Cooke <jlcooke@certainkey.com>
  5 * Copyright (c) Andrew McDonald <andrew@mcdonald.org.uk>
  6 * Copyright (c) 2003 Kyle McMartin <kyle@debian.org>
 
 
 
 
 
 
  7 */
  8#include <crypto/internal/hash.h>
  9#include <linux/kernel.h>
 10#include <linux/module.h>
 11#include <linux/mm.h>
 12#include <linux/init.h>
 13#include <linux/crypto.h>
 14#include <linux/types.h>
 15#include <crypto/sha.h>
 16#include <crypto/sha512_base.h>
 17#include <linux/percpu.h>
 18#include <asm/byteorder.h>
 19#include <asm/unaligned.h>
 20
 21const u8 sha384_zero_message_hash[SHA384_DIGEST_SIZE] = {
 22	0x38, 0xb0, 0x60, 0xa7, 0x51, 0xac, 0x96, 0x38,
 23	0x4c, 0xd9, 0x32, 0x7e, 0xb1, 0xb1, 0xe3, 0x6a,
 24	0x21, 0xfd, 0xb7, 0x11, 0x14, 0xbe, 0x07, 0x43,
 25	0x4c, 0x0c, 0xc7, 0xbf, 0x63, 0xf6, 0xe1, 0xda,
 26	0x27, 0x4e, 0xde, 0xbf, 0xe7, 0x6f, 0x65, 0xfb,
 27	0xd5, 0x1a, 0xd2, 0xf1, 0x48, 0x98, 0xb9, 0x5b
 28};
 29EXPORT_SYMBOL_GPL(sha384_zero_message_hash);
 30
 31const u8 sha512_zero_message_hash[SHA512_DIGEST_SIZE] = {
 32	0xcf, 0x83, 0xe1, 0x35, 0x7e, 0xef, 0xb8, 0xbd,
 33	0xf1, 0x54, 0x28, 0x50, 0xd6, 0x6d, 0x80, 0x07,
 34	0xd6, 0x20, 0xe4, 0x05, 0x0b, 0x57, 0x15, 0xdc,
 35	0x83, 0xf4, 0xa9, 0x21, 0xd3, 0x6c, 0xe9, 0xce,
 36	0x47, 0xd0, 0xd1, 0x3c, 0x5d, 0x85, 0xf2, 0xb0,
 37	0xff, 0x83, 0x18, 0xd2, 0x87, 0x7e, 0xec, 0x2f,
 38	0x63, 0xb9, 0x31, 0xbd, 0x47, 0x41, 0x7a, 0x81,
 39	0xa5, 0x38, 0x32, 0x7a, 0xf9, 0x27, 0xda, 0x3e
 40};
 41EXPORT_SYMBOL_GPL(sha512_zero_message_hash);
 42
 43static inline u64 Ch(u64 x, u64 y, u64 z)
 44{
 45        return z ^ (x & (y ^ z));
 46}
 47
 48static inline u64 Maj(u64 x, u64 y, u64 z)
 49{
 50        return (x & y) | (z & (x | y));
 51}
 52
 53static const u64 sha512_K[80] = {
 54        0x428a2f98d728ae22ULL, 0x7137449123ef65cdULL, 0xb5c0fbcfec4d3b2fULL,
 55        0xe9b5dba58189dbbcULL, 0x3956c25bf348b538ULL, 0x59f111f1b605d019ULL,
 56        0x923f82a4af194f9bULL, 0xab1c5ed5da6d8118ULL, 0xd807aa98a3030242ULL,
 57        0x12835b0145706fbeULL, 0x243185be4ee4b28cULL, 0x550c7dc3d5ffb4e2ULL,
 58        0x72be5d74f27b896fULL, 0x80deb1fe3b1696b1ULL, 0x9bdc06a725c71235ULL,
 59        0xc19bf174cf692694ULL, 0xe49b69c19ef14ad2ULL, 0xefbe4786384f25e3ULL,
 60        0x0fc19dc68b8cd5b5ULL, 0x240ca1cc77ac9c65ULL, 0x2de92c6f592b0275ULL,
 61        0x4a7484aa6ea6e483ULL, 0x5cb0a9dcbd41fbd4ULL, 0x76f988da831153b5ULL,
 62        0x983e5152ee66dfabULL, 0xa831c66d2db43210ULL, 0xb00327c898fb213fULL,
 63        0xbf597fc7beef0ee4ULL, 0xc6e00bf33da88fc2ULL, 0xd5a79147930aa725ULL,
 64        0x06ca6351e003826fULL, 0x142929670a0e6e70ULL, 0x27b70a8546d22ffcULL,
 65        0x2e1b21385c26c926ULL, 0x4d2c6dfc5ac42aedULL, 0x53380d139d95b3dfULL,
 66        0x650a73548baf63deULL, 0x766a0abb3c77b2a8ULL, 0x81c2c92e47edaee6ULL,
 67        0x92722c851482353bULL, 0xa2bfe8a14cf10364ULL, 0xa81a664bbc423001ULL,
 68        0xc24b8b70d0f89791ULL, 0xc76c51a30654be30ULL, 0xd192e819d6ef5218ULL,
 69        0xd69906245565a910ULL, 0xf40e35855771202aULL, 0x106aa07032bbd1b8ULL,
 70        0x19a4c116b8d2d0c8ULL, 0x1e376c085141ab53ULL, 0x2748774cdf8eeb99ULL,
 71        0x34b0bcb5e19b48a8ULL, 0x391c0cb3c5c95a63ULL, 0x4ed8aa4ae3418acbULL,
 72        0x5b9cca4f7763e373ULL, 0x682e6ff3d6b2b8a3ULL, 0x748f82ee5defb2fcULL,
 73        0x78a5636f43172f60ULL, 0x84c87814a1f0ab72ULL, 0x8cc702081a6439ecULL,
 74        0x90befffa23631e28ULL, 0xa4506cebde82bde9ULL, 0xbef9a3f7b2c67915ULL,
 75        0xc67178f2e372532bULL, 0xca273eceea26619cULL, 0xd186b8c721c0c207ULL,
 76        0xeada7dd6cde0eb1eULL, 0xf57d4f7fee6ed178ULL, 0x06f067aa72176fbaULL,
 77        0x0a637dc5a2c898a6ULL, 0x113f9804bef90daeULL, 0x1b710b35131c471bULL,
 78        0x28db77f523047d84ULL, 0x32caab7b40c72493ULL, 0x3c9ebe0a15c9bebcULL,
 79        0x431d67c49c100d4cULL, 0x4cc5d4becb3e42b6ULL, 0x597f299cfc657e2aULL,
 80        0x5fcb6fab3ad6faecULL, 0x6c44198c4a475817ULL,
 81};
 82
 83#define e0(x)       (ror64(x,28) ^ ror64(x,34) ^ ror64(x,39))
 84#define e1(x)       (ror64(x,14) ^ ror64(x,18) ^ ror64(x,41))
 85#define s0(x)       (ror64(x, 1) ^ ror64(x, 8) ^ (x >> 7))
 86#define s1(x)       (ror64(x,19) ^ ror64(x,61) ^ (x >> 6))
 87
 88static inline void LOAD_OP(int I, u64 *W, const u8 *input)
 89{
 90	W[I] = get_unaligned_be64((__u64 *)input + I);
 91}
 92
 93static inline void BLEND_OP(int I, u64 *W)
 94{
 95	W[I & 15] += s1(W[(I-2) & 15]) + W[(I-7) & 15] + s0(W[(I-15) & 15]);
 96}
 97
 98static void
 99sha512_transform(u64 *state, const u8 *input)
100{
101	u64 a, b, c, d, e, f, g, h, t1, t2;
102
103	int i;
104	u64 W[16];
105
106	/* load the state into our registers */
107	a=state[0];   b=state[1];   c=state[2];   d=state[3];
108	e=state[4];   f=state[5];   g=state[6];   h=state[7];
109
110	/* now iterate */
111	for (i=0; i<80; i+=8) {
112		if (!(i & 8)) {
113			int j;
114
115			if (i < 16) {
116				/* load the input */
117				for (j = 0; j < 16; j++)
118					LOAD_OP(i + j, W, input);
119			} else {
120				for (j = 0; j < 16; j++) {
121					BLEND_OP(i + j, W);
122				}
123			}
124		}
125
126		t1 = h + e1(e) + Ch(e,f,g) + sha512_K[i  ] + W[(i & 15)];
127		t2 = e0(a) + Maj(a,b,c);    d+=t1;    h=t1+t2;
128		t1 = g + e1(d) + Ch(d,e,f) + sha512_K[i+1] + W[(i & 15) + 1];
129		t2 = e0(h) + Maj(h,a,b);    c+=t1;    g=t1+t2;
130		t1 = f + e1(c) + Ch(c,d,e) + sha512_K[i+2] + W[(i & 15) + 2];
131		t2 = e0(g) + Maj(g,h,a);    b+=t1;    f=t1+t2;
132		t1 = e + e1(b) + Ch(b,c,d) + sha512_K[i+3] + W[(i & 15) + 3];
133		t2 = e0(f) + Maj(f,g,h);    a+=t1;    e=t1+t2;
134		t1 = d + e1(a) + Ch(a,b,c) + sha512_K[i+4] + W[(i & 15) + 4];
135		t2 = e0(e) + Maj(e,f,g);    h+=t1;    d=t1+t2;
136		t1 = c + e1(h) + Ch(h,a,b) + sha512_K[i+5] + W[(i & 15) + 5];
137		t2 = e0(d) + Maj(d,e,f);    g+=t1;    c=t1+t2;
138		t1 = b + e1(g) + Ch(g,h,a) + sha512_K[i+6] + W[(i & 15) + 6];
139		t2 = e0(c) + Maj(c,d,e);    f+=t1;    b=t1+t2;
140		t1 = a + e1(f) + Ch(f,g,h) + sha512_K[i+7] + W[(i & 15) + 7];
141		t2 = e0(b) + Maj(b,c,d);    e+=t1;    a=t1+t2;
142	}
143
144	state[0] += a; state[1] += b; state[2] += c; state[3] += d;
145	state[4] += e; state[5] += f; state[6] += g; state[7] += h;
146
147	/* erase our data */
148	a = b = c = d = e = f = g = h = t1 = t2 = 0;
149}
150
151static void sha512_generic_block_fn(struct sha512_state *sst, u8 const *src,
152				    int blocks)
153{
154	while (blocks--) {
155		sha512_transform(sst->state, src);
156		src += SHA512_BLOCK_SIZE;
157	}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
158}
159
160int crypto_sha512_update(struct shash_desc *desc, const u8 *data,
161			unsigned int len)
162{
163	return sha512_base_do_update(desc, data, len, sha512_generic_block_fn);
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
164}
165EXPORT_SYMBOL(crypto_sha512_update);
166
167static int sha512_final(struct shash_desc *desc, u8 *hash)
 
168{
169	sha512_base_do_finalize(desc, sha512_generic_block_fn);
170	return sha512_base_finish(desc, hash);
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
171}
172
173int crypto_sha512_finup(struct shash_desc *desc, const u8 *data,
174			unsigned int len, u8 *hash)
175{
176	sha512_base_do_update(desc, data, len, sha512_generic_block_fn);
177	return sha512_final(desc, hash);
 
 
 
 
 
 
178}
179EXPORT_SYMBOL(crypto_sha512_finup);
180
181static struct shash_alg sha512_algs[2] = { {
182	.digestsize	=	SHA512_DIGEST_SIZE,
183	.init		=	sha512_base_init,
184	.update		=	crypto_sha512_update,
185	.final		=	sha512_final,
186	.finup		=	crypto_sha512_finup,
187	.descsize	=	sizeof(struct sha512_state),
188	.base		=	{
189		.cra_name	=	"sha512",
190		.cra_driver_name =	"sha512-generic",
191		.cra_priority	=	100,
192		.cra_blocksize	=	SHA512_BLOCK_SIZE,
193		.cra_module	=	THIS_MODULE,
194	}
195}, {
196	.digestsize	=	SHA384_DIGEST_SIZE,
197	.init		=	sha384_base_init,
198	.update		=	crypto_sha512_update,
199	.final		=	sha512_final,
200	.finup		=	crypto_sha512_finup,
201	.descsize	=	sizeof(struct sha512_state),
202	.base		=	{
203		.cra_name	=	"sha384",
204		.cra_driver_name =	"sha384-generic",
205		.cra_priority	=	100,
206		.cra_blocksize	=	SHA384_BLOCK_SIZE,
207		.cra_module	=	THIS_MODULE,
208	}
209} };
210
211static int __init sha512_generic_mod_init(void)
212{
213	return crypto_register_shashes(sha512_algs, ARRAY_SIZE(sha512_algs));
214}
215
216static void __exit sha512_generic_mod_fini(void)
217{
218	crypto_unregister_shashes(sha512_algs, ARRAY_SIZE(sha512_algs));
219}
220
221subsys_initcall(sha512_generic_mod_init);
222module_exit(sha512_generic_mod_fini);
223
224MODULE_LICENSE("GPL");
225MODULE_DESCRIPTION("SHA-512 and SHA-384 Secure Hash Algorithms");
226
227MODULE_ALIAS_CRYPTO("sha384");
228MODULE_ALIAS_CRYPTO("sha384-generic");
229MODULE_ALIAS_CRYPTO("sha512");
230MODULE_ALIAS_CRYPTO("sha512-generic");
v3.15
 
  1/* SHA-512 code by Jean-Luc Cooke <jlcooke@certainkey.com>
  2 *
  3 * Copyright (c) Jean-Luc Cooke <jlcooke@certainkey.com>
  4 * Copyright (c) Andrew McDonald <andrew@mcdonald.org.uk>
  5 * Copyright (c) 2003 Kyle McMartin <kyle@debian.org>
  6 *
  7 * This program is free software; you can redistribute it and/or modify it
  8 * under the terms of the GNU General Public License as published by the
  9 * Free Software Foundation; either version 2, or (at your option) any
 10 * later version.
 11 *
 12 */
 13#include <crypto/internal/hash.h>
 14#include <linux/kernel.h>
 15#include <linux/module.h>
 16#include <linux/mm.h>
 17#include <linux/init.h>
 18#include <linux/crypto.h>
 19#include <linux/types.h>
 20#include <crypto/sha.h>
 
 21#include <linux/percpu.h>
 22#include <asm/byteorder.h>
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 23
 24static inline u64 Ch(u64 x, u64 y, u64 z)
 25{
 26        return z ^ (x & (y ^ z));
 27}
 28
 29static inline u64 Maj(u64 x, u64 y, u64 z)
 30{
 31        return (x & y) | (z & (x | y));
 32}
 33
 34static const u64 sha512_K[80] = {
 35        0x428a2f98d728ae22ULL, 0x7137449123ef65cdULL, 0xb5c0fbcfec4d3b2fULL,
 36        0xe9b5dba58189dbbcULL, 0x3956c25bf348b538ULL, 0x59f111f1b605d019ULL,
 37        0x923f82a4af194f9bULL, 0xab1c5ed5da6d8118ULL, 0xd807aa98a3030242ULL,
 38        0x12835b0145706fbeULL, 0x243185be4ee4b28cULL, 0x550c7dc3d5ffb4e2ULL,
 39        0x72be5d74f27b896fULL, 0x80deb1fe3b1696b1ULL, 0x9bdc06a725c71235ULL,
 40        0xc19bf174cf692694ULL, 0xe49b69c19ef14ad2ULL, 0xefbe4786384f25e3ULL,
 41        0x0fc19dc68b8cd5b5ULL, 0x240ca1cc77ac9c65ULL, 0x2de92c6f592b0275ULL,
 42        0x4a7484aa6ea6e483ULL, 0x5cb0a9dcbd41fbd4ULL, 0x76f988da831153b5ULL,
 43        0x983e5152ee66dfabULL, 0xa831c66d2db43210ULL, 0xb00327c898fb213fULL,
 44        0xbf597fc7beef0ee4ULL, 0xc6e00bf33da88fc2ULL, 0xd5a79147930aa725ULL,
 45        0x06ca6351e003826fULL, 0x142929670a0e6e70ULL, 0x27b70a8546d22ffcULL,
 46        0x2e1b21385c26c926ULL, 0x4d2c6dfc5ac42aedULL, 0x53380d139d95b3dfULL,
 47        0x650a73548baf63deULL, 0x766a0abb3c77b2a8ULL, 0x81c2c92e47edaee6ULL,
 48        0x92722c851482353bULL, 0xa2bfe8a14cf10364ULL, 0xa81a664bbc423001ULL,
 49        0xc24b8b70d0f89791ULL, 0xc76c51a30654be30ULL, 0xd192e819d6ef5218ULL,
 50        0xd69906245565a910ULL, 0xf40e35855771202aULL, 0x106aa07032bbd1b8ULL,
 51        0x19a4c116b8d2d0c8ULL, 0x1e376c085141ab53ULL, 0x2748774cdf8eeb99ULL,
 52        0x34b0bcb5e19b48a8ULL, 0x391c0cb3c5c95a63ULL, 0x4ed8aa4ae3418acbULL,
 53        0x5b9cca4f7763e373ULL, 0x682e6ff3d6b2b8a3ULL, 0x748f82ee5defb2fcULL,
 54        0x78a5636f43172f60ULL, 0x84c87814a1f0ab72ULL, 0x8cc702081a6439ecULL,
 55        0x90befffa23631e28ULL, 0xa4506cebde82bde9ULL, 0xbef9a3f7b2c67915ULL,
 56        0xc67178f2e372532bULL, 0xca273eceea26619cULL, 0xd186b8c721c0c207ULL,
 57        0xeada7dd6cde0eb1eULL, 0xf57d4f7fee6ed178ULL, 0x06f067aa72176fbaULL,
 58        0x0a637dc5a2c898a6ULL, 0x113f9804bef90daeULL, 0x1b710b35131c471bULL,
 59        0x28db77f523047d84ULL, 0x32caab7b40c72493ULL, 0x3c9ebe0a15c9bebcULL,
 60        0x431d67c49c100d4cULL, 0x4cc5d4becb3e42b6ULL, 0x597f299cfc657e2aULL,
 61        0x5fcb6fab3ad6faecULL, 0x6c44198c4a475817ULL,
 62};
 63
 64#define e0(x)       (ror64(x,28) ^ ror64(x,34) ^ ror64(x,39))
 65#define e1(x)       (ror64(x,14) ^ ror64(x,18) ^ ror64(x,41))
 66#define s0(x)       (ror64(x, 1) ^ ror64(x, 8) ^ (x >> 7))
 67#define s1(x)       (ror64(x,19) ^ ror64(x,61) ^ (x >> 6))
 68
 69static inline void LOAD_OP(int I, u64 *W, const u8 *input)
 70{
 71	W[I] = __be64_to_cpu( ((__be64*)(input))[I] );
 72}
 73
 74static inline void BLEND_OP(int I, u64 *W)
 75{
 76	W[I & 15] += s1(W[(I-2) & 15]) + W[(I-7) & 15] + s0(W[(I-15) & 15]);
 77}
 78
 79static void
 80sha512_transform(u64 *state, const u8 *input)
 81{
 82	u64 a, b, c, d, e, f, g, h, t1, t2;
 83
 84	int i;
 85	u64 W[16];
 86
 87	/* load the state into our registers */
 88	a=state[0];   b=state[1];   c=state[2];   d=state[3];
 89	e=state[4];   f=state[5];   g=state[6];   h=state[7];
 90
 91	/* now iterate */
 92	for (i=0; i<80; i+=8) {
 93		if (!(i & 8)) {
 94			int j;
 95
 96			if (i < 16) {
 97				/* load the input */
 98				for (j = 0; j < 16; j++)
 99					LOAD_OP(i + j, W, input);
100			} else {
101				for (j = 0; j < 16; j++) {
102					BLEND_OP(i + j, W);
103				}
104			}
105		}
106
107		t1 = h + e1(e) + Ch(e,f,g) + sha512_K[i  ] + W[(i & 15)];
108		t2 = e0(a) + Maj(a,b,c);    d+=t1;    h=t1+t2;
109		t1 = g + e1(d) + Ch(d,e,f) + sha512_K[i+1] + W[(i & 15) + 1];
110		t2 = e0(h) + Maj(h,a,b);    c+=t1;    g=t1+t2;
111		t1 = f + e1(c) + Ch(c,d,e) + sha512_K[i+2] + W[(i & 15) + 2];
112		t2 = e0(g) + Maj(g,h,a);    b+=t1;    f=t1+t2;
113		t1 = e + e1(b) + Ch(b,c,d) + sha512_K[i+3] + W[(i & 15) + 3];
114		t2 = e0(f) + Maj(f,g,h);    a+=t1;    e=t1+t2;
115		t1 = d + e1(a) + Ch(a,b,c) + sha512_K[i+4] + W[(i & 15) + 4];
116		t2 = e0(e) + Maj(e,f,g);    h+=t1;    d=t1+t2;
117		t1 = c + e1(h) + Ch(h,a,b) + sha512_K[i+5] + W[(i & 15) + 5];
118		t2 = e0(d) + Maj(d,e,f);    g+=t1;    c=t1+t2;
119		t1 = b + e1(g) + Ch(g,h,a) + sha512_K[i+6] + W[(i & 15) + 6];
120		t2 = e0(c) + Maj(c,d,e);    f+=t1;    b=t1+t2;
121		t1 = a + e1(f) + Ch(f,g,h) + sha512_K[i+7] + W[(i & 15) + 7];
122		t2 = e0(b) + Maj(b,c,d);    e+=t1;    a=t1+t2;
123	}
124
125	state[0] += a; state[1] += b; state[2] += c; state[3] += d;
126	state[4] += e; state[5] += f; state[6] += g; state[7] += h;
127
128	/* erase our data */
129	a = b = c = d = e = f = g = h = t1 = t2 = 0;
130}
131
132static int
133sha512_init(struct shash_desc *desc)
134{
135	struct sha512_state *sctx = shash_desc_ctx(desc);
136	sctx->state[0] = SHA512_H0;
137	sctx->state[1] = SHA512_H1;
138	sctx->state[2] = SHA512_H2;
139	sctx->state[3] = SHA512_H3;
140	sctx->state[4] = SHA512_H4;
141	sctx->state[5] = SHA512_H5;
142	sctx->state[6] = SHA512_H6;
143	sctx->state[7] = SHA512_H7;
144	sctx->count[0] = sctx->count[1] = 0;
145
146	return 0;
147}
148
149static int
150sha384_init(struct shash_desc *desc)
151{
152	struct sha512_state *sctx = shash_desc_ctx(desc);
153	sctx->state[0] = SHA384_H0;
154	sctx->state[1] = SHA384_H1;
155	sctx->state[2] = SHA384_H2;
156	sctx->state[3] = SHA384_H3;
157	sctx->state[4] = SHA384_H4;
158	sctx->state[5] = SHA384_H5;
159	sctx->state[6] = SHA384_H6;
160	sctx->state[7] = SHA384_H7;
161	sctx->count[0] = sctx->count[1] = 0;
162
163	return 0;
164}
165
166int crypto_sha512_update(struct shash_desc *desc, const u8 *data,
167			unsigned int len)
168{
169	struct sha512_state *sctx = shash_desc_ctx(desc);
170
171	unsigned int i, index, part_len;
172
173	/* Compute number of bytes mod 128 */
174	index = sctx->count[0] & 0x7f;
175
176	/* Update number of bytes */
177	if ((sctx->count[0] += len) < len)
178		sctx->count[1]++;
179
180        part_len = 128 - index;
181
182	/* Transform as many times as possible. */
183	if (len >= part_len) {
184		memcpy(&sctx->buf[index], data, part_len);
185		sha512_transform(sctx->state, sctx->buf);
186
187		for (i = part_len; i + 127 < len; i+=128)
188			sha512_transform(sctx->state, &data[i]);
189
190		index = 0;
191	} else {
192		i = 0;
193	}
194
195	/* Buffer remaining input */
196	memcpy(&sctx->buf[index], &data[i], len - i);
197
198	return 0;
199}
200EXPORT_SYMBOL(crypto_sha512_update);
201
202static int
203sha512_final(struct shash_desc *desc, u8 *hash)
204{
205	struct sha512_state *sctx = shash_desc_ctx(desc);
206        static u8 padding[128] = { 0x80, };
207	__be64 *dst = (__be64 *)hash;
208	__be64 bits[2];
209	unsigned int index, pad_len;
210	int i;
211
212	/* Save number of bits */
213	bits[1] = cpu_to_be64(sctx->count[0] << 3);
214	bits[0] = cpu_to_be64(sctx->count[1] << 3 | sctx->count[0] >> 61);
215
216	/* Pad out to 112 mod 128. */
217	index = sctx->count[0] & 0x7f;
218	pad_len = (index < 112) ? (112 - index) : ((128+112) - index);
219	crypto_sha512_update(desc, padding, pad_len);
220
221	/* Append length (before padding) */
222	crypto_sha512_update(desc, (const u8 *)bits, sizeof(bits));
223
224	/* Store state in digest */
225	for (i = 0; i < 8; i++)
226		dst[i] = cpu_to_be64(sctx->state[i]);
227
228	/* Zeroize sensitive information. */
229	memset(sctx, 0, sizeof(struct sha512_state));
230
231	return 0;
232}
233
234static int sha384_final(struct shash_desc *desc, u8 *hash)
 
235{
236	u8 D[64];
237
238	sha512_final(desc, D);
239
240	memcpy(hash, D, 48);
241	memset(D, 0, 64);
242
243	return 0;
244}
 
245
246static struct shash_alg sha512_algs[2] = { {
247	.digestsize	=	SHA512_DIGEST_SIZE,
248	.init		=	sha512_init,
249	.update		=	crypto_sha512_update,
250	.final		=	sha512_final,
 
251	.descsize	=	sizeof(struct sha512_state),
252	.base		=	{
253		.cra_name	=	"sha512",
254		.cra_driver_name =	"sha512-generic",
255		.cra_flags	=	CRYPTO_ALG_TYPE_SHASH,
256		.cra_blocksize	=	SHA512_BLOCK_SIZE,
257		.cra_module	=	THIS_MODULE,
258	}
259}, {
260	.digestsize	=	SHA384_DIGEST_SIZE,
261	.init		=	sha384_init,
262	.update		=	crypto_sha512_update,
263	.final		=	sha384_final,
 
264	.descsize	=	sizeof(struct sha512_state),
265	.base		=	{
266		.cra_name	=	"sha384",
267		.cra_driver_name =	"sha384-generic",
268		.cra_flags	=	CRYPTO_ALG_TYPE_SHASH,
269		.cra_blocksize	=	SHA384_BLOCK_SIZE,
270		.cra_module	=	THIS_MODULE,
271	}
272} };
273
274static int __init sha512_generic_mod_init(void)
275{
276	return crypto_register_shashes(sha512_algs, ARRAY_SIZE(sha512_algs));
277}
278
279static void __exit sha512_generic_mod_fini(void)
280{
281	crypto_unregister_shashes(sha512_algs, ARRAY_SIZE(sha512_algs));
282}
283
284module_init(sha512_generic_mod_init);
285module_exit(sha512_generic_mod_fini);
286
287MODULE_LICENSE("GPL");
288MODULE_DESCRIPTION("SHA-512 and SHA-384 Secure Hash Algorithms");
289
290MODULE_ALIAS("sha384");
291MODULE_ALIAS("sha512");