← Back to branch summary

~ubuntu-branches/ubuntu/precise/openssl098/precise

« back to all changes in this revision

Viewing changes to crypto/evp/e_rc2.c

  • Committer: Bazaar Package Importer
  • Author(s): Kurt Roeckx
  • Date: 2011-03-23 19:50:31 UTC
  • Revision ID: james.westby@ubuntu.com-20110323195031-6h9crj4bymhhr8b8
Tags: upstream-0.9.8o
Import upstream version 0.9.8o

Show diffs side-by-side

added added

removed removed

Lines of Context:
crypto/evp/e_rc2.c
 
1
/* crypto/evp/e_rc2.c */
 
2
/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
 
3
 * All rights reserved.
 
4
 *
 
5
 * This package is an SSL implementation written
 
6
 * by Eric Young (eay@cryptsoft.com).
 
7
 * The implementation was written so as to conform with Netscapes SSL.
 
8
 * 
 
9
 * This library is free for commercial and non-commercial use as long as
 
10
 * the following conditions are aheared to.  The following conditions
 
11
 * apply to all code found in this distribution, be it the RC4, RSA,
 
12
 * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
 
13
 * included with this distribution is covered by the same copyright terms
 
14
 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
 
15
 * 
 
16
 * Copyright remains Eric Young's, and as such any Copyright notices in
 
17
 * the code are not to be removed.
 
18
 * If this package is used in a product, Eric Young should be given attribution
 
19
 * as the author of the parts of the library used.
 
20
 * This can be in the form of a textual message at program startup or
 
21
 * in documentation (online or textual) provided with the package.
 
22
 * 
 
23
 * Redistribution and use in source and binary forms, with or without
 
24
 * modification, are permitted provided that the following conditions
 
25
 * are met:
 
26
 * 1. Redistributions of source code must retain the copyright
 
27
 *    notice, this list of conditions and the following disclaimer.
 
28
 * 2. Redistributions in binary form must reproduce the above copyright
 
29
 *    notice, this list of conditions and the following disclaimer in the
 
30
 *    documentation and/or other materials provided with the distribution.
 
31
 * 3. All advertising materials mentioning features or use of this software
 
32
 *    must display the following acknowledgement:
 
33
 *    "This product includes cryptographic software written by
 
34
 *     Eric Young (eay@cryptsoft.com)"
 
35
 *    The word 'cryptographic' can be left out if the rouines from the library
 
36
 *    being used are not cryptographic related :-).
 
37
 * 4. If you include any Windows specific code (or a derivative thereof) from 
 
38
 *    the apps directory (application code) you must include an acknowledgement:
 
39
 *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
 
40
 * 
 
41
 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
 
42
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 
43
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 
44
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 
45
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 
46
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 
47
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 
48
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 
49
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 
50
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 
51
 * SUCH DAMAGE.
 
52
 * 
 
53
 * The licence and distribution terms for any publically available version or
 
54
 * derivative of this code cannot be changed.  i.e. this code cannot simply be
 
55
 * copied and put under another distribution licence
 
56
 * [including the GNU Public Licence.]
 
57
 */
 
58
 
 
59
#include <stdio.h>
 
60
#include "cryptlib.h"
 
61
 
 
62
#ifndef OPENSSL_NO_RC2
 
63
 
 
64
#include <openssl/evp.h>
 
65
#include <openssl/objects.h>
 
66
#include "evp_locl.h"
 
67
#include <openssl/rc2.h>
 
68
 
 
69
static int rc2_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key,
 
70
                        const unsigned char *iv,int enc);
 
71
static int rc2_meth_to_magic(EVP_CIPHER_CTX *ctx);
 
72
static int rc2_magic_to_meth(int i);
 
73
static int rc2_set_asn1_type_and_iv(EVP_CIPHER_CTX *c, ASN1_TYPE *type);
 
74
static int rc2_get_asn1_type_and_iv(EVP_CIPHER_CTX *c, ASN1_TYPE *type);
 
75
static int rc2_ctrl(EVP_CIPHER_CTX *c, int type, int arg, void *ptr);
 
76
 
 
77
typedef struct
 
78
        {
 
79
        int key_bits;   /* effective key bits */
 
80
        RC2_KEY ks;     /* key schedule */
 
81
        } EVP_RC2_KEY;
 
82
 
 
83
#define data(ctx)       ((EVP_RC2_KEY *)(ctx)->cipher_data)
 
84
 
 
85
IMPLEMENT_BLOCK_CIPHER(rc2, ks, RC2, EVP_RC2_KEY, NID_rc2,
 
86
                        8,
 
87
                        RC2_KEY_LENGTH, 8, 64,
 
88
                        EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_CTRL_INIT,
 
89
                        rc2_init_key, NULL,
 
90
                        rc2_set_asn1_type_and_iv, rc2_get_asn1_type_and_iv, 
 
91
                        rc2_ctrl)
 
92
 
 
93
#define RC2_40_MAGIC    0xa0
 
94
#define RC2_64_MAGIC    0x78
 
95
#define RC2_128_MAGIC   0x3a
 
96
 
 
97
static const EVP_CIPHER r2_64_cbc_cipher=
 
98
        {
 
99
        NID_rc2_64_cbc,
 
100
        8,8 /* 64 bit */,8,
 
101
        EVP_CIPH_CBC_MODE | EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_CTRL_INIT,
 
102
        rc2_init_key,
 
103
        rc2_cbc_cipher,
 
104
        NULL,
 
105
        sizeof(EVP_RC2_KEY),
 
106
        rc2_set_asn1_type_and_iv,
 
107
        rc2_get_asn1_type_and_iv,
 
108
        rc2_ctrl,
 
109
        NULL
 
110
        };
 
111
 
 
112
static const EVP_CIPHER r2_40_cbc_cipher=
 
113
        {
 
114
        NID_rc2_40_cbc,
 
115
        8,5 /* 40 bit */,8,
 
116
        EVP_CIPH_CBC_MODE | EVP_CIPH_VARIABLE_LENGTH | EVP_CIPH_CTRL_INIT,
 
117
        rc2_init_key,
 
118
        rc2_cbc_cipher,
 
119
        NULL,
 
120
        sizeof(EVP_RC2_KEY),
 
121
        rc2_set_asn1_type_and_iv,
 
122
        rc2_get_asn1_type_and_iv,
 
123
        rc2_ctrl,
 
124
        NULL
 
125
        };
 
126
 
 
127
const EVP_CIPHER *EVP_rc2_64_cbc(void)
 
128
        {
 
129
        return(&r2_64_cbc_cipher);
 
130
        }
 
131
 
 
132
const EVP_CIPHER *EVP_rc2_40_cbc(void)
 
133
        {
 
134
        return(&r2_40_cbc_cipher);
 
135
        }
 
136
        
 
137
static int rc2_init_key(EVP_CIPHER_CTX *ctx, const unsigned char *key,
 
138
                        const unsigned char *iv, int enc)
 
139
        {
 
140
        RC2_set_key(&data(ctx)->ks,EVP_CIPHER_CTX_key_length(ctx),
 
141
                    key,data(ctx)->key_bits);
 
142
        return 1;
 
143
        }
 
144
 
 
145
static int rc2_meth_to_magic(EVP_CIPHER_CTX *e)
 
146
        {
 
147
        int i;
 
148
 
 
149
        EVP_CIPHER_CTX_ctrl(e, EVP_CTRL_GET_RC2_KEY_BITS, 0, &i);
 
150
        if      (i == 128) return(RC2_128_MAGIC);
 
151
        else if (i == 64)  return(RC2_64_MAGIC);
 
152
        else if (i == 40)  return(RC2_40_MAGIC);
 
153
        else return(0);
 
154
        }
 
155
 
 
156
static int rc2_magic_to_meth(int i)
 
157
        {
 
158
        if      (i == RC2_128_MAGIC) return 128;
 
159
        else if (i == RC2_64_MAGIC)  return 64;
 
160
        else if (i == RC2_40_MAGIC)  return 40;
 
161
        else
 
162
                {
 
163
                EVPerr(EVP_F_RC2_MAGIC_TO_METH,EVP_R_UNSUPPORTED_KEY_SIZE);
 
164
                return(0);
 
165
                }
 
166
        }
 
167
 
 
168
static int rc2_get_asn1_type_and_iv(EVP_CIPHER_CTX *c, ASN1_TYPE *type)
 
169
        {
 
170
        long num=0;
 
171
        int i=0;
 
172
        int key_bits;
 
173
        unsigned int l;
 
174
        unsigned char iv[EVP_MAX_IV_LENGTH];
 
175
 
 
176
        if (type != NULL)
 
177
                {
 
178
                l=EVP_CIPHER_CTX_iv_length(c);
 
179
                OPENSSL_assert(l <= sizeof(iv));
 
180
                i=ASN1_TYPE_get_int_octetstring(type,&num,iv,l);
 
181
                if (i != (int)l)
 
182
                        return(-1);
 
183
                key_bits =rc2_magic_to_meth((int)num);
 
184
                if (!key_bits)
 
185
                        return(-1);
 
186
                if(i > 0) EVP_CipherInit_ex(c, NULL, NULL, NULL, iv, -1);
 
187
                EVP_CIPHER_CTX_ctrl(c, EVP_CTRL_SET_RC2_KEY_BITS, key_bits, NULL);
 
188
                EVP_CIPHER_CTX_set_key_length(c, key_bits / 8);
 
189
                }
 
190
        return(i);
 
191
        }
 
192
 
 
193
static int rc2_set_asn1_type_and_iv(EVP_CIPHER_CTX *c, ASN1_TYPE *type)
 
194
        {
 
195
        long num;
 
196
        int i=0,j;
 
197
 
 
198
        if (type != NULL)
 
199
                {
 
200
                num=rc2_meth_to_magic(c);
 
201
                j=EVP_CIPHER_CTX_iv_length(c);
 
202
                i=ASN1_TYPE_set_int_octetstring(type,num,c->oiv,j);
 
203
                }
 
204
        return(i);
 
205
        }
 
206
 
 
207
static int rc2_ctrl(EVP_CIPHER_CTX *c, int type, int arg, void *ptr)
 
208
        {
 
209
        switch(type)
 
210
                {
 
211
        case EVP_CTRL_INIT:
 
212
                data(c)->key_bits = EVP_CIPHER_CTX_key_length(c) * 8;
 
213
                return 1;
 
214
 
 
215
        case EVP_CTRL_GET_RC2_KEY_BITS:
 
216
                *(int *)ptr = data(c)->key_bits;
 
217
                return 1;
 
218
                        
 
219
        case EVP_CTRL_SET_RC2_KEY_BITS:
 
220
                if(arg > 0)
 
221
                        {
 
222
                        data(c)->key_bits = arg;
 
223
                        return 1;
 
224
                        }
 
225
                return 0;
 
226
 
 
227
        default:
 
228
                return -1;
 
229
                }
 
230
        }
 
231
 
 
232
#endif