|
|
|
|
/*
|
|
|
|
|
* Cryptographic API.
|
|
|
|
|
*
|
|
|
|
|
* Support for s390 cryptographic instructions.
|
|
|
|
|
* Testing module for querying processor crypto capabilities.
|
|
|
|
|
*
|
|
|
|
|
* Copyright (c) 2003 IBM Deutschland Entwicklung GmbH, IBM Corporation
|
|
|
|
|
* Author(s): Thomas Spatzier (tspat@de.ibm.com)
|
|
|
|
|
*
|
|
|
|
|
* This program is free software; you can redistribute it and/or modify it
|
|
|
|
|
* under the terms of the GNU General Public License as published by the Free
|
|
|
|
|
* Software Foundation; either version 2 of the License, or (at your option)
|
|
|
|
|
* any later version.
|
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
#include <linux/module.h>
|
|
|
|
|
#include <linux/init.h>
|
|
|
|
|
#include <linux/kernel.h>
|
|
|
|
|
#include <asm/errno.h>
|
|
|
|
|
#include "crypt_s390.h"
|
|
|
|
|
|
|
|
|
|
static void query_available_functions(void)
|
|
|
|
|
{
|
|
|
|
|
printk(KERN_INFO "#####################\n");
|
|
|
|
|
|
|
|
|
|
/* query available KM functions */
|
|
|
|
|
printk(KERN_INFO "KM_QUERY: %d\n",
|
|
|
|
|
crypt_s390_func_available(KM_QUERY));
|
|
|
|
|
printk(KERN_INFO "KM_DEA: %d\n",
|
|
|
|
|
crypt_s390_func_available(KM_DEA_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KM_TDEA_128: %d\n",
|
|
|
|
|
crypt_s390_func_available(KM_TDEA_128_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KM_TDEA_192: %d\n",
|
|
|
|
|
crypt_s390_func_available(KM_TDEA_192_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KM_AES_128: %d\n",
|
|
|
|
|
crypt_s390_func_available(KM_AES_128_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KM_AES_192: %d\n",
|
|
|
|
|
crypt_s390_func_available(KM_AES_192_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KM_AES_256: %d\n",
|
|
|
|
|
crypt_s390_func_available(KM_AES_256_ENCRYPT));
|
|
|
|
|
|
|
|
|
|
/* query available KMC functions */
|
|
|
|
|
printk(KERN_INFO "KMC_QUERY: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMC_QUERY));
|
|
|
|
|
printk(KERN_INFO "KMC_DEA: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMC_DEA_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KMC_TDEA_128: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMC_TDEA_128_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KMC_TDEA_192: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMC_TDEA_192_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KMC_AES_128: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMC_AES_128_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KMC_AES_192: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMC_AES_192_ENCRYPT));
|
|
|
|
|
printk(KERN_INFO "KMC_AES_256: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMC_AES_256_ENCRYPT));
|
|
|
|
|
|
|
|
|
|
/* query available KIMD functions */
|
|
|
|
|
printk(KERN_INFO "KIMD_QUERY: %d\n",
|
|
|
|
|
crypt_s390_func_available(KIMD_QUERY));
|
|
|
|
|
printk(KERN_INFO "KIMD_SHA_1: %d\n",
|
|
|
|
|
crypt_s390_func_available(KIMD_SHA_1));
|
|
|
|
|
printk(KERN_INFO "KIMD_SHA_256: %d\n",
|
|
|
|
|
crypt_s390_func_available(KIMD_SHA_256));
|
|
|
|
|
|
|
|
|
|
/* query available KLMD functions */
|
|
|
|
|
printk(KERN_INFO "KLMD_QUERY: %d\n",
|
|
|
|
|
crypt_s390_func_available(KLMD_QUERY));
|
|
|
|
|
printk(KERN_INFO "KLMD_SHA_1: %d\n",
|
|
|
|
|
crypt_s390_func_available(KLMD_SHA_1));
|
|
|
|
|
printk(KERN_INFO "KLMD_SHA_256: %d\n",
|
|
|
|
|
crypt_s390_func_available(KLMD_SHA_256));
|
|
|
|
|
|
|
|
|
|
/* query available KMAC functions */
|
|
|
|
|
printk(KERN_INFO "KMAC_QUERY: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMAC_QUERY));
|
|
|
|
|
printk(KERN_INFO "KMAC_DEA: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMAC_DEA));
|
|
|
|
|
printk(KERN_INFO "KMAC_TDEA_128: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMAC_TDEA_128));
|
|
|
|
|
printk(KERN_INFO "KMAC_TDEA_192: %d\n",
|
|
|
|
|
crypt_s390_func_available(KMAC_TDEA_192));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int init(void)
|
|
|
|
|
{
|
|
|
|
|
struct crypt_s390_query_status status = {
|
|
|
|
|
.high = 0,
|
|
|
|
|
.low = 0
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
printk(KERN_INFO "crypt_s390: querying available crypto functions\n");
|
|
|
|
|
crypt_s390_km(KM_QUERY, &status, NULL, NULL, 0);
|
|
|
|
|
printk(KERN_INFO "KM:\t%016llx %016llx\n",
|
|
|
|
|
(unsigned long long) status.high,
|
|
|
|
|
(unsigned long long) status.low);
|
|
|
|
|
status.high = status.low = 0;
|
|
|
|
|
crypt_s390_kmc(KMC_QUERY, &status, NULL, NULL, 0);
|
|
|
|
|
printk(KERN_INFO "KMC:\t%016llx %016llx\n",
|
|
|
|
|
(unsigned long long) status.high,
|
|
|
|
|
(unsigned long long) status.low);
|
|
|
|
|
status.high = status.low = 0;
|
|
|
|
|
crypt_s390_kimd(KIMD_QUERY, &status, NULL, 0);
|
|
|
|
|
printk(KERN_INFO "KIMD:\t%016llx %016llx\n",
|
|
|
|
|
(unsigned long long) status.high,
|
|
|
|
|
(unsigned long long) status.low);
|
|
|
|
|
status.high = status.low = 0;
|
|
|
|
|
crypt_s390_klmd(KLMD_QUERY, &status, NULL, 0);
|
|
|
|
|
printk(KERN_INFO "KLMD:\t%016llx %016llx\n",
|
|
|
|
|
(unsigned long long) status.high,
|
|
|
|
|
(unsigned long long) status.low);
|
|
|
|
|
status.high = status.low = 0;
|
|
|
|
|
crypt_s390_kmac(KMAC_QUERY, &status, NULL, 0);
|
|
|
|
|
printk(KERN_INFO "KMAC:\t%016llx %016llx\n",
|
|
|
|
|
(unsigned long long) status.high,
|
|
|
|
|
(unsigned long long) status.low);
|
|
|
|
|
|
|
|
|
|
query_available_functions();
|
|
|
|
|
return -ECANCELED;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void __exit cleanup(void)
|
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
module_init(init);
|
|
|
|
|
module_exit(cleanup);
|
|
|
|
|
|
|
|
|
|
MODULE_LICENSE("GPL");
|
