blob: e85ba348722a95007d26bb8ce73e4fe5913c944f [file] [log] [blame]
Linus Torvalds1da177e2005-04-16 15:20:36 -07001/*
2 * Cryptographic API.
3 *
Jan Glauberc1e26e12006-01-06 00:19:17 -08004 * s390 implementation of the SHA1 Secure Hash Algorithm.
Linus Torvalds1da177e2005-04-16 15:20:36 -07005 *
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:
Jan Glauber86aa9fc2007-02-05 21:18:14 +010011 * Copyright IBM Corp. 2003,2007
12 * Author(s): Thomas Spatzier
13 * Jan Glauber (jan.glauber@de.ibm.com)
Linus Torvalds1da177e2005-04-16 15:20:36 -070014 *
Sebastian Siewiorad5d2782007-10-08 11:45:10 +080015 * Derived from "crypto/sha1_generic.c"
Linus Torvalds1da177e2005-04-16 15:20:36 -070016 * 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 Xu563f3462009-01-18 20:33:33 +110026#include <crypto/internal/hash.h>
Linus Torvalds1da177e2005-04-16 15:20:36 -070027#include <linux/init.h>
28#include <linux/module.h>
Jan Glauber5265eeb2007-10-09 22:43:13 +080029#include <crypto/sha.h>
Jan Glauber131a3952007-04-27 16:01:54 +020030
Jan Glauberc1e26e12006-01-06 00:19:17 -080031#include "crypt_s390.h"
Jan Glauber604973f2008-03-06 19:50:20 +080032#include "sha.h"
Linus Torvalds1da177e2005-04-16 15:20:36 -070033
Herbert Xu563f3462009-01-18 20:33:33 +110034static int sha1_init(struct shash_desc *desc)
Linus Torvalds1da177e2005-04-16 15:20:36 -070035{
Herbert Xu563f3462009-01-18 20:33:33 +110036 struct s390_sha_ctx *sctx = shash_desc_ctx(desc);
Jan Glauber86aa9fc2007-02-05 21:18:14 +010037
Jan Glauber5265eeb2007-10-09 22:43:13 +080038 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 Glauber131a3952007-04-27 16:01:54 +020043 sctx->count = 0;
Jan Glauber604973f2008-03-06 19:50:20 +080044 sctx->func = KIMD_SHA_1;
Herbert Xu563f3462009-01-18 20:33:33 +110045
46 return 0;
Linus Torvalds1da177e2005-04-16 15:20:36 -070047}
48
Herbert Xu563f3462009-01-18 20:33:33 +110049static struct shash_alg alg = {
50 .digestsize = SHA1_DIGEST_SIZE,
51 .init = sha1_init,
52 .update = s390_sha_update,
53 .final = s390_sha_final,
54 .descsize = sizeof(struct s390_sha_ctx),
55 .base = {
56 .cra_name = "sha1",
57 .cra_driver_name= "sha1-s390",
58 .cra_priority = CRYPT_S390_PRIORITY,
59 .cra_flags = CRYPTO_ALG_TYPE_SHASH,
60 .cra_blocksize = SHA1_BLOCK_SIZE,
61 .cra_module = THIS_MODULE,
62 }
Linus Torvalds1da177e2005-04-16 15:20:36 -070063};
64
Heiko Carstens9f7819c2008-04-17 07:46:17 +020065static int __init sha1_s390_init(void)
Linus Torvalds1da177e2005-04-16 15:20:36 -070066{
Jan Glauber86aa9fc2007-02-05 21:18:14 +010067 if (!crypt_s390_func_available(KIMD_SHA_1))
68 return -EOPNOTSUPP;
Herbert Xu563f3462009-01-18 20:33:33 +110069 return crypto_register_shash(&alg);
Linus Torvalds1da177e2005-04-16 15:20:36 -070070}
71
Heiko Carstens9f7819c2008-04-17 07:46:17 +020072static void __exit sha1_s390_fini(void)
Linus Torvalds1da177e2005-04-16 15:20:36 -070073{
Herbert Xu563f3462009-01-18 20:33:33 +110074 crypto_unregister_shash(&alg);
Linus Torvalds1da177e2005-04-16 15:20:36 -070075}
76
Heiko Carstens9f7819c2008-04-17 07:46:17 +020077module_init(sha1_s390_init);
78module_exit(sha1_s390_fini);
Linus Torvalds1da177e2005-04-16 15:20:36 -070079
80MODULE_ALIAS("sha1");
Linus Torvalds1da177e2005-04-16 15:20:36 -070081MODULE_LICENSE("GPL");
82MODULE_DESCRIPTION("SHA1 Secure Hash Algorithm");