/*
 * 
 * mpaux.c
 * 
 * Author: Tatu Ylonen <ylo@cs.hut.fi>
 * 
 * Copyright (c) 1995 Tatu Ylonen <ylo@cs.hut.fi>, Espoo, Finland
 *                    All rights reserved
 * 
 * Created: Sun Jul 16 04:29:30 1995 ylo
 * 
 * This file contains various auxiliary functions related to multiple
 * precision integers.
 * 
*/

#include "includes.h"
RCSID("$Id: mpaux.c,v 1.7 1999/11/24 13:26:22 damien Exp $");

#include "getput.h"
#include "xmalloc.h"

#ifdef HAVE_OPENSSL
#include <openssl/bn.h>
#include <openssl/md5.h>
#endif
#ifdef HAVE_SSL
#include <ssl/bn.h>
#include <ssl/md5.h>
#endif

void
compute_session_id(unsigned char session_id[16],
		   unsigned char cookie[8],
		   BIGNUM* host_key_n,
		   BIGNUM* session_key_n)
{
	unsigned int host_key_bits = BN_num_bits(host_key_n);
	unsigned int session_key_bits = BN_num_bits(session_key_n);
	unsigned int bytes = (host_key_bits + 7) / 8 + (session_key_bits + 7) / 8 + 8;
	unsigned char *buf = xmalloc(bytes);
	MD5_CTX md;

	BN_bn2bin(host_key_n, buf);
	BN_bn2bin(session_key_n, buf + (host_key_bits + 7) / 8);
	memcpy(buf + (host_key_bits + 7) / 8 + (session_key_bits + 7) / 8, cookie, 8);
	MD5_Init(&md);
	MD5_Update(&md, buf, bytes);
	MD5_Final(session_id, &md);
	memset(buf, 0, bytes);
	xfree(buf);
}