1e1051a39Sopenharmony_ci/*
2e1051a39Sopenharmony_ci * Copyright 1995-2020 The OpenSSL Project Authors. All Rights Reserved.
3e1051a39Sopenharmony_ci *
4e1051a39Sopenharmony_ci * Licensed under the Apache License 2.0 (the "License").  You may not use
5e1051a39Sopenharmony_ci * this file except in compliance with the License.  You can obtain a copy
6e1051a39Sopenharmony_ci * in the file LICENSE in the source distribution or at
7e1051a39Sopenharmony_ci * https://www.openssl.org/source/license.html
8e1051a39Sopenharmony_ci */
9e1051a39Sopenharmony_ci
10e1051a39Sopenharmony_ci/*
11e1051a39Sopenharmony_ci * MD5 low level APIs are deprecated for public use, but still ok for
12e1051a39Sopenharmony_ci * internal use.
13e1051a39Sopenharmony_ci */
14e1051a39Sopenharmony_ci#include "internal/deprecated.h"
15e1051a39Sopenharmony_ci
16e1051a39Sopenharmony_ci#include <stdio.h>
17e1051a39Sopenharmony_ci#include <string.h>
18e1051a39Sopenharmony_ci#include <openssl/md5.h>
19e1051a39Sopenharmony_ci#include <openssl/crypto.h>
20e1051a39Sopenharmony_ci
21e1051a39Sopenharmony_ci#ifdef CHARSET_EBCDIC
22e1051a39Sopenharmony_ci# include <openssl/ebcdic.h>
23e1051a39Sopenharmony_ci#endif
24e1051a39Sopenharmony_ci
25e1051a39Sopenharmony_ciunsigned char *MD5(const unsigned char *d, size_t n, unsigned char *md)
26e1051a39Sopenharmony_ci{
27e1051a39Sopenharmony_ci    MD5_CTX c;
28e1051a39Sopenharmony_ci    static unsigned char m[MD5_DIGEST_LENGTH];
29e1051a39Sopenharmony_ci
30e1051a39Sopenharmony_ci    if (md == NULL)
31e1051a39Sopenharmony_ci        md = m;
32e1051a39Sopenharmony_ci    if (!MD5_Init(&c))
33e1051a39Sopenharmony_ci        return NULL;
34e1051a39Sopenharmony_ci#ifndef CHARSET_EBCDIC
35e1051a39Sopenharmony_ci    MD5_Update(&c, d, n);
36e1051a39Sopenharmony_ci#else
37e1051a39Sopenharmony_ci    {
38e1051a39Sopenharmony_ci        char temp[1024];
39e1051a39Sopenharmony_ci        unsigned long chunk;
40e1051a39Sopenharmony_ci
41e1051a39Sopenharmony_ci        while (n > 0) {
42e1051a39Sopenharmony_ci            chunk = (n > sizeof(temp)) ? sizeof(temp) : n;
43e1051a39Sopenharmony_ci            ebcdic2ascii(temp, d, chunk);
44e1051a39Sopenharmony_ci            MD5_Update(&c, temp, chunk);
45e1051a39Sopenharmony_ci            n -= chunk;
46e1051a39Sopenharmony_ci            d += chunk;
47e1051a39Sopenharmony_ci        }
48e1051a39Sopenharmony_ci    }
49e1051a39Sopenharmony_ci#endif
50e1051a39Sopenharmony_ci    MD5_Final(md, &c);
51e1051a39Sopenharmony_ci    OPENSSL_cleanse(&c, sizeof(c)); /* security consideration */
52e1051a39Sopenharmony_ci    return md;
53e1051a39Sopenharmony_ci}
54