| OLD | NEW |
| (Empty) |
| 1 /* fips_dsa_lib.c */ | |
| 2 /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | |
| 3 * project 2007. | |
| 4 */ | |
| 5 /* ==================================================================== | |
| 6 * Copyright (c) 2007 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 | |
| 59 #include <string.h> | |
| 60 #include <openssl/dsa.h> | |
| 61 #include <openssl/bn.h> | |
| 62 | |
| 63 /* Minimal FIPS versions of FIPS_dsa_new() and FIPS_dsa_free: to | |
| 64 * reduce external dependencies. | |
| 65 */ | |
| 66 | |
| 67 DSA *FIPS_dsa_new(void) | |
| 68 { | |
| 69 DSA *ret; | |
| 70 ret = OPENSSL_malloc(sizeof(DSA)); | |
| 71 if (!ret) | |
| 72 return NULL; | |
| 73 memset(ret, 0, sizeof(DSA)); | |
| 74 ret->meth = DSA_OpenSSL(); | |
| 75 if (ret->meth->init) | |
| 76 ret->meth->init(ret); | |
| 77 return ret; | |
| 78 } | |
| 79 | |
| 80 void FIPS_dsa_free(DSA *r) | |
| 81 { | |
| 82 if (!r) | |
| 83 return; | |
| 84 if (r->meth->finish) | |
| 85 r->meth->finish(r); | |
| 86 if (r->p != NULL) BN_clear_free(r->p); | |
| 87 if (r->q != NULL) BN_clear_free(r->q); | |
| 88 if (r->g != NULL) BN_clear_free(r->g); | |
| 89 if (r->pub_key != NULL) BN_clear_free(r->pub_key); | |
| 90 if (r->priv_key != NULL) BN_clear_free(r->priv_key); | |
| 91 if (r->kinv != NULL) BN_clear_free(r->kinv); | |
| 92 if (r->r != NULL) BN_clear_free(r->r); | |
| 93 OPENSSL_free(r); | |
| 94 } | |
| 95 | |
| OLD | NEW |