1  /*
       2   * Copyright (c) 2013, Alexey Degtyarev <alexey@renatasystems.org>.
       3   * All rights reserved.
       4   *
       5   * Portable and simple (thus sometimes slow) implementation of core functions.
       6   *
       7   * $Id$
       8   */
       9  
      10  #ifdef __GOST3411_HAS_SSE2__
      11  #error "portable implementation disabled in config.h"
      12  #endif
      13  
      14  #ifdef __GOST3411_HAS_MMX__
      15  #error "portable implementation disabled in config.h"
      16  #endif
      17  
      18  #define X(x, y, z) { \
      19      z->QWORD[0] = x->QWORD[0] ^ y->QWORD[0]; \
      20      z->QWORD[1] = x->QWORD[1] ^ y->QWORD[1]; \
      21      z->QWORD[2] = x->QWORD[2] ^ y->QWORD[2]; \
      22      z->QWORD[3] = x->QWORD[3] ^ y->QWORD[3]; \
      23      z->QWORD[4] = x->QWORD[4] ^ y->QWORD[4]; \
      24      z->QWORD[5] = x->QWORD[5] ^ y->QWORD[5]; \
      25      z->QWORD[6] = x->QWORD[6] ^ y->QWORD[6]; \
      26      z->QWORD[7] = x->QWORD[7] ^ y->QWORD[7]; \
      27  }
      28  
      29  #ifndef __GOST3411_BIG_ENDIAN__
      30  #define __XLPS_FOR for (_i = 0; _i <= 7; _i++)
      31  #define _datai _i
      32  #else
      33  #define __XLPS_FOR for (_i = 7; _i >= 0; _i--)
      34  #define _datai 7 - _i
      35  #endif
      36  
      37  #define XLPS(x, y, data) { \
      38      register unsigned long long r0, r1, r2, r3, r4, r5, r6, r7; \
      39      int _i; \
      40      \
      41      r0 = x->QWORD[0] ^ y->QWORD[0]; \
      42      r1 = x->QWORD[1] ^ y->QWORD[1]; \
      43      r2 = x->QWORD[2] ^ y->QWORD[2]; \
      44      r3 = x->QWORD[3] ^ y->QWORD[3]; \
      45      r4 = x->QWORD[4] ^ y->QWORD[4]; \
      46      r5 = x->QWORD[5] ^ y->QWORD[5]; \
      47      r6 = x->QWORD[6] ^ y->QWORD[6]; \
      48      r7 = x->QWORD[7] ^ y->QWORD[7]; \
      49      \
      50      \
      51      __XLPS_FOR \
      52      {\
      53          data->QWORD[_datai]  = Ax[0][(r0 >> (_i << 3)) & 0xFF]; \
      54          data->QWORD[_datai] ^= Ax[1][(r1 >> (_i << 3)) & 0xFF]; \
      55          data->QWORD[_datai] ^= Ax[2][(r2 >> (_i << 3)) & 0xFF]; \
      56          data->QWORD[_datai] ^= Ax[3][(r3 >> (_i << 3)) & 0xFF]; \
      57          data->QWORD[_datai] ^= Ax[4][(r4 >> (_i << 3)) & 0xFF]; \
      58          data->QWORD[_datai] ^= Ax[5][(r5 >> (_i << 3)) & 0xFF]; \
      59          data->QWORD[_datai] ^= Ax[6][(r6 >> (_i << 3)) & 0xFF]; \
      60          data->QWORD[_datai] ^= Ax[7][(r7 >> (_i << 3)) & 0xFF]; \
      61      }\
      62  }
      63  
      64  #define ROUND(i, Ki, data) { \
      65      XLPS(Ki, (&C[i]), Ki); \
      66      XLPS(Ki, data, data); \
      67  }