1/*
2 * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
3 *
4 * Licensed under the Apache License 2.0 (the "License"). You may not use
5 * this file except in compliance with the License. You can obtain a copy
6 * in the file LICENSE in the source distribution or at
7 * https://www.openssl.org/source/license.html
8 */
9
10#include <stdlib.h>
11#include <string.h>
12#include <openssl/opensslconf.h>
13#include <openssl/md4.h>
14
15void md4_block_data_order(MD4_CTX *c, const void *p, size_t num);
16
17#define DATA_ORDER_IS_LITTLE_ENDIAN
18
19#define HASH_LONG MD4_LONG
20#define HASH_CTX MD4_CTX
21#define HASH_CBLOCK MD4_CBLOCK
22#define HASH_UPDATE MD4_Update
23#define HASH_TRANSFORM MD4_Transform
24#define HASH_FINAL MD4_Final
25#define HASH_MAKE_STRING(c,s) do { \
26 unsigned long ll; \
27 ll=(c)->A; (void)HOST_l2c(ll,(s)); \
28 ll=(c)->B; (void)HOST_l2c(ll,(s)); \
29 ll=(c)->C; (void)HOST_l2c(ll,(s)); \
30 ll=(c)->D; (void)HOST_l2c(ll,(s)); \
31 } while (0)
32#define HASH_BLOCK_DATA_ORDER md4_block_data_order
33
34#include "crypto/md32_common.h"
35
36/*-
37#define F(x,y,z) (((x) & (y)) | ((~(x)) & (z)))
38#define G(x,y,z) (((x) & (y)) | ((x) & ((z))) | ((y) & ((z))))
39*/
40
41/*
42 * As pointed out by Wei Dai, the above can be simplified to the code
43 * below. Wei attributes these optimizations to Peter Gutmann's SHS code,
44 * and he attributes it to Rich Schroeppel.
45 */
46#define F(b,c,d) ((((c) ^ (d)) & (b)) ^ (d))
47#define G(b,c,d) (((b) & (c)) | ((b) & (d)) | ((c) & (d)))
48#define H(b,c,d) ((b) ^ (c) ^ (d))
49
50#define R0(a,b,c,d,k,s,t) { \
51 a+=((k)+(t)+F((b),(c),(d))); \
52 a=ROTATE(a,s); };
53
54#define R1(a,b,c,d,k,s,t) { \
55 a+=((k)+(t)+G((b),(c),(d))); \
56 a=ROTATE(a,s); };
57
58#define R2(a,b,c,d,k,s,t) { \
59 a+=((k)+(t)+H((b),(c),(d))); \
60 a=ROTATE(a,s); };
61