73169a0e56e82ce0e784e1b090458ebfc4acdc82
[openssl.git] / providers / implementations / ciphers / cipher_tdes_default_hw.c
1 /*
2  * Copyright 1995-2019 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 "cipher_tdes_default.h"
11
12 #define ks1 tks.ks[0]
13 #define ks2 tks.ks[1]
14 #define ks3 tks.ks[2]
15
16 static int cipher_hw_tdes_ede2_initkey(PROV_CIPHER_CTX *ctx,
17                                        const unsigned char *key, size_t keylen)
18 {
19     PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
20     DES_cblock *deskey = (DES_cblock *)key;
21
22     tctx->tstream.cbc = NULL;
23 # if defined(SPARC_DES_CAPABLE)
24     if (SPARC_DES_CAPABLE) {
25         if (ctx->mode == EVP_CIPH_CBC_MODE) {
26             des_t4_key_expand(&deskey[0], &tctx->ks1);
27             des_t4_key_expand(&deskey[1], &tctx->ks2);
28             memcpy(&tctx->ks3, &tctx->ks1, sizeof(tctx->ks1));
29             tctx->tstream.cbc = ctx->enc ? des_t4_ede3_cbc_encrypt :
30                                            des_t4_ede3_cbc_decrypt;
31             return 1;
32         }
33     }
34 # endif
35     DES_set_key_unchecked(&deskey[0], &tctx->ks1);
36     DES_set_key_unchecked(&deskey[1], &tctx->ks2);
37     memcpy(&tctx->ks3, &tctx->ks1, sizeof(tctx->ks1));
38     return 1;
39 }
40
41 static int cipher_hw_tdes_ofb(PROV_CIPHER_CTX *ctx, unsigned char *out,
42                               const unsigned char *in, size_t inl)
43 {
44     PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
45     int num = ctx->num;
46
47     while (inl >= MAXCHUNK) {
48         DES_ede3_ofb64_encrypt(in, out, (long)MAXCHUNK, &tctx->ks1, &tctx->ks2,
49                                &tctx->ks3, (DES_cblock *)ctx->iv, &num);
50         inl -= MAXCHUNK;
51         in += MAXCHUNK;
52         out += MAXCHUNK;
53     }
54     if (inl > 0) {
55         DES_ede3_ofb64_encrypt(in, out, (long)inl, &tctx->ks1, &tctx->ks2,
56                                &tctx->ks3, (DES_cblock *)ctx->iv, &num);
57     }
58     ctx->num = num;
59     return 1;
60 }
61
62 static int cipher_hw_tdes_cfb(PROV_CIPHER_CTX *ctx, unsigned char *out,
63                               const unsigned char *in, size_t inl)
64 {
65     PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
66     int num = ctx->num;
67
68     while (inl >= MAXCHUNK) {
69
70         DES_ede3_cfb64_encrypt(in, out, (long)MAXCHUNK,
71                                &tctx->ks1, &tctx->ks2, &tctx->ks3,
72                                (DES_cblock *)ctx->iv, &num, ctx->enc);
73         inl -= MAXCHUNK;
74         in += MAXCHUNK;
75         out += MAXCHUNK;
76     }
77     if (inl > 0) {
78         DES_ede3_cfb64_encrypt(in, out, (long)inl,
79                                &tctx->ks1, &tctx->ks2, &tctx->ks3,
80                                (DES_cblock *)ctx->iv, &num, ctx->enc);
81     }
82     ctx->num = num;
83     return 1;
84 }
85
86 /*
87  * Although we have a CFB-r implementation for 3-DES, it doesn't pack the
88  * right way, so wrap it here
89  */
90 static int cipher_hw_tdes_cfb1(PROV_CIPHER_CTX *ctx, unsigned char *out,
91                                const unsigned char *in, size_t inl)
92 {
93     PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
94     size_t n;
95     unsigned char c[1], d[1];
96
97     if ((ctx->flags & EVP_CIPH_FLAG_LENGTH_BITS) == 0)
98         inl *= 8;
99     for (n = 0; n < inl; ++n) {
100         c[0] = (in[n / 8] & (1 << (7 - n % 8))) ? 0x80 : 0;
101         DES_ede3_cfb_encrypt(c, d, 1, 1,
102                              &tctx->ks1, &tctx->ks2, &tctx->ks3,
103                              (DES_cblock *)ctx->iv, ctx->enc);
104         out[n / 8] = (out[n / 8] & ~(0x80 >> (unsigned int)(n % 8)))
105             | ((d[0] & 0x80) >> (unsigned int)(n % 8));
106     }
107
108     return 1;
109 }
110
111 static int cipher_hw_tdes_cfb8(PROV_CIPHER_CTX *ctx, unsigned char *out,
112                                const unsigned char *in, size_t inl)
113 {
114     PROV_TDES_CTX *tctx = (PROV_TDES_CTX *)ctx;
115
116     while (inl >= MAXCHUNK) {
117         DES_ede3_cfb_encrypt(in, out, 8, (long)MAXCHUNK,
118                              &tctx->ks1, &tctx->ks2, &tctx->ks3,
119                              (DES_cblock *)ctx->iv, ctx->enc);
120         inl -= MAXCHUNK;
121         in += MAXCHUNK;
122         out += MAXCHUNK;
123     }
124     if (inl > 0)
125         DES_ede3_cfb_encrypt(in, out, 8, (long)inl,
126                              &tctx->ks1, &tctx->ks2, &tctx->ks3,
127                              (DES_cblock *)ctx->iv, ctx->enc);
128     return 1;
129 }
130
131 PROV_CIPHER_HW_tdes_mode(ede3, ofb)
132 PROV_CIPHER_HW_tdes_mode(ede3, cfb)
133 PROV_CIPHER_HW_tdes_mode(ede3, cfb1)
134 PROV_CIPHER_HW_tdes_mode(ede3, cfb8)
135
136 PROV_CIPHER_HW_tdes_mode(ede2, ecb)
137 PROV_CIPHER_HW_tdes_mode(ede2, cbc)
138 PROV_CIPHER_HW_tdes_mode(ede2, ofb)
139 PROV_CIPHER_HW_tdes_mode(ede2, cfb)
140