| Author: Tatu Ylonen <ylo@cs.hut.fi> |
| Copyright (c) 1995 Tatu Ylonen <ylo@cs.hut.fi>, Espoo, Finland |
| Created: Sun Jul 16 04:29:30 1995 ylo |
| This file contains various auxiliary functions related to multiple |
| RCSID("$Id: mpaux.c,v 1.3 1999/10/28 05:23:30 damien Exp $"); |
| compute_session_id(unsigned char session_id[16], |
| unsigned int host_key_bits, |
| unsigned int session_key_bits, |
| unsigned int bytes = (host_key_bits + 7) / 8 + (session_key_bits + 7) / 8 + 8; |
| unsigned char *buf = xmalloc(bytes); |
| 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, |
| MD5_Update(&md, buf, bytes); |
| MD5_Final(session_id, &md); |