dropbear: src/pk/dh/dh.c annotate

annotate src/pk/dh/dh.c @ 191:1c15b283127b libtomcrypt-orig

Import of libtomcrypt 1.02 with manual path rename rearrangement etc

author	Matt Johnston <matt@ucc.asn.au>
date	Fri, 06 May 2005 13:23:02 +0000
parents
children	39d5d58461d6

rev	line source
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1 /* LibTomCrypt, modular cryptographic library -- Tom St Denis
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2 *
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3 * LibTomCrypt is a library that provides various cryptographic
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4 * algorithms in a highly modular and flexible manner.
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5 *
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6 * The library is free for all purposes without any express
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7 * guarantee it works.
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8 *
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9 * Tom St Denis, [email protected], http://libtomcrypt.org
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	10 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	11 #include "tomcrypt.h"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	12
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	13 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	14 @file dh.c
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	15 DH crypto, Tom St Denis
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	16 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	17
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	18 #ifdef MDH
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	19
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	20 /* max export size we'll encounter (smaller than this but lets round up a bit) */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	21 #define DH_BUF_SIZE 1200
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	22
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	23 /* This holds the key settings. *MUST* be organized by size from smallest to largest. */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	24 static const struct {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	25 int size;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	26 char name, base, *prime;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	27 } sets[] = {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	28 #ifdef DH768
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	29 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	30 96,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	31 "DH-768",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	32 "4",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	33 "F///////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	34 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	35 "//////m3wvV"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	36 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	37 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	38 #ifdef DH1024
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	39 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	40 128,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	41 "DH-1024",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	42 "4",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	43 "F///////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	44 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	45 "////////////////////////////////////////////////m3C47"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	46 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	47 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	48 #ifdef DH1280
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	49 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	50 160,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	51 "DH-1280",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	52 "4",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	53 "F///////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	54 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	55 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	56 "//////////////////////////////m4kSN"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	57 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	58 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	59 #ifdef DH1536
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	60 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	61 192,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	62 "DH-1536",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	63 "4",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	64 "F///////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	65 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	66 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	67 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	68 "////////////m5uqd"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	69 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	70 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	71 #ifdef DH1792
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	72 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	73 224,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	74 "DH-1792",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	75 "4",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	76 "F///////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	77 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	78 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	79 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	80 "//////////////////////////////////////////////////////mT/sd"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	81 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	82 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	83 #ifdef DH2048
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	84 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	85 256,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	86 "DH-2048",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	87 "4",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	88 "3///////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	89 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	90 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	91 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	92 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	93 "/////////////////////////////////////////m8MPh"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	94 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	95 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	96 #ifdef DH2560
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	97 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	98 320,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	99 "DH-2560",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	100 "4",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	101 "3///////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	102 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	103 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	104 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	105 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	106 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	107 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	108 "/////mKFpF"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	109 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	110 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	111 #ifdef DH3072
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	112 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	113 384,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	114 "DH-3072",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	115 "4",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	116 "3///////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	117 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	118 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	119 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	120 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	121 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	122 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	123 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	124 "/////////////////////////////m32nN"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	125 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	126 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	127 #ifdef DH4096
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	128 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	129 512,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	130 "DH-4096",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	131 "4",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	132 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	133 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	134 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	135 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	136 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	137 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	138 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	139 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	140 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	141 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	142 "////////////////////////////////////////////////////////////"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	143 "/////////////////////m8pOF"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	144 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	145 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	146 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	147 0,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	148 NULL,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	149 NULL,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	150 NULL
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	151 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	152 };
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	153
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	154 static int is_valid_idx(int n)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	155 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	156 int x;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	157
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	158 for (x = 0; sets[x].size; x++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	159 if ((n < 0) \|\| (n >= x)) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	160 return 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	161 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	162 return 1;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	163 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	164
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	165 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	166 Test the DH sub-system (can take a while)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	167 @return CRYPT_OK if successful
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	168 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	169 int dh_test(void)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	170 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	171 mp_int p, g, tmp;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	172 int x, err, primality;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	173
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	174 if ((err = mp_init_multi(&p, &g, &tmp, NULL)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	175
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	176 for (x = 0; sets[x].size != 0; x++) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	177 #if 0
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	178 printf("dh_test():testing size %d-bits\n", sets[x].size * 8);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	179 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	180 if ((err = mp_read_radix(&g,(char *)sets[x].base, 64)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	181 if ((err = mp_read_radix(&p,(char *)sets[x].prime, 64)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	182
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	183 /* ensure p is prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	184 if ((err = is_prime(&p, &primality)) != CRYPT_OK) { goto done; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	185 if (primality == 0) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	186 err = CRYPT_FAIL_TESTVECTOR;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	187 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	188 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	189
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	190 if ((err = mp_sub_d(&p, 1, &tmp)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	191 if ((err = mp_div_2(&tmp, &tmp)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	192
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	193 /* ensure (p-1)/2 is prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	194 if ((err = is_prime(&tmp, &primality)) != CRYPT_OK) { goto done; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	195 if (primality == 0) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	196 err = CRYPT_FAIL_TESTVECTOR;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	197 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	198 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	199
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	200 /* now see if g^((p-1)/2) mod p is in fact 1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	201 if ((err = mp_exptmod(&g, &tmp, &p, &tmp)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	202 if (mp_cmp_d(&tmp, 1)) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	203 err = CRYPT_FAIL_TESTVECTOR;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	204 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	205 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	206 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	207 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	208 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	209 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	210 err = mpi_to_ltc_error(err);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	211 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	212 mp_clear_multi(&tmp, &g, &p, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	213 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	214 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	215
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	216 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	217 Get the min and max DH key sizes (octets)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	218 @param low [out] The smallest key size supported
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	219 @param high [out] The largest key size supported
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	220 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	221 void dh_sizes(int low, int high)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	222 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	223 int x;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	224 LTC_ARGCHK(low != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	225 LTC_ARGCHK(high != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	226 *low = INT_MAX;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	227 *high = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	228 for (x = 0; sets[x].size != 0; x++) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	229 if (low > sets[x].size) low = sets[x].size;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	230 if (high < sets[x].size) high = sets[x].size;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	231 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	232 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	233
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	234 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	235 Returns the key size of a given DH key (octets)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	236 @param key The DH key to get the size of
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	237 @return The size if valid or INT_MAX if not
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	238 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	239 int dh_get_size(dh_key *key)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	240 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	241 LTC_ARGCHK(key != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	242 if (is_valid_idx(key->idx) == 1) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	243 return sets[key->idx].size;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	244 } else {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	245 return INT_MAX; /* large value that would cause dh_make_key() to fail */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	246 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	247 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	248
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	249 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	250 Make a DH key [private key pair]
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	251 @param prng An active PRNG state
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	252 @param wprng The index for the PRNG you desire to use
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	253 @param keysize The key size (octets) desired
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	254 @param key [out] Where the newly created DH key will be stored
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	255 @return CRYPT_OK if successful, note: on error all allocated memory will be freed automatically.
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	256 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	257 int dh_make_key(prng_state prng, int wprng, int keysize, dh_key key)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	258 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	259 unsigned char *buf;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	260 unsigned long x;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	261 mp_int p, g;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	262 int err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	263
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	264 LTC_ARGCHK(key != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	265
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	266 /* good prng? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	267 if ((err = prng_is_valid(wprng)) != CRYPT_OK) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	268 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	269 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	270
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	271 /* find key size */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	272 for (x = 0; (keysize > sets[x].size) && (sets[x].size != 0); x++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	273 #ifdef FAST_PK
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	274 keysize = MIN(sets[x].size, 32);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	275 #else
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	276 keysize = sets[x].size;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	277 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	278
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	279 if (sets[x].size == 0) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	280 return CRYPT_INVALID_KEYSIZE;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	281 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	282 key->idx = x;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	283
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	284 /* allocate buffer */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	285 buf = XMALLOC(keysize);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	286 if (buf == NULL) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	287 return CRYPT_MEM;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	288 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	289
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	290 /* make up random string */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	291 if (prng_descriptor[wprng].read(buf, keysize, prng) != (unsigned long)keysize) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	292 err = CRYPT_ERROR_READPRNG;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	293 goto error2;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	294 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	295
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	296 /* init parameters */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	297 if ((err = mp_init_multi(&g, &p, &key->x, &key->y, NULL)) != MP_OKAY) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	298 goto error;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	299 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	300 if ((err = mp_read_radix(&g, sets[key->idx].base, 64)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	301 if ((err = mp_read_radix(&p, sets[key->idx].prime, 64)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	302
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	303 /* load the x value */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	304 if ((err = mp_read_unsigned_bin(&key->x, buf, keysize)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	305 if ((err = mp_exptmod(&g, &key->x, &p, &key->y)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	306 key->type = PK_PRIVATE;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	307
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	308 if ((err = mp_shrink(&key->x)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	309 if ((err = mp_shrink(&key->y)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	310
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	311 /* free up ram */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	312 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	313 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	314 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	315 err = mpi_to_ltc_error(err);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	316 error2:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	317 mp_clear_multi(&key->x, &key->y, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	318 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	319 #ifdef LTC_CLEAN_STACK
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	320 zeromem(buf, keysize);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	321 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	322 mp_clear_multi(&p, &g, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	323 XFREE(buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	324 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	325 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	326
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	327 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	328 Free the allocated ram for a DH key
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	329 @param key The key which you wish to free
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	330 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	331 void dh_free(dh_key *key)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	332 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	333 LTC_ARGCHK(key != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	334 mp_clear_multi(&key->x, &key->y, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	335 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	336
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	337 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	338 Export a DH key to a binary packet
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	339 @param out [out] The destination for the key
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	340 @param outlen [in/out] The max size and resulting size of the DH key
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	341 @param type Which type of key (PK_PRIVATE or PK_PUBLIC)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	342 @param key The key you wish to export
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	343 @return CRYPT_OK if successful
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	344 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	345 int dh_export(unsigned char out, unsigned long outlen, int type, dh_key *key)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	346 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	347 unsigned long y, z;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	348 int err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	349
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	350 LTC_ARGCHK(out != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	351 LTC_ARGCHK(outlen != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	352 LTC_ARGCHK(key != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	353
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	354 /* can we store the static header? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	355 if (*outlen < (PACKET_SIZE + 2)) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	356 return CRYPT_BUFFER_OVERFLOW;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	357 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	358
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	359 if (type == PK_PRIVATE && key->type != PK_PRIVATE) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	360 return CRYPT_PK_NOT_PRIVATE;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	361 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	362
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	363 /* header */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	364 y = PACKET_SIZE;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	365
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	366 /* header */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	367 out[y++] = type;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	368 out[y++] = (unsigned char)(sets[key->idx].size / 8);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	369
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	370 /* export y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	371 OUTPUT_BIGNUM(&key->y, out, y, z);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	372
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	373 if (type == PK_PRIVATE) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	374 /* export x */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	375 OUTPUT_BIGNUM(&key->x, out, y, z);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	376 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	377
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	378 /* store header */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	379 packet_store_header(out, PACKET_SECT_DH, PACKET_SUB_KEY);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	380
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	381 /* store len */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	382 *outlen = y;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	383 return CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	384 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	385
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	386 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	387 Import a DH key from a binary packet
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	388 @param in The packet to read
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	389 @param inlen The length of the input packet
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	390 @param key [out] Where to import the key to
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	391 @return CRYPT_OK if successful, on error all allocated memory is freed automatically
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	392 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	393 int dh_import(const unsigned char in, unsigned long inlen, dh_key key)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	394 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	395 unsigned long x, y, s;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	396 int err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	397
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	398 LTC_ARGCHK(in != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	399 LTC_ARGCHK(key != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	400
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	401 /* make sure valid length */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	402 if ((2+PACKET_SIZE) > inlen) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	403 return CRYPT_INVALID_PACKET;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	404 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	405
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	406 /* check type byte */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	407 if ((err = packet_valid_header((unsigned char *)in, PACKET_SECT_DH, PACKET_SUB_KEY)) != CRYPT_OK) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	408 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	409 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	410
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	411 /* init */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	412 if ((err = mp_init_multi(&key->x, &key->y, NULL)) != MP_OKAY) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	413 return mpi_to_ltc_error(err);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	414 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	415
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	416 /* advance past packet header */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	417 y = PACKET_SIZE;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	418
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	419 /* key type, e.g. private, public */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	420 key->type = (int)in[y++];
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	421
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	422 /* key size in bytes */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	423 s = (unsigned long)in[y++] * 8;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	424
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	425 for (x = 0; (s > (unsigned long)sets[x].size) && (sets[x].size != 0); x++);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	426 if (sets[x].size == 0) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	427 err = CRYPT_INVALID_KEYSIZE;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	428 goto error;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	429 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	430 key->idx = (int)x;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	431
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	432 /* type check both values */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	433 if ((key->type != PK_PUBLIC) && (key->type != PK_PRIVATE)) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	434 err = CRYPT_PK_TYPE_MISMATCH;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	435 goto error;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	436 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	437
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	438 /* is the key idx valid? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	439 if (is_valid_idx(key->idx) != 1) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	440 err = CRYPT_PK_TYPE_MISMATCH;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	441 goto error;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	442 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	443
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	444 /* load public value g^x mod p*/
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	445 INPUT_BIGNUM(&key->y, in, x, y, inlen);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	446
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	447 if (key->type == PK_PRIVATE) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	448 INPUT_BIGNUM(&key->x, in, x, y, inlen);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	449 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	450
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	451 /* eliminate private key if public */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	452 if (key->type == PK_PUBLIC) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	453 mp_clear(&key->x);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	454 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	455
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	456 return CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	457 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	458 mp_clear_multi(&key->y, &key->x, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	459 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	460 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	461
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	462 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	463 Create a DH shared secret.
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	464 @param private_key The private DH key in the pair
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	465 @param public_key The public DH key in the pair
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	466 @param out [out] The destination of the shared data
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	467 @param outlen [in/out] The max size and resulting size of the shared data.
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	468 @return CRYPT_OK if successful
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	469 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	470 int dh_shared_secret(dh_key private_key, dh_key public_key,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	471 unsigned char out, unsigned long outlen)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	472 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	473 mp_int tmp, p;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	474 unsigned long x;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	475 int err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	476
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	477 LTC_ARGCHK(private_key != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	478 LTC_ARGCHK(public_key != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	479 LTC_ARGCHK(out != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	480 LTC_ARGCHK(outlen != NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	481
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	482 /* types valid? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	483 if (private_key->type != PK_PRIVATE) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	484 return CRYPT_PK_NOT_PRIVATE;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	485 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	486
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	487 /* same idx? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	488 if (private_key->idx != public_key->idx) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	489 return CRYPT_PK_TYPE_MISMATCH;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	490 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	491
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	492 /* compute y^x mod p */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	493 if ((err = mp_init_multi(&tmp, &p, NULL)) != MP_OKAY) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	494 return mpi_to_ltc_error(err);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	495 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	496
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	497 if ((err = mp_read_radix(&p, (char *)sets[private_key->idx].prime, 64)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	498 if ((err = mp_exptmod(&public_key->y, &private_key->x, &p, &tmp)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	499
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	500 /* enough space for output? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	501 x = (unsigned long)mp_unsigned_bin_size(&tmp);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	502 if (*outlen < x) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	503 err = CRYPT_BUFFER_OVERFLOW;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	504 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	505 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	506 if ((err = mp_to_unsigned_bin(&tmp, out)) != MP_OKAY) { goto error; }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	507 *outlen = x;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	508 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	509 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	510 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	511 err = mpi_to_ltc_error(err);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	512 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	513 mp_clear_multi(&p, &tmp, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	514 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	515 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	516
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	517 #include "dh_sys.c"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	518
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	519 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	520

Mercurial > dropbear

annotate src/pk/dh/dh.c @ 191:1c15b283127b libtomcrypt-orig