1*0Sstevel@tonic-gate /* x_long.c */ 2*0Sstevel@tonic-gate /* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL 3*0Sstevel@tonic-gate * project 2000. 4*0Sstevel@tonic-gate */ 5*0Sstevel@tonic-gate /* ==================================================================== 6*0Sstevel@tonic-gate * Copyright (c) 2000 The OpenSSL Project. All rights reserved. 7*0Sstevel@tonic-gate * 8*0Sstevel@tonic-gate * Redistribution and use in source and binary forms, with or without 9*0Sstevel@tonic-gate * modification, are permitted provided that the following conditions 10*0Sstevel@tonic-gate * are met: 11*0Sstevel@tonic-gate * 12*0Sstevel@tonic-gate * 1. Redistributions of source code must retain the above copyright 13*0Sstevel@tonic-gate * notice, this list of conditions and the following disclaimer. 14*0Sstevel@tonic-gate * 15*0Sstevel@tonic-gate * 2. Redistributions in binary form must reproduce the above copyright 16*0Sstevel@tonic-gate * notice, this list of conditions and the following disclaimer in 17*0Sstevel@tonic-gate * the documentation and/or other materials provided with the 18*0Sstevel@tonic-gate * distribution. 19*0Sstevel@tonic-gate * 20*0Sstevel@tonic-gate * 3. All advertising materials mentioning features or use of this 21*0Sstevel@tonic-gate * software must display the following acknowledgment: 22*0Sstevel@tonic-gate * "This product includes software developed by the OpenSSL Project 23*0Sstevel@tonic-gate * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" 24*0Sstevel@tonic-gate * 25*0Sstevel@tonic-gate * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to 26*0Sstevel@tonic-gate * endorse or promote products derived from this software without 27*0Sstevel@tonic-gate * prior written permission. For written permission, please contact 28*0Sstevel@tonic-gate * licensing@OpenSSL.org. 29*0Sstevel@tonic-gate * 30*0Sstevel@tonic-gate * 5. Products derived from this software may not be called "OpenSSL" 31*0Sstevel@tonic-gate * nor may "OpenSSL" appear in their names without prior written 32*0Sstevel@tonic-gate * permission of the OpenSSL Project. 33*0Sstevel@tonic-gate * 34*0Sstevel@tonic-gate * 6. Redistributions of any form whatsoever must retain the following 35*0Sstevel@tonic-gate * acknowledgment: 36*0Sstevel@tonic-gate * "This product includes software developed by the OpenSSL Project 37*0Sstevel@tonic-gate * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" 38*0Sstevel@tonic-gate * 39*0Sstevel@tonic-gate * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY 40*0Sstevel@tonic-gate * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 41*0Sstevel@tonic-gate * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 42*0Sstevel@tonic-gate * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR 43*0Sstevel@tonic-gate * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 44*0Sstevel@tonic-gate * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 45*0Sstevel@tonic-gate * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 46*0Sstevel@tonic-gate * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 47*0Sstevel@tonic-gate * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 48*0Sstevel@tonic-gate * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 49*0Sstevel@tonic-gate * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED 50*0Sstevel@tonic-gate * OF THE POSSIBILITY OF SUCH DAMAGE. 51*0Sstevel@tonic-gate * ==================================================================== 52*0Sstevel@tonic-gate * 53*0Sstevel@tonic-gate * This product includes cryptographic software written by Eric Young 54*0Sstevel@tonic-gate * (eay@cryptsoft.com). This product includes software written by Tim 55*0Sstevel@tonic-gate * Hudson (tjh@cryptsoft.com). 56*0Sstevel@tonic-gate * 57*0Sstevel@tonic-gate */ 58*0Sstevel@tonic-gate 59*0Sstevel@tonic-gate #include <stdio.h> 60*0Sstevel@tonic-gate #include "cryptlib.h" 61*0Sstevel@tonic-gate #include <openssl/asn1t.h> 62*0Sstevel@tonic-gate 63*0Sstevel@tonic-gate /* Custom primitive type for long handling. This converts between an ASN1_INTEGER 64*0Sstevel@tonic-gate * and a long directly. 65*0Sstevel@tonic-gate */ 66*0Sstevel@tonic-gate 67*0Sstevel@tonic-gate 68*0Sstevel@tonic-gate static int long_new(ASN1_VALUE **pval, const ASN1_ITEM *it); 69*0Sstevel@tonic-gate static void long_free(ASN1_VALUE **pval, const ASN1_ITEM *it); 70*0Sstevel@tonic-gate 71*0Sstevel@tonic-gate static int long_i2c(ASN1_VALUE **pval, unsigned char *cont, int *putype, const ASN1_ITEM *it); 72*0Sstevel@tonic-gate static int long_c2i(ASN1_VALUE **pval, unsigned char *cont, int len, int utype, char *free_cont, const ASN1_ITEM *it); 73*0Sstevel@tonic-gate 74*0Sstevel@tonic-gate static ASN1_PRIMITIVE_FUNCS long_pf = { 75*0Sstevel@tonic-gate NULL, 0, 76*0Sstevel@tonic-gate long_new, 77*0Sstevel@tonic-gate long_free, 78*0Sstevel@tonic-gate long_free, /* Clear should set to initial value */ 79*0Sstevel@tonic-gate long_c2i, 80*0Sstevel@tonic-gate long_i2c 81*0Sstevel@tonic-gate }; 82*0Sstevel@tonic-gate 83*0Sstevel@tonic-gate ASN1_ITEM_start(LONG) 84*0Sstevel@tonic-gate ASN1_ITYPE_PRIMITIVE, V_ASN1_INTEGER, NULL, 0, &long_pf, ASN1_LONG_UNDEF, "LONG" 85*0Sstevel@tonic-gate ASN1_ITEM_end(LONG) 86*0Sstevel@tonic-gate 87*0Sstevel@tonic-gate ASN1_ITEM_start(ZLONG) 88*0Sstevel@tonic-gate ASN1_ITYPE_PRIMITIVE, V_ASN1_INTEGER, NULL, 0, &long_pf, 0, "ZLONG" 89*0Sstevel@tonic-gate ASN1_ITEM_end(ZLONG) 90*0Sstevel@tonic-gate 91*0Sstevel@tonic-gate static int long_new(ASN1_VALUE **pval, const ASN1_ITEM *it) 92*0Sstevel@tonic-gate { 93*0Sstevel@tonic-gate *(long *)pval = it->size; 94*0Sstevel@tonic-gate return 1; 95*0Sstevel@tonic-gate } 96*0Sstevel@tonic-gate 97*0Sstevel@tonic-gate static void long_free(ASN1_VALUE **pval, const ASN1_ITEM *it) 98*0Sstevel@tonic-gate { 99*0Sstevel@tonic-gate *(long *)pval = it->size; 100*0Sstevel@tonic-gate } 101*0Sstevel@tonic-gate 102*0Sstevel@tonic-gate static int long_i2c(ASN1_VALUE **pval, unsigned char *cont, int *putype, const ASN1_ITEM *it) 103*0Sstevel@tonic-gate { 104*0Sstevel@tonic-gate long ltmp; 105*0Sstevel@tonic-gate unsigned long utmp; 106*0Sstevel@tonic-gate int clen, pad, i; 107*0Sstevel@tonic-gate /* this exists to bypass broken gcc optimization */ 108*0Sstevel@tonic-gate char *cp = (char *)pval; 109*0Sstevel@tonic-gate 110*0Sstevel@tonic-gate /* use memcpy, because we may not be long aligned */ 111*0Sstevel@tonic-gate memcpy(<mp, cp, sizeof(long)); 112*0Sstevel@tonic-gate 113*0Sstevel@tonic-gate if(ltmp == it->size) return -1; 114*0Sstevel@tonic-gate /* Convert the long to positive: we subtract one if negative so 115*0Sstevel@tonic-gate * we can cleanly handle the padding if only the MSB of the leading 116*0Sstevel@tonic-gate * octet is set. 117*0Sstevel@tonic-gate */ 118*0Sstevel@tonic-gate if(ltmp < 0) utmp = -ltmp - 1; 119*0Sstevel@tonic-gate else utmp = ltmp; 120*0Sstevel@tonic-gate clen = BN_num_bits_word(utmp); 121*0Sstevel@tonic-gate /* If MSB of leading octet set we need to pad */ 122*0Sstevel@tonic-gate if(!(clen & 0x7)) pad = 1; 123*0Sstevel@tonic-gate else pad = 0; 124*0Sstevel@tonic-gate 125*0Sstevel@tonic-gate /* Convert number of bits to number of octets */ 126*0Sstevel@tonic-gate clen = (clen + 7) >> 3; 127*0Sstevel@tonic-gate 128*0Sstevel@tonic-gate if(cont) { 129*0Sstevel@tonic-gate if(pad) *cont++ = (ltmp < 0) ? 0xff : 0; 130*0Sstevel@tonic-gate for(i = clen - 1; i >= 0; i--) { 131*0Sstevel@tonic-gate cont[i] = (unsigned char)(utmp & 0xff); 132*0Sstevel@tonic-gate if(ltmp < 0) cont[i] ^= 0xff; 133*0Sstevel@tonic-gate utmp >>= 8; 134*0Sstevel@tonic-gate } 135*0Sstevel@tonic-gate } 136*0Sstevel@tonic-gate return clen + pad; 137*0Sstevel@tonic-gate } 138*0Sstevel@tonic-gate 139*0Sstevel@tonic-gate static int long_c2i(ASN1_VALUE **pval, unsigned char *cont, int len, int utype, char *free_cont, const ASN1_ITEM *it) 140*0Sstevel@tonic-gate { 141*0Sstevel@tonic-gate int neg, i; 142*0Sstevel@tonic-gate long ltmp; 143*0Sstevel@tonic-gate unsigned long utmp = 0; 144*0Sstevel@tonic-gate char *cp = (char *)pval; 145*0Sstevel@tonic-gate if(len > sizeof(long)) { 146*0Sstevel@tonic-gate ASN1err(ASN1_F_LONG_C2I, ASN1_R_INTEGER_TOO_LARGE_FOR_LONG); 147*0Sstevel@tonic-gate return 0; 148*0Sstevel@tonic-gate } 149*0Sstevel@tonic-gate /* Is it negative? */ 150*0Sstevel@tonic-gate if(len && (cont[0] & 0x80)) neg = 1; 151*0Sstevel@tonic-gate else neg = 0; 152*0Sstevel@tonic-gate utmp = 0; 153*0Sstevel@tonic-gate for(i = 0; i < len; i++) { 154*0Sstevel@tonic-gate utmp <<= 8; 155*0Sstevel@tonic-gate if(neg) utmp |= cont[i] ^ 0xff; 156*0Sstevel@tonic-gate else utmp |= cont[i]; 157*0Sstevel@tonic-gate } 158*0Sstevel@tonic-gate ltmp = (long)utmp; 159*0Sstevel@tonic-gate if(neg) { 160*0Sstevel@tonic-gate ltmp++; 161*0Sstevel@tonic-gate ltmp = -ltmp; 162*0Sstevel@tonic-gate } 163*0Sstevel@tonic-gate if(ltmp == it->size) { 164*0Sstevel@tonic-gate ASN1err(ASN1_F_LONG_C2I, ASN1_R_INTEGER_TOO_LARGE_FOR_LONG); 165*0Sstevel@tonic-gate return 0; 166*0Sstevel@tonic-gate } 167*0Sstevel@tonic-gate memcpy(cp, <mp, sizeof(long)); 168*0Sstevel@tonic-gate return 1; 169*0Sstevel@tonic-gate } 170