/*
**  hmac_md5 -- implements RFC 2104
**  This hmac_md5 function requires an OpenSSL-compatible MD5
**  implementation. There are Public Domain MD5 implementations by Colin
**  Plumb and by Solar Designer. You probably want to use one of these.
*/

#include <string.h>
#include "md5.h"
#include "radius_md5.h"

#ifndef _T_BYTE
#define _T_BYTE
	typedef	unsigned char BYTE;
#endif

const int blocksize = 64;
const int hashsize = 16;


/*
**  The computed HMAC will be written to `digest'.
**  Ensure digest points to hashsize bytes of allocated memory.
*/
void
hmac_md5(unsigned char *text, int textlen, unsigned char *key, int keylen,
        unsigned char *digest)
{
    int i;
    MD5_CTX context;
    unsigned char ipad[blocksize];
    unsigned char opad[blocksize];

    /* too long keys are replaced by their hash value */
    if (keylen > blocksize) {
        MD5_Init(&context);
        MD5_Update(&context, key, keylen);
        MD5_Final(digest, &context);
        key = digest;
        keylen = hashsize;
    }

        /* copy the key into the pads */
    memset(ipad, 0, sizeof(ipad));
    memcpy(ipad, key, keylen);

    memset(opad, 0, sizeof(opad));
    memcpy(opad, key, keylen);

        /* xor the pads with their ``basic'' value */
    for (i=0; i<blocksize; i++) {
        ipad[i] ^= 0x36;
        opad[i] ^= 0x5c;
    }

    /* inner pass (ipad ++ message) */
    MD5_Init(&context);
    MD5_Update(&context, ipad, sizeof(ipad));
    MD5_Update(&context, text, textlen);
    MD5_Final(digest, &context);

    /* outer pass (opad ++ result of inner pass) */
    MD5_Init(&context);
    MD5_Update(&context, opad, sizeof(opad));
    MD5_Update(&context, digest, hashsize);
    MD5_Final(digest, &context);
}