text: /*
   * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
   *
   * Licensed under the OpenSSL license (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
   */
  
  #include <stdio.h>
  #include <string.h>
  #include <openssl/md4.h>
  #include BLIK_OPENSSL_V_openssl__crypto_h //original-code:<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);
  }
  