/*

   +----------------------------------------------------------------------+

   | 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:           |

   | http://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.               |

   +----------------------------------------------------------------------+

   | Author: Stefan Esser <sesser@php.net>                                |

   +----------------------------------------------------------------------+

*/

#include "php.h"

/* This code is heavily based on the PHP md5 implementation */

#include "sha1.h"

#include "md5.h"

PHPAPI void make_sha1_digest(char *sha1str, const unsigned char *digest)

{

  make_digest_ex(sha1str, digest, 20);

}

/* {{{ proto string sha1(string str [, bool raw_output])

   Calculate the sha1 hash of a string */

PHP_FUNCTION(sha1)

{

  zend_string *arg;

  zend_bool raw_output = 0;

  PHP_SHA1_CTX context;

  unsigned char digest[20];

  ZEND_PARSE_PARAMETERS_START(1, 2)

    Z_PARAM_STR(arg)

    Z_PARAM_OPTIONAL

    Z_PARAM_BOOL(raw_output)

  ZEND_PARSE_PARAMETERS_END();

  PHP_SHA1Init(&context);

  PHP_SHA1Update(&context, (unsigned char *) ZSTR_VAL(arg), ZSTR_LEN(arg));

  PHP_SHA1Final(digest, &context);

  if (raw_output) {

    RETURN_STRINGL((char *) digest, 20);

  } else {

    RETVAL_NEW_STR(zend_string_alloc(40, 0));

    make_digest_ex(Z_STRVAL_P(return_value), digest, 20);

  }

}

/* }}} */

/* {{{ proto string sha1_file(string filename [, bool raw_output])

   Calculate the sha1 hash of given filename */

PHP_FUNCTION(sha1_file)

{

  char          *arg;

  size_t           arg_len;

  zend_bool raw_output = 0;

  unsigned char buf[1024];

  unsigned char digest[20];

  PHP_SHA1_CTX   context;

  ssize_t        n;

  php_stream    *stream;

  ZEND_PARSE_PARAMETERS_START(1, 2)

    Z_PARAM_PATH(arg, arg_len)

    Z_PARAM_OPTIONAL

    Z_PARAM_BOOL(raw_output)

  ZEND_PARSE_PARAMETERS_END();

  stream = php_stream_open_wrapper(arg, "rb", REPORT_ERRORS, NULL);

  if (!stream) {

    RETURN_FALSE;

  }

  PHP_SHA1Init(&context);

  while ((n = php_stream_read(stream, (char *) buf, sizeof(buf))) > 0) {

    PHP_SHA1Update(&context, buf, n);

  }

  PHP_SHA1Final(digest, &context);

  php_stream_close(stream);

  if (raw_output) {

    RETURN_STRINGL((char *) digest, 20);

  } else {

    RETVAL_NEW_STR(zend_string_alloc(40, 0));

    make_digest_ex(Z_STRVAL_P(return_value), digest, 20);

  }

}

/* }}} */

static void SHA1Transform(uint32_t[5], const unsigned char[64]);

static void SHA1Encode(unsigned char *, uint32_t *, unsigned int);

static void SHA1Decode(uint32_t *, const unsigned char *, unsigned int);

static const unsigned char PADDING[64] =

{

  0x80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

};

/* F, G, H and I are basic SHA1 functions.

 */

#define F(x, y, z) ((z) ^ ((x) & ((y) ^ (z))))

#define G(x, y, z) ((x) ^ (y) ^ (z))

#define H(x, y, z) (((x) & (y)) | ((z) & ((x) | (y))))

#define I(x, y, z) ((x) ^ (y) ^ (z))

/* ROTATE_LEFT rotates x left n bits.

 */

#define ROTATE_LEFT(x, n) (((x) << (n)) | ((x) >> (32-(n))))

/* W[i]

 */

#define W(i) ( tmp=x[(i-3)&15]^x[(i-8)&15]^x[(i-14)&15]^x[i&15], \

  (x[i&15]=ROTATE_LEFT(tmp, 1)) )

/* FF, GG, HH, and II transformations for rounds 1, 2, 3, and 4.

 */

#define FF(a, b, c, d, e, w) { \

 (e) += F ((b), (c), (d)) + (w) + (uint32_t)(0x5A827999); \

 (e) += ROTATE_LEFT ((a), 5); \

 (b) = ROTATE_LEFT((b), 30); \

  }

#define GG(a, b, c, d, e, w) { \

 (e) += G ((b), (c), (d)) + (w) + (uint32_t)(0x6ED9EBA1); \

 (e) += ROTATE_LEFT ((a), 5); \

 (b) = ROTATE_LEFT((b), 30); \

  }

#define HH(a, b, c, d, e, w) { \

 (e) += H ((b), (c), (d)) + (w) + (uint32_t)(0x8F1BBCDC); \

 (e) += ROTATE_LEFT ((a), 5); \

 (b) = ROTATE_LEFT((b), 30); \

  }

#define II(a, b, c, d, e, w) { \

 (e) += I ((b), (c), (d)) + (w) + (uint32_t)(0xCA62C1D6); \

 (e) += ROTATE_LEFT ((a), 5); \

 (b) = ROTATE_LEFT((b), 30); \

  }

/* {{{ PHP_SHA1Init

 * SHA1 initialization. Begins an SHA1 operation, writing a new context.

 */

PHPAPI void PHP_SHA1Init(PHP_SHA1_CTX * context)

{

  context->count[0] = context->count[1] = 0;

  /* Load magic initialization constants.

   */

  context->state[0] = 0x67452301;

  context->state[1] = 0xefcdab89;

  context->state[2] = 0x98badcfe;

  context->state[3] = 0x10325476;

  context->state[4] = 0xc3d2e1f0;

}

/* }}} */

/* {{{ PHP_SHA1Update

   SHA1 block update operation. Continues an SHA1 message-digest

   operation, processing another message block, and updating the

   context.

 */

PHPAPI void PHP_SHA1Update(PHP_SHA1_CTX * context, const unsigned char *input,

         size_t inputLen)

{

  unsigned int i, index, partLen;

  /* Compute number of bytes mod 64 */

  index = (unsigned int) ((context->count[0] >> 3) & 0x3F);

  /* Update number of bits */

  if ((context->count[0] += ((uint32_t) inputLen << 3))

    < ((uint32_t) inputLen << 3))

    context->count[1]++;

  context->count[1] += ((uint32_t) inputLen >> 29);

  partLen = 64 - index;

  /* Transform as many times as possible.

   */

  if (inputLen >= partLen) {

    memcpy

      ((unsigned char*) & context->buffer[index], (unsigned char*) input, partLen);

    SHA1Transform(context->state, context->buffer);

    for (i = partLen; i + 63 < inputLen; i += 64)

      SHA1Transform(context->state, &input[i]);

    index = 0;

  } else

    i = 0;

  /* Buffer remaining input */

  memcpy

    ((unsigned char*) & context->buffer[index], (unsigned char*) & input[i],

     inputLen - i);

}

/* }}} */

/* {{{ PHP_SHA1Final

   SHA1 finalization. Ends an SHA1 message-digest operation, writing the

   the message digest and zeroizing the context.

 */

PHPAPI void PHP_SHA1Final(unsigned char digest[20], PHP_SHA1_CTX * context)

{

  unsigned char bits[8];

  unsigned int index, padLen;

  /* Save number of bits */

  bits[7] = context->count[0] & 0xFF;

  bits[6] = (context->count[0] >> 8) & 0xFF;

  bits[5] = (context->count[0] >> 16) & 0xFF;

  bits[4] = (context->count[0] >> 24) & 0xFF;

  bits[3] = context->count[1] & 0xFF;

  bits[2] = (context->count[1] >> 8) & 0xFF;

  bits[1] = (context->count[1] >> 16) & 0xFF;

  bits[0] = (context->count[1] >> 24) & 0xFF;

  /* Pad out to 56 mod 64.

   */

  index = (unsigned int) ((context->count[0] >> 3) & 0x3f);

  padLen = (index < 56) ? (56 - index) : (120 - index);

  PHP_SHA1Update(context, PADDING, padLen);

  /* Append length (before padding) */

  PHP_SHA1Update(context, bits, 8);

  /* Store state in digest */

  SHA1Encode(digest, context->state, 20);

  /* Zeroize sensitive information.

   */

  ZEND_SECURE_ZERO((unsigned char*) context, sizeof(*context));

}

/* }}} */

/* {{{ SHA1Transform

 * SHA1 basic transformation. Transforms state based on block.

 */

static void SHA1Transform(state, block)

uint32_t state[5];

const unsigned char block[64];

{

  uint32_t a = state[0], b = state[1], c = state[2];

  uint32_t d = state[3], e = state[4], x[16], tmp;

  SHA1Decode(x, block, 64);

  /* Round 1 */

  FF(a, b, c, d, e, x[0]);   /* 1 */

  FF(e, a, b, c, d, x[1]);   /* 2 */

  FF(d, e, a, b, c, x[2]);   /* 3 */

  FF(c, d, e, a, b, x[3]);   /* 4 */

  FF(b, c, d, e, a, x[4]);   /* 5 */

  FF(a, b, c, d, e, x[5]);   /* 6 */

  FF(e, a, b, c, d, x[6]);   /* 7 */

  FF(d, e, a, b, c, x[7]);   /* 8 */

  FF(c, d, e, a, b, x[8]);   /* 9 */

  FF(b, c, d, e, a, x[9]);   /* 10 */

  FF(a, b, c, d, e, x[10]);  /* 11 */

  FF(e, a, b, c, d, x[11]);  /* 12 */

  FF(d, e, a, b, c, x[12]);  /* 13 */

  FF(c, d, e, a, b, x[13]);  /* 14 */

  FF(b, c, d, e, a, x[14]);  /* 15 */

  FF(a, b, c, d, e, x[15]);  /* 16 */

  FF(e, a, b, c, d, W(16));  /* 17 */

  FF(d, e, a, b, c, W(17));  /* 18 */

  FF(c, d, e, a, b, W(18));  /* 19 */

  FF(b, c, d, e, a, W(19));  /* 20 */

  /* Round 2 */

  GG(a, b, c, d, e, W(20));  /* 21 */

  GG(e, a, b, c, d, W(21));  /* 22 */

  GG(d, e, a, b, c, W(22));  /* 23 */

  GG(c, d, e, a, b, W(23));  /* 24 */

  GG(b, c, d, e, a, W(24));  /* 25 */

  GG(a, b, c, d, e, W(25));  /* 26 */

  GG(e, a, b, c, d, W(26));  /* 27 */

  GG(d, e, a, b, c, W(27));  /* 28 */

  GG(c, d, e, a, b, W(28));  /* 29 */

  GG(b, c, d, e, a, W(29));  /* 30 */

  GG(a, b, c, d, e, W(30));  /* 31 */

  GG(e, a, b, c, d, W(31));  /* 32 */

  GG(d, e, a, b, c, W(32));  /* 33 */

  GG(c, d, e, a, b, W(33));  /* 34 */

  GG(b, c, d, e, a, W(34));  /* 35 */

  GG(a, b, c, d, e, W(35));  /* 36 */

  GG(e, a, b, c, d, W(36));  /* 37 */

  GG(d, e, a, b, c, W(37));  /* 38 */

  GG(c, d, e, a, b, W(38));  /* 39 */

  GG(b, c, d, e, a, W(39));  /* 40 */

  /* Round 3 */

  HH(a, b, c, d, e, W(40));  /* 41 */

  HH(e, a, b, c, d, W(41));  /* 42 */

  HH(d, e, a, b, c, W(42));  /* 43 */

  HH(c, d, e, a, b, W(43));  /* 44 */

  HH(b, c, d, e, a, W(44));  /* 45 */

  HH(a, b, c, d, e, W(45));  /* 46 */

  HH(e, a, b, c, d, W(46));  /* 47 */

  HH(d, e, a, b, c, W(47));  /* 48 */

  HH(c, d, e, a, b, W(48));  /* 49 */

  HH(b, c, d, e, a, W(49));  /* 50 */

  HH(a, b, c, d, e, W(50));  /* 51 */

  HH(e, a, b, c, d, W(51));  /* 52 */

  HH(d, e, a, b, c, W(52));  /* 53 */

  HH(c, d, e, a, b, W(53));  /* 54 */

  HH(b, c, d, e, a, W(54));  /* 55 */

  HH(a, b, c, d, e, W(55));  /* 56 */

  HH(e, a, b, c, d, W(56));  /* 57 */

  HH(d, e, a, b, c, W(57));  /* 58 */

  HH(c, d, e, a, b, W(58));  /* 59 */

  HH(b, c, d, e, a, W(59));  /* 60 */

  /* Round 4 */

  II(a, b, c, d, e, W(60));  /* 61 */

  II(e, a, b, c, d, W(61));  /* 62 */

  II(d, e, a, b, c, W(62));  /* 63 */

  II(c, d, e, a, b, W(63));  /* 64 */

  II(b, c, d, e, a, W(64));  /* 65 */

  II(a, b, c, d, e, W(65));  /* 66 */

  II(e, a, b, c, d, W(66));  /* 67 */

  II(d, e, a, b, c, W(67));  /* 68 */

  II(c, d, e, a, b, W(68));  /* 69 */

  II(b, c, d, e, a, W(69));  /* 70 */

  II(a, b, c, d, e, W(70));  /* 71 */

  II(e, a, b, c, d, W(71));  /* 72 */

  II(d, e, a, b, c, W(72));  /* 73 */

  II(c, d, e, a, b, W(73));  /* 74 */

  II(b, c, d, e, a, W(74));  /* 75 */

  II(a, b, c, d, e, W(75));  /* 76 */

  II(e, a, b, c, d, W(76));  /* 77 */

  II(d, e, a, b, c, W(77));  /* 78 */

  II(c, d, e, a, b, W(78));  /* 79 */

  II(b, c, d, e, a, W(79));  /* 80 */

  state[0] += a;

  state[1] += b;

  state[2] += c;

  state[3] += d;

  state[4] += e;

  /* Zeroize sensitive information. */

  ZEND_SECURE_ZERO((unsigned char*) x, sizeof(x));

}

/* }}} */

/* {{{ SHA1Encode

   Encodes input (uint32_t) into output (unsigned char). Assumes len is

   a multiple of 4.

 */

static void SHA1Encode(output, input, len)

unsigned char *output;

uint32_t *input;

unsigned int len;

{

  unsigned int i, j;

  for (i = 0, j = 0; j < len; i++, j += 4) {

    output[j] = (unsigned char) ((input[i] >> 24) & 0xff);

    output[j + 1] = (unsigned char) ((input[i] >> 16) & 0xff);

    output[j + 2] = (unsigned char) ((input[i] >> 8) & 0xff);

    output[j + 3] = (unsigned char) (input[i] & 0xff);

  }

}

/* }}} */

/* {{{ SHA1Decode

   Decodes input (unsigned char) into output (uint32_t). Assumes len is

   a multiple of 4.

 */

static void SHA1Decode(output, input, len)

uint32_t *output;

const unsigned char *input;

unsigned int len;

{

  unsigned int i, j;

  for (i = 0, j = 0; j < len; i++, j += 4)

    output[i] = ((uint32_t) input[j + 3]) | (((uint32_t) input[j + 2]) << 8) |

      (((uint32_t) input[j + 1]) << 16) | (((uint32_t) input[j]) << 24);

}

/* }}} */