| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 1 | /* | 
 | 2 |  * Cryptographic API. | 
 | 3 |  * | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 4 |  * s390 implementation of the SHA512 and SHA38 Secure Hash Algorithm. | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 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 |  */ | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 15 | #include <crypto/internal/hash.h> | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 16 | #include <linux/init.h> | 
 | 17 | #include <linux/module.h> | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 18 |  | 
 | 19 | #include "sha.h" | 
 | 20 | #include "crypt_s390.h" | 
 | 21 |  | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 22 | static int sha512_init(struct shash_desc *desc) | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 23 | { | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 24 | 	struct s390_sha_ctx *ctx = shash_desc_ctx(desc); | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 25 |  | 
 | 26 | 	*(__u64 *)&ctx->state[0] = 0x6a09e667f3bcc908ULL; | 
 | 27 | 	*(__u64 *)&ctx->state[2] = 0xbb67ae8584caa73bULL; | 
 | 28 | 	*(__u64 *)&ctx->state[4] = 0x3c6ef372fe94f82bULL; | 
 | 29 | 	*(__u64 *)&ctx->state[6] = 0xa54ff53a5f1d36f1ULL; | 
 | 30 | 	*(__u64 *)&ctx->state[8] = 0x510e527fade682d1ULL; | 
 | 31 | 	*(__u64 *)&ctx->state[10] = 0x9b05688c2b3e6c1fULL; | 
 | 32 | 	*(__u64 *)&ctx->state[12] = 0x1f83d9abfb41bd6bULL; | 
 | 33 | 	*(__u64 *)&ctx->state[14] = 0x5be0cd19137e2179ULL; | 
 | 34 | 	ctx->count = 0; | 
 | 35 | 	ctx->func = KIMD_SHA_512; | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 36 |  | 
 | 37 | 	return 0; | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 38 | } | 
 | 39 |  | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 40 | static struct shash_alg sha512_alg = { | 
 | 41 | 	.digestsize	=	SHA512_DIGEST_SIZE, | 
 | 42 | 	.init		=	sha512_init, | 
 | 43 | 	.update		=	s390_sha_update, | 
 | 44 | 	.final		=	s390_sha_final, | 
 | 45 | 	.descsize	=	sizeof(struct s390_sha_ctx), | 
 | 46 | 	.base		=	{ | 
 | 47 | 		.cra_name	=	"sha512", | 
 | 48 | 		.cra_driver_name=	"sha512-s390", | 
 | 49 | 		.cra_priority	=	CRYPT_S390_PRIORITY, | 
 | 50 | 		.cra_flags	=	CRYPTO_ALG_TYPE_SHASH, | 
 | 51 | 		.cra_blocksize	=	SHA512_BLOCK_SIZE, | 
 | 52 | 		.cra_module	=	THIS_MODULE, | 
 | 53 | 	} | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 54 | }; | 
 | 55 |  | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 56 | MODULE_ALIAS("sha512"); | 
 | 57 |  | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 58 | static int sha384_init(struct shash_desc *desc) | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 59 | { | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 60 | 	struct s390_sha_ctx *ctx = shash_desc_ctx(desc); | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 61 |  | 
 | 62 | 	*(__u64 *)&ctx->state[0] = 0xcbbb9d5dc1059ed8ULL; | 
 | 63 | 	*(__u64 *)&ctx->state[2] = 0x629a292a367cd507ULL; | 
 | 64 | 	*(__u64 *)&ctx->state[4] = 0x9159015a3070dd17ULL; | 
 | 65 | 	*(__u64 *)&ctx->state[6] = 0x152fecd8f70e5939ULL; | 
 | 66 | 	*(__u64 *)&ctx->state[8] = 0x67332667ffc00b31ULL; | 
 | 67 | 	*(__u64 *)&ctx->state[10] = 0x8eb44a8768581511ULL; | 
 | 68 | 	*(__u64 *)&ctx->state[12] = 0xdb0c2e0d64f98fa7ULL; | 
 | 69 | 	*(__u64 *)&ctx->state[14] = 0x47b5481dbefa4fa4ULL; | 
 | 70 | 	ctx->count = 0; | 
 | 71 | 	ctx->func = KIMD_SHA_512; | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 72 |  | 
 | 73 | 	return 0; | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 74 | } | 
 | 75 |  | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 76 | static struct shash_alg sha384_alg = { | 
 | 77 | 	.digestsize	=	SHA384_DIGEST_SIZE, | 
 | 78 | 	.init		=	sha384_init, | 
 | 79 | 	.update		=	s390_sha_update, | 
 | 80 | 	.final		=	s390_sha_final, | 
 | 81 | 	.descsize	=	sizeof(struct s390_sha_ctx), | 
 | 82 | 	.base		=	{ | 
 | 83 | 		.cra_name	=	"sha384", | 
 | 84 | 		.cra_driver_name=	"sha384-s390", | 
 | 85 | 		.cra_priority	=	CRYPT_S390_PRIORITY, | 
 | 86 | 		.cra_flags	=	CRYPTO_ALG_TYPE_SHASH, | 
| Herbert Xu | 949abe5 | 2009-03-21 21:12:19 +0800 | [diff] [blame] | 87 | 		.cra_blocksize	=	SHA384_BLOCK_SIZE, | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 88 | 		.cra_ctxsize	=	sizeof(struct s390_sha_ctx), | 
 | 89 | 		.cra_module	=	THIS_MODULE, | 
 | 90 | 	} | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 91 | }; | 
 | 92 |  | 
 | 93 | MODULE_ALIAS("sha384"); | 
 | 94 |  | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 95 | static int __init init(void) | 
 | 96 | { | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 97 | 	int ret; | 
 | 98 |  | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 99 | 	if (!crypt_s390_func_available(KIMD_SHA_512)) | 
 | 100 | 		return -EOPNOTSUPP; | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 101 | 	if ((ret = crypto_register_shash(&sha512_alg)) < 0) | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 102 | 		goto out; | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 103 | 	if ((ret = crypto_register_shash(&sha384_alg)) < 0) | 
 | 104 | 		crypto_unregister_shash(&sha512_alg); | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 105 | out: | 
 | 106 | 	return ret; | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 107 | } | 
 | 108 |  | 
 | 109 | static void __exit fini(void) | 
 | 110 | { | 
| Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 111 | 	crypto_unregister_shash(&sha512_alg); | 
 | 112 | 	crypto_unregister_shash(&sha384_alg); | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 113 | } | 
 | 114 |  | 
 | 115 | module_init(init); | 
 | 116 | module_exit(fini); | 
 | 117 |  | 
| Jan Glauber | 291dc7c | 2008-03-06 19:52:00 +0800 | [diff] [blame] | 118 | MODULE_LICENSE("GPL"); | 
| Jan Glauber | 4e2c6d7 | 2008-03-06 19:53:50 +0800 | [diff] [blame] | 119 | MODULE_DESCRIPTION("SHA512 and SHA-384 Secure Hash Algorithm"); |