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

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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	12 /* Implements ECC over Z/pZ for curve y^2 = x^3 - 3x + b
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 * All curves taken from NIST recommendation paper of July 1999
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	15 * Available at http://csrc.nist.gov/cryptval/dss.htm
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 #include "tomcrypt.h"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	18
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 @file ecc.c
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	21 ECC 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	22 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	23
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	24 #ifdef MECC
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	25
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	26 /* size of our temp buffers for exported keys */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	27 #define ECC_BUF_SIZE 160
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	28
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	29 /* max private key size */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	30 #define ECC_MAXSIZE 66
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	31
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	32 /* 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	33 static const struct {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	34 int size;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	35 char name, prime, B, order, Gx, Gy;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	36 } sets[] = {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	37 #ifdef ECC160
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	38 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	39 20,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	40 "ECC-160",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	41 /* prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	42 "G00000000000000000000000007",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	43 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	44 "1oUV2vOaSlWbxr6",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	45 /* order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	46 "G0000000000004sCQUtDxaqDUN5",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	47 /* Gx */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	48 "jpqOf1BHus6Yd/pyhyVpP",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	49 /* Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	50 "D/wykuuIFfr+vPyx7kQEPu8MixO",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	51 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	52 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	53 #ifdef ECC192
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 24,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	56 "ECC-192",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	57 /* prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	58 "/////////////////////l//////////",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	59
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	60 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	61 "P2456UMSWESFf+chSYGmIVwutkp1Hhcn",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	62
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	63 /* order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	64 "////////////////cTxuDXHhoR6qqYWn",
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 /* Gx */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	67 "68se3h0maFPylo3hGw680FJ/2ls2/n0I",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	68
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	69 /* Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	70 "1nahbV/8sdXZ417jQoJDrNFvTw4UUKWH"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	71 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	72 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	73 #ifdef ECC224
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	74 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	75 28,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	76 "ECC-224",
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 /* prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	79 "400000000000000000000000000000000000BV",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	80
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	81 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	82 "21HkWGL2CxJIp",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	83
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	84 /* order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	85 "4000000000000000000Kxnixk9t8MLzMiV264/",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	86
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	87 /* Gx */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	88 "jpqOf1BHus6Yd/pyhyVpP",
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 /* Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	91 "3FCtyo2yHA5SFjkCGbYxbOvNeChwS+j6wSIwck",
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 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	94 #ifdef ECC256
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	95 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	96 32,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	97 "ECC-256",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	98 /* Prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	99 "F////y000010000000000000000////////////////",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	100
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	101 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	102 "5h6DTYgEfFdi+kzLNQOXhnb7GQmp5EmzZlEF3udqc1B",
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 /* Order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	105 "F////y00000//////////+yvlgjfnUUXFEvoiByOoLH",
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 /* Gx */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	108 "6iNqVBXB497+BpcvMEaGF9t0ts1BUipeFIXEKNOcCAM",
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 /* Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	111 "4/ZGkB+6d+RZkVhIdmFdXOhpZDNQp5UpiksG6Wtlr7r"
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 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	114 #ifdef ECC384
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	115 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	116 48,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	117 "ECC-384",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	118 /* prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	119 "//////////////////////////////////////////x/////00000000003/"
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 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	123 "ip4lf+8+v+IOZWLhu/Wj6HWTd6x+WK4I0nG8Zr0JXrh6LZcDYYxHdIg5oEtJ"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	124 "x2hl",
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 /* Order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	127 "////////////////////////////////nsDDWVGtBTzO6WsoIB2dUkpi6MhC"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	128 "nIbp",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	129
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	130 /* Gx and Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	131 "geVA8hwB1JUEiSSUyo2jT6uTEsABfvkOMVT1u89KAZXL0l9TlrKfR3fKNZXo"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	132 "TWgt",
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 "DXVUIfOcB6zTdfY/afBSAVZq7RqecXHywTen4xNmkC0AOB7E7Nw1dNf37NoG"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	135 "wWvV"
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 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	138 #ifdef ECC521
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 65,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	141 "ECC-521",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	142 /* prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	143 "V///////////////////////////////////////////////////////////"
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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	146 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	147 "56LFhbXZXoQ7vAQ8Q2sXK3kejfoMvcp5VEuj8cHZl49uLOPEL7iVfDx5bB0l"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	148 "JknlmSrSz+8FImqyUz57zHhK3y0",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	149
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	150 /* Order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	151 "V//////////////////////////////////////////+b66XuE/BvPhVym1I"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	152 "FS9fT0xjScuYPn7hhjljnwHE6G9",
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 /* Gx and Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	155 "CQ5ZWQt10JfpPu+osOZbRH2d6I1EGK/jI7uAAzWQqqzkg5BNdVlvrae/Xt19"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	156 "wB/gDupIBF1XMf2c/b+VZ72vRrc",
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 "HWvAMfucZl015oANxGiVHlPcFL4ILURH6WNhxqN9pvcB9VkSfbUz2P0nL2v0"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	159 "J+j1s4rF726edB2G8Y+b7QVqMPG",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	160 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	161 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	162 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	163 0,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	164 NULL, NULL, NULL, NULL, NULL, NULL
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 };
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	167
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	168 #if 0
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	169
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	170 /* you plug in a prime and B value and it finds a pseudo-random base point */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	171 void ecc_find_base(void)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	172 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	173 static char *prime = "26959946667150639794667015087019630673637144422540572481103610249951";
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	174 static char *order = "26959946667150639794667015087019637467111563745054605861463538557247";
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	175 static char *b = "9538957348957353489587";
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	176 mp_int pp, p, r, B, tmp1, tmp2, tx, ty, x, y;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	177 char buf[4096];
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	178 int i;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	179
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	180 mp_init_multi(&tx, &ty, &x, &y, &p, &pp, &r, &B, &tmp1, &tmp2, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	181 mp_read_radix(&p, prime, 10);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	182 mp_read_radix(&r, order, 10);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	183 mp_read_radix(&B, b, 10);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	184
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	185 /* get (p+1)/4 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	186 mp_add_d(&p, 1, &pp);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	187 mp_div_2(&pp, &pp);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	188 mp_div_2(&pp, &pp);
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 buf[0] = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	191 do {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	192 printf("."); fflush(stdout);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	193 /* make a random value of x */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	194 for (i = 0; i < 16; i++) buf[i+1] = rand() & 255;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	195 mp_read_raw(&x, buf, 17);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	196 mp_copy(&x, &tx);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	197
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	198 /* now compute x^3 - 3x + b */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	199 mp_expt_d(&x, 3, &tmp1);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	200 mp_mul_d(&x, 3, &tmp2);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	201 mp_sub(&tmp1, &tmp2, &tmp1);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	202 mp_add(&tmp1, &B, &tmp1);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	203 mp_mod(&tmp1, &p, &tmp1);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	204
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	205 /* now compute sqrt via x^((p+1)/4) */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	206 mp_exptmod(&tmp1, &pp, &p, &tmp2);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	207 mp_copy(&tmp2, &ty);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	208
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	209 /* now square it */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	210 mp_sqrmod(&tmp2, &p, &tmp2);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	211
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	212 /* tmp2 should equal tmp1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	213 } while (mp_cmp(&tmp1, &tmp2));
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 /* now output values in way that libtomcrypt wants */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	216 mp_todecimal(&p, buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	217 printf("\n\np==%s\n", buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	218 mp_tohex(&B, buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	219 printf("b==%s\n", buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	220 mp_todecimal(&r, buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	221 printf("r==%s\n", buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	222 mp_tohex(&tx, buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	223 printf("Gx==%s\n", buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	224 mp_tohex(&ty, buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	225 printf("Gy==%s\n", buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	226
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	227 mp_clear_multi(&tx, &ty, &x, &y, &p, &pp, &r, &B, &tmp1, &tmp2, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	228 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	229
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	230 #endif
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 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	233 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	234 int x;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	235
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	236 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	237 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	238 return 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	239 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	240 return 1;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	241 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	242
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	243 static ecc_point *new_point(void)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	244 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	245 ecc_point *p;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	246 p = XMALLOC(sizeof(ecc_point));
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	247 if (p == NULL) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	248 return NULL;
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 if (mp_init_multi(&p->x, &p->y, &p->z, NULL) != MP_OKAY) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	251 XFREE(p);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	252 return NULL;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	253 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	254 return p;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	255 }
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 static void del_point(ecc_point *p)
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 /* prevents free'ing null arguments */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	260 if (p != NULL) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	261 mp_clear_multi(&p->x, &p->y, &p->z, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	262 XFREE(p);
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 }
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 static int ecc_map(ecc_point P, mp_int modulus, mp_int *mu)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	267 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	268 mp_int t1, t2;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	269 int err;
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 if ((err = mp_init_multi(&t1, &t2, NULL)) != CRYPT_OK) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	272 return CRYPT_MEM;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	273 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	274
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	275 /* get 1/z */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	276 if ((err = mp_invmod(&P->z, modulus, &t1)) != 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	277
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	278 /* get 1/z^2 and 1/z^3 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	279 if ((err = mp_sqr(&t1, &t2)) != 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	280 if ((err = mp_reduce(&t2, modulus, mu)) != 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	281 if ((err = mp_mul(&t1, &t2, &t1)) != 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	282 if ((err = mp_reduce(&t1, modulus, mu)) != 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	283
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	284 /* multiply against x/y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	285 if ((err = mp_mul(&P->x, &t2, &P->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	286 if ((err = mp_reduce(&P->x, modulus, mu)) != 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	287 if ((err = mp_mul(&P->y, &t1, &P->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	288 if ((err = mp_reduce(&P->y, modulus, mu)) != 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	289 mp_set(&P->z, 1);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	290
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	291 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	292 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	293 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	294 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	295 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	296 mp_clear_multi(&t1, &t2, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	297 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	298
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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	301
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	302 /* double a point R = 2P, R can be P*/
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	303 static int dbl_point(ecc_point P, ecc_point R, mp_int modulus, mp_int mu)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	304 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	305 mp_int t1, t2;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	306 int err;
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_init_multi(&t1, &t2, NULL)) != MP_OKAY) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	309 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	310 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	311
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	312 if ((err = mp_copy(&P->x, &R->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	313 if ((err = mp_copy(&P->y, &R->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	314 if ((err = mp_copy(&P->z, &R->z)) != 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	315
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	316 /* t1 = Z * Z */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	317 if ((err = mp_sqr(&R->z, &t1)) != 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	318 if ((err = mp_reduce(&t1, modulus, mu)) != 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	319 /* Z = Y * Z */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	320 if ((err = mp_mul(&R->z, &R->y, &R->z)) != 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	321 if ((err = mp_reduce(&R->z, modulus, mu)) != 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	322 /* Z = 2Z */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	323 if ((err = mp_mul_2(&R->z, &R->z)) != 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	324 if (mp_cmp(&R->z, modulus) != MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	325 if ((err = mp_sub(&R->z, modulus, &R->z)) != 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	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 /* T2 = X - T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	329 if ((err = mp_sub(&R->x, &t1, &t2)) != 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	330 if (mp_cmp_d(&t2, 0) == MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	331 if ((err = mp_add(&t2, modulus, &t2)) != 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	332 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	333 /* T1 = X + T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	334 if ((err = mp_add(&t1, &R->x, &t1)) != 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	335 if (mp_cmp(&t1, modulus) != MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	336 if ((err = mp_sub(&t1, modulus, &t1)) != 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	337 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	338 /* T2 = T1 * T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	339 if ((err = mp_mul(&t1, &t2, &t2)) != 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	340 if ((err = mp_reduce(&t2, modulus, mu)) != 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	341 /* T1 = 2T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	342 if ((err = mp_mul_2(&t2, &t1)) != 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	343 if (mp_cmp(&t1, modulus) != MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	344 if ((err = mp_sub(&t1, modulus, &t1)) != 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	345 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	346 /* T1 = T1 + T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	347 if ((err = mp_add(&t1, &t2, &t1)) != 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	348 if (mp_cmp(&t1, modulus) != MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	349 if ((err = mp_sub(&t1, modulus, &t1)) != 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	350 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	351
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	352 /* Y = 2Y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	353 if ((err = mp_mul_2(&R->y, &R->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	354 if (mp_cmp(&R->y, modulus) != MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	355 if ((err = mp_sub(&R->y, modulus, &R->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	356 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	357 /* Y = Y * Y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	358 if ((err = mp_sqr(&R->y, &R->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	359 if ((err = mp_reduce(&R->y, modulus, mu)) != 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	360 /* T2 = Y * Y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	361 if ((err = mp_sqr(&R->y, &t2)) != 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	362 if ((err = mp_reduce(&t2, modulus, mu)) != 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	363 /* T2 = T2/2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	364 if (mp_isodd(&t2)) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	365 if ((err = mp_add(&t2, modulus, &t2)) != 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	366 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	367 if ((err = mp_div_2(&t2, &t2)) != 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	368 /* Y = Y * X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	369 if ((err = mp_mul(&R->y, &R->x, &R->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	370 if ((err = mp_reduce(&R->y, modulus, mu)) != 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	371
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	372 /* X = T1 * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	373 if ((err = mp_sqr(&t1, &R->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	374 if ((err = mp_reduce(&R->x, modulus, mu)) != 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	375 /* X = X - Y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	376 if ((err = mp_sub(&R->x, &R->y, &R->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	377 if (mp_cmp_d(&R->x, 0) == MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	378 if ((err = mp_add(&R->x, modulus, &R->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	379 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	380 /* X = X - Y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	381 if ((err = mp_sub(&R->x, &R->y, &R->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	382 if (mp_cmp_d(&R->x, 0) == MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	383 if ((err = mp_add(&R->x, modulus, &R->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	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 /* Y = Y - X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	387 if ((err = mp_sub(&R->y, &R->x, &R->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	388 if (mp_cmp_d(&R->y, 0) == MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	389 if ((err = mp_add(&R->y, modulus, &R->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	390 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	391 /* Y = Y * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	392 if ((err = mp_mul(&R->y, &t1, &R->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	393 if ((err = mp_reduce(&R->y, modulus, mu)) != 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	394 /* Y = Y - T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	395 if ((err = mp_sub(&R->y, &t2, &R->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	396 if (mp_cmp_d(&R->y, 0) == MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	397 if ((err = mp_add(&R->y, modulus, &R->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	398 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	399
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	400 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	401 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	402 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	403 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	404 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	405 mp_clear_multi(&t1, &t2, NULL);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	406 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	407 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	408
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	409 /* add two different points over Z/pZ, R = P + Q, note R can equal either P or Q */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	410 static int add_point(ecc_point P, ecc_point Q, ecc_point R, mp_int modulus, mp_int *mu)
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	411 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	412 mp_int t1, t2, x, y, z;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	413 int 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 if ((err = mp_init_multi(&t1, &t2, &x, &y, &z, NULL)) != MP_OKAY) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	416 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	417 }
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 if ((err = mp_copy(&P->x, &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	420 if ((err = mp_copy(&P->y, &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	421 if ((err = mp_copy(&P->z, &z)) != 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	422
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	423 /* if Z' != 1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	424 if (mp_cmp_d(&Q->z, 1) != MP_EQ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	425 /* T1 = Z' * Z' */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	426 if ((err = mp_sqr(&Q->z, &t1)) != 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	427 if ((err = mp_reduce(&t1, modulus, mu)) != 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	428 /* X = X * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	429 if ((err = mp_mul(&t1, &x, &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	430 if ((err = mp_reduce(&x, modulus, mu)) != 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	431 /* T1 = Z' * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	432 if ((err = mp_mul(&Q->z, &t1, &t1)) != 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	433 if ((err = mp_reduce(&t1, modulus, mu)) != 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	434 /* Y = Y * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	435 if ((err = mp_mul(&t1, &y, &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	436 if ((err = mp_reduce(&y, modulus, mu)) != 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	437 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	438
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	439 /* T1 = ZZ /
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	440 if ((err = mp_sqr(&z, &t1)) != 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	441 if ((err = mp_reduce(&t1, modulus, mu)) != 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	442 /* T2 = X' * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	443 if ((err = mp_mul(&Q->x, &t1, &t2)) != 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	444 if ((err = mp_reduce(&t2, modulus, mu)) != 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	445 /* T1 = Z * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	446 if ((err = mp_mul(&z, &t1, &t1)) != 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	447 if ((err = mp_reduce(&t1, modulus, mu)) != 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	448 /* T1 = Y' * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	449 if ((err = mp_mul(&Q->y, &t1, &t1)) != 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	450 if ((err = mp_reduce(&t1, modulus, mu)) != 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	451
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	452 /* Y = Y - T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	453 if ((err = mp_sub(&y, &t1, &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	454 if (mp_cmp_d(&y, 0) == MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	455 if ((err = mp_add(&y, modulus, &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	456 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	457 /* T1 = 2T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	458 if ((err = mp_mul_2(&t1, &t1)) != 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	459 if (mp_cmp(&t1, modulus) != MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	460 if ((err = mp_sub(&t1, modulus, &t1)) != 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	461 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	462 /* T1 = Y + T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	463 if ((err = mp_add(&t1, &y, &t1)) != 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	464 if (mp_cmp(&t1, modulus) != MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	465 if ((err = mp_sub(&t1, modulus, &t1)) != 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	466 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	467 /* X = X - T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	468 if ((err = mp_sub(&x, &t2, &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	469 if (mp_cmp_d(&x, 0) == MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	470 if ((err = mp_add(&x, modulus, &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	471 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	472 /* T2 = 2T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	473 if ((err = mp_mul_2(&t2, &t2)) != 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	474 if (mp_cmp(&t2, modulus) != MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	475 if ((err = mp_sub(&t2, modulus, &t2)) != 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	476 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	477 /* T2 = X + T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	478 if ((err = mp_add(&t2, &x, &t2)) != 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	479 if (mp_cmp(&t2, modulus) != MP_LT) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	480 if ((err = mp_sub(&t2, modulus, &t2)) != 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	481 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	482
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	483 /* if Z' != 1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	484 if (mp_cmp_d(&Q->z, 1) != MP_EQ) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	485 /* Z = Z * Z' */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	486 if ((err = mp_mul(&z, &Q->z, &z)) != 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	487 if ((err = mp_reduce(&z, modulus, mu)) != 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	488 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	489 /* Z = Z * X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	490 if ((err = mp_mul(&z, &x, &z)) != 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	491 if ((err = mp_reduce(&z, modulus, mu)) != 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	492
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	493 /* T1 = T1 * X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	494 if ((err = mp_mul(&t1, &x, &t1)) != 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	495 if ((err = mp_reduce(&t1, modulus, mu)) != 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	496 /* X = X * X */
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_sqr(&x, &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	498 if ((err = mp_reduce(&x, modulus, mu)) != 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 /* T2 = T2 * x */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	500 if ((err = mp_mul(&t2, &x, &t2)) != MP_OKAY) { goto error; }

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

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

12 /* Implements ECC over Z/pZ for curve y^2 = x^3 - 3x + b

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 * All curves taken from NIST recommendation paper of July 1999

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

15 * Available at http://csrc.nist.gov/cryptval/dss.htm

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 #include "tomcrypt.h"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

18

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 @file ecc.c

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

21 ECC 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

22 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

23

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

24 #ifdef MECC

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

25

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

26 /* size of our temp buffers for exported keys */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

27 #define ECC_BUF_SIZE 160

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

28

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

29 /* max private key size */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

30 #define ECC_MAXSIZE 66

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

31

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

32 /* 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

33 static const struct {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

34 int size;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

35 char *name, *prime, *B, *order, *Gx, *Gy;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

36 } sets[] = {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

37 #ifdef ECC160

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

38 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

39 20,

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

40 "ECC-160",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

41 /* prime */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

42 "G00000000000000000000000007",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

43 /* B */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

44 "1oUV2vOaSlWbxr6",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

45 /* order */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

46 "G0000000000004sCQUtDxaqDUN5",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

47 /* Gx */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

48 "jpqOf1BHus6Yd/pyhyVpP",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

49 /* Gy */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

50 "D/wykuuIFfr+vPyx7kQEPu8MixO",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

51 },

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

52 #endif

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

53 #ifdef ECC192

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 24,

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

56 "ECC-192",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

57 /* prime */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

58 "/////////////////////l//////////",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

59

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

60 /* B */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

61 "P2456UMSWESFf+chSYGmIVwutkp1Hhcn",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

62

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

63 /* order */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

64 "////////////////cTxuDXHhoR6qqYWn",

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 /* Gx */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

67 "68se3h0maFPylo3hGw680FJ/2ls2/n0I",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

68

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

69 /* Gy */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

70 "1nahbV/8sdXZ417jQoJDrNFvTw4UUKWH"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

71 },

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

72 #endif

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

73 #ifdef ECC224

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

74 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

75 28,

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

76 "ECC-224",

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 /* prime */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

79 "400000000000000000000000000000000000BV",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

80

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

81 /* B */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

82 "21HkWGL2CxJIp",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

83

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

84 /* order */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

85 "4000000000000000000Kxnixk9t8MLzMiV264/",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

86

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

87 /* Gx */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

88 "jpqOf1BHus6Yd/pyhyVpP",

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 /* Gy */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

91 "3FCtyo2yHA5SFjkCGbYxbOvNeChwS+j6wSIwck",

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 #endif

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

94 #ifdef ECC256

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

95 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

96 32,

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

97 "ECC-256",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

98 /* Prime */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

99 "F////y000010000000000000000////////////////",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

100

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

101 /* B */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

102 "5h6DTYgEfFdi+kzLNQOXhnb7GQmp5EmzZlEF3udqc1B",

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 /* Order */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

105 "F////y00000//////////+yvlgjfnUUXFEvoiByOoLH",

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 /* Gx */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

108 "6iNqVBXB497+BpcvMEaGF9t0ts1BUipeFIXEKNOcCAM",

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 /* Gy */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

111 "4/ZGkB+6d+RZkVhIdmFdXOhpZDNQp5UpiksG6Wtlr7r"

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 #endif

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

114 #ifdef ECC384

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

115 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

116 48,

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

117 "ECC-384",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

118 /* prime */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

119 "//////////////////////////////////////////x/////00000000003/"

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 /* B */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

123 "ip4lf+8+v+IOZWLhu/Wj6HWTd6x+WK4I0nG8Zr0JXrh6LZcDYYxHdIg5oEtJ"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

124 "x2hl",

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 /* Order */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

127 "////////////////////////////////nsDDWVGtBTzO6WsoIB2dUkpi6MhC"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

128 "nIbp",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

129

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

130 /* Gx and Gy */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

131 "geVA8hwB1JUEiSSUyo2jT6uTEsABfvkOMVT1u89KAZXL0l9TlrKfR3fKNZXo"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

132 "TWgt",

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 "DXVUIfOcB6zTdfY/afBSAVZq7RqecXHywTen4xNmkC0AOB7E7Nw1dNf37NoG"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

135 "wWvV"

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 #endif

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

138 #ifdef ECC521

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 65,

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

141 "ECC-521",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

142 /* prime */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

143 "V///////////////////////////////////////////////////////////"

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

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

146 /* B */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

147 "56LFhbXZXoQ7vAQ8Q2sXK3kejfoMvcp5VEuj8cHZl49uLOPEL7iVfDx5bB0l"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

148 "JknlmSrSz+8FImqyUz57zHhK3y0",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

149

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

150 /* Order */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

151 "V//////////////////////////////////////////+b66XuE/BvPhVym1I"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

152 "FS9fT0xjScuYPn7hhjljnwHE6G9",

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 /* Gx and Gy */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

155 "CQ5ZWQt10JfpPu+osOZbRH2d6I1EGK/jI7uAAzWQqqzkg5BNdVlvrae/Xt19"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

156 "wB/gDupIBF1XMf2c/b+VZ72vRrc",

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 "HWvAMfucZl015oANxGiVHlPcFL4ILURH6WNhxqN9pvcB9VkSfbUz2P0nL2v0"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

159 "J+j1s4rF726edB2G8Y+b7QVqMPG",

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

160 },

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

161 #endif

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

162 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

163 0,

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

164 NULL, NULL, NULL, NULL, NULL, NULL

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 };

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

167

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

168 #if 0

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

169

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

170 /* you plug in a prime and B value and it finds a pseudo-random base point */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

171 void ecc_find_base(void)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

172 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

173 static char *prime = "26959946667150639794667015087019630673637144422540572481103610249951";

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

174 static char *order = "26959946667150639794667015087019637467111563745054605861463538557247";

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

175 static char *b = "9538957348957353489587";

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

176 mp_int pp, p, r, B, tmp1, tmp2, tx, ty, x, y;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

177 char buf[4096];

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

178 int i;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

179

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

180 mp_init_multi(&tx, &ty, &x, &y, &p, &pp, &r, &B, &tmp1, &tmp2, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

181 mp_read_radix(&p, prime, 10);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

182 mp_read_radix(&r, order, 10);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

183 mp_read_radix(&B, b, 10);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

184

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

185 /* get (p+1)/4 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

186 mp_add_d(&p, 1, &pp);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

187 mp_div_2(&pp, &pp);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

188 mp_div_2(&pp, &pp);

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 buf[0] = 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

191 do {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

192 printf("."); fflush(stdout);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

193 /* make a random value of x */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

194 for (i = 0; i < 16; i++) buf[i+1] = rand() & 255;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

195 mp_read_raw(&x, buf, 17);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

196 mp_copy(&x, &tx);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

197

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

198 /* now compute x^3 - 3x + b */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

199 mp_expt_d(&x, 3, &tmp1);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

200 mp_mul_d(&x, 3, &tmp2);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

201 mp_sub(&tmp1, &tmp2, &tmp1);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

202 mp_add(&tmp1, &B, &tmp1);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

203 mp_mod(&tmp1, &p, &tmp1);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

204

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

205 /* now compute sqrt via x^((p+1)/4) */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

206 mp_exptmod(&tmp1, &pp, &p, &tmp2);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

207 mp_copy(&tmp2, &ty);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

208

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

209 /* now square it */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

210 mp_sqrmod(&tmp2, &p, &tmp2);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

211

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

212 /* tmp2 should equal tmp1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

213 } while (mp_cmp(&tmp1, &tmp2));

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 /* now output values in way that libtomcrypt wants */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

216 mp_todecimal(&p, buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

217 printf("\n\np==%s\n", buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

218 mp_tohex(&B, buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

219 printf("b==%s\n", buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

220 mp_todecimal(&r, buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

221 printf("r==%s\n", buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

222 mp_tohex(&tx, buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

223 printf("Gx==%s\n", buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

224 mp_tohex(&ty, buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

225 printf("Gy==%s\n", buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

226

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

227 mp_clear_multi(&tx, &ty, &x, &y, &p, &pp, &r, &B, &tmp1, &tmp2, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

228 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

229

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

230 #endif

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 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

233 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

234 int x;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

235

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

236 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

237 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

238 return 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

239 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

240 return 1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

241 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

242

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

243 static ecc_point *new_point(void)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

244 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

245 ecc_point *p;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

246 p = XMALLOC(sizeof(ecc_point));

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

247 if (p == NULL) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

248 return NULL;

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 if (mp_init_multi(&p->x, &p->y, &p->z, NULL) != MP_OKAY) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

251 XFREE(p);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

252 return NULL;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

253 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

254 return p;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

255 }

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 static void del_point(ecc_point *p)

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 /* prevents free'ing null arguments */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

260 if (p != NULL) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

261 mp_clear_multi(&p->x, &p->y, &p->z, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

262 XFREE(p);

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 }

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 static int ecc_map(ecc_point *P, mp_int *modulus, mp_int *mu)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

267 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

268 mp_int t1, t2;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

269 int err;

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 if ((err = mp_init_multi(&t1, &t2, NULL)) != CRYPT_OK) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

272 return CRYPT_MEM;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

273 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

274

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

275 /* get 1/z */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

276 if ((err = mp_invmod(&P->z, modulus, &t1)) != 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

277

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

278 /* get 1/z^2 and 1/z^3 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

279 if ((err = mp_sqr(&t1, &t2)) != 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

280 if ((err = mp_reduce(&t2, modulus, mu)) != 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

281 if ((err = mp_mul(&t1, &t2, &t1)) != 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

282 if ((err = mp_reduce(&t1, modulus, mu)) != 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

283

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

284 /* multiply against x/y */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

285 if ((err = mp_mul(&P->x, &t2, &P->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

286 if ((err = mp_reduce(&P->x, modulus, mu)) != 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

287 if ((err = mp_mul(&P->y, &t1, &P->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

288 if ((err = mp_reduce(&P->y, modulus, mu)) != 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

289 mp_set(&P->z, 1);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

290

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

291 err = CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

292 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

293 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

294 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

295 done:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

296 mp_clear_multi(&t1, &t2, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

297 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

298

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

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

301

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

302 /* double a point R = 2P, R can be P*/

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

303 static int dbl_point(ecc_point *P, ecc_point *R, mp_int *modulus, mp_int *mu)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

304 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

305 mp_int t1, t2;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

306 int err;

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_init_multi(&t1, &t2, NULL)) != MP_OKAY) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

309 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

310 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

311

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

312 if ((err = mp_copy(&P->x, &R->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

313 if ((err = mp_copy(&P->y, &R->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

314 if ((err = mp_copy(&P->z, &R->z)) != 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

315

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

316 /* t1 = Z * Z */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

317 if ((err = mp_sqr(&R->z, &t1)) != 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

318 if ((err = mp_reduce(&t1, modulus, mu)) != 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

319 /* Z = Y * Z */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

320 if ((err = mp_mul(&R->z, &R->y, &R->z)) != 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

321 if ((err = mp_reduce(&R->z, modulus, mu)) != 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

322 /* Z = 2Z */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

323 if ((err = mp_mul_2(&R->z, &R->z)) != 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

324 if (mp_cmp(&R->z, modulus) != MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

325 if ((err = mp_sub(&R->z, modulus, &R->z)) != 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

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 /* T2 = X - T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

329 if ((err = mp_sub(&R->x, &t1, &t2)) != 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

330 if (mp_cmp_d(&t2, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

331 if ((err = mp_add(&t2, modulus, &t2)) != 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

332 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

333 /* T1 = X + T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

334 if ((err = mp_add(&t1, &R->x, &t1)) != 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

335 if (mp_cmp(&t1, modulus) != MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

336 if ((err = mp_sub(&t1, modulus, &t1)) != 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

337 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

338 /* T2 = T1 * T2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

339 if ((err = mp_mul(&t1, &t2, &t2)) != 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

340 if ((err = mp_reduce(&t2, modulus, mu)) != 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

341 /* T1 = 2T2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

342 if ((err = mp_mul_2(&t2, &t1)) != 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

343 if (mp_cmp(&t1, modulus) != MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

344 if ((err = mp_sub(&t1, modulus, &t1)) != 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

345 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

346 /* T1 = T1 + T2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

347 if ((err = mp_add(&t1, &t2, &t1)) != 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

348 if (mp_cmp(&t1, modulus) != MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

349 if ((err = mp_sub(&t1, modulus, &t1)) != 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

350 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

351

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

352 /* Y = 2Y */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

353 if ((err = mp_mul_2(&R->y, &R->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

354 if (mp_cmp(&R->y, modulus) != MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

355 if ((err = mp_sub(&R->y, modulus, &R->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

356 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

357 /* Y = Y * Y */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

358 if ((err = mp_sqr(&R->y, &R->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

359 if ((err = mp_reduce(&R->y, modulus, mu)) != 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

360 /* T2 = Y * Y */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

361 if ((err = mp_sqr(&R->y, &t2)) != 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

362 if ((err = mp_reduce(&t2, modulus, mu)) != 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

363 /* T2 = T2/2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

364 if (mp_isodd(&t2)) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

365 if ((err = mp_add(&t2, modulus, &t2)) != 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

366 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

367 if ((err = mp_div_2(&t2, &t2)) != 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

368 /* Y = Y * X */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

369 if ((err = mp_mul(&R->y, &R->x, &R->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

370 if ((err = mp_reduce(&R->y, modulus, mu)) != 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

371

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

372 /* X = T1 * T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

373 if ((err = mp_sqr(&t1, &R->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

374 if ((err = mp_reduce(&R->x, modulus, mu)) != 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

375 /* X = X - Y */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

376 if ((err = mp_sub(&R->x, &R->y, &R->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

377 if (mp_cmp_d(&R->x, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

378 if ((err = mp_add(&R->x, modulus, &R->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

379 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

380 /* X = X - Y */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

381 if ((err = mp_sub(&R->x, &R->y, &R->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

382 if (mp_cmp_d(&R->x, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

383 if ((err = mp_add(&R->x, modulus, &R->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

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 /* Y = Y - X */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

387 if ((err = mp_sub(&R->y, &R->x, &R->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

388 if (mp_cmp_d(&R->y, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

389 if ((err = mp_add(&R->y, modulus, &R->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

390 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

391 /* Y = Y * T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

392 if ((err = mp_mul(&R->y, &t1, &R->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

393 if ((err = mp_reduce(&R->y, modulus, mu)) != 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

394 /* Y = Y - T2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

395 if ((err = mp_sub(&R->y, &t2, &R->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

396 if (mp_cmp_d(&R->y, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

397 if ((err = mp_add(&R->y, modulus, &R->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

398 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

399

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

400 err = CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

401 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

402 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

403 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

404 done:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

405 mp_clear_multi(&t1, &t2, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

406 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

407 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

408

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

409 /* add two different points over Z/pZ, R = P + Q, note R can equal either P or Q */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

410 static int add_point(ecc_point *P, ecc_point *Q, ecc_point *R, mp_int *modulus, mp_int *mu)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

411 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

412 mp_int t1, t2, x, y, z;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

413 int 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 if ((err = mp_init_multi(&t1, &t2, &x, &y, &z, NULL)) != MP_OKAY) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

416 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

417 }

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 if ((err = mp_copy(&P->x, &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

420 if ((err = mp_copy(&P->y, &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

421 if ((err = mp_copy(&P->z, &z)) != 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

422

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

423 /* if Z' != 1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

424 if (mp_cmp_d(&Q->z, 1) != MP_EQ) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

425 /* T1 = Z' * Z' */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

426 if ((err = mp_sqr(&Q->z, &t1)) != 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

427 if ((err = mp_reduce(&t1, modulus, mu)) != 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

428 /* X = X * T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

429 if ((err = mp_mul(&t1, &x, &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

430 if ((err = mp_reduce(&x, modulus, mu)) != 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

431 /* T1 = Z' * T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

432 if ((err = mp_mul(&Q->z, &t1, &t1)) != 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

433 if ((err = mp_reduce(&t1, modulus, mu)) != 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

434 /* Y = Y * T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

435 if ((err = mp_mul(&t1, &y, &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

436 if ((err = mp_reduce(&y, modulus, mu)) != 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

437 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

438

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

439 /* T1 = Z*Z */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

440 if ((err = mp_sqr(&z, &t1)) != 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

441 if ((err = mp_reduce(&t1, modulus, mu)) != 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

442 /* T2 = X' * T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

443 if ((err = mp_mul(&Q->x, &t1, &t2)) != 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

444 if ((err = mp_reduce(&t2, modulus, mu)) != 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

445 /* T1 = Z * T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

446 if ((err = mp_mul(&z, &t1, &t1)) != 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

447 if ((err = mp_reduce(&t1, modulus, mu)) != 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

448 /* T1 = Y' * T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

449 if ((err = mp_mul(&Q->y, &t1, &t1)) != 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

450 if ((err = mp_reduce(&t1, modulus, mu)) != 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

451

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

452 /* Y = Y - T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

453 if ((err = mp_sub(&y, &t1, &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

454 if (mp_cmp_d(&y, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

455 if ((err = mp_add(&y, modulus, &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

456 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

457 /* T1 = 2T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

458 if ((err = mp_mul_2(&t1, &t1)) != 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

459 if (mp_cmp(&t1, modulus) != MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

460 if ((err = mp_sub(&t1, modulus, &t1)) != 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

461 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

462 /* T1 = Y + T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

463 if ((err = mp_add(&t1, &y, &t1)) != 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

464 if (mp_cmp(&t1, modulus) != MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

465 if ((err = mp_sub(&t1, modulus, &t1)) != 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

466 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

467 /* X = X - T2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

468 if ((err = mp_sub(&x, &t2, &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

469 if (mp_cmp_d(&x, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

470 if ((err = mp_add(&x, modulus, &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

471 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

472 /* T2 = 2T2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

473 if ((err = mp_mul_2(&t2, &t2)) != 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

474 if (mp_cmp(&t2, modulus) != MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

475 if ((err = mp_sub(&t2, modulus, &t2)) != 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

476 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

477 /* T2 = X + T2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

478 if ((err = mp_add(&t2, &x, &t2)) != 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

479 if (mp_cmp(&t2, modulus) != MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

480 if ((err = mp_sub(&t2, modulus, &t2)) != 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

481 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

482

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

483 /* if Z' != 1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

484 if (mp_cmp_d(&Q->z, 1) != MP_EQ) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

485 /* Z = Z * Z' */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

486 if ((err = mp_mul(&z, &Q->z, &z)) != 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

487 if ((err = mp_reduce(&z, modulus, mu)) != 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

488 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

489 /* Z = Z * X */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

490 if ((err = mp_mul(&z, &x, &z)) != 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

491 if ((err = mp_reduce(&z, modulus, mu)) != 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

492

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

493 /* T1 = T1 * X */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

494 if ((err = mp_mul(&t1, &x, &t1)) != 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

495 if ((err = mp_reduce(&t1, modulus, mu)) != 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

496 /* X = X * X */

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_sqr(&x, &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

498 if ((err = mp_reduce(&x, modulus, mu)) != 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 /* T2 = T2 * x */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

500 if ((err = mp_mul(&t2, &x, &t2)) != 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

501 if ((err = mp_reduce(&t2, modulus, mu)) != 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

502 /* T1 = T1 * X */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

503 if ((err = mp_mul(&t1, &x, &t1)) != 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

504 if ((err = mp_reduce(&t1, modulus, mu)) != 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

505

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

506 /* X = Y*Y */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

507 if ((err = mp_sqr(&y, &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

508 if ((err = mp_reduce(&x, modulus, mu)) != 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

509 /* X = X - T2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

510 if ((err = mp_sub(&x, &t2, &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

511 if (mp_cmp_d(&x, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

512 if ((err = mp_add(&x, modulus, &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

513 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

514

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

515 /* T2 = T2 - X */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

516 if ((err = mp_sub(&t2, &x, &t2)) != 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

517 if (mp_cmp_d(&t2, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

518 if ((err = mp_add(&t2, modulus, &t2)) != 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

519 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

520 /* T2 = T2 - X */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

521 if ((err = mp_sub(&t2, &x, &t2)) != 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

522 if (mp_cmp_d(&t2, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

523 if ((err = mp_add(&t2, modulus, &t2)) != 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

524 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

525 /* T2 = T2 * Y */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

526 if ((err = mp_mul(&t2, &y, &t2)) != 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

527 if ((err = mp_reduce(&t2, modulus, mu)) != 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

528 /* Y = T2 - T1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

529 if ((err = mp_sub(&t2, &t1, &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

530 if (mp_cmp_d(&y, 0) == MP_LT) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

531 if ((err = mp_add(&y, modulus, &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

532 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

533 /* Y = Y/2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

534 if (mp_isodd(&y)) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

535 if ((err = mp_add(&y, modulus, &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

536 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

537 if ((err = mp_div_2(&y, &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

538

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

539 if ((err = mp_copy(&x, &R->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

540 if ((err = mp_copy(&y, &R->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

541 if ((err = mp_copy(&z, &R->z)) != 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

542

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

543 err = CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

544 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

545 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

546 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

547 done:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

548 mp_clear_multi(&t1, &t2, &x, &y, &z, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

549 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

550 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

551

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

552 /* size of sliding window, don't change this! */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

553 #define WINSIZE 4

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

554

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

555 /* perform R = kG where k == integer and G == ecc_point */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

556 static int ecc_mulmod(mp_int *k, ecc_point *G, ecc_point *R, mp_int *modulus)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

557 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

558 ecc_point *tG, *M[8];

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

559 int i, j, err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

560 mp_int mu;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

561 mp_digit buf;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

562 int first, bitbuf, bitcpy, bitcnt, mode, digidx;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

563

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

564 /* init barrett reduction */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

565 if ((err = mp_init(&mu)) != MP_OKAY) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

566 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

567 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

568 if ((err = mp_reduce_setup(&mu, modulus)) != MP_OKAY) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

569 mp_clear(&mu);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

570 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

571 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

572

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

573 /* alloc ram for window temps */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

574 for (i = 0; i < 8; i++) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

575 M[i] = new_point();

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

576 if (M[i] == NULL) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

577 for (j = 0; j < i; j++) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

578 del_point(M[j]);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

579 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

580 mp_clear(&mu);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

581 return CRYPT_MEM;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

582 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

583 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

584

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

585 /* make a copy of G incase R==G */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

586 tG = new_point();

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

587 if (tG == NULL) { err = CRYPT_MEM; goto done; }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

588

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

589 /* tG = G */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

590 if ((err = mp_copy(&G->x, &tG->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

591 if ((err = mp_copy(&G->y, &tG->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

592 if ((err = mp_copy(&G->z, &tG->z)) != 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

593

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

594 /* calc the M tab, which holds kG for k==8..15 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

595 /* M[0] == 8G */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

596 if ((err = dbl_point(G, M[0], modulus, &mu)) != 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

597 if ((err = dbl_point(M[0], M[0], modulus, &mu)) != 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

598 if ((err = dbl_point(M[0], M[0], modulus, &mu)) != 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

599

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

600 /* now find (8+k)G for k=1..7 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

601 for (j = 9; j < 16; j++) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

602 if ((err = add_point(M[j-9], G, M[j-8], modulus, &mu)) != 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

603 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

604

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

605 /* setup sliding window */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

606 mode = 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

607 bitcnt = 1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

608 buf = 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

609 digidx = k->used - 1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

610 bitcpy = bitbuf = 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

611 first = 1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

612

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

613 /* perform ops */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

614 for (;;) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

615 /* grab next digit as required */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

616 if (--bitcnt == 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

617 if (digidx == -1) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

618 break;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

619 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

620 buf = k->dp[digidx--];

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

621 bitcnt = (int) DIGIT_BIT;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

622 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

623

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

624 /* grab the next msb from the multiplicand */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

625 i = (buf >> (DIGIT_BIT - 1)) & 1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

626 buf <<= 1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

627

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

628 /* skip leading zero bits */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

629 if (mode == 0 && i == 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

630 continue;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

631 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

632

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

633 /* if the bit is zero and mode == 1 then we double */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

634 if (mode == 1 && i == 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

635 if ((err = dbl_point(R, R, modulus, &mu)) != 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

636 continue;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

637 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

638

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

639 /* else we add it to the window */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

640 bitbuf |= (i << (WINSIZE - ++bitcpy));

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

641 mode = 2;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

642

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

643 if (bitcpy == WINSIZE) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

644 /* if this is the first window we do a simple copy */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

645 if (first == 1) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

646 /* R = kG [k = first window] */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

647 if ((err = mp_copy(&M[bitbuf-8]->x, &R->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

648 if ((err = mp_copy(&M[bitbuf-8]->y, &R->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

649 if ((err = mp_copy(&M[bitbuf-8]->z, &R->z)) != 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

650 first = 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

651 } else {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

652 /* normal window */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

653 /* ok window is filled so double as required and add */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

654 /* double first */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

655 for (j = 0; j < WINSIZE; j++) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

656 if ((err = dbl_point(R, R, modulus, &mu)) != 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

657 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

658

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

659 /* then add, bitbuf will be 8..15 [8..2^WINSIZE] guaranteed */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

660 if ((err = add_point(R, M[bitbuf-8], R, modulus, &mu)) != 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

661 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

662 /* empty window and reset */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

663 bitcpy = bitbuf = 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

664 mode = 1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

665 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

666 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

667

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

668 /* if bits remain then double/add */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

669 if (mode == 2 && bitcpy > 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

670 /* double then add */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

671 for (j = 0; j < bitcpy; j++) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

672 /* only double if we have had at least one add first */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

673 if (first == 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

674 if ((err = dbl_point(R, R, modulus, &mu)) != 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

675 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

676

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

677 bitbuf <<= 1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

678 if ((bitbuf & (1 << WINSIZE)) != 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

679 if (first == 1){

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

680 /* first add, so copy */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

681 if ((err = mp_copy(&tG->x, &R->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

682 if ((err = mp_copy(&tG->y, &R->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

683 if ((err = mp_copy(&tG->z, &R->z)) != 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

684 first = 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

685 } else {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

686 /* then add */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

687 if ((err = add_point(R, tG, R, modulus, &mu)) != 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

688 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

689 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

690 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

691 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

692

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

693 /* map R back from projective space */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

694 err = ecc_map(R, modulus, &mu);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

695 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

696 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

697 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

698 done:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

699 del_point(tG);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

700 for (i = 0; i < 8; i++) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

701 del_point(M[i]);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

702 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

703 mp_clear(&mu);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

704 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

705 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

706

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

707 #undef WINSIZE

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

708

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

709 /**

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

710 Perform on the ECC system

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

711 @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

712 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

713 int ecc_test(void)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

714 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

715 mp_int modulus, order;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

716 ecc_point *G, *GG;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

717 int i, err, primality;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

718

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

719 if ((err = mp_init_multi(&modulus, &order, NULL)) != MP_OKAY) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

720 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

721 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

722

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

723 G = new_point();

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

724 GG = new_point();

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

725 if (G == NULL || GG == NULL) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

726 mp_clear_multi(&modulus, &order, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

727 del_point(G);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

728 del_point(GG);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

729 return CRYPT_MEM;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

730 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

731

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

732 for (i = 0; sets[i].size; i++) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

733 #if 0

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

734 printf("Testing %d\n", sets[i].size);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

735 #endif

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

736 if ((err = mp_read_radix(&modulus, (char *)sets[i].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

737 if ((err = mp_read_radix(&order, (char *)sets[i].order, 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

738

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

739 /* is prime actually prime? */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

740 if ((err = is_prime(&modulus, &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

741 if (primality == 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

742 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

743 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

744 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

745

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

746 /* is order prime ? */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

747 if ((err = is_prime(&order, &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

748 if (primality == 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

749 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

750 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

751 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

752

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

753 if ((err = mp_read_radix(&G->x, (char *)sets[i].Gx, 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

754 if ((err = mp_read_radix(&G->y, (char *)sets[i].Gy, 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

755 mp_set(&G->z, 1);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

756

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

757 /* then we should have G == (order + 1)G */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

758 if ((err = mp_add_d(&order, 1, &order)) != 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

759 if ((err = ecc_mulmod(&order, G, GG, &modulus)) != 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

760 if (mp_cmp(&G->x, &GG->x) != 0 || mp_cmp(&G->y, &GG->y) != 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

761 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

762 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

763 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

764 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

765 err = CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

766 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

767 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

768 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

769 done:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

770 del_point(GG);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

771 del_point(G);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

772 mp_clear_multi(&order, &modulus, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

773 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

774 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

775

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

776 void ecc_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

777 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

778 int i;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

779 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

780 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

781

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

782 *low = INT_MAX;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

783 *high = 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

784 for (i = 0; sets[i].size != 0; i++) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

785 if (sets[i].size < *low) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

786 *low = sets[i].size;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

787 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

788 if (sets[i].size > *high) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

789 *high = sets[i].size;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

790 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

791 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

792 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

793

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

794 /**

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

795 Make a new ECC key

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

796 @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

797 @param wprng The index of the PRNG you wish to use

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

798 @param keysize The keysize for the new key (in octets from 20 to 65 bytes)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

799 @param key [out] Destination of the newly created key

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

800 @return CRYPT_OK if successful, upon error all allocated memory will be freed

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

801 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

802 int ecc_make_key(prng_state *prng, int wprng, int keysize, ecc_key *key)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

803 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

804 int x, err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

805 ecc_point *base;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

806 mp_int prime;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

807 unsigned char *buf;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

808

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

809 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

810

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

811 /* good prng? */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

812 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

813 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

814 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

815

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

816 /* find key size */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

817 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

818 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

819

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

820 if (keysize > ECC_MAXSIZE || 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

821 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

822 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

823 key->idx = x;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

824

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

825 /* allocate ram */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

826 base = NULL;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

827 buf = XMALLOC(ECC_MAXSIZE);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

828 if (buf == NULL) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

829 return CRYPT_MEM;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

830 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

831

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

832 /* 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

833 if (prng_descriptor[wprng].read(buf, (unsigned long)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

834 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

835 goto LBL_ERR2;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

836 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

837

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

838 /* setup the key variables */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

839 if ((err = mp_init_multi(&key->pubkey.x, &key->pubkey.y, &key->pubkey.z, &key->k, &prime, NULL)) != MP_OKAY) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

840 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

841 goto LBL_ERR;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

842 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

843 base = new_point();

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

844 if (base == NULL) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

845 mp_clear_multi(&key->pubkey.x, &key->pubkey.y, &key->pubkey.z, &key->k, &prime, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

846 err = CRYPT_MEM;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

847 goto LBL_ERR;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

848 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

849

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

850 /* read in the specs for this key */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

851 if ((err = mp_read_radix(&prime, (char *)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

852 if ((err = mp_read_radix(&base->x, (char *)sets[key->idx].Gx, 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

853 if ((err = mp_read_radix(&base->y, (char *)sets[key->idx].Gy, 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

854 mp_set(&base->z, 1);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

855 if ((err = mp_read_unsigned_bin(&key->k, (unsigned char *)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

856

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

857 /* make the public key */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

858 if ((err = ecc_mulmod(&key->k, base, &key->pubkey, &prime)) != CRYPT_OK) { goto LBL_ERR; }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

859 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

860

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

861 /* shrink key */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

862 if ((err = mp_shrink(&key->k)) != 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

863 if ((err = mp_shrink(&key->pubkey.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

864 if ((err = mp_shrink(&key->pubkey.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

865 if ((err = mp_shrink(&key->pubkey.z)) != 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

866

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

867 /* free up ram */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

868 err = CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

869 goto LBL_ERR;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

870 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

871 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

872 LBL_ERR:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

873 del_point(base);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

874 mp_clear(&prime);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

875 LBL_ERR2:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

876 #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

877 zeromem(buf, ECC_MAXSIZE);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

878 #endif

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

879

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

880 XFREE(buf);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

881

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

882 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

883 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

884

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

885 /**

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

886 Free an ECC key from memory

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

887 @param key The key 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

888 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

889 void ecc_free(ecc_key *key)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

890 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

891 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

892 mp_clear_multi(&key->pubkey.x, &key->pubkey.y, &key->pubkey.z, &key->k, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

893 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

894

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

895 static int compress_y_point(ecc_point *pt, int idx, int *result)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

896 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

897 mp_int tmp, tmp2, p;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

898 int err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

899

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

900 LTC_ARGCHK(pt != NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

901 LTC_ARGCHK(result != NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

902

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

903 if ((err = mp_init_multi(&tmp, &tmp2, &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

904 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

905 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

906

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

907 /* get x^3 - 3x + b */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

908 if ((err = mp_read_radix(&p, (char *)sets[idx].B, 64)) != MP_OKAY) { goto error; } /* p = B */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

909 if ((err = mp_expt_d(&pt->x, 3, &tmp)) != MP_OKAY) { goto error; } /* tmp = pX^3 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

910 if ((err = mp_mul_d(&pt->x, 3, &tmp2)) != MP_OKAY) { goto error; } /* tmp2 = 3*pX^3 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

911 if ((err = mp_sub(&tmp, &tmp2, &tmp)) != MP_OKAY) { goto error; } /* tmp = tmp - tmp2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

912 if ((err = mp_add(&tmp, &p, &tmp)) != MP_OKAY) { goto error; } /* tmp = tmp + p */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

913 if ((err = mp_read_radix(&p, (char *)sets[idx].prime, 64)) != MP_OKAY) { goto error; } /* p = prime */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

914 if ((err = mp_mod(&tmp, &p, &tmp)) != MP_OKAY) { goto error; } /* tmp = tmp mod p */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

915

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

916 /* now find square root */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

917 if ((err = mp_add_d(&p, 1, &tmp2)) != MP_OKAY) { goto error; } /* tmp2 = p + 1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

918 if ((err = mp_div_2d(&tmp2, 2, &tmp2, NULL)) != MP_OKAY) { goto error; } /* tmp2 = (p+1)/4 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

919 if ((err = mp_exptmod(&tmp, &tmp2, &p, &tmp)) != MP_OKAY) { goto error; } /* tmp = (x^3 - 3x + b)^((p+1)/4) mod p */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

920

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

921 /* if tmp equals the y point give a 0, otherwise 1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

922 if (mp_cmp(&tmp, &pt->y) == 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

923 *result = 0;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

924 } else {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

925 *result = 1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

926 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

927

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

928 err = CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

929 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

930 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

931 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

932 done:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

933 mp_clear_multi(&p, &tmp, &tmp2, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

934 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

935 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

936

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

937 static int expand_y_point(ecc_point *pt, int idx, int result)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

938 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

939 mp_int tmp, tmp2, p;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

940 int err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

941

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

942 LTC_ARGCHK(pt != NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

943

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

944 if ((err = mp_init_multi(&tmp, &tmp2, &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

945 return CRYPT_MEM;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

946 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

947

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

948 /* get x^3 - 3x + b */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

949 if ((err = mp_read_radix(&p, (char *)sets[idx].B, 64)) != MP_OKAY) { goto error; } /* p = B */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

950 if ((err = mp_expt_d(&pt->x, 3, &tmp)) != MP_OKAY) { goto error; } /* tmp = pX^3 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

951 if ((err = mp_mul_d(&pt->x, 3, &tmp2)) != MP_OKAY) { goto error; } /* tmp2 = 3*pX^3 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

952 if ((err = mp_sub(&tmp, &tmp2, &tmp)) != MP_OKAY) { goto error; } /* tmp = tmp - tmp2 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

953 if ((err = mp_add(&tmp, &p, &tmp)) != MP_OKAY) { goto error; } /* tmp = tmp + p */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

954 if ((err = mp_read_radix(&p, (char *)sets[idx].prime, 64)) != MP_OKAY) { goto error; } /* p = prime */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

955 if ((err = mp_mod(&tmp, &p, &tmp)) != MP_OKAY) { goto error; } /* tmp = tmp mod p */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

956

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

957 /* now find square root */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

958 if ((err = mp_add_d(&p, 1, &tmp2)) != MP_OKAY) { goto error; } /* tmp2 = p + 1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

959 if ((err = mp_div_2d(&tmp2, 2, &tmp2, NULL)) != MP_OKAY) { goto error; } /* tmp2 = (p+1)/4 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

960 if ((err = mp_exptmod(&tmp, &tmp2, &p, &tmp)) != MP_OKAY) { goto error; } /* tmp = (x^3 - 3x + b)^((p+1)/4) mod p */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

961

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

962 /* if result==0, then y==tmp, otherwise y==p-tmp */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

963 if (result == 0) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

964 if ((err = mp_copy(&tmp, &pt->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

965 } else {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

966 if ((err = mp_sub(&p, &tmp, &pt->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

967 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

968

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

969 err = CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

970 goto done;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

971 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

972 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

973 done:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

974 mp_clear_multi(&p, &tmp, &tmp2, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

975 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

976 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

977

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

978 /**

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

979 Export an ECC key as a binary packet

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

980 @param out [out] 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

981 @param outlen [in/out] Max size and resulting size of the exported key

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

982 @param type The type of key you want to export (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

983 @param key The key to export

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

984 @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

985 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

986 int ecc_export(unsigned char *out, unsigned long *outlen, int type, ecc_key *key)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

987 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

988 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

989 int cp, err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

990

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

991 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

992 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

993 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

994

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

995 /* 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

996 if (*outlen < (PACKET_SIZE + 3)) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

997 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

998 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

999

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1000 /* type valid? */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1001 if (key->type != PK_PRIVATE && type == PK_PRIVATE) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1002 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

1003 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1004

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1005 /* output type and magic byte */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1006 y = PACKET_SIZE;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1007 out[y++] = (unsigned char)type;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1008 out[y++] = (unsigned char)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

1009

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1010 /* output x coordinate */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1011 OUTPUT_BIGNUM(&(key->pubkey.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

1012

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1013 /* compress y and output it */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1014 if ((err = compress_y_point(&key->pubkey, key->idx, &cp)) != CRYPT_OK) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1015 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1016 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1017 out[y++] = (unsigned char)cp;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1018

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1019 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

1020 OUTPUT_BIGNUM(&key->k, out, y, z);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1021 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1022

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1023 /* store header */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1024 packet_store_header(out, PACKET_SECT_ECC, PACKET_SUB_KEY);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1025 *outlen = y;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1026

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1027 return CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1028 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1029

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1030 /**

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1031 Import an ECC 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

1032 @param in The packet to import

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1033 @param inlen The length of the packet

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1034 @param key [out] The destination of the import

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1035 @return CRYPT_OK if successful, upon error all allocated memory will be freed

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1036 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1037 int ecc_import(const unsigned char *in, unsigned long inlen, ecc_key *key)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1038 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1039 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

1040 int err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1041

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1042 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

1043 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

1044

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1045 /* check length */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1046 if ((3+PACKET_SIZE) > inlen) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1047 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

1048 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1049

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1050 /* check type */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1051 if ((err = packet_valid_header((unsigned char *)in, PACKET_SECT_ECC, 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

1052 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1053 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1054

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1055 /* init key */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1056 if (mp_init_multi(&key->pubkey.x, &key->pubkey.y, &key->pubkey.z, &key->k, NULL) != MP_OKAY) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1057 return CRYPT_MEM;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1058 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1059

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1060 y = PACKET_SIZE;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1061 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

1062 s = (unsigned long)in[y++];

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1063

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1064 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

1065 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

1066 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

1067 goto error;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1068 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1069 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

1070

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1071 /* 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

1072 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

1073 err = CRYPT_INVALID_PACKET;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1074 goto error;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1075 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1076

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1077 /* 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

1078 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

1079 err = CRYPT_INVALID_PACKET;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1080 goto error;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1081 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1082

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1083 /* load x coordinate */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1084 INPUT_BIGNUM(&key->pubkey.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

1085

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1086 /* load y */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1087 x = (unsigned long)in[y++];

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1088 if ((err = expand_y_point(&key->pubkey, key->idx, (int)x)) != CRYPT_OK) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1089 goto error;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1090 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1091

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1092 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

1093 /* load private key */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1094 INPUT_BIGNUM(&key->k, 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

1095 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1096

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1097 /* 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

1098 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

1099 mp_clear(&key->k);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1100 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1101

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1102 /* z is always 1 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1103 mp_set(&key->pubkey.z, 1);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1104

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1105 return CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1106 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1107 mp_clear_multi(&key->pubkey.x, &key->pubkey.y, &key->pubkey.z, &key->k, NULL);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1108 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1109 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1110

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1111 /**

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1112 Create an ECC shared secret between two keys

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1113 @param private_key The private ECC key

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1114 @param public_key The public key

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1115 @param out [out] Destination of the shared secret

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1116 @param outlen [in/out] The max size and resulting size of the shared secret

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1117 @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

1118 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1119 int ecc_shared_secret(ecc_key *private_key, ecc_key *public_key,

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1120 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

1121 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1122 unsigned long x, y;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1123 ecc_point *result;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1124 mp_int prime;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1125 int err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1126

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1127 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

1128 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

1129 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

1130 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

1131

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1132 /* type valid? */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1133 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

1134 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

1135 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1136

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1137 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

1138 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

1139 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1140

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1141 /* make new point */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1142 result = new_point();

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1143 if (result == NULL) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1144 return CRYPT_MEM;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1145 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1146

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1147 if ((err = mp_init(&prime)) != MP_OKAY) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1148 del_point(result);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1149 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

1150 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1151

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1152 if ((err = mp_read_radix(&prime, (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

1153 if ((err = ecc_mulmod(&private_key->k, &public_key->pubkey, result, &prime)) != CRYPT_OK) { goto done1; }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1154

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1155 x = (unsigned long)mp_unsigned_bin_size(&result->x);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1156 y = (unsigned long)mp_unsigned_bin_size(&result->y);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1157

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1158 if (*outlen < (x+y)) {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1159 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

1160 goto done1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1161 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1162 *outlen = x+y;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1163 if ((err = mp_to_unsigned_bin(&result->x, 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

1164 if ((err = mp_to_unsigned_bin(&result->y, out+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

1165

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1166 err = CRYPT_OK;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1167 goto done1;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1168 error:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1169 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

1170 done1:

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1171 mp_clear(&prime);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1172 del_point(result);

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1173 return err;

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1174 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1175

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1176 /**

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1177 Get the size of an ECC key

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1178 @param key The 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

1179 @return The size (octets) of the key or INT_MAX on error

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1180 */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1181 int ecc_get_size(ecc_key *key)

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1182 {

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1183 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

1184 if (is_valid_idx(key->idx))

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1185 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

1186 else

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1187 return INT_MAX; /* large value known to cause it to fail when passed to ecc_make_key() */

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1188 }

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1189

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1190 #include "ecc_sys.c"

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1191

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1192 #endif

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1193

1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc

Matt Johnston <matt@ucc.asn.au>

parents:

diff changeset

1194

Mercurial > dropbear

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