1*b077aed3SPierre Pronchery /*
2*b077aed3SPierre Pronchery * Copyright 1995-2021 The OpenSSL Project Authors. All Rights Reserved.
3*b077aed3SPierre Pronchery *
4*b077aed3SPierre Pronchery * Licensed under the Apache License 2.0 (the "License"). You may not use
5*b077aed3SPierre Pronchery * this file except in compliance with the License. You can obtain a copy
6*b077aed3SPierre Pronchery * in the file LICENSE in the source distribution or at
7*b077aed3SPierre Pronchery * https://www.openssl.org/source/license.html
8*b077aed3SPierre Pronchery */
9*b077aed3SPierre Pronchery
10*b077aed3SPierre Pronchery /*
11*b077aed3SPierre Pronchery * DES low level APIs are deprecated for public use, but still ok for internal
12*b077aed3SPierre Pronchery * use.
13*b077aed3SPierre Pronchery */
14*b077aed3SPierre Pronchery #include "internal/deprecated.h"
15*b077aed3SPierre Pronchery
16*b077aed3SPierre Pronchery #include "cipher_tdes_default.h"
17*b077aed3SPierre Pronchery
18*b077aed3SPierre Pronchery #define ks1 tks.ks[0]
19*b077aed3SPierre Pronchery #define ks2 tks.ks[1]
20*b077aed3SPierre Pronchery #define ks3 tks.ks[2]
21*b077aed3SPierre Pronchery
ossl_cipher_hw_tdes_ede2_initkey(PROV_CIPHER_CTX * ctx,const unsigned char * key,size_t keylen)22*b077aed3SPierre Pronchery static int ossl_cipher_hw_tdes_ede2_initkey(PROV_CIPHER_CTX *ctx,
23*b077aed3SPierre Pronchery const unsigned char *key,
24*b077aed3SPierre Pronchery size_t keylen)
25*b077aed3SPierre Pronchery {
26*b077aed3SPierre Pronchery PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
27*b077aed3SPierre Pronchery DES_cblock *deskey = (DES_cblock *)key;
28*b077aed3SPierre Pronchery
29*b077aed3SPierre Pronchery tctx->tstream.cbc = NULL;
30*b077aed3SPierre Pronchery # if defined(SPARC_DES_CAPABLE)
31*b077aed3SPierre Pronchery if (SPARC_DES_CAPABLE) {
32*b077aed3SPierre Pronchery if (ctx->mode == EVP_CIPH_CBC_MODE) {
33*b077aed3SPierre Pronchery des_t4_key_expand(&deskey[0], &tctx->ks1);
34*b077aed3SPierre Pronchery des_t4_key_expand(&deskey[1], &tctx->ks2);
35*b077aed3SPierre Pronchery memcpy(&tctx->ks3, &tctx->ks1, sizeof(tctx->ks1));
36*b077aed3SPierre Pronchery tctx->tstream.cbc = ctx->enc ? des_t4_ede3_cbc_encrypt :
37*b077aed3SPierre Pronchery des_t4_ede3_cbc_decrypt;
38*b077aed3SPierre Pronchery return 1;
39*b077aed3SPierre Pronchery }
40*b077aed3SPierre Pronchery }
41*b077aed3SPierre Pronchery # endif
42*b077aed3SPierre Pronchery DES_set_key_unchecked(&deskey[0], &tctx->ks1);
43*b077aed3SPierre Pronchery DES_set_key_unchecked(&deskey[1], &tctx->ks2);
44*b077aed3SPierre Pronchery memcpy(&tctx->ks3, &tctx->ks1, sizeof(tctx->ks1));
45*b077aed3SPierre Pronchery return 1;
46*b077aed3SPierre Pronchery }
47*b077aed3SPierre Pronchery
ossl_cipher_hw_tdes_ofb(PROV_CIPHER_CTX * ctx,unsigned char * out,const unsigned char * in,size_t inl)48*b077aed3SPierre Pronchery static int ossl_cipher_hw_tdes_ofb(PROV_CIPHER_CTX *ctx, unsigned char *out,
49*b077aed3SPierre Pronchery const unsigned char *in, size_t inl)
50*b077aed3SPierre Pronchery {
51*b077aed3SPierre Pronchery PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
52*b077aed3SPierre Pronchery int num = ctx->num;
53*b077aed3SPierre Pronchery
54*b077aed3SPierre Pronchery while (inl >= MAXCHUNK) {
55*b077aed3SPierre Pronchery DES_ede3_ofb64_encrypt(in, out, (long)MAXCHUNK, &tctx->ks1, &tctx->ks2,
56*b077aed3SPierre Pronchery &tctx->ks3, (DES_cblock *)ctx->iv, &num);
57*b077aed3SPierre Pronchery inl -= MAXCHUNK;
58*b077aed3SPierre Pronchery in += MAXCHUNK;
59*b077aed3SPierre Pronchery out += MAXCHUNK;
60*b077aed3SPierre Pronchery }
61*b077aed3SPierre Pronchery if (inl > 0) {
62*b077aed3SPierre Pronchery DES_ede3_ofb64_encrypt(in, out, (long)inl, &tctx->ks1, &tctx->ks2,
63*b077aed3SPierre Pronchery &tctx->ks3, (DES_cblock *)ctx->iv, &num);
64*b077aed3SPierre Pronchery }
65*b077aed3SPierre Pronchery ctx->num = num;
66*b077aed3SPierre Pronchery return 1;
67*b077aed3SPierre Pronchery }
68*b077aed3SPierre Pronchery
ossl_cipher_hw_tdes_cfb(PROV_CIPHER_CTX * ctx,unsigned char * out,const unsigned char * in,size_t inl)69*b077aed3SPierre Pronchery static int ossl_cipher_hw_tdes_cfb(PROV_CIPHER_CTX *ctx, unsigned char *out,
70*b077aed3SPierre Pronchery const unsigned char *in, size_t inl)
71*b077aed3SPierre Pronchery {
72*b077aed3SPierre Pronchery PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
73*b077aed3SPierre Pronchery int num = ctx->num;
74*b077aed3SPierre Pronchery
75*b077aed3SPierre Pronchery while (inl >= MAXCHUNK) {
76*b077aed3SPierre Pronchery
77*b077aed3SPierre Pronchery DES_ede3_cfb64_encrypt(in, out, (long)MAXCHUNK,
78*b077aed3SPierre Pronchery &tctx->ks1, &tctx->ks2, &tctx->ks3,
79*b077aed3SPierre Pronchery (DES_cblock *)ctx->iv, &num, ctx->enc);
80*b077aed3SPierre Pronchery inl -= MAXCHUNK;
81*b077aed3SPierre Pronchery in += MAXCHUNK;
82*b077aed3SPierre Pronchery out += MAXCHUNK;
83*b077aed3SPierre Pronchery }
84*b077aed3SPierre Pronchery if (inl > 0) {
85*b077aed3SPierre Pronchery DES_ede3_cfb64_encrypt(in, out, (long)inl,
86*b077aed3SPierre Pronchery &tctx->ks1, &tctx->ks2, &tctx->ks3,
87*b077aed3SPierre Pronchery (DES_cblock *)ctx->iv, &num, ctx->enc);
88*b077aed3SPierre Pronchery }
89*b077aed3SPierre Pronchery ctx->num = num;
90*b077aed3SPierre Pronchery return 1;
91*b077aed3SPierre Pronchery }
92*b077aed3SPierre Pronchery
93*b077aed3SPierre Pronchery /*
94*b077aed3SPierre Pronchery * Although we have a CFB-r implementation for 3-DES, it doesn't pack the
95*b077aed3SPierre Pronchery * right way, so wrap it here
96*b077aed3SPierre Pronchery */
ossl_cipher_hw_tdes_cfb1(PROV_CIPHER_CTX * ctx,unsigned char * out,const unsigned char * in,size_t inl)97*b077aed3SPierre Pronchery static int ossl_cipher_hw_tdes_cfb1(PROV_CIPHER_CTX *ctx, unsigned char *out,
98*b077aed3SPierre Pronchery const unsigned char *in, size_t inl)
99*b077aed3SPierre Pronchery {
100*b077aed3SPierre Pronchery PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
101*b077aed3SPierre Pronchery size_t n;
102*b077aed3SPierre Pronchery unsigned char c[1], d[1];
103*b077aed3SPierre Pronchery
104*b077aed3SPierre Pronchery if (ctx->use_bits == 0)
105*b077aed3SPierre Pronchery inl *= 8;
106*b077aed3SPierre Pronchery for (n = 0; n < inl; ++n) {
107*b077aed3SPierre Pronchery c[0] = (in[n / 8] & (1 << (7 - n % 8))) ? 0x80 : 0;
108*b077aed3SPierre Pronchery DES_ede3_cfb_encrypt(c, d, 1, 1,
109*b077aed3SPierre Pronchery &tctx->ks1, &tctx->ks2, &tctx->ks3,
110*b077aed3SPierre Pronchery (DES_cblock *)ctx->iv, ctx->enc);
111*b077aed3SPierre Pronchery out[n / 8] = (out[n / 8] & ~(0x80 >> (unsigned int)(n % 8)))
112*b077aed3SPierre Pronchery | ((d[0] & 0x80) >> (unsigned int)(n % 8));
113*b077aed3SPierre Pronchery }
114*b077aed3SPierre Pronchery
115*b077aed3SPierre Pronchery return 1;
116*b077aed3SPierre Pronchery }
117*b077aed3SPierre Pronchery
ossl_cipher_hw_tdes_cfb8(PROV_CIPHER_CTX * ctx,unsigned char * out,const unsigned char * in,size_t inl)118*b077aed3SPierre Pronchery static int ossl_cipher_hw_tdes_cfb8(PROV_CIPHER_CTX *ctx, unsigned char *out,
119*b077aed3SPierre Pronchery const unsigned char *in, size_t inl)
120*b077aed3SPierre Pronchery {
121*b077aed3SPierre Pronchery PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
122*b077aed3SPierre Pronchery
123*b077aed3SPierre Pronchery while (inl >= MAXCHUNK) {
124*b077aed3SPierre Pronchery DES_ede3_cfb_encrypt(in, out, 8, (long)MAXCHUNK,
125*b077aed3SPierre Pronchery &tctx->ks1, &tctx->ks2, &tctx->ks3,
126*b077aed3SPierre Pronchery (DES_cblock *)ctx->iv, ctx->enc);
127*b077aed3SPierre Pronchery inl -= MAXCHUNK;
128*b077aed3SPierre Pronchery in += MAXCHUNK;
129*b077aed3SPierre Pronchery out += MAXCHUNK;
130*b077aed3SPierre Pronchery }
131*b077aed3SPierre Pronchery if (inl > 0)
132*b077aed3SPierre Pronchery DES_ede3_cfb_encrypt(in, out, 8, (long)inl,
133*b077aed3SPierre Pronchery &tctx->ks1, &tctx->ks2, &tctx->ks3,
134*b077aed3SPierre Pronchery (DES_cblock *)ctx->iv, ctx->enc);
135*b077aed3SPierre Pronchery return 1;
136*b077aed3SPierre Pronchery }
137*b077aed3SPierre Pronchery
138*b077aed3SPierre Pronchery PROV_CIPHER_HW_tdes_mode(ede3, ofb)
139*b077aed3SPierre Pronchery PROV_CIPHER_HW_tdes_mode(ede3, cfb)
140*b077aed3SPierre Pronchery PROV_CIPHER_HW_tdes_mode(ede3, cfb1)
141*b077aed3SPierre Pronchery PROV_CIPHER_HW_tdes_mode(ede3, cfb8)
142*b077aed3SPierre Pronchery
143*b077aed3SPierre Pronchery PROV_CIPHER_HW_tdes_mode(ede2, ecb)
144*b077aed3SPierre Pronchery PROV_CIPHER_HW_tdes_mode(ede2, cbc)
145*b077aed3SPierre Pronchery PROV_CIPHER_HW_tdes_mode(ede2, ofb)
146*b077aed3SPierre Pronchery PROV_CIPHER_HW_tdes_mode(ede2, cfb)
147*b077aed3SPierre Pronchery
148