0x86E3725FL, 0x724D9DB9L, 0x1AC15BB4L, 0xD39EB8FCL,

        0xED545578L, 0x08FCA5B5L, 0xD83D7CD3L, 0x4DAD0FC4L,

        0x1E50EF5EL, 0xB161E6F8L, 0xA28514D9L, 0x6C51133CL,

        0x6FD5C7E7L, 0x56E14EC4L, 0x362ABFCEL, 0xDDC6C837L,

        0xD79A3234L, 0x92638212L, 0x670EFA8EL, 0x406000E0L  },

    {   0x3A39CE37L, 0xD3FAF5CFL, 0xABC27737L, 0x5AC52D1BL,

        0x5CB0679EL, 0x4FA33742L, 0xD3822740L, 0x99BC9BBEL,

        0xD5118E9DL, 0xBF0F7315L, 0xD62D1C7EL, 0xC700C47BL,

        0xB78C1B6BL, 0x21A19045L, 0xB26EB1BEL, 0x6A366EB4L,

        0x5748AB2FL, 0xBC946E79L, 0xC6A376D2L, 0x6549C2C8L,

        0x530FF8EEL, 0x468DDE7DL, 0xD5730A1DL, 0x4CD04DC6L,

        0x2939BBDBL, 0xA9BA4650L, 0xAC9526E8L, 0xBE5EE304L,

        0xA1FAD5F0L, 0x6A2D519AL, 0x63EF8CE2L, 0x9A86EE22L,

        0xC089C2B8L, 0x43242EF6L, 0xA51E03AAL, 0x9CF2D0A4L,

        0x83C061BAL, 0x9BE96A4DL, 0x8FE51550L, 0xBA645BD6L,

        0x2826A2F9L, 0xA73A3AE1L, 0x4BA99586L, 0xEF5562E9L,

        0xC72FEFD3L, 0xF752F7DAL, 0x3F046F69L, 0x77FA0A59L,

        0x80E4A915L, 0x87B08601L, 0x9B09E6ADL, 0x3B3EE593L,

        0xE990FD5AL, 0x9E34D797L, 0x2CF0B7D9L, 0x022B8B51L,

        0x96D5AC3AL, 0x017DA67DL, 0xD1CF3ED6L, 0x7C7D2D28L,

        0x1F9F25CFL, 0xADF2B89BL, 0x5AD6B472L, 0x5A88F54CL,

        0xE029AC71L, 0xE019A5E6L, 0x47B0ACFDL, 0xED93FA9BL,

        0xE8D3C48DL, 0x283B57CCL, 0xF8D56629L, 0x79132E28L,

        0x785F0191L, 0xED756055L, 0xF7960E44L, 0xE3D35E8CL,

        0x15056DD4L, 0x88F46DBAL, 0x03A16125L, 0x0564F0BDL,

        0xC3EB9E15L, 0x3C9057A2L, 0x97271AECL, 0xA93A072AL,

        0x1B3F6D9BL, 0x1E6321F5L, 0xF59C66FBL, 0x26DCF319L,

        0x7533D928L, 0xB155FDF5L, 0x03563482L, 0x8ABA3CBBL,

        0x28517711L, 0xC20AD9F8L, 0xABCC5167L, 0xCCAD925FL,

        0x4DE81751L, 0x3830DC8EL, 0x379D5862L, 0x9320F991L,

        0xEA7A90C2L, 0xFB3E7BCEL, 0x5121CE64L, 0x774FBE32L,

        0xA8B6E37EL, 0xC3293D46L, 0x48DE5369L, 0x6413E680L,

        0xA2AE0810L, 0xDD6DB224L, 0x69852DFDL, 0x09072166L,

        0xB39A460AL, 0x6445C0DDL, 0x586CDECFL, 0x1C20C8AEL,

        0x5BBEF7DDL, 0x1B588D40L, 0xCCD2017FL, 0x6BB4E3BBL,

        0xDDA26A7EL, 0x3A59FF45L, 0x3E350A44L, 0xBCB4CDD5L,

        0x72EACEA8L, 0xFA6484BBL, 0x8D6612AEL, 0xBF3C6F47L,

        0xD29BE463L, 0x542F5D9EL, 0xAEC2771BL, 0xF64E6370L,

        0x740E0D8DL, 0xE75B1357L, 0xF8721671L, 0xAF537D5DL,

        0x4040CB08L, 0x4EB4E2CCL, 0x34D2466AL, 0x0115AF84L,

        0xE1B00428L, 0x95983A1DL, 0x06B89FB4L, 0xCE6EA048L,

        0x6F3F3B82L, 0x3520AB82L, 0x011A1D4BL, 0x277227F8L,

        0x611560B1L, 0xE7933FDCL, 0xBB3A792BL, 0x344525BDL,

        0xA08839E1L, 0x51CE794BL, 0x2F32C9B7L, 0xA01FBAC9L,

        0xE01CC87EL, 0xBCC7D1F6L, 0xCF0111C3L, 0xA1E8AAC7L,

        0x1A908749L, 0xD44FBD9AL, 0xD0DADECBL, 0xD50ADA38L,

        0x0339C32AL, 0xC6913667L, 0x8DF9317CL, 0xE0B12B4FL,

        0xF79E59B7L, 0x43F5BB3AL, 0xF2D519FFL, 0x27D9459CL,

        0xBF97222CL, 0x15E6FC2AL, 0x0F91FC71L, 0x9B941525L,

        0xFAE59361L, 0xCEB69CEBL, 0xC2A86459L, 0x12BAA8D1L,

        0xB6C1075EL, 0xE3056A0CL, 0x10D25065L, 0xCB03A442L,

        0xE0EC6E0EL, 0x1698DB3BL, 0x4C98A0BEL, 0x3278E964L,

        0x9F1F9532L, 0xE0D392DFL, 0xD3A0342BL, 0x8971F21EL,

        0x1B0A7441L, 0x4BA3348CL, 0xC5BE7120L, 0xC37632D8L,

        0xDF359F8DL, 0x9B992F2EL, 0xE60B6F47L, 0x0FE3F11DL,

        0xE54CDA54L, 0x1EDAD891L, 0xCE6279CFL, 0xCD3E7E6FL,

        0x1618B166L, 0xFD2C1D05L, 0x848FD2C5L, 0xF6FB2299L,

        0xF523F357L, 0xA6327623L, 0x93A83531L, 0x56CCCD02L,

        0xACF08162L, 0x5A75EBB5L, 0x6E163697L, 0x88D273CCL,

        0xDE966292L, 0x81B949D0L, 0x4C50901BL, 0x71C65614L,

        0xE6C6C7BDL, 0x327A140AL, 0x45E1D006L, 0xC3F27B9AL,

        0xC9AA53FDL, 0x62A80F00L, 0xBB25BFE2L, 0x35BDD2F6L,

        0x71126905L, 0xB2040222L, 0xB6CBCF7CL, 0xCD769C2BL,

        0x53113EC0L, 0x1640E3D3L, 0x38ABBD60L, 0x2547ADF0L,

        0xBA38209CL, 0xF746CE76L, 0x77AFA1C5L, 0x20756060L,

        0x85CBFE4EL, 0x8AE88DD8L, 0x7AAAF9B0L, 0x4CF9AA7EL,

        0x1948C25CL, 0x02FB8A8CL, 0x01C36AE4L, 0xD6EBE1F9L,

        0x90D4F869L, 0xA65CDEA0L, 0x3F09252DL, 0xC208E69FL,

        0xB74E6132L, 0xCE77E25BL, 0x578FDFE3L, 0x3AC372E6L  }

};





unsigned long F(BLOWFISH_CTX *ctx, unsigned long x) {

   unsigned short a, b, c, d;

   unsigned long  y;



   d = x & 0x00FF;

   x >>= 8;

   c = x & 0x00FF;

   x >>= 8;

   b = x & 0x00FF;

   x >>= 8;

   a = x & 0x00FF;

   y = ctx->S[0][a] + ctx->S[1][b];

   y = y ^ ctx->S[2][c];

   y = y + ctx->S[3][d];



   return y;

}





void Blowfish_Encrypt(BLOWFISH_CTX *ctx, unsigned long *xl, unsigned long
*xr) {

  unsigned long  Xl;

  unsigned long  Xr;

  unsigned long  temp;

  short       i;



  Xl = *xl;

  Xr = *xr;



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

    Xl = Xl ^ ctx->P[i];

    Xr = F(ctx, Xl) ^ Xr;



    temp = Xl;

    Xl = Xr;

    Xr = temp;

  }



  temp = Xl;

  Xl = Xr;

  Xr = temp;



  Xr = Xr ^ ctx->P[N];

  Xl = Xl ^ ctx->P[N + 1];



  *xl = Xl;

  *xr = Xr;

}





void Blowfish_Decrypt(BLOWFISH_CTX *ctx, unsigned long *xl, unsigned long
*xr) {

  unsigned long  Xl;

  unsigned long  Xr;

  unsigned long  temp;

  short       i;



  Xl = *xl;

  Xr = *xr;



  for (i = N + 1; i > 1; --i) {

    Xl = Xl ^ ctx->P[i];

    Xr = F(ctx, Xl) ^ Xr;



    /* Exchange Xl and Xr */

    temp = Xl;

    Xl = Xr;

    Xr = temp;

  }



  /* Exchange Xl and Xr */

  temp = Xl;

  Xl = Xr;

  Xr = temp;



  Xr = Xr ^ ctx->P[1];

  Xl = Xl ^ ctx->P[0];



  *xl = Xl;

  *xr = Xr;

}





void Blowfish_Init(BLOWFISH_CTX *ctx, unsigned char *key, int keyLen) {

  int i, j, k;

  unsigned long data, datal, datar;



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

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

      ctx->S[i][j] = ORIG_S[i][j];

  }



  j = 0;

  for (i = 0; i < N + 2; ++i) {

    data = 0x00000000;

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

      data = (data << 8) | key[j];

      j = j + 1;

      if (j >= keyLen)

        j = 0;

    }

    ctx->P[i] = ORIG_P[i] ^ data;

  }



  datal = 0x00000000;

  datar = 0x00000000;



  for (i = 0; i < N + 2; i += 2) {

    Blowfish_Encrypt(ctx, &datal, &datar);

    ctx->P[i] = datal;

    ctx->P[i + 1] = datar;

  }



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

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

      Blowfish_Encrypt(ctx, &datal, &datar);

      ctx->S[i][j] = datal;

      ctx->S[i][j + 1] = datar;

    }

  }

}





int Blowfish_Test(BLOWFISH_CTX *ctx) {

  unsigned long L = 1, R = 2;



  Blowfish_Init (ctx, (unsigned char*)"TESTKEY", 7);

  Blowfish_Encrypt(ctx, &L, &R);

  if (L != 0xDF333FD2L || R != 0x30A71BB4L)

    return (-1);

  Blowfish_Decrypt(ctx, &L, &R);

  if (L != 1 || R != 2)

    return (-1);

  return (0);

}