Update.
[gnutls:gnutls.git] / gl / hmac-md5.c
1 /* hmac-md5.c -- hashed message authentication codes
2    Copyright (C) 2005 Free Software Foundation, Inc.
3
4    This program is free software; you can redistribute it and/or modify
5    it under the terms of the GNU Lesser General Public License as published by
6    the Free Software Foundation; either version 2.1, or (at your option)
7    any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU Lesser General Public License for more details.
13
14    You should have received a copy of the GNU Lesser General Public License
15    along with this program; if not, write to the Free Software Foundation,
16    Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
17
18 /* Written by Simon Josefsson.  */
19
20 #ifdef HAVE_CONFIG_H
21 # include <config.h>
22 #endif
23
24 #include "hmac.h"
25
26 #include "memxor.h"
27 #include "md5.h"
28
29 #include <string.h>
30
31 #define IPAD 0x36
32 #define OPAD 0x5c
33
34 int
35 hmac_md5 (const void *key, size_t keylen,
36           const void *in, size_t inlen, void *resbuf)
37 {
38   struct md5_ctx inner;
39   struct md5_ctx outer;
40   char optkeybuf[16];
41   char block[64];
42   char innerhash[16];
43
44   if (keylen > 64)
45     {
46       struct md5_ctx keyhash;
47
48       md5_init_ctx (&keyhash);
49       md5_process_bytes (key, keylen, &keyhash);
50       md5_finish_ctx (&keyhash, optkeybuf);
51
52       key = optkeybuf;
53       keylen = 16;
54     }
55
56   md5_init_ctx (&inner);
57
58   memset (block, IPAD, sizeof (block));
59   memxor (block, key, keylen);
60
61   md5_process_block (block, 64, &inner);
62   md5_process_bytes (in, inlen, &inner);
63
64   md5_finish_ctx (&inner, innerhash);
65
66   md5_init_ctx (&outer);
67
68   memset (block, OPAD, sizeof (block));
69   memxor (block, key, keylen);
70
71   md5_process_block (block, 64, &outer);
72   md5_process_bytes (innerhash, 16, &outer);
73
74   md5_finish_ctx (&outer, resbuf);
75
76   return 0;
77 }