4514c895f76c5958f580c959df1709670170dee6
[krb5.git] / src / lib / crypto / md5 / md5glue.c
1 #include "k5-int.h"
2 #include "rsa-md5.h"
3
4 krb5_error_code INTERFACE
5 md5_sum_func NPROTOTYPE((krb5_pointer in, size_t in_length,
6     krb5_pointer seed, size_t seed_length, krb5_checksum *outcksum));
7
8 krb5_error_code INTERFACE
9 md5_sum_func(in, in_length, seed, seed_length, outcksum)
10 krb5_pointer in;
11 size_t in_length;
12 krb5_pointer seed;
13 size_t seed_length;
14 krb5_checksum FAR *outcksum;
15 {
16     krb5_octet *input = (krb5_octet *)in;
17     MD5_CTX working;
18
19     MD5Init(&working);
20     MD5Update(&working, input, in_length);
21     MD5Final(&working);
22
23     outcksum->checksum_type = CKSUMTYPE_RSA_MD5;
24     outcksum->length = RSA_MD5_CKSUM_LENGTH;
25
26     memcpy((char *)outcksum->contents, (char *)&working.digest[0], 16);
27
28     memset((char *)&working, 0, sizeof(working));
29     return 0;
30 }
31
32 krb5_checksum_entry rsa_md5_cksumtable_entry = {
33     0,
34     md5_sum_func,
35     RSA_MD5_CKSUM_LENGTH,
36     1,                                  /* is collision proof */
37     0,                                  /* doesn't use key */
38 };