x_long.c 5.7 KB

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