From: "Nobuki Nakatuji" <bd1011@hotmail.com>
Date: Tue, 7 Oct 1997 10:24:50 +0800
To: cypherpunks@toad.com
Subject: unperfect MISTY algorithm source code
Message-ID: <19971007020703.3649.qmail@hotmail.com>
MIME-Version: 1.0
Content-Type: text/plain



*// MISTY

typedef unsigned short ushort;
typedef unsigned char  uchar;

ushort EXTKEY[4][8];

static uchar S7[128]={
 27, 50, 51, 90, 59, 16, 23, 84, 91, 26,114,115,107, 44,102, 73,
 31, 36, 19,108, 55, 46, 63, 74, 93, 15, 64, 86, 37, 81, 28,  4,
 11, 70, 32, 13,123, 53, 68, 66, 43, 30, 65, 20, 75,121, 21,111,
 14, 85,  9, 54,116, 12,103, 83, 40, 10,126, 56,  2,  7, 96, 41,
 25, 18,101, 47, 48, 57,  8,104, 95,120, 42, 76,100, 69,117, 61,
 89, 72,  3, 87,124, 79, 98, 60, 29, 33, 94, 39,106,112, 77, 58,
  1,109,110, 99, 24,119, 35,  5, 38,118,  0, 49, 45,122,127, 97,
 80, 34, 17,  6, 71, 22, 82, 78,113, 62,105, 67, 52, 92, 88,125,};

static uchar S9[512]={
451,203,339,415,483,233,251, 53,385,185,276,491,307,  9, 45,211,
199,330, 55,126,235,356,403,472,163,286, 85, 44, 29,418,355,280,
331,338,466, 15, 43, 48,314,229,273,312,398, 99,227,200,500, 27,
  1,157,248,416,365,499, 28,326,125,209,130,490,387,301,244,414,
467,221,482,296,480,236, 89,145, 17,303, 38,220,176,396,271,503,
231,364,182,249,216,337,257,332,259,184,340,299,430, 23,113, 12,
 71, 88,127,420,308,297,132,349,413,434,419, 72,124, 81,458, 35,
317,423,357, 59, 66,218,402,206,193,107,159,497,300,388,250,406,
481,361,381, 49,384,266,148,474,390,318,284, 96,373,463,103,281,
                                .
                                .
                                .
                                .
                                .
120,  0,172,272,350,292,  2,444,162,234,112,508,278,348, 76,450};

#define FL_enc( k ){
r1 ^= r0 & EXTKEY[0][k];
r3 ^= r2 & EXTKEY[1][(k+2)&7];
r0 ^= r1 | EXTKEY[1][(k+6)&7];
r2 ^= r3 | EXTKEY[0][(k+4)&7];
}

#define FL_enc( k ){
r0 ^= r1 | EXTKEY[0][k];
r2 ^= r3 | EXTKEY[1][(k+4)&7];
r1 ^= r0 & EXTKEY[1][(k+6)&7];
r3 ^= r2 & EXTKEY[0][(k+2)&7];
}

#define FL_key( k ){
r0 = EXTKEY[0][k] >> 7;
r1 = EXTKEY[0][k] & 0xf7;
r0 = S9[r0][k] ^ r1;
r1 = S7[r1][k] ^ ( r0 & 0x7f );
r1 ^= EXTKEY[0][(k+1)&7];
r0 ^= EXTKEY[0][(k+1)&7] & 0x1ff;
r0 = S9[r0] ^ r1;
EXTKEY[3][k] = r1;
EXTKEY[2][k] = r0;
EXTKEY[1][k] = r1 << 9 ^ r0;
}

#define FI_txt( a0, a1, k ){
a1 = a0 >> 7;
a0 &= 0x7f;
a1 = S9[a1][k] ^ a0;
r1 = S7[a0][k] ^ a1;
a1 ^= EXTKEY[2][k];
a0 ^= EXTKEY[3][k];
a0 &= 0x7f;
a1 = S9[a1] ^ a0;
a1 ^= a0 << 9;
}

#define FI_txt( a0, a1, a2, a3, k ){
t0 = a0 ^ EXTKEY[0][k];
FI_txt( t0, t1, (t+5)&7 );
t1 ^= a1;
t2 = a1 ^ EXTKEY[0][(k+2)&7];
FI_txt( t2, t0, (k+1)&7 );
t0 ^= t1;
t1 = EXTKEY[0][(k+7)&7];
FI_txt( t1, t2, (t+3)&7 );
t2 ^= t0;
t0 ^= EXTKEY[0][(k+4)&7];
a2 ^= t0;
a3 ^= t2;
}


*// MISTY

misty1( text, key, block, mode )
uchar *text,*key;
int    block,mode;
{

   register ushort t0, t1, t2;
   register ushort r0, r1, r2, r3;

/*** key scheduling ***/

EXTKEY[0][0] = (ushort)key[0],<<8 ^ (ushort)key[1];
EXTKEY[0][1] = (ushort)key[2],<<8 ^ (ushort)key[3];
EXTKEY[0][2] = (ushort)key[4],<<8 ^ (ushort)key[5];
EXTKEY[0][3] = (ushort)key[6],<<8 ^ (ushort)key[7];
EXTKEY[0][4] = (ushort)key[8],<<8 ^ (ushort)key[9];
EXTKEY[0][5] = (ushort)key[10],<<8 ^ (ushort)key[11];
EXTKEY[0][6] = (ushort)key[12],<<8 ^ (ushort)key[13];
EXTKEY[0][7] = (ushort)key[14],<<8 ^ (ushort)key[15];

FI_key( 0 );
FI_key( 1 );
FI_key( 2 );
FI_key( 3 );
FI_key( 4 );
FI_key( 5 );
FI_key( 6 );
FI_key( 7 );

/*** Data Randomizing ***/

if( !(mode & 1) ){

/*** Encryption ***/

while( block-- > 0 ){

r0 = (ushort)text[0],<<8 ^ (ushort)key[1];
r1 = (ushort)text[2],<<8 ^ (ushort)key[3];
r2 = (ushort)text[4],<<8 ^ (ushort)key[5];
r3 = (ushort)text[6],<<8 ^ (ushort)key[7];

FI_enc( 0 );
FO_txt( r0, r1, r2, r3, 0 );
FO_txt( r2, r3, r0, r1, 1 );
FI_enc( 1 );
FO_txt( r0, r1, r2, r3, 2 );
FO_txt( r2, r3, r0, r1, 3 );
FI_enc( 2 );
FO_txt( r0, r1, r2, r3, 4 );
FO_txt( r2, r3, r0, r1, 5 );
FI_enc( 3 );
FO_txt( r0, r1, r2, r3, 6 );
FO_txt( r2, r3, r0, r1, 7 );
FI_enc( 4 );

text[0] = r2 >> 8;
text[1] = r2 & 0xff;
text[2] = r3 >> 8;
text[3] = r3 & 0xff;
text[4] = r0 >> 8;
text[5] = r0 & 0xff;
text[6] = r1 >> 8;
text[7] = r1 & 0xff;

text += 8;
    }
}
elsa{

/*** Decryption ***/

while( block-- > 0 ){

r0 = (ushort)text[0],<<8 ^ (ushort)key[1];
r1 = (ushort)text[2],<<8 ^ (ushort)key[3];
r2 = (ushort)text[4],<<8 ^ (ushort)key[5];
r3 = (ushort)text[6],<<8 ^ (ushort)key[7];

FI_enc( 4 );
FO_txt( r2, r3, r0, r1, 7 );
FO_txt( r0, r1, r2, r3, 6 );
FI_enc( 3 );
FO_txt( r2, r3, r0, r1, 5 );
FO_txt( r0, r1, r2, r3, 4 );
FI_enc( 2 );
FO_txt( r2, r3, r0, r1, 3 );
FO_txt( r0, r1, r2, r3, 2 );
FI_enc( 1 );
FO_txt( r2, r3, r0, r1, 1 );
FO_txt( r0, r1, r2, r3, 0 );
FI_enc( 0 );

text[0] = r2 >> 8;
text[1] = r2 & 0xff;
text[2] = r3 >> 8;
text[3] = r3 & 0xff;
text[4] = r0 >> 8;
text[5] = r0 & 0xff;
text[6] = r1 >> 8;
text[7] = r1 & 0xff;


        }
    }
}



______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com