|  | /* | 
|  | * 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; | 
|  | } |