1d9e397b599b13d642138480a28c14db7a136bf0Adam Langley/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 2d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * All rights reserved. 3d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 4d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * This package is an SSL implementation written 5d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * by Eric Young (eay@cryptsoft.com). 6d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * The implementation was written so as to conform with Netscapes SSL. 7d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 8d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * This library is free for commercial and non-commercial use as long as 9d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * the following conditions are aheared to. The following conditions 10d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * apply to all code found in this distribution, be it the RC4, RSA, 11d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * lhash, DES, etc., code; not just the SSL code. The SSL documentation 12d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * included with this distribution is covered by the same copyright terms 13d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * except that the holder is Tim Hudson (tjh@cryptsoft.com). 14d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 15d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * Copyright remains Eric Young's, and as such any Copyright notices in 16d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * the code are not to be removed. 17d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * If this package is used in a product, Eric Young should be given attribution 18d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * as the author of the parts of the library used. 19d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * This can be in the form of a textual message at program startup or 20d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * in documentation (online or textual) provided with the package. 21d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 22d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * Redistribution and use in source and binary forms, with or without 23d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * modification, are permitted provided that the following conditions 24d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * are met: 25d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 1. Redistributions of source code must retain the copyright 26d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * notice, this list of conditions and the following disclaimer. 27d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 2. Redistributions in binary form must reproduce the above copyright 28d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * notice, this list of conditions and the following disclaimer in the 29d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * documentation and/or other materials provided with the distribution. 30d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 3. All advertising materials mentioning features or use of this software 31d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * must display the following acknowledgement: 32d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * "This product includes cryptographic software written by 33d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * Eric Young (eay@cryptsoft.com)" 34d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * The word 'cryptographic' can be left out if the rouines from the library 35d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * being used are not cryptographic related :-). 36d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 4. If you include any Windows specific code (or a derivative thereof) from 37d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * the apps directory (application code) you must include an acknowledgement: 38d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 39d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 40d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 41d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 42d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 43d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 44d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 45d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 46d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 47d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 48d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 49d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 50d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * SUCH DAMAGE. 51d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * 52d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * The licence and distribution terms for any publically available version or 53d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * derivative of this code cannot be changed. i.e. this code cannot simply be 54d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * copied and put under another distribution licence 55d9e397b599b13d642138480a28c14db7a136bf0Adam Langley * [including the GNU Public Licence.] */ 56d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 57d9e397b599b13d642138480a28c14db7a136bf0Adam Langley#include <openssl/asn1.h> 58d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 59d9e397b599b13d642138480a28c14db7a136bf0Adam Langley#include <openssl/bio.h> 60d9e397b599b13d642138480a28c14db7a136bf0Adam Langley#include <openssl/mem.h> 61d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 62d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 63d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyint ASN1_bn_print(BIO *bp, const char *number, const BIGNUM *num, 64d9e397b599b13d642138480a28c14db7a136bf0Adam Langley unsigned char *buf, int off) 65d9e397b599b13d642138480a28c14db7a136bf0Adam Langley { 66d9e397b599b13d642138480a28c14db7a136bf0Adam Langley int n,i; 67d9e397b599b13d642138480a28c14db7a136bf0Adam Langley const char *neg; 68d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 69d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (num == NULL) return(1); 70d9e397b599b13d642138480a28c14db7a136bf0Adam Langley neg = (BN_is_negative(num))?"-":""; 71d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if(!BIO_indent(bp,off,128)) 72d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 73d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BN_is_zero(num)) 74d9e397b599b13d642138480a28c14db7a136bf0Adam Langley { 75d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BIO_printf(bp, "%s 0\n", number) <= 0) 76d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 77d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 1; 78d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 79d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 80d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BN_num_bytes(num) <= sizeof(long)) 81d9e397b599b13d642138480a28c14db7a136bf0Adam Langley { 82d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BIO_printf(bp,"%s %s%lu (%s0x%lx)\n",number,neg, 83d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (unsigned long)num->d[0],neg,(unsigned long)num->d[0]) 84d9e397b599b13d642138480a28c14db7a136bf0Adam Langley <= 0) return(0); 85d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 86d9e397b599b13d642138480a28c14db7a136bf0Adam Langley else 87d9e397b599b13d642138480a28c14db7a136bf0Adam Langley { 88d9e397b599b13d642138480a28c14db7a136bf0Adam Langley buf[0]=0; 89d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BIO_printf(bp,"%s%s",number, 90d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (neg[0] == '-')?" (Negative)":"") <= 0) 91d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return(0); 92d9e397b599b13d642138480a28c14db7a136bf0Adam Langley n=BN_bn2bin(num,&buf[1]); 93d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 94d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (buf[1] & 0x80) 95d9e397b599b13d642138480a28c14db7a136bf0Adam Langley n++; 96d9e397b599b13d642138480a28c14db7a136bf0Adam Langley else buf++; 97d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 98d9e397b599b13d642138480a28c14db7a136bf0Adam Langley for (i=0; i<n; i++) 99d9e397b599b13d642138480a28c14db7a136bf0Adam Langley { 100d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ((i%15) == 0) 101d9e397b599b13d642138480a28c14db7a136bf0Adam Langley { 102d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if(BIO_puts(bp,"\n") <= 0 103d9e397b599b13d642138480a28c14db7a136bf0Adam Langley || !BIO_indent(bp,off+4,128)) 104d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return 0; 105d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 106d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BIO_printf(bp,"%02x%s",buf[i],((i+1) == n)?"":":") 107d9e397b599b13d642138480a28c14db7a136bf0Adam Langley <= 0) return(0); 108d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 109d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (BIO_write(bp,"\n",1) <= 0) return(0); 110d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 111d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return(1); 112d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 113