174664626SKris Kennaway /* crypto/bn/bn_mpi.c */ 274664626SKris Kennaway /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 374664626SKris Kennaway * All rights reserved. 474664626SKris Kennaway * 574664626SKris Kennaway * This package is an SSL implementation written 674664626SKris Kennaway * by Eric Young (eay@cryptsoft.com). 774664626SKris Kennaway * The implementation was written so as to conform with Netscapes SSL. 874664626SKris Kennaway * 974664626SKris Kennaway * This library is free for commercial and non-commercial use as long as 1074664626SKris Kennaway * the following conditions are aheared to. The following conditions 1174664626SKris Kennaway * apply to all code found in this distribution, be it the RC4, RSA, 1274664626SKris Kennaway * lhash, DES, etc., code; not just the SSL code. The SSL documentation 1374664626SKris Kennaway * included with this distribution is covered by the same copyright terms 1474664626SKris Kennaway * except that the holder is Tim Hudson (tjh@cryptsoft.com). 1574664626SKris Kennaway * 1674664626SKris Kennaway * Copyright remains Eric Young's, and as such any Copyright notices in 1774664626SKris Kennaway * the code are not to be removed. 1874664626SKris Kennaway * If this package is used in a product, Eric Young should be given attribution 1974664626SKris Kennaway * as the author of the parts of the library used. 2074664626SKris Kennaway * This can be in the form of a textual message at program startup or 2174664626SKris Kennaway * in documentation (online or textual) provided with the package. 2274664626SKris Kennaway * 2374664626SKris Kennaway * Redistribution and use in source and binary forms, with or without 2474664626SKris Kennaway * modification, are permitted provided that the following conditions 2574664626SKris Kennaway * are met: 2674664626SKris Kennaway * 1. Redistributions of source code must retain the copyright 2774664626SKris Kennaway * notice, this list of conditions and the following disclaimer. 2874664626SKris Kennaway * 2. Redistributions in binary form must reproduce the above copyright 2974664626SKris Kennaway * notice, this list of conditions and the following disclaimer in the 3074664626SKris Kennaway * documentation and/or other materials provided with the distribution. 3174664626SKris Kennaway * 3. All advertising materials mentioning features or use of this software 3274664626SKris Kennaway * must display the following acknowledgement: 3374664626SKris Kennaway * "This product includes cryptographic software written by 3474664626SKris Kennaway * Eric Young (eay@cryptsoft.com)" 3574664626SKris Kennaway * The word 'cryptographic' can be left out if the rouines from the library 3674664626SKris Kennaway * being used are not cryptographic related :-). 3774664626SKris Kennaway * 4. If you include any Windows specific code (or a derivative thereof) from 3874664626SKris Kennaway * the apps directory (application code) you must include an acknowledgement: 3974664626SKris Kennaway * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 4074664626SKris Kennaway * 4174664626SKris Kennaway * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 4274664626SKris Kennaway * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 4374664626SKris Kennaway * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 4474664626SKris Kennaway * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 4574664626SKris Kennaway * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 4674664626SKris Kennaway * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 4774664626SKris Kennaway * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 4874664626SKris Kennaway * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 4974664626SKris Kennaway * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 5074664626SKris Kennaway * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 5174664626SKris Kennaway * SUCH DAMAGE. 5274664626SKris Kennaway * 5374664626SKris Kennaway * The licence and distribution terms for any publically available version or 5474664626SKris Kennaway * derivative of this code cannot be changed. i.e. this code cannot simply be 5574664626SKris Kennaway * copied and put under another distribution licence 5674664626SKris Kennaway * [including the GNU Public Licence.] 5774664626SKris Kennaway */ 5874664626SKris Kennaway 5974664626SKris Kennaway #include <stdio.h> 6074664626SKris Kennaway #include "cryptlib.h" 6174664626SKris Kennaway #include "bn_lcl.h" 6274664626SKris Kennaway 6374664626SKris Kennaway int BN_bn2mpi(const BIGNUM *a, unsigned char *d) 6474664626SKris Kennaway { 6574664626SKris Kennaway int bits; 6674664626SKris Kennaway int num = 0; 6774664626SKris Kennaway int ext = 0; 6874664626SKris Kennaway long l; 6974664626SKris Kennaway 7074664626SKris Kennaway bits = BN_num_bits(a); 7174664626SKris Kennaway num = (bits + 7) / 8; 726f9291ceSJung-uk Kim if (bits > 0) { 7374664626SKris Kennaway ext = ((bits & 0x07) == 0); 7474664626SKris Kennaway } 7574664626SKris Kennaway if (d == NULL) 7674664626SKris Kennaway return (num + 4 + ext); 7774664626SKris Kennaway 7874664626SKris Kennaway l = num + ext; 7974664626SKris Kennaway d[0] = (unsigned char)(l >> 24) & 0xff; 8074664626SKris Kennaway d[1] = (unsigned char)(l >> 16) & 0xff; 8174664626SKris Kennaway d[2] = (unsigned char)(l >> 8) & 0xff; 8274664626SKris Kennaway d[3] = (unsigned char)(l) & 0xff; 836f9291ceSJung-uk Kim if (ext) 846f9291ceSJung-uk Kim d[4] = 0; 8574664626SKris Kennaway num = BN_bn2bin(a, &(d[4 + ext])); 8674664626SKris Kennaway if (a->neg) 8774664626SKris Kennaway d[4] |= 0x80; 8874664626SKris Kennaway return (num + 4 + ext); 8974664626SKris Kennaway } 9074664626SKris Kennaway 915c87c606SMark Murray BIGNUM *BN_mpi2bn(const unsigned char *d, int n, BIGNUM *a) 9274664626SKris Kennaway { 9374664626SKris Kennaway long len; 9474664626SKris Kennaway int neg = 0; 9574664626SKris Kennaway 966f9291ceSJung-uk Kim if (n < 4) { 9774664626SKris Kennaway BNerr(BN_F_BN_MPI2BN, BN_R_INVALID_LENGTH); 9874664626SKris Kennaway return (NULL); 9974664626SKris Kennaway } 1006f9291ceSJung-uk Kim len = ((long)d[0] << 24) | ((long)d[1] << 16) | ((int)d[2] << 8) | (int) 1016f9291ceSJung-uk Kim d[3]; 1026f9291ceSJung-uk Kim if ((len + 4) != n) { 10374664626SKris Kennaway BNerr(BN_F_BN_MPI2BN, BN_R_ENCODING_ERROR); 10474664626SKris Kennaway return (NULL); 10574664626SKris Kennaway } 10674664626SKris Kennaway 1076f9291ceSJung-uk Kim if (a == NULL) 1086f9291ceSJung-uk Kim a = BN_new(); 1096f9291ceSJung-uk Kim if (a == NULL) 1106f9291ceSJung-uk Kim return (NULL); 11174664626SKris Kennaway 1126f9291ceSJung-uk Kim if (len == 0) { 11374664626SKris Kennaway a->neg = 0; 11474664626SKris Kennaway a->top = 0; 11574664626SKris Kennaway return (a); 11674664626SKris Kennaway } 11774664626SKris Kennaway d += 4; 11874664626SKris Kennaway if ((*d) & 0x80) 11974664626SKris Kennaway neg = 1; 12074664626SKris Kennaway if (BN_bin2bn(d, (int)len, a) == NULL) 12174664626SKris Kennaway return (NULL); 12274664626SKris Kennaway a->neg = neg; 1236f9291ceSJung-uk Kim if (neg) { 12474664626SKris Kennaway BN_clear_bit(a, BN_num_bits(a) - 1); 12574664626SKris Kennaway } 1263b4e3dcbSSimon L. B. Nielsen bn_check_top(a); 12774664626SKris Kennaway return (a); 12874664626SKris Kennaway } 129