Referencia del Archivo src/libdigidoc/openssl/crypto/cast/cast_lcl.h

#include "e_os.h"

Ir al código fuente de este archivo.

'defines'
#define	c2l(c, l)
#define	c2ln(c, l1, l2, n)
#define	l2c(l, c)
#define	l2cn(l1, l2, c, n)
#define	n2ln(c, l1, l2, n)
#define	l2nn(l1, l2, c, n)
#define	n2l(c, l)
#define	l2n(l, c)
#define	ROTL(a, n)   ((((a)<<(n))&0xffffffffL)|((a)>>(32-(n))))
#define	C_M   0x3fc
#define	C_0   22L
#define	C_1   14L
#define	C_2   6L
#define	C_3   2L
#define	E_CAST(n, key, L, R, OP1, OP2, OP3)
Variables
const CAST_LONG	CAST_S_table0 [256]
const CAST_LONG	CAST_S_table1 [256]
const CAST_LONG	CAST_S_table2 [256]
const CAST_LONG	CAST_S_table3 [256]
const CAST_LONG	CAST_S_table4 [256]
const CAST_LONG	CAST_S_table5 [256]
const CAST_LONG	CAST_S_table6 [256]
const CAST_LONG	CAST_S_table7 [256]

---

Documentación de los 'defines'

#define c2l	(		c,
			l
	)

Valor:

(l =((unsigned long)(*((c)++)))    , \
                         l|=((unsigned long)(*((c)++)))<< 8L, \
                         l|=((unsigned long)(*((c)++)))<<16L, \
                         l|=((unsigned long)(*((c)++)))<<24L)

#define c2ln	(		c,
			l1,
			l2,
			n
	)

Valor:

{ \
                        c+=n; \
                        l1=l2=0; \
                        switch (n) { \
                        case 8: l2 =((unsigned long)(*(--(c))))<<24L; \
                        case 7: l2|=((unsigned long)(*(--(c))))<<16L; \
                        case 6: l2|=((unsigned long)(*(--(c))))<< 8L; \
                        case 5: l2|=((unsigned long)(*(--(c))));     \
                        case 4: l1 =((unsigned long)(*(--(c))))<<24L; \
                        case 3: l1|=((unsigned long)(*(--(c))))<<16L; \
                        case 2: l1|=((unsigned long)(*(--(c))))<< 8L; \
                        case 1: l1|=((unsigned long)(*(--(c))));     \
                                } \
                        }

#define C_0   22L

#define C_1   14L

#define C_2   6L

#define C_3   2L

#define C_M   0x3fc

#define E_CAST	(		n,
			key,
			L,
			R,
			OP1,
			OP2,
			OP3
	)

Valor:

{ \
        CAST_LONG a,b,c,d; \
        t=(key[n*2] OP1 R)&0xffffffff; \
        t=ROTL(t,(key[n*2+1])); \
        a=CAST_S_table0[(t>> 8)&0xff]; \
        b=CAST_S_table1[(t    )&0xff]; \
        c=CAST_S_table2[(t>>24)&0xff]; \
        d=CAST_S_table3[(t>>16)&0xff]; \
        L^=(((((a OP2 b)&0xffffffffL) OP3 c)&0xffffffffL) OP1 d)&0xffffffffL; \
        }

#define l2c	(		l,
			c
	)

Valor:

(*((c)++)=(unsigned char)(((l)     )&0xff), \
                         *((c)++)=(unsigned char)(((l)>> 8L)&0xff), \
                         *((c)++)=(unsigned char)(((l)>>16L)&0xff), \
                         *((c)++)=(unsigned char)(((l)>>24L)&0xff))

#define l2cn	(		l1,
			l2,
			c,
			n
	)

Valor:

{ \
                        c+=n; \
                        switch (n) { \
                        case 8: *(--(c))=(unsigned char)(((l2)>>24L)&0xff); \
                        case 7: *(--(c))=(unsigned char)(((l2)>>16L)&0xff); \
                        case 6: *(--(c))=(unsigned char)(((l2)>> 8L)&0xff); \
                        case 5: *(--(c))=(unsigned char)(((l2)     )&0xff); \
                        case 4: *(--(c))=(unsigned char)(((l1)>>24L)&0xff); \
                        case 3: *(--(c))=(unsigned char)(((l1)>>16L)&0xff); \
                        case 2: *(--(c))=(unsigned char)(((l1)>> 8L)&0xff); \
                        case 1: *(--(c))=(unsigned char)(((l1)     )&0xff); \
                                } \
                        }

#define l2n	(		l,
			c
	)

Valor:

(*((c)++)=(unsigned char)(((l)>>24L)&0xff), \
                         *((c)++)=(unsigned char)(((l)>>16L)&0xff), \
                         *((c)++)=(unsigned char)(((l)>> 8L)&0xff), \
                         *((c)++)=(unsigned char)(((l)     )&0xff))

#define l2nn	(		l1,
			l2,
			c,
			n
	)

Valor:

{ \
                        c+=n; \
                        switch (n) { \
                        case 8: *(--(c))=(unsigned char)(((l2)    )&0xff); \
                        case 7: *(--(c))=(unsigned char)(((l2)>> 8)&0xff); \
                        case 6: *(--(c))=(unsigned char)(((l2)>>16)&0xff); \
                        case 5: *(--(c))=(unsigned char)(((l2)>>24)&0xff); \
                        case 4: *(--(c))=(unsigned char)(((l1)    )&0xff); \
                        case 3: *(--(c))=(unsigned char)(((l1)>> 8)&0xff); \
                        case 2: *(--(c))=(unsigned char)(((l1)>>16)&0xff); \
                        case 1: *(--(c))=(unsigned char)(((l1)>>24)&0xff); \
                                } \
                        }

#define n2l	(		c,
			l
	)

Valor:

(l =((unsigned long)(*((c)++)))<<24L, \
                         l|=((unsigned long)(*((c)++)))<<16L, \
                         l|=((unsigned long)(*((c)++)))<< 8L, \
                         l|=((unsigned long)(*((c)++))))

#define n2ln	(		c,
			l1,
			l2,
			n
	)

Valor:

{ \
                        c+=n; \
                        l1=l2=0; \
                        switch (n) { \
                        case 8: l2 =((unsigned long)(*(--(c))))    ; \
                        case 7: l2|=((unsigned long)(*(--(c))))<< 8; \
                        case 6: l2|=((unsigned long)(*(--(c))))<<16; \
                        case 5: l2|=((unsigned long)(*(--(c))))<<24; \
                        case 4: l1 =((unsigned long)(*(--(c))))    ; \
                        case 3: l1|=((unsigned long)(*(--(c))))<< 8; \
                        case 2: l1|=((unsigned long)(*(--(c))))<<16; \
                        case 1: l1|=((unsigned long)(*(--(c))))<<24; \
                                } \
                        }

#define ROTL	(		a,
			n
	)		((((a)<<(n))&0xffffffffL)|((a)>>(32-(n))))

---

Documentación de las variables

const CAST_LONG CAST_S_table0[256]

const CAST_LONG CAST_S_table1[256]

const CAST_LONG CAST_S_table2[256]

const CAST_LONG CAST_S_table3[256]

const CAST_LONG CAST_S_table4[256]

const CAST_LONG CAST_S_table5[256]

const CAST_LONG CAST_S_table6[256]

const CAST_LONG CAST_S_table7[256]