xref: /netbsd-src/crypto/external/bsd/heimdal/dist/lib/hcrypto/rc4.c (revision d3273b5b76f5afaafe308cead5511dbb8df8c5e9)
1*d3273b5bSchristos /*	$NetBSD: rc4.c,v 1.2 2017/01/28 21:31:47 christos Exp $	*/
2ca1c9b0cSelric 
3ca1c9b0cSelric /*
4ca1c9b0cSelric  * Copyright (c) 2004 Kungliga Tekniska Högskolan
5ca1c9b0cSelric  * (Royal Institute of Technology, Stockholm, Sweden).
6ca1c9b0cSelric  * All rights reserved.
7ca1c9b0cSelric  *
8ca1c9b0cSelric  * Redistribution and use in source and binary forms, with or without
9ca1c9b0cSelric  * modification, are permitted provided that the following conditions
10ca1c9b0cSelric  * are met:
11ca1c9b0cSelric  *
12ca1c9b0cSelric  * 1. Redistributions of source code must retain the above copyright
13ca1c9b0cSelric  *    notice, this list of conditions and the following disclaimer.
14ca1c9b0cSelric  *
15ca1c9b0cSelric  * 2. Redistributions in binary form must reproduce the above copyright
16ca1c9b0cSelric  *    notice, this list of conditions and the following disclaimer in the
17ca1c9b0cSelric  *    documentation and/or other materials provided with the distribution.
18ca1c9b0cSelric  *
19ca1c9b0cSelric  * 3. Neither the name of the Institute nor the names of its contributors
20ca1c9b0cSelric  *    may be used to endorse or promote products derived from this software
21ca1c9b0cSelric  *    without specific prior written permission.
22ca1c9b0cSelric  *
23ca1c9b0cSelric  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
24ca1c9b0cSelric  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25ca1c9b0cSelric  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26ca1c9b0cSelric  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
27ca1c9b0cSelric  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28ca1c9b0cSelric  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29ca1c9b0cSelric  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30ca1c9b0cSelric  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31ca1c9b0cSelric  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32ca1c9b0cSelric  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33ca1c9b0cSelric  * SUCH DAMAGE.
34ca1c9b0cSelric  */
35ca1c9b0cSelric 
36ca1c9b0cSelric /* implemented from description in draft-kaukonen-cipher-arcfour-03.txt */
37ca1c9b0cSelric 
38b9d004c6Schristos #include <config.h>
39b9d004c6Schristos #include <krb5/roken.h>
40ca1c9b0cSelric 
41ca1c9b0cSelric #include <rc4.h>
42ca1c9b0cSelric 
43ca1c9b0cSelric #define SWAP(k,x,y)				\
44ca1c9b0cSelric { unsigned int _t; 				\
45ca1c9b0cSelric   _t = k->state[x]; 				\
46ca1c9b0cSelric   k->state[x] = k->state[y]; 			\
47ca1c9b0cSelric   k->state[y] = _t;				\
48ca1c9b0cSelric }
49ca1c9b0cSelric 
50ca1c9b0cSelric void
RC4_set_key(RC4_KEY * key,const int len,const unsigned char * data)51ca1c9b0cSelric RC4_set_key(RC4_KEY *key, const int len, const unsigned char *data)
52ca1c9b0cSelric {
53ca1c9b0cSelric     int i, j;
54ca1c9b0cSelric 
55ca1c9b0cSelric     for (i = 0; i < 256; i++)
56ca1c9b0cSelric 	key->state[i] = i;
57ca1c9b0cSelric     for (i = 0, j = 0; i < 256; i++) {
58ca1c9b0cSelric 	j = (j + key->state[i] + data[i % len]) % 256;
59ca1c9b0cSelric 	SWAP(key, i, j);
60ca1c9b0cSelric     }
61ca1c9b0cSelric     key->x = key->y = 0;
62ca1c9b0cSelric }
63ca1c9b0cSelric 
64ca1c9b0cSelric void
RC4(RC4_KEY * key,const int len,const unsigned char * in,unsigned char * out)65ca1c9b0cSelric RC4(RC4_KEY *key, const int len, const unsigned char *in, unsigned char *out)
66ca1c9b0cSelric {
67ca1c9b0cSelric     int i, t;
68ca1c9b0cSelric     unsigned x, y;
69ca1c9b0cSelric 
70ca1c9b0cSelric     x = key->x;
71ca1c9b0cSelric     y = key->y;
72ca1c9b0cSelric     for (i = 0; i < len; i++) {
73ca1c9b0cSelric 	x = (x + 1) % 256;
74ca1c9b0cSelric 	y = (y + key->state[x]) % 256;
75ca1c9b0cSelric 	SWAP(key, x, y);
76ca1c9b0cSelric 	t = (key->state[x] + key->state[y]) % 256;
77ca1c9b0cSelric 	*out++ = key->state[t] ^ *in++;
78ca1c9b0cSelric     }
79ca1c9b0cSelric     key->x = x;
80ca1c9b0cSelric     key->y = y;
81ca1c9b0cSelric }
82