155714Skris/* crypto/des/ecb_enc.c */
255714Skris/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
355714Skris * All rights reserved.
455714Skris *
555714Skris * This package is an SSL implementation written
655714Skris * by Eric Young (eay@cryptsoft.com).
755714Skris * The implementation was written so as to conform with Netscapes SSL.
8296341Sdelphij *
955714Skris * This library is free for commercial and non-commercial use as long as
1055714Skris * the following conditions are aheared to.  The following conditions
1155714Skris * apply to all code found in this distribution, be it the RC4, RSA,
1255714Skris * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
1355714Skris * included with this distribution is covered by the same copyright terms
1455714Skris * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15296341Sdelphij *
1655714Skris * Copyright remains Eric Young's, and as such any Copyright notices in
1755714Skris * the code are not to be removed.
1855714Skris * If this package is used in a product, Eric Young should be given attribution
1955714Skris * as the author of the parts of the library used.
2055714Skris * This can be in the form of a textual message at program startup or
2155714Skris * in documentation (online or textual) provided with the package.
22296341Sdelphij *
2355714Skris * Redistribution and use in source and binary forms, with or without
2455714Skris * modification, are permitted provided that the following conditions
2555714Skris * are met:
2655714Skris * 1. Redistributions of source code must retain the copyright
2755714Skris *    notice, this list of conditions and the following disclaimer.
2855714Skris * 2. Redistributions in binary form must reproduce the above copyright
2955714Skris *    notice, this list of conditions and the following disclaimer in the
3055714Skris *    documentation and/or other materials provided with the distribution.
3155714Skris * 3. All advertising materials mentioning features or use of this software
3255714Skris *    must display the following acknowledgement:
3355714Skris *    "This product includes cryptographic software written by
3455714Skris *     Eric Young (eay@cryptsoft.com)"
3555714Skris *    The word 'cryptographic' can be left out if the rouines from the library
3655714Skris *    being used are not cryptographic related :-).
37296341Sdelphij * 4. If you include any Windows specific code (or a derivative thereof) from
3855714Skris *    the apps directory (application code) you must include an acknowledgement:
3955714Skris *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40296341Sdelphij *
4155714Skris * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
4255714Skris * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
4355714Skris * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
4455714Skris * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
4555714Skris * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
4655714Skris * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
4755714Skris * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
4855714Skris * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
4955714Skris * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
5055714Skris * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
5155714Skris * SUCH DAMAGE.
52296341Sdelphij *
5355714Skris * The licence and distribution terms for any publically available version or
5455714Skris * derivative of this code cannot be changed.  i.e. this code cannot simply be
5555714Skris * copied and put under another distribution licence
5655714Skris * [including the GNU Public Licence.]
5755714Skris */
5855714Skris
5955714Skris#include "des_locl.h"
60238405Sjkim#include "des_ver.h"
61238405Sjkim#include <openssl/opensslv.h>
62238405Sjkim#include <openssl/bio.h>
6355714Skris
64296341SdelphijOPENSSL_GLOBAL const char libdes_version[] = "libdes" OPENSSL_VERSION_PTEXT;
65296341SdelphijOPENSSL_GLOBAL const char DES_version[] = "DES" OPENSSL_VERSION_PTEXT;
66238405Sjkim
67238405Sjkimconst char *DES_options(void)
68296341Sdelphij{
69296341Sdelphij    static int init = 1;
70296341Sdelphij    static char buf[32];
71238405Sjkim
72296341Sdelphij    if (init) {
73296341Sdelphij        const char *ptr, *unroll, *risc, *size;
74238405Sjkim
75238405Sjkim#ifdef DES_PTR
76296341Sdelphij        ptr = "ptr";
77238405Sjkim#else
78296341Sdelphij        ptr = "idx";
79238405Sjkim#endif
80238405Sjkim#if defined(DES_RISC1) || defined(DES_RISC2)
81296341Sdelphij# ifdef DES_RISC1
82296341Sdelphij        risc = "risc1";
83296341Sdelphij# endif
84296341Sdelphij# ifdef DES_RISC2
85296341Sdelphij        risc = "risc2";
86296341Sdelphij# endif
87238405Sjkim#else
88296341Sdelphij        risc = "cisc";
89238405Sjkim#endif
90238405Sjkim#ifdef DES_UNROLL
91296341Sdelphij        unroll = "16";
92238405Sjkim#else
93296341Sdelphij        unroll = "2";
94238405Sjkim#endif
95296341Sdelphij        if (sizeof(DES_LONG) != sizeof(long))
96296341Sdelphij            size = "int";
97296341Sdelphij        else
98296341Sdelphij            size = "long";
99296341Sdelphij        BIO_snprintf(buf, sizeof buf, "des(%s,%s,%s,%s)", ptr, risc, unroll,
100296341Sdelphij                     size);
101296341Sdelphij        init = 0;
102296341Sdelphij    }
103296341Sdelphij    return (buf);
104296341Sdelphij}
105238405Sjkim
106109998Smarkmvoid DES_ecb_encrypt(const_DES_cblock *input, DES_cblock *output,
107296341Sdelphij                     DES_key_schedule *ks, int enc)
108296341Sdelphij{
109296341Sdelphij    register DES_LONG l;
110296341Sdelphij    DES_LONG ll[2];
111296341Sdelphij    const unsigned char *in = &(*input)[0];
112296341Sdelphij    unsigned char *out = &(*output)[0];
11355714Skris
114296341Sdelphij    c2l(in, l);
115296341Sdelphij    ll[0] = l;
116296341Sdelphij    c2l(in, l);
117296341Sdelphij    ll[1] = l;
118296341Sdelphij    DES_encrypt1(ll, ks, enc);
119296341Sdelphij    l = ll[0];
120296341Sdelphij    l2c(l, out);
121296341Sdelphij    l = ll[1];
122296341Sdelphij    l2c(l, out);
123296341Sdelphij    l = ll[0] = ll[1] = 0;
124296341Sdelphij}
125