p5_crpt2.c
上传用户:yisoukefu
上传日期:2020-08-09
资源大小:39506k
文件大小:8k
源码类别:

其他游戏

开发平台:

Visual C++

  1. /* p5_crpt2.c */
  2. /* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
  3.  * project 1999.
  4.  */
  5. /* ====================================================================
  6.  * Copyright (c) 1999 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 <stdlib.h>
  60. #include "cryptlib.h"
  61. #if !defined(OPENSSL_NO_HMAC) && !defined(OPENSSL_NO_SHA)
  62. #include <openssl/x509.h>
  63. #include <openssl/evp.h>
  64. #include <openssl/hmac.h>
  65. /* set this to print out info about the keygen algorithm */
  66. /* #define DEBUG_PKCS5V2 */
  67. #ifdef DEBUG_PKCS5V2
  68. static void h__dump (const unsigned char *p, int len);
  69. #endif
  70. /* This is an implementation of PKCS#5 v2.0 password based encryption key
  71.  * derivation function PBKDF2 using the only currently defined function HMAC
  72.  * with SHA1. Verified against test vectors posted by Peter Gutmann
  73.  * <pgut001@cs.auckland.ac.nz> to the PKCS-TNG <pkcs-tng@rsa.com> mailing list.
  74.  */
  75. int PKCS5_PBKDF2_HMAC_SHA1(const char *pass, int passlen,
  76.    const unsigned char *salt, int saltlen, int iter,
  77.    int keylen, unsigned char *out)
  78. {
  79. unsigned char digtmp[SHA_DIGEST_LENGTH], *p, itmp[4];
  80. int cplen, j, k, tkeylen;
  81. unsigned long i = 1;
  82. HMAC_CTX hctx;
  83. HMAC_CTX_init(&hctx);
  84. p = out;
  85. tkeylen = keylen;
  86. if(!pass) passlen = 0;
  87. else if(passlen == -1) passlen = strlen(pass);
  88. while(tkeylen) {
  89. if(tkeylen > SHA_DIGEST_LENGTH) cplen = SHA_DIGEST_LENGTH;
  90. else cplen = tkeylen;
  91. /* We are unlikely to ever use more than 256 blocks (5120 bits!)
  92.  * but just in case...
  93.  */
  94. itmp[0] = (unsigned char)((i >> 24) & 0xff);
  95. itmp[1] = (unsigned char)((i >> 16) & 0xff);
  96. itmp[2] = (unsigned char)((i >> 8) & 0xff);
  97. itmp[3] = (unsigned char)(i & 0xff);
  98. HMAC_Init_ex(&hctx, pass, passlen, EVP_sha1(), NULL);
  99. HMAC_Update(&hctx, salt, saltlen);
  100. HMAC_Update(&hctx, itmp, 4);
  101. HMAC_Final(&hctx, digtmp, NULL);
  102. memcpy(p, digtmp, cplen);
  103. for(j = 1; j < iter; j++) {
  104. HMAC(EVP_sha1(), pass, passlen,
  105.  digtmp, SHA_DIGEST_LENGTH, digtmp, NULL);
  106. for(k = 0; k < cplen; k++) p[k] ^= digtmp[k];
  107. }
  108. tkeylen-= cplen;
  109. i++;
  110. p+= cplen;
  111. }
  112. HMAC_CTX_cleanup(&hctx);
  113. #ifdef DEBUG_PKCS5V2
  114. fprintf(stderr, "Password:n");
  115. h__dump (pass, passlen);
  116. fprintf(stderr, "Salt:n");
  117. h__dump (salt, saltlen);
  118. fprintf(stderr, "Iteration count %dn", iter);
  119. fprintf(stderr, "Key:n");
  120. h__dump (out, keylen);
  121. #endif
  122. return 1;
  123. }
  124. #ifdef DO_TEST
  125. main()
  126. {
  127. unsigned char out[4];
  128. unsigned char salt[] = {0x12, 0x34, 0x56, 0x78};
  129. PKCS5_PBKDF2_HMAC_SHA1("password", -1, salt, 4, 5, 4, out);
  130. fprintf(stderr, "Out %02X %02X %02X %02Xn",
  131.  out[0], out[1], out[2], out[3]);
  132. }
  133. #endif
  134. /* Now the key derivation function itself. This is a bit evil because
  135.  * it has to check the ASN1 parameters are valid: and there are quite a
  136.  * few of them...
  137.  */
  138. int PKCS5_v2_PBE_keyivgen(EVP_CIPHER_CTX *ctx, const char *pass, int passlen,
  139.                          ASN1_TYPE *param, const EVP_CIPHER *c, const EVP_MD *md,
  140.                          int en_de)
  141. {
  142. unsigned char *salt, key[EVP_MAX_KEY_LENGTH];
  143. const unsigned char *pbuf;
  144. int saltlen, iter, plen;
  145. unsigned int keylen;
  146. PBE2PARAM *pbe2 = NULL;
  147. const EVP_CIPHER *cipher;
  148. PBKDF2PARAM *kdf = NULL;
  149. if (param == NULL || param->type != V_ASN1_SEQUENCE ||
  150.     param->value.sequence == NULL) {
  151. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN,EVP_R_DECODE_ERROR);
  152. return 0;
  153. }
  154. pbuf = param->value.sequence->data;
  155. plen = param->value.sequence->length;
  156. if(!(pbe2 = d2i_PBE2PARAM(NULL, &pbuf, plen))) {
  157. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN,EVP_R_DECODE_ERROR);
  158. return 0;
  159. }
  160. /* See if we recognise the key derivation function */
  161. if(OBJ_obj2nid(pbe2->keyfunc->algorithm) != NID_id_pbkdf2) {
  162. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN,
  163. EVP_R_UNSUPPORTED_KEY_DERIVATION_FUNCTION);
  164. goto err;
  165. }
  166. /* lets see if we recognise the encryption algorithm.
  167.  */
  168. cipher = EVP_get_cipherbyname(
  169. OBJ_nid2sn(OBJ_obj2nid(pbe2->encryption->algorithm)));
  170. if(!cipher) {
  171. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN,
  172. EVP_R_UNSUPPORTED_CIPHER);
  173. goto err;
  174. }
  175. /* Fixup cipher based on AlgorithmIdentifier */
  176. EVP_CipherInit_ex(ctx, cipher, NULL, NULL, NULL, en_de);
  177. if(EVP_CIPHER_asn1_to_param(ctx, pbe2->encryption->parameter) < 0) {
  178. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN,
  179. EVP_R_CIPHER_PARAMETER_ERROR);
  180. goto err;
  181. }
  182. keylen = EVP_CIPHER_CTX_key_length(ctx);
  183. OPENSSL_assert(keylen <= sizeof key);
  184. /* Now decode key derivation function */
  185. if(!pbe2->keyfunc->parameter ||
  186.  (pbe2->keyfunc->parameter->type != V_ASN1_SEQUENCE))
  187. {
  188. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN,EVP_R_DECODE_ERROR);
  189. goto err;
  190. }
  191. pbuf = pbe2->keyfunc->parameter->value.sequence->data;
  192. plen = pbe2->keyfunc->parameter->value.sequence->length;
  193. if(!(kdf = d2i_PBKDF2PARAM(NULL, &pbuf, plen)) ) {
  194. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN,EVP_R_DECODE_ERROR);
  195. goto err;
  196. }
  197. PBE2PARAM_free(pbe2);
  198. pbe2 = NULL;
  199. /* Now check the parameters of the kdf */
  200. if(kdf->keylength && (ASN1_INTEGER_get(kdf->keylength) != (int)keylen)){
  201. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN,
  202. EVP_R_UNSUPPORTED_KEYLENGTH);
  203. goto err;
  204. }
  205. if(kdf->prf && (OBJ_obj2nid(kdf->prf->algorithm) != NID_hmacWithSHA1)) {
  206. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN, EVP_R_UNSUPPORTED_PRF);
  207. goto err;
  208. }
  209. if(kdf->salt->type != V_ASN1_OCTET_STRING) {
  210. EVPerr(EVP_F_PKCS5_V2_PBE_KEYIVGEN,
  211. EVP_R_UNSUPPORTED_SALT_TYPE);
  212. goto err;
  213. }
  214. /* it seems that its all OK */
  215. salt = kdf->salt->value.octet_string->data;
  216. saltlen = kdf->salt->value.octet_string->length;
  217. iter = ASN1_INTEGER_get(kdf->iter);
  218. PKCS5_PBKDF2_HMAC_SHA1(pass, passlen, salt, saltlen, iter, keylen, key);
  219. EVP_CipherInit_ex(ctx, NULL, NULL, key, NULL, en_de);
  220. OPENSSL_cleanse(key, keylen);
  221. PBKDF2PARAM_free(kdf);
  222. return 1;
  223. err:
  224. PBE2PARAM_free(pbe2);
  225. PBKDF2PARAM_free(kdf);
  226. return 0;
  227. }
  228. #ifdef DEBUG_PKCS5V2
  229. static void h__dump (const unsigned char *p, int len)
  230. {
  231.         for (; len --; p++) fprintf(stderr, "%02X ", *p);
  232.         fprintf(stderr, "n");
  233. }
  234. #endif
  235. #endif