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