hash_tiger.c

Go to the documentation of this file.

/*
  +----------------------------------------------------------------------+
  | Copyright (c) The PHP Group                                          |
  +----------------------------------------------------------------------+
  | This source file is subject to version 3.01 of the PHP license,      |
  | that is bundled with this package in the file LICENSE, and is        |
  | available through the world-wide-web at the following url:           |
  | https://www.php.net/license/3_01.txt                                 |
  | If you did not receive a copy of the PHP license and are unable to   |
  | obtain it through the world-wide-web, please send a note to          |
  | license@php.net so we can mail you a copy immediately.               |
  +----------------------------------------------------------------------+
  | Authors: Michael Wallner <mike@php.net>                              |
  |          Sara Golemon <pollita@php.net>                              |
  +----------------------------------------------------------------------+
*/
 
#include "php_hash.h"
#include "php_hash_tiger.h"
#include "php_hash_tiger_tables.h"
 
#if (defined(__APPLE__) || defined(__APPLE_CC__)) && (defined(__BIG_ENDIAN__) || defined(__LITTLE_ENDIAN__))
# if defined(__LITTLE_ENDIAN__)
#  undef WORDS_BIGENDIAN
# else
#  if defined(__BIG_ENDIAN__)
#   define WORDS_BIGENDIAN
#  endif
# endif
#endif
 
/* {{{ */
#define save_abc \
    aa = a; \
    bb = b; \
    cc = c;
 
#define round(a,b,c,x,mul) \
    c ^= x; \
    a -= t1[(unsigned char)(c)] ^ \
        t2[(unsigned char)(((uint32_t)(c))>>(2*8))] ^ \
        t3[(unsigned char)((c)>>(4*8))] ^ \
        t4[(unsigned char)(((uint32_t)((c)>>(4*8)))>>(2*8))] ; \
    b += t4[(unsigned char)(((uint32_t)(c))>>(1*8))] ^ \
        t3[(unsigned char)(((uint32_t)(c))>>(3*8))] ^ \
        t2[(unsigned char)(((uint32_t)((c)>>(4*8)))>>(1*8))] ^ \
        t1[(unsigned char)(((uint32_t)((c)>>(4*8)))>>(3*8))]; \
    b *= mul;
 
#define pass(a,b,c,mul) \
    round(a,b,c,x0,mul) \
    round(b,c,a,x1,mul) \
    round(c,a,b,x2,mul) \
    round(a,b,c,x3,mul) \
    round(b,c,a,x4,mul) \
    round(c,a,b,x5,mul) \
    round(a,b,c,x6,mul) \
    round(b,c,a,x7,mul)
 
#define key_schedule \
    x0 -= x7 ^ L64(0xA5A5A5A5A5A5A5A5); \
    x1 ^= x0; \
    x2 += x1; \
    x3 -= x2 ^ ((~x1)<<19); \
    x4 ^= x3; \
    x5 += x4; \
    x6 -= x5 ^ ((~x4)>>23); \
    x7 ^= x6; \
    x0 += x7; \
    x1 -= x0 ^ ((~x7)<<19); \
    x2 ^= x1; \
    x3 += x2; \
    x4 -= x3 ^ ((~x2)>>23); \
    x5 ^= x4; \
    x6 += x5; \
    x7 -= x6 ^ L64(0x0123456789ABCDEF);
 
#define feedforward \
    a ^= aa; \
    b -= bb; \
    c += cc;
 
#define compress(passes) \
    save_abc \
    pass(a,b,c,5) \
    key_schedule \
    pass(c,a,b,7) \
    key_schedule \
    pass(b,c,a,9) \
    for(pass_no=0; pass_no<passes; pass_no++) { \
        key_schedule \
        pass(a,b,c,9) \
        tmpa=a; a=c; c=b; b=tmpa; \
    } \
    feedforward
 
#define split_ex(str) \
    x0=str[0]; x1=str[1]; x2=str[2]; x3=str[3]; \
    x4=str[4]; x5=str[5]; x6=str[6]; x7=str[7];
#ifdef WORDS_BIGENDIAN
#   define split(str) \
    { \
        int i; \
        uint64_t tmp[8]; \
         \
        for (i = 0; i < 64; ++i) { \
            ((unsigned char *) tmp)[i^7] = ((unsigned char *) str)[i]; \
        } \
        split_ex(tmp); \
    }
#else
#   define split split_ex
#endif
 
#define tiger_compress(passes, str, state) \
{ \
    register uint64_t a, b, c, tmpa, x0, x1, x2, x3, x4, x5, x6, x7; \
    uint64_t aa, bb, cc; \
    unsigned int pass_no; \
    \
    a = state[0]; \
    b = state[1]; \
    c = state[2]; \
    \
    split(str); \
    \
    compress(passes); \
    \
    state[0] = a; \
    state[1] = b; \
    state[2] = c; \
}
/* }}} */
 
static inline void TigerFinalize(PHP_TIGER_CTX *context)
{
    context->passed += (uint64_t) context->length << 3;
 
    context->buffer[context->length++] = 0x1;
    if (context->length % 8) {
        memset(&context->buffer[context->length], 0, 8-context->length%8);
        context->length += 8-context->length%8;
    }
 
    if (context->length > 56) {
        memset(&context->buffer[context->length], 0, 64 - context->length);
        tiger_compress(context->passes, ((uint64_t *) context->buffer), context->state);
        memset(context->buffer, 0, 56);
    } else {
        memset(&context->buffer[context->length], 0, 56 - context->length);
    }
 
#ifndef WORDS_BIGENDIAN
    memcpy(&context->buffer[56], &context->passed, sizeof(uint64_t));
#else
    context->buffer[56] = (unsigned char) (context->passed & 0xff);
    context->buffer[57] = (unsigned char) ((context->passed >> 8) & 0xff);
    context->buffer[58] = (unsigned char) ((context->passed >> 16) & 0xff);
    context->buffer[59] = (unsigned char) ((context->passed >> 24) & 0xff);
    context->buffer[60] = (unsigned char) ((context->passed >> 32) & 0xff);
    context->buffer[61] = (unsigned char) ((context->passed >> 40) & 0xff);
    context->buffer[62] = (unsigned char) ((context->passed >> 48) & 0xff);
    context->buffer[63] = (unsigned char) ((context->passed >> 56) & 0xff);
#endif
    tiger_compress(context->passes, ((uint64_t *) context->buffer), context->state);
}
 
static inline void TigerDigest(unsigned char *digest_str, unsigned int digest_len, PHP_TIGER_CTX *context)
{
    unsigned int i;
 
    for (i = 0; i < digest_len; ++i) {
        digest_str[i] = (unsigned char) ((context->state[i/8] >> (8 * (i%8))) & 0xff);
    }
}
 
PHP_HASH_API void PHP_3TIGERInit(PHP_TIGER_CTX *context, ZEND_ATTRIBUTE_UNUSED HashTable *args)
{
    memset(context, 0, sizeof(*context));
    context->state[0] = L64(0x0123456789ABCDEF);
    context->state[1] = L64(0xFEDCBA9876543210);
    context->state[2] = L64(0xF096A5B4C3B2E187);
}
 
PHP_HASH_API void PHP_4TIGERInit(PHP_TIGER_CTX *context, ZEND_ATTRIBUTE_UNUSED HashTable *args)
{
    memset(context, 0, sizeof(*context));
    context->passes = 1;
    context->state[0] = L64(0x0123456789ABCDEF);
    context->state[1] = L64(0xFEDCBA9876543210);
    context->state[2] = L64(0xF096A5B4C3B2E187);
}
 
PHP_HASH_API void PHP_TIGERUpdate(PHP_TIGER_CTX *context, const unsigned char *input, size_t len)
{
    if (context->length + len < 64) {
        memcpy(&context->buffer[context->length], input, len);
        context->length += len;
    } else {
        size_t i = 0, r = (context->length + len) % 64;
 
        if (context->length) {
            i = 64 - context->length;
            memcpy(&context->buffer[context->length], input, i);
            tiger_compress(context->passes, ((const uint64_t *) context->buffer), context->state);
            ZEND_SECURE_ZERO(context->buffer, 64);
            context->passed += 512;
        }
 
        for (; i + 64 <= len; i += 64) {
            memcpy(context->buffer, &input[i], 64);
            tiger_compress(context->passes, ((const uint64_t *) context->buffer), context->state);
            context->passed += 512;
        }
        ZEND_SECURE_ZERO(&context->buffer[r], 64-r);
        memcpy(context->buffer, &input[i], r);
        context->length = r;
    }
}
 
PHP_HASH_API void PHP_TIGER128Final(unsigned char digest[16], PHP_TIGER_CTX *context)
{
    TigerFinalize(context);
    TigerDigest(digest, 16, context);
    ZEND_SECURE_ZERO(context, sizeof(*context));
}
 
PHP_HASH_API void PHP_TIGER160Final(unsigned char digest[20], PHP_TIGER_CTX *context)
{
    TigerFinalize(context);
    TigerDigest(digest, 20, context);
    ZEND_SECURE_ZERO(context, sizeof(*context));
}
 
PHP_HASH_API void PHP_TIGER192Final(unsigned char digest[24], PHP_TIGER_CTX *context)
{
    TigerFinalize(context);
    TigerDigest(digest, 24, context);
    ZEND_SECURE_ZERO(context, sizeof(*context));
}
 
static int php_tiger_unserialize(php_hashcontext_object *hash, zend_long magic, const zval *zv)
{
    PHP_TIGER_CTX *ctx = (PHP_TIGER_CTX *) hash->context;
    int r = FAILURE;
    if (magic == PHP_HASH_SERIALIZE_MAGIC_SPEC
        && (r = php_hash_unserialize_spec(hash, zv, PHP_TIGER_SPEC)) == SUCCESS
        && ctx->length < sizeof(ctx->buffer)) {
        return SUCCESS;
    } else {
        return r != SUCCESS ? r : -2000;
    }
}
 
#define PHP_HASH_TIGER_OPS(p, b) \
    const php_hash_ops php_hash_##p##tiger##b##_ops = { \
        "tiger" #b "," #p, \
        (php_hash_init_func_t) PHP_##p##TIGERInit, \
        (php_hash_update_func_t) PHP_TIGERUpdate, \
        (php_hash_final_func_t) PHP_TIGER##b##Final, \
        php_hash_copy, \
        php_hash_serialize, \
        php_tiger_unserialize, \
        PHP_TIGER_SPEC, \
        b/8, \
        64, \
        sizeof(PHP_TIGER_CTX), \
        1 \
    }
 
PHP_HASH_TIGER_OPS(3, 128);
PHP_HASH_TIGER_OPS(3, 160);
PHP_HASH_TIGER_OPS(3, 192);
PHP_HASH_TIGER_OPS(4, 128);
PHP_HASH_TIGER_OPS(4, 160);
PHP_HASH_TIGER_OPS(4, 192);