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

annotate src/pk/ecc/ecc.c @ 260:e5d119ea4c63 libtomcrypt LTC_DB_0.47

Make the clean target a bit saner

author	Matt Johnston <matt@ucc.asn.au>
date	Tue, 06 Dec 2005 17:18:41 +0000
parents	39d5d58461d6
children

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 */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	27 #define ECC_BUF_SIZE 256
191 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 ECC192
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 24,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	40 "ECC-192",
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 "/////////////////////l//////////",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	43
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	44 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	45 "P2456UMSWESFf+chSYGmIVwutkp1Hhcn",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	46
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	47 /* order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	48 "////////////////cTxuDXHhoR6qqYWn",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	49
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	50 /* Gx */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	51 "68se3h0maFPylo3hGw680FJ/2ls2/n0I",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	52
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	53 /* Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	54 "1nahbV/8sdXZ417jQoJDrNFvTw4UUKWH"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	55 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	56 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	57 #ifdef ECC224
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	58 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	59 28,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	60 "ECC-224",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	61
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	62 /* prime */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	63 "3/////////////////////0000000000000001",
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	64
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	65 /* B */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	66 "2q1Gg530Ipg/L1CbPGHB2trx/OkYSBEKCZLV+q",
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	67
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	68 /* order */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	69 "3//////////////////nQYuBZmFXFTAKLSN2ez",
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	70
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	71 /* Gx */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	72 "2t3WozQxI/Vp8JaBbA0y7JLi8H8ZGoWDOHN1qX",
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	73
191 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 /* Gy */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	76 "2zDsE8jVSZ+qmYt+RDGtMWMWT7P4JLWPc507uq",
191 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 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	79 #ifdef ECC256
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 32,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	82 "ECC-256",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	83 /* Prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	84 "F////y000010000000000000000////////////////",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	85
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	86 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	87 "5h6DTYgEfFdi+kzLNQOXhnb7GQmp5EmzZlEF3udqc1B",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	88
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	89 /* Order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	90 "F////y00000//////////+yvlgjfnUUXFEvoiByOoLH",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	91
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	92 /* Gx */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	93 "6iNqVBXB497+BpcvMEaGF9t0ts1BUipeFIXEKNOcCAM",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	94
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	95 /* Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	96 "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	97 },
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	98 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	99 #ifdef ECC384
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 48,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	102 "ECC-384",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	103 /* prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	104 "//////////////////////////////////////////x/////00000000003/"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	105 "////",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	106
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	107 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	108 "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	109 "x2hl",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	110
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	111 /* Order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	112 "////////////////////////////////nsDDWVGtBTzO6WsoIB2dUkpi6MhC"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	113 "nIbp",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	114
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	115 /* Gx and Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	116 "geVA8hwB1JUEiSSUyo2jT6uTEsABfvkOMVT1u89KAZXL0l9TlrKfR3fKNZXo"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	117 "TWgt",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	118
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	119 "DXVUIfOcB6zTdfY/afBSAVZq7RqecXHywTen4xNmkC0AOB7E7Nw1dNf37NoG"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	120 "wWvV"
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 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	123 #ifdef ECC521
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	124 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	125 65,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	126 "ECC-521",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	127 /* prime */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	128 "V///////////////////////////////////////////////////////////"
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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	131 /* B */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	132 "56LFhbXZXoQ7vAQ8Q2sXK3kejfoMvcp5VEuj8cHZl49uLOPEL7iVfDx5bB0l"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	133 "JknlmSrSz+8FImqyUz57zHhK3y0",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	134
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	135 /* Order */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	136 "V//////////////////////////////////////////+b66XuE/BvPhVym1I"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	137 "FS9fT0xjScuYPn7hhjljnwHE6G9",
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	138
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	139 /* Gx and Gy */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	140 "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	141 "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	142
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	143 "HWvAMfucZl015oANxGiVHlPcFL4ILURH6WNhxqN9pvcB9VkSfbUz2P0nL2v0"
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	144 "J+j1s4rF726edB2G8Y+b7QVqMPG",
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 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	147 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	148 0,
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	149 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	150 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	151 };
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	152
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	153 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	154 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	155 int x;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	156
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	157 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	158 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	159 return 0;
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 return 1;
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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	164 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	165 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	166 ecc_point *p;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	167 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	168 if (p == NULL) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	169 return NULL;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	170 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	171 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	172 XFREE(p);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	173 return NULL;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	174 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	175 return p;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	176 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	177
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	178 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	179 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	180 /* 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	181 if (p != NULL) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	182 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	183 XFREE(p);
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 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	186
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	187 static int ecc_map(ecc_point P, mp_int modulus, mp_digit mp)
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	188 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	189 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	190 int err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	191
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	192 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	193 return CRYPT_MEM;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	194 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	195
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	196 /* first map z back to normal */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	197 if ((err = mp_montgomery_reduce(&P->z, modulus, mp)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	198
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	199 /* get 1/z */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	200 if ((err = mp_invmod(&P->z, modulus, &t1)) != 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	201
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	202 /* get 1/z^2 and 1/z^3 */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	203 if ((err = mp_sqr(&t1, &t2)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	204 if ((err = mp_mod(&t2, modulus, &t2)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	205 if ((err = mp_mul(&t1, &t2, &t1)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	206 if ((err = mp_mod(&t1, modulus, &t1)) != 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	207
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	208 /* multiply against x/y */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	209 if ((err = mp_mul(&P->x, &t2, &P->x)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	210 if ((err = mp_montgomery_reduce(&P->x, modulus, mp)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	211 if ((err = mp_mul(&P->y, &t1, &P->y)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	212 if ((err = mp_montgomery_reduce(&P->y, modulus, mp)) != 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	213 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	214
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	215 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	216 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	217 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	218 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	219 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	220 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	221 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	222
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	223 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	224
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	225 /* double a point R = 2P, R can be P*/
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	226 static int dbl_point(ecc_point P, ecc_point R, mp_int *modulus, mp_digit mp)
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	227 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	228 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	229 int err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	230
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	231 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	232 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	233 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	234
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	235 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	236 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	237 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	238
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	239 /* t1 = Z * Z */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	240 if ((err = mp_sqr(&R->z, &t1)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	241 if ((err = mp_montgomery_reduce(&t1, modulus, mp)) != 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	242 /* Z = Y * Z */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	243 if ((err = mp_mul(&R->z, &R->y, &R->z)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	244 if ((err = mp_montgomery_reduce(&R->z, modulus, mp)) != 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	245 /* Z = 2Z */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	246 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	247 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	248 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	249 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	250
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	251 /* T2 = X - T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	252 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	253 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	254 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	255 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	256 /* T1 = X + T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	257 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	258 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	259 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	260 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	261 /* T2 = T1 * T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	262 if ((err = mp_mul(&t1, &t2, &t2)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	263 if ((err = mp_montgomery_reduce(&t2, modulus, mp)) != 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	264 /* T1 = 2T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	265 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	266 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	267 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	268 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	269 /* T1 = T1 + T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	270 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	271 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	272 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	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 /* Y = 2Y */
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_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	277 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	278 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	279 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	280 /* Y = Y * Y */
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_sqr(&R->y, &R->y)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	282 if ((err = mp_montgomery_reduce(&R->y, modulus, mp)) != 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	283 /* T2 = Y * Y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	284 if ((err = mp_sqr(&R->y, &t2)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	285 if ((err = mp_montgomery_reduce(&t2, modulus, mp)) != 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	286 /* T2 = T2/2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	287 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	288 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	289 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	290 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	291 /* Y = Y * X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	292 if ((err = mp_mul(&R->y, &R->x, &R->y)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	293 if ((err = mp_montgomery_reduce(&R->y, modulus, mp)) != 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	294
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	295 /* X = T1 * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	296 if ((err = mp_sqr(&t1, &R->x)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	297 if ((err = mp_montgomery_reduce(&R->x, modulus, mp)) != 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	298 /* X = X - Y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	299 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	300 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	301 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	302 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	303 /* X = X - Y */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	304 if ((err = mp_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	305 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	306 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	307 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	308
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	309 /* Y = Y - X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	310 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	311 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	312 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	313 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	314 /* Y = Y * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	315 if ((err = mp_mul(&R->y, &t1, &R->y)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	316 if ((err = mp_montgomery_reduce(&R->y, modulus, mp)) != 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	317 /* Y = Y - T2 */
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_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	319 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	320 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	321 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	322
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	323 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	324 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	325 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	326 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	327 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	328 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	329 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	330 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	331
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	332 /* add two different points over Z/pZ, R = P + Q, note R can equal either P or Q */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	333 static int add_point(ecc_point P, ecc_point Q, ecc_point R, mp_int modulus, mp_digit mp)
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	334 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	335 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	336 int err;
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 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	339 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	340 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	341
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_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	343 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	344 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	345
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	346 /* T1 = Z' * Z' */
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_sqr(&Q->z, &t1)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	348 if ((err = mp_montgomery_reduce(&t1, modulus, mp)) != 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	349 /* X = X * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	350 if ((err = mp_mul(&t1, &x, &x)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	351 if ((err = mp_montgomery_reduce(&x, modulus, mp)) != 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	352 /* T1 = Z' * T1 */
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(&Q->z, &t1, &t1)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	354 if ((err = mp_montgomery_reduce(&t1, modulus, mp)) != 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	355 /* Y = Y * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	356 if ((err = mp_mul(&t1, &y, &y)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	357 if ((err = mp_montgomery_reduce(&y, modulus, mp)) != 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	358
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	359 /* T1 = ZZ /
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	360 if ((err = mp_sqr(&z, &t1)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	361 if ((err = mp_montgomery_reduce(&t1, modulus, mp)) != 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	362 /* T2 = X' * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	363 if ((err = mp_mul(&Q->x, &t1, &t2)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	364 if ((err = mp_montgomery_reduce(&t2, modulus, mp)) != 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	365 /* T1 = Z * T1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	366 if ((err = mp_mul(&z, &t1, &t1)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	367 if ((err = mp_montgomery_reduce(&t1, modulus, mp)) != 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	368 /* T1 = Y' * T1 */
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(&Q->y, &t1, &t1)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	370 if ((err = mp_montgomery_reduce(&t1, modulus, mp)) != 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	371
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	372 /* Y = Y - 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_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	374 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	375 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	376 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	377 /* T1 = 2T1 */
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_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	379 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	380 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	381 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	382 /* T1 = Y + T1 */
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(&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	384 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	385 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	386 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	387 /* X = X - T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	388 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	389 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	390 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	391 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	392 /* T2 = 2T2 */
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_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	394 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	395 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	396 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	397 /* T2 = X + T2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	398 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	399 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	400 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	401 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	402
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	403 /* if Z' != 1 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	404 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	405 /* Z = Z * Z' */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	406 if ((err = mp_mul(&z, &Q->z, &z)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	407 if ((err = mp_montgomery_reduce(&z, modulus, mp)) != 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	408 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	409 /* Z = Z * X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	410 if ((err = mp_mul(&z, &x, &z)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	411 if ((err = mp_montgomery_reduce(&z, modulus, mp)) != 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	412
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	413 /* T1 = T1 * X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	414 if ((err = mp_mul(&t1, &x, &t1)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	415 if ((err = mp_montgomery_reduce(&t1, modulus, mp)) != 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	416 /* X = X * X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	417 if ((err = mp_sqr(&x, &x)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	418 if ((err = mp_montgomery_reduce(&x, modulus, mp)) != 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	419 /* T2 = T2 * x */
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_mul(&t2, &x, &t2)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	421 if ((err = mp_montgomery_reduce(&t2, modulus, mp)) != 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	422 /* T1 = T1 * X */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	423 if ((err = mp_mul(&t1, &x, &t1)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	424 if ((err = mp_montgomery_reduce(&t1, modulus, mp)) != 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	425
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	426 /* X = YY /
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_sqr(&y, &x)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	428 if ((err = mp_montgomery_reduce(&x, modulus, mp)) != 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	429 /* X = X - T2 */
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_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	431 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	432 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	433 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	434
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	435 /* T2 = T2 - X */
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_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	437 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	438 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	439 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	440 /* T2 = T2 - X */
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_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	442 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	443 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	444 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	445 /* T2 = T2 * Y */
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(&t2, &y, &t2)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	447 if ((err = mp_montgomery_reduce(&t2, modulus, mp)) != 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	448 /* Y = T2 - 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_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	450 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	451 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	452 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	453 /* Y = Y/2 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	454 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	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 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	458
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	459 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	460 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	461 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	462
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	463 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	464 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	465 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	466 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	467 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	468 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	469 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	470 }
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 /* 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	473 #define WINSIZE 4
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	474
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	475 /* perform R = kG where k == integer and G == ecc_point */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	476 static int ecc_mulmod(mp_int k, ecc_point G, ecc_point R, mp_int modulus, int map)
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	477 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	478 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	479 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	480 mp_int mu;
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	481 mp_digit buf, mp;
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	482 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	483
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	484 /* init montgomery reduction */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	485 if ((err = mp_montgomery_setup(modulus, &mp)) != MP_OKAY) {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	486 return CRYPT_INVALID_ARG;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	487 }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	488 if ((err = mp_init(&mu)) != MP_OKAY) {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	489 return CRYPT_MEM;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	490 }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	491 if ((err = mp_montgomery_calc_normalization(&mu, modulus)) != MP_OKAY) {
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	492 mp_clear(&mu);
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	493 return CRYPT_INVALID_ARG;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	494 }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	495
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	496 /* 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	497 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	498 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	499 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	500 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	501 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	502 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	503 mp_clear(&mu);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	504 return CRYPT_MEM;
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 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	507
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	508 /* 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	509 tG = new_point();
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	510 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	511
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	512 /* tG = G and convert to montgomery */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	513 if ((err = mp_mulmod(&G->x, &mu, modulus, &tG->x)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	514 if ((err = mp_mulmod(&G->y, &mu, modulus, &tG->y)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	515 if ((err = mp_mulmod(&G->z, &mu, modulus, &tG->z)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	516 mp_clear(&mu);
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	517
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	518 /* 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	519 /* M[0] == 8G */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	520 if ((err = dbl_point(tG, M[0], modulus, mp)) != CRYPT_OK) { goto done; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	521 if ((err = dbl_point(M[0], M[0], modulus, mp)) != CRYPT_OK) { goto done; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	522 if ((err = dbl_point(M[0], M[0], modulus, mp)) != CRYPT_OK) { goto done; }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	523
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	524 /* 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	525 for (j = 9; j < 16; j++) {
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	526 if ((err = add_point(M[j-9], tG, M[j-8], modulus, mp)) != CRYPT_OK) { goto done; }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	527 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	528
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	529 /* setup sliding window */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	530 mode = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	531 bitcnt = 1;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	532 buf = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	533 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	534 bitcpy = bitbuf = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	535 first = 1;
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 /* perform ops */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	538 for (;;) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	539 /* 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	540 if (--bitcnt == 0) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	541 if (digidx == -1) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	542 break;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	543 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	544 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	545 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	546 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	547
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	548 /* grab the next msb from the ltiplicand */
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	549 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	550 buf <<= 1;
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 /* 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	553 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	554 continue;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	555 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	556
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	557 /* 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	558 if (mode == 1 && i == 0) {
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	559 if ((err = dbl_point(R, R, modulus, mp)) != CRYPT_OK) { goto done; }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	560 continue;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	561 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	562
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	563 /* 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	564 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	565 mode = 2;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	566
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	567 if (bitcpy == WINSIZE) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	568 /* 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	569 if (first == 1) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	570 /* 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	571 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	572 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	573 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	574 first = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	575 } else {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	576 /* normal window */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	577 /* 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	578 /* double first */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	579 for (j = 0; j < WINSIZE; j++) {
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	580 if ((err = dbl_point(R, R, modulus, mp)) != CRYPT_OK) { goto done; }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	581 }
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 /* then add, bitbuf will be 8..15 [8..2^WINSIZE] guaranteed */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	584 if ((err = add_point(R, M[bitbuf-8], R, modulus, mp)) != CRYPT_OK) { goto done; }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	585 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	586 /* 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	587 bitcpy = bitbuf = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	588 mode = 1;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	589 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	590 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	591
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	592 /* 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	593 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	594 /* double then add */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	595 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	596 /* 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	597 if (first == 0) {
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	598 if ((err = dbl_point(R, R, modulus, mp)) != CRYPT_OK) { goto done; }
191 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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	601 bitbuf <<= 1;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	602 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	603 if (first == 1){
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	604 /* 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	605 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	606 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	607 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	608 first = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	609 } else {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	610 /* then add */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	611 if ((err = add_point(R, tG, R, modulus, mp)) != CRYPT_OK) { goto done; }
191 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 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	614 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	615 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	616
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	617 /* map R back from projective space */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	618 if (map) {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	619 err = ecc_map(R, modulus, mp);
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	620 } else {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	621 err = CRYPT_OK;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	622 }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	623
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	624 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	625 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	626 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	627 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	628 del_point(tG);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	629 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	630 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	631 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	632 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	633 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	634
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	635 #undef WINSIZE
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	636
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 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	639 @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	640 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	641 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	642 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	643 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	644 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	645 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	646
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_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	648 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	649 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	650
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	651 G = new_point();
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	652 GG = new_point();
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	653 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	654 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	655 del_point(G);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	656 del_point(GG);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	657 return CRYPT_MEM;
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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	660 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	661 #if 0
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	662 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	663 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	664 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	665 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	666
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	667 /* 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	668 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	669 if (primality == 0) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	670 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	671 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	672 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	673
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	674 /* is order prime ? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	675 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	676 if (primality == 0) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	677 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	678 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	679 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	680
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_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	682 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	683 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	684
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	685 /* 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	686 if ((err = mp_add_d(&order, 1, &order)) != MP_OKAY) { goto error; }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	687 if ((err = ecc_mulmod(&order, G, GG, &modulus, 1)) != CRYPT_OK) { goto done; }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	688 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	689 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	690 goto done;
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 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	694 goto done;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	695 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	696 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	697 done:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	698 del_point(GG);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	699 del_point(G);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	700 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	701 return err;
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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	704 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	705 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	706 int i;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	707 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	708 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	709
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	710 *low = INT_MAX;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	711 *high = 0;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	712 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	713 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	714 *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	715 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	716 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	717 *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	718 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	719 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	720 }
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 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	724 @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	725 @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	726 @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	727 @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	728 @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	729 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	730 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	731 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	732 int x, err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	733 ecc_point *base;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	734 mp_int prime;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	735 unsigned char *buf;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	736
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	737 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	738
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	739 /* good prng? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	740 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	741 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	742 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	743
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	744 /* find key size */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	745 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	746 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	747
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	748 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	749 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	750 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	751 key->idx = x;
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 /* allocate ram */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	754 base = NULL;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	755 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	756 if (buf == NULL) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	757 return CRYPT_MEM;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	758 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	759
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	760 /* 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	761 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	762 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	763 goto LBL_ERR2;
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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	766 /* 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	767 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	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 goto LBL_ERR;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	770 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	771 base = new_point();
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	772 if (base == NULL) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	773 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	774 err = CRYPT_MEM;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	775 goto LBL_ERR;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	776 }
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 /* 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	779 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	780 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	781 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	782 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	783 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	784
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	785 /* make the public key */
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	786 if ((err = ecc_mulmod(&key->k, base, &key->pubkey, &prime, 1)) != CRYPT_OK) { goto LBL_ERR; }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	787 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	788
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	789 /* shrink key */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	790 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	791 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	792 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	793 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	794
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	795 /* free up ram */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	796 err = CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	797 goto LBL_ERR;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	798 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	799 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	800 LBL_ERR:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	801 del_point(base);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	802 mp_clear(&prime);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	803 LBL_ERR2:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	804 #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	805 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	806 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	807
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	808 XFREE(buf);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	809
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	810 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	811 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	812
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	813 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	814 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	815 @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	816 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	817 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	818 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	819 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	820 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	821 }
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 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	824 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	825 @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	826 @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	827 @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	828 @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	829 @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	830 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	831 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	832 {
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	833 int err;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	834 unsigned char flags[1];
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	835 unsigned long key_size;
191 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 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	838 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	839 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	840
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	841 /* type valid? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	842 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	843 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	844 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	845
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	846 if (is_valid_idx(key->idx) == 0) {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	847 return CRYPT_INVALID_ARG;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	848 }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	849
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	850 /* we store the NIST byte size */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	851 key_size = sets[key->idx].size;
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	852
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	853 if (type == PK_PRIVATE) {
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	854 flags[0] = 1;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	855 err = der_encode_sequence_multi(out, outlen,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	856 LTC_ASN1_BIT_STRING, 1UL, flags,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	857 LTC_ASN1_SHORT_INTEGER, 1UL, &key_size,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	858 LTC_ASN1_INTEGER, 1UL, &key->pubkey.x,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	859 LTC_ASN1_INTEGER, 1UL, &key->pubkey.y,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	860 LTC_ASN1_INTEGER, 1UL, &key->k,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	861 LTC_ASN1_EOL, 0UL, NULL);
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	862 } else {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	863 flags[0] = 0;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	864 err = der_encode_sequence_multi(out, outlen,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	865 LTC_ASN1_BIT_STRING, 1UL, flags,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	866 LTC_ASN1_SHORT_INTEGER, 1UL, &key_size,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	867 LTC_ASN1_INTEGER, 1UL, &key->pubkey.x,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	868 LTC_ASN1_INTEGER, 1UL, &key->pubkey.y,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	869 LTC_ASN1_EOL, 0UL, NULL);
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	870 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	871
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	872 return err;
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	873 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	874
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	875 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	876 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	877 @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	878 @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	879 @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	880 @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	881 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	882 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	883 {
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	884 unsigned long key_size;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	885 unsigned char flags[1];
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	886 int err;
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	887
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	888 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	889 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	890
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	891 /* init key */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	892 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	893 return CRYPT_MEM;
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
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	896 /* find out what type of key it is */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	897 if ((err = der_decode_sequence_multi(in, inlen,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	898 LTC_ASN1_BIT_STRING, 1UL, &flags,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	899 LTC_ASN1_EOL, 0UL, NULL)) != CRYPT_OK) {
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	900 goto error;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	901 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	902
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	903
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	904 if (flags[0] == 1) {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	905 /* private key */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	906 key->type = PK_PRIVATE;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	907 if ((err = der_decode_sequence_multi(in, inlen,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	908 LTC_ASN1_BIT_STRING, 1UL, flags,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	909 LTC_ASN1_SHORT_INTEGER, 1UL, &key_size,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	910 LTC_ASN1_INTEGER, 1UL, &key->pubkey.x,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	911 LTC_ASN1_INTEGER, 1UL, &key->pubkey.y,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	912 LTC_ASN1_INTEGER, 1UL, &key->k,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	913 LTC_ASN1_EOL, 0UL, NULL)) != CRYPT_OK) {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	914 goto error;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	915 }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	916 } else {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	917 /* public key */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	918 /* private key */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	919 key->type = PK_PUBLIC;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	920 if ((err = der_decode_sequence_multi(in, inlen,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	921 LTC_ASN1_BIT_STRING, 1UL, flags,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	922 LTC_ASN1_SHORT_INTEGER, 1UL, &key_size,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	923 LTC_ASN1_INTEGER, 1UL, &key->pubkey.x,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	924 LTC_ASN1_INTEGER, 1UL, &key->pubkey.y,
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	925 LTC_ASN1_EOL, 0UL, NULL)) != CRYPT_OK) {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	926 goto error;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	927 }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	928 }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	929
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	930 /* find the idx */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	931 for (key->idx = 0; sets[key->idx].size && (unsigned long)sets[key->idx].size != key_size; ++key->idx);
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	932 if (sets[key->idx].size == 0) {
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	933 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	934 goto error;
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
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	937 /* set z */
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	938 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	939
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	940 /* we're good */
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	941 return CRYPT_OK;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	942 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	943 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	944 return err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	945 }
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 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	949 @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	950 @param public_key The public key
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	951 @param out [out] Destination of the shared secret (Conforms to EC-DH from ANSI X9.63)
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	952 @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	953 @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	954 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	955 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	956 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	957 {
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	958 unsigned long x;
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	959 ecc_point *result;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	960 mp_int prime;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	961 int err;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	962
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	963 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	964 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	965 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	966 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	967
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	968 /* type valid? */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	969 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	970 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	971 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	972
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	973 if (is_valid_idx(private_key->idx) == 0) {
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	974 return CRYPT_INVALID_ARG;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	975 }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	976
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	977 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	978 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	979 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	980
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	981 /* make new point */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	982 result = new_point();
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	983 if (result == NULL) {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	984 return CRYPT_MEM;
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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	987 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	988 del_point(result);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	989 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	990 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	991
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	992 if ((err = mp_read_radix(&prime, (char *)sets[private_key->idx].prime, 64)) != MP_OKAY) { goto error; }
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	993 if ((err = ecc_mulmod(&private_key->k, &public_key->pubkey, result, &prime, 1)) != CRYPT_OK) { goto done1; }
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	994
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	995 x = (unsigned long)mp_unsigned_bin_size(&prime);
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	996 if (*outlen < x) {
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	997 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	998 goto done1;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	999 }
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	1000 zeromem(out, x);
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	1001 if ((err = mp_to_unsigned_bin(&result->x, out + (x - mp_unsigned_bin_size(&result->x)))) != 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	1002
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	1003 err = CRYPT_OK;
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	1004 *outlen = x;
191 1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1005 goto done1;
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1006 error:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1007 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	1008 done1:
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1009 mp_clear(&prime);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1010 del_point(result);
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1011 return err;
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
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1014 /**
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1015 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	1016 @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	1017 @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	1018 */
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1019 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	1020 {
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1021 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	1022 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	1023 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	1024 else
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1025 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	1026 }
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1027
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1028 #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	1029
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1030 #endif
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1031
1c15b283127b Import of libtomcrypt 1.02 with manual path rename rearrangement etc Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1032
209 39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	1033
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	1034 /* $Source: /cvs/libtom/libtomcrypt/src/pk/ecc/ecc.c,v $ */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	1035 /* $Revision: 1.20 $ */
39d5d58461d6 Import of libtomcrypt 1.05 Matt Johnston <matt@ucc.asn.au> parents: 191 diff changeset	1036 /* $Date: 2005/06/14 20:42:28 $ */

Mercurial > dropbear

annotate src/pk/ecc/ecc.c @ 260:e5d119ea4c63 libtomcrypt LTC_DB_0.47