g(key, (i+0x1000)/5, &(result->s[i])); /* horrible special case for the end */ g(key, (254+0x1000)/5, h); for (i=254;i<256;i++)

result->s[i] = h[i-254];

/* 0x2000 mod 5 is +2, so have horrible special case at the start */ g(key, (-2+0x2000)/5, h); for (i=0;i<3;i++)

result->r[i] = h[i+2]; for (i=3;i<13;i+=5)

g(key, (i+0x2000)/5, &(result->r[i]));

/* horrible special case for the end */

g(key, (13+0x2000)/5, h); for (i=13;i<16;i++)

result->r[i] = h[i-13]; return (ALG OK);

int seal(seal ctx *key, unsigned long in, unsigned long *out)

int i; int j;

unsigned long a; unsigned long b; unsigned long c; unsigned long d; unsigned short p; unsigned short q; unsigned long n1; unsigned long n2; unsigned long n3; unsigned long n4; unsigned long *wp;

wp = out;

for (l=0;l<4;l++) {

a = in A key->r[4*l]; b = ROT8(in) л key->r[4*l+1]; c = ROT16(in) л key->r[4*l+2]; d = ROT24(in) л key->r[4*l+3];

for (j=0;j<2;j++)

p = a & 0x7fc;

b += key->t[p/4]; a = ROT9(a);

p = b & 0x7fc;

c += key->t[p/4];

b = ROT9(b); p = c & 0x7fc;

d += key->t[p/4]; c = ROT9(c);

p = d & 0x7fc;

a += key->t[p/4];

d = ROT9(d);

n1 = d; n2 = b;

n3 = a;

n4 = c;

p = a & 0x7fc; b += key->t[p/4]; a = ROT9(a);

p = b & 0x7fc;

c += key->t[p/4];

b = ROT9(b);

p = c & 0x7fc; d += key->t[p/4]; c = ROT9(c);

p = d & 0x7fc; a += key->t[p/4]; d = ROT9(d);

/* This generates 64 32-bit words, or 256 bytes of keystream. */

for (i=0;i<64;i++)

p = a & 0x7fc;

b += key->t[p/4]; a = ROT9(a);

b A= a;

q = b & 0x7fc;

c л= key->t[q/4];

b = ROT9(b);

c += b;

p = (p+c) & 0x7fc;

d += key->t[p/4]; c = ROT9(c);

d A= c;

q = (q+d) & 0x7fc; a л= key->t[q/4]; d = ROT9(d);

a += d;

p = (p+a) & 0x7fc; b л= key->t[p/4];

a = ROT9(a);

q = (q+b) & 0x7fc;

c += key->t[q/4];

b = ROT9(b);

p = (p+c) & 0x7fc; d л= key->t[p/4];

c = ROT9(c);

q = (q+d) & 0x7fc;

a += key->t[q/4];

d = ROT9(d);

*wp = b + key->s[4*i];

*wp =c A key->s[4*i+1]; wp++;

*wp =d + key->s[4*i+2];

*wp = a A key->s[4*i+3]; wp++;

if (i & 1)

a += n3; c += n4;

a += n1;

c += n2;

return (ALG OK);

/* Added call to refill ks buf and reset counter and ks pos. */ void seal refill buffer(seal ctx *c){

seal(c,c->counter,c->ks buf);

c->counter++;

c->ks pos = 0;

void seal key(seal ctx *c, unsigned char *key){ seal init(c,key);

c->counter = 0; /* By default, init to zero. */

c->ks pos = WORDS PER SEAL CALL;

/* Refill keystream buffer on next call. */

/* This encrypts the next w words with SEAL. */

void seal encrypt(seal ctx *c, unsigned long *data ptr, int w){ int i;

for(i=0;i<w;i++){

if(c->ks pos>=WORDS PER SEAL CALL) seal refill buffer(c);

data ptr[i]A=c->ks buf[c->ks pos]; c->ks pos++;

void seal decrypt(seal ctx *c, unsigned long *data ptr, int w) { seal encrypt(c,data ptr,w);

void seal resynch(seal ctx *c, unsigned long synch word){ c->counter = synch word;

c->ks pos = WORDS PER SEAL CALL;

void main(void){

seal ctx sc;

unsigned long buf[1000],t;