Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 1 | /* |
| 2 | * Cryptographic API. |
| 3 | * |
Jan Glauber | c1e26e1 | 2006-01-06 00:19:17 -0800 | [diff] [blame] | 4 | * s390 implementation of the SHA1 Secure Hash Algorithm. |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 5 | * |
| 6 | * Derived from cryptoapi implementation, adapted for in-place |
| 7 | * scatterlist interface. Originally based on the public domain |
| 8 | * implementation written by Steve Reid. |
| 9 | * |
| 10 | * s390 Version: |
Heiko Carstens | a53c8fa | 2012-07-20 11:15:04 +0200 | [diff] [blame] | 11 | * Copyright IBM Corp. 2003, 2007 |
Jan Glauber | 86aa9fc | 2007-02-05 21:18:14 +0100 | [diff] [blame] | 12 | * Author(s): Thomas Spatzier |
| 13 | * Jan Glauber (jan.glauber@de.ibm.com) |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 14 | * |
Sebastian Siewior | ad5d278 | 2007-10-08 11:45:10 +0800 | [diff] [blame] | 15 | * Derived from "crypto/sha1_generic.c" |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 16 | * Copyright (c) Alan Smithee. |
| 17 | * Copyright (c) Andrew McDonald <andrew@mcdonald.org.uk> |
| 18 | * Copyright (c) Jean-Francois Dive <jef@linuxbe.org> |
| 19 | * |
| 20 | * This program is free software; you can redistribute it and/or modify it |
| 21 | * under the terms of the GNU General Public License as published by the Free |
| 22 | * Software Foundation; either version 2 of the License, or (at your option) |
| 23 | * any later version. |
| 24 | * |
| 25 | */ |
Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 26 | #include <crypto/internal/hash.h> |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 27 | #include <linux/init.h> |
| 28 | #include <linux/module.h> |
Jan Glauber | 5265eeb | 2007-10-09 22:43:13 +0800 | [diff] [blame] | 29 | #include <crypto/sha.h> |
Jan Glauber | 131a395 | 2007-04-27 16:01:54 +0200 | [diff] [blame] | 30 | |
Jan Glauber | c1e26e1 | 2006-01-06 00:19:17 -0800 | [diff] [blame] | 31 | #include "crypt_s390.h" |
Jan Glauber | 604973f | 2008-03-06 19:50:20 +0800 | [diff] [blame] | 32 | #include "sha.h" |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 33 | |
Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 34 | static int sha1_init(struct shash_desc *desc) |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 35 | { |
Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 36 | struct s390_sha_ctx *sctx = shash_desc_ctx(desc); |
Jan Glauber | 86aa9fc | 2007-02-05 21:18:14 +0100 | [diff] [blame] | 37 | |
Jan Glauber | 5265eeb | 2007-10-09 22:43:13 +0800 | [diff] [blame] | 38 | sctx->state[0] = SHA1_H0; |
| 39 | sctx->state[1] = SHA1_H1; |
| 40 | sctx->state[2] = SHA1_H2; |
| 41 | sctx->state[3] = SHA1_H3; |
| 42 | sctx->state[4] = SHA1_H4; |
Jan Glauber | 131a395 | 2007-04-27 16:01:54 +0200 | [diff] [blame] | 43 | sctx->count = 0; |
Jan Glauber | 604973f | 2008-03-06 19:50:20 +0800 | [diff] [blame] | 44 | sctx->func = KIMD_SHA_1; |
Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 45 | |
| 46 | return 0; |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 47 | } |
| 48 | |
Herbert Xu | 406f104 | 2009-07-10 13:18:26 +0800 | [diff] [blame] | 49 | static int sha1_export(struct shash_desc *desc, void *out) |
| 50 | { |
| 51 | struct s390_sha_ctx *sctx = shash_desc_ctx(desc); |
| 52 | struct sha1_state *octx = out; |
| 53 | |
| 54 | octx->count = sctx->count; |
| 55 | memcpy(octx->state, sctx->state, sizeof(octx->state)); |
| 56 | memcpy(octx->buffer, sctx->buf, sizeof(octx->buffer)); |
| 57 | return 0; |
| 58 | } |
| 59 | |
Jan Glauber | 81bd5f6 | 2009-09-05 16:27:35 +1000 | [diff] [blame] | 60 | static int sha1_import(struct shash_desc *desc, const void *in) |
Herbert Xu | 406f104 | 2009-07-10 13:18:26 +0800 | [diff] [blame] | 61 | { |
Sachin Sant | 2a549c3 | 2009-07-16 19:58:42 +0800 | [diff] [blame] | 62 | struct s390_sha_ctx *sctx = shash_desc_ctx(desc); |
Jan Glauber | 81bd5f6 | 2009-09-05 16:27:35 +1000 | [diff] [blame] | 63 | const struct sha1_state *ictx = in; |
Herbert Xu | 406f104 | 2009-07-10 13:18:26 +0800 | [diff] [blame] | 64 | |
| 65 | sctx->count = ictx->count; |
| 66 | memcpy(sctx->state, ictx->state, sizeof(ictx->state)); |
| 67 | memcpy(sctx->buf, ictx->buffer, sizeof(ictx->buffer)); |
| 68 | sctx->func = KIMD_SHA_1; |
| 69 | return 0; |
| 70 | } |
| 71 | |
Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 72 | static struct shash_alg alg = { |
| 73 | .digestsize = SHA1_DIGEST_SIZE, |
| 74 | .init = sha1_init, |
| 75 | .update = s390_sha_update, |
| 76 | .final = s390_sha_final, |
Herbert Xu | 406f104 | 2009-07-10 13:18:26 +0800 | [diff] [blame] | 77 | .export = sha1_export, |
| 78 | .import = sha1_import, |
Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 79 | .descsize = sizeof(struct s390_sha_ctx), |
Herbert Xu | 406f104 | 2009-07-10 13:18:26 +0800 | [diff] [blame] | 80 | .statesize = sizeof(struct sha1_state), |
Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 81 | .base = { |
| 82 | .cra_name = "sha1", |
| 83 | .cra_driver_name= "sha1-s390", |
| 84 | .cra_priority = CRYPT_S390_PRIORITY, |
| 85 | .cra_flags = CRYPTO_ALG_TYPE_SHASH, |
| 86 | .cra_blocksize = SHA1_BLOCK_SIZE, |
| 87 | .cra_module = THIS_MODULE, |
| 88 | } |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 89 | }; |
| 90 | |
Heiko Carstens | 9f7819c | 2008-04-17 07:46:17 +0200 | [diff] [blame] | 91 | static int __init sha1_s390_init(void) |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 92 | { |
Jan Glauber | 1822bc9 | 2011-04-19 21:29:14 +0200 | [diff] [blame] | 93 | if (!crypt_s390_func_available(KIMD_SHA_1, CRYPT_S390_MSA)) |
Jan Glauber | 86aa9fc | 2007-02-05 21:18:14 +0100 | [diff] [blame] | 94 | return -EOPNOTSUPP; |
Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 95 | return crypto_register_shash(&alg); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 96 | } |
| 97 | |
Heiko Carstens | 9f7819c | 2008-04-17 07:46:17 +0200 | [diff] [blame] | 98 | static void __exit sha1_s390_fini(void) |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 99 | { |
Herbert Xu | 563f346 | 2009-01-18 20:33:33 +1100 | [diff] [blame] | 100 | crypto_unregister_shash(&alg); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 101 | } |
| 102 | |
Heiko Carstens | 9f7819c | 2008-04-17 07:46:17 +0200 | [diff] [blame] | 103 | module_init(sha1_s390_init); |
| 104 | module_exit(sha1_s390_fini); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 105 | |
| 106 | MODULE_ALIAS("sha1"); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 107 | MODULE_LICENSE("GPL"); |
| 108 | MODULE_DESCRIPTION("SHA1 Secure Hash Algorithm"); |