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

/*
 * DES low level APIs are deprecated for public use, but still ok for internal
 * use.
 */
#include "internal/deprecated.h"

#include <stdio.h>

#define DES_FCRYPT
#include "des_local.h"
#undef DES_FCRYPT

#undef PERM_OP
#define PERM_OP(a, b, t, n, m) ((t) = ((((a) >> (n)) ^ (b)) & (m)), \
    (b) ^= (t),                                                     \
    (a) ^= ((t) << (n)))

#undef HPERM_OP
#define HPERM_OP(a, t, n, m) ((t) = ((((a) << (16 - (n))) ^ (a)) & (m)), \
    (a) = (a) ^ (t) ^ (t >> (16 - (n))))

void fcrypt_body(DES_LONG *out, DES_key_schedule *ks, DES_LONG Eswap0,
    DES_LONG Eswap1)
{
    register DES_LONG l, r, t, u;
    register DES_LONG *s;
    register int j;
    register DES_LONG E0, E1;

    l = 0;
    r = 0;

    s = (DES_LONG *)ks;
    E0 = Eswap0;
    E1 = Eswap1;

    for (j = 0; j < 25; j++) {
        D_ENCRYPT(l, r, 0); /* 1 */
        D_ENCRYPT(r, l, 2); /* 2 */
        D_ENCRYPT(l, r, 4); /* 3 */
        D_ENCRYPT(r, l, 6); /* 4 */
        D_ENCRYPT(l, r, 8); /* 5 */
        D_ENCRYPT(r, l, 10); /* 6 */
        D_ENCRYPT(l, r, 12); /* 7 */
        D_ENCRYPT(r, l, 14); /* 8 */
        D_ENCRYPT(l, r, 16); /* 9 */
        D_ENCRYPT(r, l, 18); /* 10 */
        D_ENCRYPT(l, r, 20); /* 11 */
        D_ENCRYPT(r, l, 22); /* 12 */
        D_ENCRYPT(l, r, 24); /* 13 */
        D_ENCRYPT(r, l, 26); /* 14 */
        D_ENCRYPT(l, r, 28); /* 15 */
        D_ENCRYPT(r, l, 30); /* 16 */
        t = l;
        l = r;
        r = t;
    }
    l = ROTATE(l, 3) & 0xffffffffL;
    r = ROTATE(r, 3) & 0xffffffffL;

    PERM_OP(l, r, t, 1, 0x55555555L);
    PERM_OP(r, l, t, 8, 0x00ff00ffL);
    PERM_OP(l, r, t, 2, 0x33333333L);
    PERM_OP(r, l, t, 16, 0x0000ffffL);
    PERM_OP(l, r, t, 4, 0x0f0f0f0fL);

    out[0] = r;
    out[1] = l;
}