2
* Copyright 1987, 1988 by the Massachusetts Institute of Technology.
4
* For copying and distribution information, please see the file
7
* Part of the MIT Project Athena Kerberos encryption system,
8
* originally written 8/85 by Steve Miller.
11
#include <afsconfig.h>
12
#include <afs/param.h>
14
RCSID("$Header: /afs/sipb.mit.edu/project/openafs/debian/cvs/openafs/src/des/make_e.c,v 1.1.1.3 2001/07/14 22:21:33 hartmans Exp $");
16
#include <mit-cpyright.h>
20
#include "AFS_component_version_number.c"
26
/* clear the output */
27
fprintf(stdout,"\n\tL2 = 0; R2 = 0;");
29
/* only take bits from R1, put into either L2 or R2 */
31
fprintf(stdout,"\n/* E operations */\n/* right to left */\n");
32
/* first list mapping from left to left */
34
for (i = 0; i <= 31; i++)
37
"\n\tif (R1 & (1<<%d)) L2 |= 1<<%d;",E[i],i);
39
fprintf(stdout,"\n\n/* now from right to right */\n");
40
/* list mapping from left to right */
41
for (i = 32; i <= 47; i++)
44
"\n\tif (R1 & (1<<%d)) R2 |= 1<<%d;",E[i],i-32);