Line data Source code
1 : /*
2 : * Copyright (c) 2006 - 2007 Kungliga Tekniska Högskolan
3 : * (Royal Institute of Technology, Stockholm, Sweden).
4 : * All rights reserved.
5 : *
6 : * Redistribution and use in source and binary forms, with or without
7 : * modification, are permitted provided that the following conditions
8 : * are met:
9 : *
10 : * 1. Redistributions of source code must retain the above copyright
11 : * notice, this list of conditions and the following disclaimer.
12 : *
13 : * 2. Redistributions in binary form must reproduce the above copyright
14 : * notice, this list of conditions and the following disclaimer in the
15 : * documentation and/or other materials provided with the distribution.
16 : *
17 : * 3. Neither the name of the Institute nor the names of its contributors
18 : * may be used to endorse or promote products derived from this software
19 : * without specific prior written permission.
20 : *
21 : * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22 : * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 : * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 : * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25 : * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 : * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 : * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 : * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 : * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 : * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 : * SUCH DAMAGE.
32 : */
33 :
34 : #include <sys/types.h>
35 : #include <stdio.h>
36 : #include <stdlib.h>
37 : #include <string.h>
38 : #include <hmac.h>
39 :
40 : void
41 383796391 : HMAC_CTX_init(HMAC_CTX *ctx)
42 : {
43 383796391 : memset(ctx, 0, sizeof(*ctx));
44 383796391 : }
45 :
46 : void
47 383796391 : HMAC_CTX_cleanup(HMAC_CTX *ctx)
48 : {
49 383796391 : if (ctx->buf) {
50 390002462 : memset(ctx->buf, 0, ctx->key_length);
51 383796391 : free(ctx->buf);
52 383796391 : ctx->buf = NULL;
53 : }
54 383796391 : if (ctx->opad) {
55 390002462 : memset(ctx->opad, 0, EVP_MD_block_size(ctx->md));
56 383796391 : free(ctx->opad);
57 383796391 : ctx->opad = NULL;
58 : }
59 383796391 : if (ctx->ipad) {
60 390002462 : memset(ctx->ipad, 0, EVP_MD_block_size(ctx->md));
61 383796391 : free(ctx->ipad);
62 383796391 : ctx->ipad = NULL;
63 : }
64 383796391 : if (ctx->ctx) {
65 383796391 : EVP_MD_CTX_destroy(ctx->ctx);
66 383796391 : ctx->ctx = NULL;
67 : }
68 383796391 : }
69 :
70 : size_t
71 0 : HMAC_size(const HMAC_CTX *ctx)
72 : {
73 0 : return EVP_MD_size(ctx->md);
74 : }
75 :
76 : void
77 383796391 : HMAC_Init_ex(HMAC_CTX *ctx,
78 : const void *key,
79 : size_t keylen,
80 : const EVP_MD *md,
81 : ENGINE *engine)
82 : {
83 : unsigned char *p;
84 : size_t i;
85 :
86 383796391 : if (ctx->md != md) {
87 383796391 : ctx->md = md;
88 383796391 : if (ctx->buf) {
89 0 : memset(ctx->buf, 0, ctx->key_length);
90 0 : free (ctx->buf);
91 : }
92 383796391 : ctx->key_length = EVP_MD_size(ctx->md);
93 383796391 : ctx->buf = malloc(ctx->key_length);
94 : }
95 : #if 0
96 : ctx->engine = engine;
97 : #endif
98 :
99 383796391 : if (keylen > EVP_MD_block_size(ctx->md)) {
100 110620672 : EVP_Digest(key, keylen, ctx->buf, NULL, ctx->md, engine);
101 110620672 : key = ctx->buf;
102 110620672 : keylen = EVP_MD_size(ctx->md);
103 : }
104 :
105 383796391 : if (ctx->opad) {
106 0 : memset(ctx->opad, 0, ctx->key_length);
107 0 : free(ctx->opad);
108 : }
109 383796391 : if (ctx->ipad) {
110 0 : memset(ctx->ipad, 0, ctx->key_length);
111 0 : free(ctx->ipad);
112 : }
113 :
114 383796391 : ctx->opad = malloc(EVP_MD_block_size(ctx->md));
115 383796391 : ctx->ipad = malloc(EVP_MD_block_size(ctx->md));
116 390002462 : memset(ctx->ipad, 0x36, EVP_MD_block_size(ctx->md));
117 390002462 : memset(ctx->opad, 0x5c, EVP_MD_block_size(ctx->md));
118 :
119 6192258171 : for (i = 0, p = ctx->ipad; i < keylen; i++)
120 5808461780 : p[i] ^= ((const unsigned char *)key)[i];
121 6192258171 : for (i = 0, p = ctx->opad; i < keylen; i++)
122 5808461780 : p[i] ^= ((const unsigned char *)key)[i];
123 :
124 383796391 : if (ctx->ctx == NULL)
125 383796391 : ctx->ctx = EVP_MD_CTX_create();
126 :
127 383796391 : EVP_DigestInit_ex(ctx->ctx, ctx->md, ctx->engine);
128 383796391 : EVP_DigestUpdate(ctx->ctx, ctx->ipad, EVP_MD_block_size(ctx->md));
129 383796391 : }
130 :
131 : void
132 383796391 : HMAC_Update(HMAC_CTX *ctx, const void *data, size_t len)
133 : {
134 383796391 : EVP_DigestUpdate(ctx->ctx, data, len);
135 383796391 : }
136 :
137 : void
138 383796391 : HMAC_Final(HMAC_CTX *ctx, void *md, unsigned int *len)
139 : {
140 383796391 : EVP_DigestFinal_ex(ctx->ctx, ctx->buf, NULL);
141 :
142 383796391 : EVP_DigestInit_ex(ctx->ctx, ctx->md, ctx->engine);
143 383796391 : EVP_DigestUpdate(ctx->ctx, ctx->opad, EVP_MD_block_size(ctx->md));
144 383796391 : EVP_DigestUpdate(ctx->ctx, ctx->buf, ctx->key_length);
145 383796391 : EVP_DigestFinal_ex(ctx->ctx, md, len);
146 383796391 : }
147 :
148 : void *
149 383782912 : HMAC(const EVP_MD *md,
150 : const void *key, size_t key_size,
151 : const void *data, size_t data_size,
152 : void *hash, unsigned int *hash_len)
153 : {
154 : HMAC_CTX ctx;
155 :
156 383782912 : HMAC_CTX_init(&ctx);
157 383782912 : HMAC_Init_ex(&ctx, key, key_size, md, NULL);
158 383782912 : HMAC_Update(&ctx, data, data_size);
159 383782912 : HMAC_Final(&ctx, hash, hash_len);
160 383782912 : HMAC_CTX_cleanup(&ctx);
161 383782912 : return hash;
162 : }
|