1 /* $OpenBSD: e_gost2814789.c,v 1.2 2014/11/09 23:06:50 miod Exp $ */
3 * Copyright (c) 2014 Dmitry Eremin-Solenikov <dbaryshkov@gmail.com>
4 * Copyright (c) 2005-2006 Cryptocom LTD
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in
15 * the documentation and/or other materials provided with the
18 * 3. All advertising materials mentioning features or use of this
19 * software must display the following acknowledgment:
20 * "This product includes software developed by the OpenSSL Project
21 * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
23 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
24 * endorse or promote products derived from this software without
25 * prior written permission. For written permission, please contact
26 * openssl-core@openssl.org.
28 * 5. Products derived from this software may not be called "OpenSSL"
29 * nor may "OpenSSL" appear in their names without prior written
30 * permission of the OpenSSL Project.
32 * 6. Redistributions of any form whatsoever must retain the following
34 * "This product includes software developed by the OpenSSL Project
35 * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
37 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
38 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
39 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
40 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
41 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
42 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
43 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
44 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
45 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
46 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
47 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
48 * OF THE POSSIBILITY OF SUCH DAMAGE.
49 * ====================================================================
53 #include <openssl/opensslconf.h>
55 #ifndef OPENSSL_NO_GOST
56 #include <openssl/evp.h>
57 #include <openssl/err.h>
58 #include <openssl/gost.h>
64 } EVP_GOST2814789_CTX
;
67 gost2814789_ctl(EVP_CIPHER_CTX
*ctx
, int type
, int arg
, void *ptr
)
69 EVP_GOST2814789_CTX
*c
= ctx
->cipher_data
;
72 case EVP_CTRL_PBE_PRF_NID
:
74 *((int *)ptr
) = NID_id_HMACGostR3411_94
;
80 /* Default value to have any s-box set at all */
81 c
->param_nid
= NID_id_Gost28147_89_CryptoPro_A_ParamSet
;
82 return Gost2814789_set_sbox(&c
->ks
, c
->param_nid
);
83 case EVP_CTRL_GOST_SET_SBOX
:
84 return Gost2814789_set_sbox(&c
->ks
, arg
);
91 gost2814789_init_key(EVP_CIPHER_CTX
*ctx
, const unsigned char *key
,
92 const unsigned char *iv
, int enc
)
94 EVP_GOST2814789_CTX
*c
= ctx
->cipher_data
;
96 return Gost2814789_set_key(&c
->ks
, key
, ctx
->key_len
* 8);
100 gost2814789_set_asn1_params(EVP_CIPHER_CTX
*ctx
, ASN1_TYPE
*params
)
103 unsigned char *buf
= NULL
;
104 unsigned char *p
= NULL
;
105 EVP_GOST2814789_CTX
*c
= ctx
->cipher_data
;
106 ASN1_OCTET_STRING
*os
= NULL
;
107 GOST_CIPHER_PARAMS
*gcp
= GOST_CIPHER_PARAMS_new();
110 GOSTerr(GOST_F_GOST89_SET_ASN1_PARAMETERS
,
111 ERR_R_MALLOC_FAILURE
);
114 if (ASN1_OCTET_STRING_set(gcp
->iv
, ctx
->iv
, ctx
->cipher
->iv_len
) == 0) {
115 GOST_CIPHER_PARAMS_free(gcp
);
116 GOSTerr(GOST_F_GOST89_SET_ASN1_PARAMETERS
, ERR_R_ASN1_LIB
);
119 ASN1_OBJECT_free(gcp
->enc_param_set
);
120 gcp
->enc_param_set
= OBJ_nid2obj(c
->param_nid
);
122 len
= i2d_GOST_CIPHER_PARAMS(gcp
, NULL
);
123 p
= buf
= malloc(len
);
125 GOST_CIPHER_PARAMS_free(gcp
);
126 GOSTerr(GOST_F_GOST89_SET_ASN1_PARAMETERS
,
127 ERR_R_MALLOC_FAILURE
);
130 i2d_GOST_CIPHER_PARAMS(gcp
, &p
);
131 GOST_CIPHER_PARAMS_free(gcp
);
133 os
= ASN1_OCTET_STRING_new();
136 GOSTerr(GOST_F_GOST89_SET_ASN1_PARAMETERS
,
137 ERR_R_MALLOC_FAILURE
);
140 if (ASN1_OCTET_STRING_set(os
, buf
, len
) == 0) {
141 ASN1_OCTET_STRING_free(os
);
143 GOSTerr(GOST_F_GOST89_SET_ASN1_PARAMETERS
, ERR_R_ASN1_LIB
);
148 ASN1_TYPE_set(params
, V_ASN1_SEQUENCE
, os
);
153 gost2814789_get_asn1_params(EVP_CIPHER_CTX
*ctx
, ASN1_TYPE
*params
)
157 GOST_CIPHER_PARAMS
*gcp
= NULL
;
158 EVP_GOST2814789_CTX
*c
= ctx
->cipher_data
;
161 if (ASN1_TYPE_get(params
) != V_ASN1_SEQUENCE
)
164 p
= params
->value
.sequence
->data
;
166 gcp
= d2i_GOST_CIPHER_PARAMS(NULL
, (const unsigned char **)&p
,
167 params
->value
.sequence
->length
);
169 len
= gcp
->iv
->length
;
170 if (len
!= ctx
->cipher
->iv_len
) {
171 GOST_CIPHER_PARAMS_free(gcp
);
172 GOSTerr(GOST_F_GOST89_GET_ASN1_PARAMETERS
,
173 GOST_R_INVALID_IV_LENGTH
);
177 if (!Gost2814789_set_sbox(&c
->ks
, OBJ_obj2nid(gcp
->enc_param_set
))) {
178 GOST_CIPHER_PARAMS_free(gcp
);
181 c
->param_nid
= OBJ_obj2nid(gcp
->enc_param_set
);
183 memcpy(ctx
->oiv
, gcp
->iv
->data
, len
);
184 memcpy(ctx
->iv
, gcp
->iv
->data
, len
);
186 GOST_CIPHER_PARAMS_free(gcp
);
191 BLOCK_CIPHER_func_ecb(gost2814789
, Gost2814789
, EVP_GOST2814789_CTX
, ks
)
192 BLOCK_CIPHER_func_cfb(gost2814789
, Gost2814789
, 64, EVP_GOST2814789_CTX
, ks
)
195 gost2814789_cnt_cipher(EVP_CIPHER_CTX
*ctx
, unsigned char *out
,
196 const unsigned char *in
, size_t inl
)
198 EVP_GOST2814789_CTX
*c
= ctx
->cipher_data
;
200 while (inl
>= EVP_MAXCHUNK
) {
201 Gost2814789_cnt_encrypt(in
, out
, (long)EVP_MAXCHUNK
, &c
->ks
,
202 ctx
->iv
, ctx
->buf
, &ctx
->num
);
209 Gost2814789_cnt_encrypt(in
, out
, inl
, &c
->ks
, ctx
->iv
, ctx
->buf
,
214 /* gost89 is CFB-64 */
215 #define NID_gost89_cfb64 NID_id_Gost28147_89
217 BLOCK_CIPHER_def_ecb(gost2814789
, EVP_GOST2814789_CTX
, NID_gost89
, 8, 32,
218 EVP_CIPH_NO_PADDING
| EVP_CIPH_CTRL_INIT
,
219 gost2814789_init_key
, NULL
, gost2814789_set_asn1_params
,
220 gost2814789_get_asn1_params
, gost2814789_ctl
)
221 BLOCK_CIPHER_def_cfb(gost2814789
, EVP_GOST2814789_CTX
, NID_gost89
, 32, 8, 64,
222 EVP_CIPH_NO_PADDING
| EVP_CIPH_CTRL_INIT
,
223 gost2814789_init_key
, NULL
, gost2814789_set_asn1_params
,
224 gost2814789_get_asn1_params
, gost2814789_ctl
)
225 BLOCK_CIPHER_def1(gost2814789
, cnt
, cnt
, OFB
, EVP_GOST2814789_CTX
, NID_gost89
,
226 1, 32, 8, EVP_CIPH_NO_PADDING
| EVP_CIPH_CTRL_INIT
,
227 gost2814789_init_key
, NULL
, gost2814789_set_asn1_params
,
228 gost2814789_get_asn1_params
, gost2814789_ctl
)