cast-256.c.txt

cast-256 de c yuan dai ma

 0x12deca4d, 0x2c3f8cc5, 0xd2d02dfe, 0xf8ef5896, 0xe4cf52da, 0x95155b67,
 0x494a488c, 0xb9b6a80c, 0x5c8f82bc, 0x89d36b45, 0x3a609437, 0xec00c9a9,
 0x44715253, 0x0a874b49, 0xd773bc40, 0x7c34671c, 0x02717ef6, 0x4feb5536,
 0xa2d02fff, 0xd2bf60c4, 0xd43f03c0, 0x50b4ef6d, 0x07478cd1, 0x006e1888,
 0xa2e53f55, 0xb9e6d4bc, 0xa2048016, 0x97573833, 0xd7207d67, 0xde0f8f3d,
 0x72f87b33, 0xabcc4f33, 0x7688c55d, 0x7b00a6b0, 0x947b0001, 0x570075d2,
 0xf9bb88f8, 0x8942019e, 0x4264a5ff, 0x856302e0, 0x72dbd92b, 0xee971b69,
 0x6ea22fde, 0x5f08ae2b, 0xaf7a616d, 0xe5c98767, 0xcf1febd2, 0x61efc8c2,
 0xf1ac2571, 0xcc8239c2, 0x67214cb8, 0xb1e583d1, 0xb7dc3e62, 0x7f10bdce,
 0xf90a5c38, 0x0ff0443d, 0x606e6dc6, 0x60543a49, 0x5727c148, 0x2be98a1d,
 0x8ab41738, 0x20e1be24, 0xaf96da0f, 0x68458425, 0x99833be5, 0x600d457d,
 0x282f9350, 0x8334b362, 0xd91d1120, 0x2b6d8da0, 0x642b1e31, 0x9c305a00,
 0x52bce688, 0x1b03588a, 0xf7baefd5, 0x4142ed9c, 0xa4315c11, 0x83323ec5,
 0xdfef4636, 0xa133c501, 0xe9d3531c, 0xee353783}
,
{
 0x9db30420, 0x1fb6e9de, 0xa7be7bef, 0xd273a298, 0x4a4f7bdb, 0x64ad8c57,
 0x85510443, 0xfa020ed1, 0x7e287aff, 0xe60fb663, 0x095f35a1, 0x79ebf120,
 0xfd059d43, 0x6497b7b1, 0xf3641f63, 0x241e4adf, 0x28147f5f, 0x4fa2b8cd,
 0xc9430040, 0x0cc32220, 0xfdd30b30, 0xc0a5374f, 0x1d2d00d9, 0x24147b15,
 0xee4d111a, 0x0fca5167, 0x71ff904c, 0x2d195ffe, 0x1a05645f, 0x0c13fefe,
 0x081b08ca, 0x05170121, 0x80530100, 0xe83e5efe, 0xac9af4f8, 0x7fe72701,
 0xd2b8ee5f, 0x06df4261, 0xbb9e9b8a, 0x7293ea25, 0xce84ffdf, 0xf5718801,
 0x3dd64b04, 0xa26f263b, 0x7ed48400, 0x547eebe6, 0x446d4ca0, 0x6cf3d6f5,
 0x2649abdf, 0xaea0c7f5, 0x36338cc1, 0x503f7e93, 0xd3772061, 0x11b638e1,
 0x72500e03, 0xf80eb2bb, 0xabe0502e, 0xec8d77de, 0x57971e81, 0xe14f6746,
 0xc9335400, 0x6920318f, 0x081dbb99, 0xffc304a5, 0x4d351805, 0x7f3d5ce3,
 0xa6c866c6, 0x5d5bcca9, 0xdaec6fea, 0x9f926f91, 0x9f46222f, 0x3991467d,
 0xa5bf6d8e, 0x1143c44f, 0x43958302, 0xd0214eeb, 0x022083b8, 0x3fb6180c,
 0x18f8931e, 0x281658e6, 0x26486e3e, 0x8bd78a70, 0x7477e4c1, 0xb506e07c,
 0xf32d0a25, 0x79098b02, 0xe4eabb81, 0x28123b23, 0x69dead38, 0x1574ca16,
 0xdf871b62, 0x211c40b7, 0xa51a9ef9, 0x0014377b, 0x041e8ac8, 0x09114003,
 0xbd59e4d2, 0xe3d156d5, 0x4fe876d5, 0x2f91a340, 0x557be8de, 0x00eae4a7,
 0x0ce5c2ec, 0x4db4bba6, 0xe756bdff, 0xdd3369ac, 0xec17b035, 0x06572327,
 0x99afc8b0, 0x56c8c391, 0x6b65811c, 0x5e146119, 0x6e85cb75, 0xbe07c002,
 0xc2325577, 0x893ff4ec, 0x5bbfc92d, 0xd0ec3b25, 0xb7801ab7, 0x8d6d3b24,
 0x20c763ef, 0xc366a5fc, 0x9c382880, 0x0ace3205, 0xaac9548a, 0xeca1d7c7,
 0x041afa32, 0x1d16625a, 0x6701902c, 0x9b757a54, 0x31d477f7, 0x9126b031,
 0x36cc6fdb, 0xc70b8b46, 0xd9e66a48, 0x56e55a79, 0x026a4ceb, 0x52437eff,
 0x2f8f76b4, 0x0df980a5, 0x8674cde3, 0xedda04eb, 0x17a9be04, 0x2c18f4df,
 0xb7747f9d, 0xab2af7b4, 0xefc34d20, 0x2e096b7c, 0x1741a254, 0xe5b6a035,
 0x213d42f6, 0x2c1c7c26, 0x61c2f50f, 0x6552daf9, 0xd2c231f8, 0x25130f69,
 0xd8167fa2, 0x0418f2c8, 0x001a96a6, 0x0d1526ab, 0x63315c21, 0x5e0a72ec,
 0x49bafefd, 0x187908d9, 0x8d0dbd86, 0x311170a7, 0x3e9b640c, 0xcc3e10d7,
 0xd5cad3b6, 0x0caec388, 0xf73001e1, 0x6c728aff, 0x71eae2a1, 0x1f9af36e,
 0xcfcbd12f, 0xc1de8417, 0xac07be6b, 0xcb44a1d8, 0x8b9b0f56, 0x013988c3,
 0xb1c52fca, 0xb4be31cd, 0xd8782806, 0x12a3a4e2, 0x6f7de532, 0x58fd7eb6,
 0xd01ee900, 0x24adffc2, 0xf4990fc5, 0x9711aac5, 0x001d7b95, 0x82e5e7d2,
 0x109873f6, 0x00613096, 0xc32d9521, 0xada121ff, 0x29908415, 0x7fbb977f,
 0xaf9eb3db, 0x29c9ed2a, 0x5ce2a465, 0xa730f32c, 0xd0aa3fe8, 0x8a5cc091,
 0xd49e2ce7, 0x0ce454a9, 0xd60acd86, 0x015f1919, 0x77079103, 0xdea03af6,
 0x78a8565e, 0xdee356df, 0x21f05cbe, 0x8b75e387, 0xb3c50651, 0xb8a5c3ef,
 0xd8eeb6d2, 0xe523be77, 0xc2154529, 0x2f69efdf, 0xafe67afb, 0xf470c4b2,
 0xf3e0eb5b, 0xd6cc9876, 0x39e4460c, 0x1fda8538, 0x1987832f, 0xca007367,
 0xa99144f8, 0x296b299e, 0x492fc295, 0x9266beab, 0xb5676e69, 0x9bd3ddda,
 0xdf7e052f, 0xdb25701c, 0x1b5e51ee, 0xf65324e6, 0x6afce36c, 0x0316cc04,
 0x8644213e, 0xb7dc59d0, 0x7965291f, 0xccd6fd43, 0x41823979, 0x932bcdf6,
 0xb657c34d, 0x4edfd282, 0x7ae5290c, 0x3cb9536b, 0x851e20fe, 0x9833557e,
 0x13ecf0b0, 0xd3ffb372, 0x3f85c5c1, 0x0aef7ed2}
};


#define f1(y,x,kr,km)           \
    t  = rotl(km + x, kr);      \
    u  = cast256_sbox[0][byte(t,3)];   \
    u ^= cast256_sbox[1][byte(t,2)];   \
    u -= cast256_sbox[2][byte(t,1)];   \
    u += cast256_sbox[3][byte(t,0)];   \
    y ^= u

#define f2(y,x,kr,km)           \
    t  = rotl(km ^ x, kr);      \
    u  = cast256_sbox[0][byte(t,3)];   \
    u -= cast256_sbox[1][byte(t,2)];   \
    u += cast256_sbox[2][byte(t,1)];   \
    u ^= cast256_sbox[3][byte(t,0)];   \
    y ^= u

#define f3(y,x,kr,km)           \
    t  = rotl(km - x, kr);      \
    u  = cast256_sbox[0][byte(t,3)];   \
    u += cast256_sbox[1][byte(t,2)];   \
    u ^= cast256_sbox[2][byte(t,1)];   \
    u -= cast256_sbox[3][byte(t,0)];   \
    y ^= u

#define f_rnd(x,n)                              \
    f1(x[2],x[3],l_key[n],    l_key[n + 4]);    \
    f2(x[1],x[2],l_key[n + 1],l_key[n + 5]);    \
    f3(x[0],x[1],l_key[n + 2],l_key[n + 6]);    \
    f1(x[3],x[0],l_key[n + 3],l_key[n + 7])

#define i_rnd(x, n)                             \
    f1(x[3],x[0],l_key[n + 3],l_key[n + 7]);    \
    f3(x[0],x[1],l_key[n + 2],l_key[n + 6]);    \
    f2(x[1],x[2],l_key[n + 1],l_key[n + 5]);    \
    f1(x[2],x[3],l_key[n],    l_key[n + 4])

#define k_rnd(k,tr,tm)          \
    f1(k[6],k[7],tr[0],tm[0]);  \
    f2(k[5],k[6],tr[1],tm[1]);  \
    f3(k[4],k[5],tr[2],tm[2]);  \
    f1(k[3],k[4],tr[3],tm[3]);  \
    f2(k[2],k[3],tr[4],tm[4]);  \
    f3(k[1],k[2],tr[5],tm[5]);  \
    f1(k[0],k[1],tr[6],tm[6]);  \
    f2(k[7],k[0],tr[7],tm[7])



/* initialise the key schedule from the user supplied key   */
/*     uint32  l_key=mxmalloc(sizeof(uint32)*96); */

void
_zcrypt_cast256_set_key(uint32 *l_key,const uint32 in_key[],const uint32 key_len)
{
	uint32 i,j,t,u,cm,cr,lk[8],tm[8],tr[8];


	for (i = 0; i < key_len / 4; ++i)
#ifdef WORDS_BIGENDIAN
		lk[i] = byteswap(in_key[i]);
#else
		lk[i] = in_key[i];
#endif

	for (; i < 8; ++i)

		lk[i] = 0;

	cm = 0x5a827999;
	cr = 19;

	for (i = 0; i < 96; i += 8) {
		for (j = 0; j < 8; ++j) {
			tm[j] = cm;
			cm += 0x6ed9eba1;
			tr[j] = cr;
			cr += 17;
		}

		k_rnd(lk, tr, tm);

		for (j = 0; j < 8; ++j) {
			tm[j] = cm;
			cm += 0x6ed9eba1;
			tr[j] = cr;
			cr += 17;
		}

		k_rnd(lk, tr, tm);

		l_key[i + 0] = lk[0];
		l_key[i + 1] = lk[2];
		l_key[i + 2] = lk[4];
		l_key[i + 3] = lk[6];
		l_key[i + 4] = lk[7];
		l_key[i + 5] = lk[5];
		l_key[i + 6] = lk[3];
		l_key[i + 7] = lk[1];
	}

}

/* encrypt a block of text  */
/* 16 bytes */
void
_zcrypt_cast256_encrypt(uint32 *l_key,uint32 *blk)
{
	uint32 t,u;

#ifdef WORDS_BIGENDIAN
	blk[0] = byteswap(blk[0]);
	blk[1] = byteswap(blk[1]);
	blk[2] = byteswap(blk[2]);
	blk[3] = byteswap(blk[3]);
#endif

	f_rnd(blk, 0);
	f_rnd(blk, 8);
	f_rnd(blk, 16);
	f_rnd(blk, 24);
	f_rnd(blk, 32);
	f_rnd(blk, 40);
	i_rnd(blk, 48);
	i_rnd(blk, 56);
	i_rnd(blk, 64);
	i_rnd(blk, 72);
	i_rnd(blk, 80);
	i_rnd(blk, 88);

#ifdef WORDS_BIGENDIAN
	blk[0] = byteswap(blk[0]);
	blk[1] = byteswap(blk[1]);
	blk[2] = byteswap(blk[2]);
	blk[3] = byteswap(blk[3]);
#endif
}

/* decrypt a block of text  */

void _zcrypt_cast256_decrypt(uint32 *l_key,uint32 *blk)
{
	uint32 t, u;

#ifdef WORDS_BIGENDIAN
	blk[0] = byteswap(blk[0]);
	blk[1] = byteswap(blk[1]);
	blk[2] = byteswap(blk[2]);
	blk[3] = byteswap(blk[3]);
#endif
	f_rnd(blk, 88);
	f_rnd(blk, 80);
	f_rnd(blk, 72);
	f_rnd(blk, 64);
	f_rnd(blk, 56);
	f_rnd(blk, 48);
	i_rnd(blk, 40);
	i_rnd(blk, 32);
	i_rnd(blk, 24);
	i_rnd(blk, 16);
	i_rnd(blk, 8);
	i_rnd(blk, 0);

#ifdef WORDS_BIGENDIAN
	blk[0] = byteswap(blk[0]);
	blk[1] = byteswap(blk[1]);
	blk[2] = byteswap(blk[2]);
	blk[3] = byteswap(blk[3]);
#endif

}