| /* |
| * Copyright 1995-2020 The OpenSSL Project Authors. All Rights Reserved. |
| * |
| * Licensed under the Apache License 2.0 (the "License"). You may not use |
| * this file except in compliance with the License. You can obtain a copy |
| * in the file LICENSE in the source distribution or at |
| * https://www.openssl.org/source/license.html |
| */ |
| |
| /* |
| * MD4 low level APIs are deprecated for public use, but still ok for |
| * internal use. |
| */ |
| #include "internal/deprecated.h" |
| |
| #include <stdio.h> |
| #include <string.h> |
| #include <openssl/md4.h> |
| #include <openssl/crypto.h> |
| |
| #ifdef CHARSET_EBCDIC |
| # include <openssl/ebcdic.h> |
| #endif |
| |
| unsigned char *MD4(const unsigned char *d, size_t n, unsigned char *md) |
| { |
| MD4_CTX c; |
| static unsigned char m[MD4_DIGEST_LENGTH]; |
| |
| if (md == NULL) |
| md = m; |
| if (!MD4_Init(&c)) |
| return NULL; |
| #ifndef CHARSET_EBCDIC |
| MD4_Update(&c, d, n); |
| #else |
| { |
| char temp[1024]; |
| unsigned long chunk; |
| |
| while (n > 0) { |
| chunk = (n > sizeof(temp)) ? sizeof(temp) : n; |
| ebcdic2ascii(temp, d, chunk); |
| MD4_Update(&c, temp, chunk); |
| n -= chunk; |
| d += chunk; |
| } |
| } |
| #endif |
| MD4_Final(md, &c); |
| OPENSSL_cleanse(&c, sizeof(c)); /* security consideration */ |
| return md; |
| } |