00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022 #include "polarssl/config.h"
00023
00024 #if defined(POLARSSL_XTEA_C)
00025
00026 #include "polarssl/xtea.h"
00027
00028 #include <string.h>
00029
00030
00031
00032
00033 #ifndef GET_ULONG_BE
00034 #define GET_ULONG_BE(n,b,i) \
00035 { \
00036 (n) = ( (unsigned long) (b)[(i) ] << 24 ) \
00037 | ( (unsigned long) (b)[(i) + 1] << 16 ) \
00038 | ( (unsigned long) (b)[(i) + 2] << 8 ) \
00039 | ( (unsigned long) (b)[(i) + 3] ); \
00040 }
00041 #endif
00042
00043 #ifndef PUT_ULONG_BE
00044 #define PUT_ULONG_BE(n,b,i) \
00045 { \
00046 (b)[(i) ] = (unsigned char) ( (n) >> 24 ); \
00047 (b)[(i) + 1] = (unsigned char) ( (n) >> 16 ); \
00048 (b)[(i) + 2] = (unsigned char) ( (n) >> 8 ); \
00049 (b)[(i) + 3] = (unsigned char) ( (n) ); \
00050 }
00051 #endif
00052
00053
00054
00055
00056 void xtea_setup( xtea_context *ctx, unsigned char key[16] )
00057 {
00058 int i;
00059
00060 memset(ctx, 0, sizeof(xtea_context));
00061
00062 for( i = 0; i < 4; i++ )
00063 {
00064 GET_ULONG_BE( ctx->k[i], key, i << 2 );
00065 }
00066 }
00067
00068
00069
00070
00071 void xtea_crypt_ecb( xtea_context *ctx, int mode, unsigned char input[8],
00072 unsigned char output[8])
00073 {
00074 uint32_t *k, v0, v1, i;
00075
00076 k = ctx->k;
00077
00078 GET_ULONG_BE( v0, input, 0 );
00079 GET_ULONG_BE( v1, input, 4 );
00080
00081 if( mode == XTEA_ENCRYPT )
00082 {
00083 uint32_t sum = 0, delta = 0x9E3779B9;
00084
00085 for( i = 0; i < 32; i++ )
00086 {
00087 v0 += (((v1 << 4) ^ (v1 >> 5)) + v1) ^ (sum + k[sum & 3]);
00088 sum += delta;
00089 v1 += (((v0 << 4) ^ (v0 >> 5)) + v0) ^ (sum + k[(sum>>11) & 3]);
00090 }
00091 }
00092 else
00093 {
00094 uint32_t delta = 0x9E3779B9, sum = delta * 32;
00095
00096 for( i = 0; i < 32; i++ )
00097 {
00098 v1 -= (((v0 << 4) ^ (v0 >> 5)) + v0) ^ (sum + k[(sum>>11) & 3]);
00099 sum -= delta;
00100 v0 -= (((v1 << 4) ^ (v1 >> 5)) + v1) ^ (sum + k[sum & 3]);
00101 }
00102 }
00103
00104 PUT_ULONG_BE( v0, output, 0 );
00105 PUT_ULONG_BE( v1, output, 4 );
00106 }
00107
00108 #if defined(POLARSSL_SELF_TEST)
00109
00110 #include <string.h>
00111 #include <stdio.h>
00112
00113
00114
00115
00116
00117 static const unsigned char xtea_test_key[6][16] =
00118 {
00119 { 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0a, 0x0b,
00120 0x0c, 0x0d, 0x0e, 0x0f },
00121 { 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0a, 0x0b,
00122 0x0c, 0x0d, 0x0e, 0x0f },
00123 { 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0a, 0x0b,
00124 0x0c, 0x0d, 0x0e, 0x0f },
00125 { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
00126 0x00, 0x00, 0x00, 0x00 },
00127 { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
00128 0x00, 0x00, 0x00, 0x00 },
00129 { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
00130 0x00, 0x00, 0x00, 0x00 }
00131 };
00132
00133 static const unsigned char xtea_test_pt[6][8] =
00134 {
00135 { 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48 },
00136 { 0x41, 0x41, 0x41, 0x41, 0x41, 0x41, 0x41, 0x41 },
00137 { 0x5a, 0x5b, 0x6e, 0x27, 0x89, 0x48, 0xd7, 0x7f },
00138 { 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48 },
00139 { 0x41, 0x41, 0x41, 0x41, 0x41, 0x41, 0x41, 0x41 },
00140 { 0x70, 0xe1, 0x22, 0x5d, 0x6e, 0x4e, 0x76, 0x55 }
00141 };
00142
00143 static const unsigned char xtea_test_ct[6][8] =
00144 {
00145 { 0x49, 0x7d, 0xf3, 0xd0, 0x72, 0x61, 0x2c, 0xb5 },
00146 { 0xe7, 0x8f, 0x2d, 0x13, 0x74, 0x43, 0x41, 0xd8 },
00147 { 0x41, 0x41, 0x41, 0x41, 0x41, 0x41, 0x41, 0x41 },
00148 { 0xa0, 0x39, 0x05, 0x89, 0xf8, 0xb8, 0xef, 0xa5 },
00149 { 0xed, 0x23, 0x37, 0x5a, 0x82, 0x1a, 0x8c, 0x2d },
00150 { 0x41, 0x41, 0x41, 0x41, 0x41, 0x41, 0x41, 0x41 }
00151 };
00152
00153
00154
00155
00156 int xtea_self_test( int verbose )
00157 {
00158 int i;
00159 unsigned char buf[8];
00160 xtea_context ctx;
00161
00162 for( i = 0; i < 6; i++ )
00163 {
00164 if( verbose != 0 )
00165 printf( " XTEA test #%d: ", i + 1 );
00166
00167 memcpy( buf, xtea_test_pt[i], 8 );
00168
00169 xtea_setup( &ctx, (unsigned char *) xtea_test_key[i] );
00170 xtea_crypt_ecb( &ctx, XTEA_ENCRYPT, buf, buf );
00171
00172 if( memcmp( buf, xtea_test_ct[i], 8 ) != 0 )
00173 {
00174 if( verbose != 0 )
00175 printf( "failed\n" );
00176
00177 return( 1 );
00178 }
00179
00180 if( verbose != 0 )
00181 printf( "passed\n" );
00182 }
00183
00184 if( verbose != 0 )
00185 printf( "\n" );
00186
00187 return( 0 );
00188 }
00189
00190 #endif
00191
00192 #endif