src/xbt/xbt_sha.c

   1 /* xbt_sha.c - SHA1 hash function */
   2
   3 /* Copyright (c) 2008-2014. The SimGrid Team.
   4  * All rights reserved.                                                     */
   5
   6 /* This program is free software; you can redistribute it and/or modify it
   7  * under the terms of the license (GNU LGPL) which comes with this package. */
   8
   9 /* Initial version part of iksemel (XML parser for Jabber)
  10  *   Copyright (C) 2000-2003 Gurer Ozen <madcat@e-kolay.net>. All right reserved.
  11  *   Distributed under LGPL v2.1, February 1999.
  12  */
  13
  14 /* Later adapted to fit into SimGrid. Distributed under LGPL v2.1, Feb 1999.*/
  15
  16 #include "xbt/sysdep.h"
  17 #include "xbt/hash.h"
  18
  19 struct s_xbt_sha_ {
  20   unsigned int hash[5];
  21   unsigned int buf[80];
  22   int blen;
  23   unsigned int lenhi, lenlo;
  24 };
  25 static void sha_calculate(xbt_sha_t sha);
  26
  27 /* ************** */
  28 /* User Interface */
  29 /* ************** */
  30
  31 /** @brief constructor */
  32 xbt_sha_t xbt_sha_new(void)
  33 {
  34   xbt_sha_t sha;
  35
  36   sha = xbt_new(s_xbt_sha_t, 1);
  37   xbt_sha_reset(sha);
  38
  39   return sha;
  40 }
  41
  42 /** @brief destructor */
  43 void xbt_sha_free(xbt_sha_t sha)
  44 {
  45   free(sha);
  46 }
  47
  48 void xbt_sha_reset(xbt_sha_t sha)
  49 {
  50   memset(sha, 0, sizeof(s_xbt_sha_t));
  51   sha->hash[0] = 0x67452301;
  52   sha->hash[1] = 0xefcdab89;
  53   sha->hash[2] = 0x98badcfe;
  54   sha->hash[3] = 0x10325476;
  55   sha->hash[4] = 0xc3d2e1f0;
  56 }
  57
  58 /* @brief Add some more data to the buffer */
  59 void xbt_sha_feed(xbt_sha_t sha, const unsigned char *data, size_t len)
  60 {
  61   int i;
  62
  63   for (i = 0; i < len; i++) {
  64     sha->buf[sha->blen / 4] <<= 8;
  65     sha->buf[sha->blen / 4] |= (unsigned int) data[i];
  66     if ((++sha->blen) % 64 == 0) {
  67       sha_calculate(sha);
  68       sha->blen = 0;
  69     }
  70     sha->lenlo += 8;
  71     sha->lenhi += (sha->lenlo < 8);
  72   }
  73 }
  74
  75 /* finalize computation before displaying the result */
  76 static void xbt_sha_finalize(xbt_sha_t sha)
  77 {
  78   unsigned char pad[8];
  79   unsigned char padc;
  80
  81   pad[0] = (unsigned char) ((sha->lenhi >> 24) & 0xff);
  82   pad[1] = (unsigned char) ((sha->lenhi >> 16) & 0xff);
  83   pad[2] = (unsigned char) ((sha->lenhi >> 8) & 0xff);
  84   pad[3] = (unsigned char) (sha->lenhi & 0xff);
  85   pad[4] = (unsigned char) ((sha->lenlo >> 24) & 0xff);
  86   pad[5] = (unsigned char) ((sha->lenlo >> 16) & 0xff);
  87   pad[6] = (unsigned char) ((sha->lenlo >> 8) & 0xff);
  88   pad[7] = (unsigned char) (sha->lenlo & 255);
  89
  90   padc = 0x80;
  91   xbt_sha_feed(sha, &padc, 1);
  92
  93   padc = 0x00;
  94   while (sha->blen != 56)
  95     xbt_sha_feed(sha, &padc, 1);
  96
  97   xbt_sha_feed(sha, pad, 8);
  98 }
  99
 100 /** @brief returns the sha hash into a newly allocated buffer (+ reset sha object) */
 101 char *xbt_sha_read(xbt_sha_t sha)
 102 {
 103   char *res = xbt_malloc(41);
 104   xbt_sha_print(sha, res);
 105   return res;
 106 }
 107
 108 /** @brief copy the content sha hash into the @a hash pre-allocated string (and reset buffer) */
 109 void xbt_sha_print(xbt_sha_t sha, char *hash)
 110 {
 111   int i;
 112
 113   xbt_sha_finalize(sha);
 114   for (i = 0; i < 5; i++) {
 115     sprintf(hash, "%08x", sha->hash[i]);
 116     hash += 8;
 117   }
 118 }
 119
 120
 121 /** @brief simply compute a SHA1 hash and copy it to the provided buffer */
 122 void xbt_sha(const char *data, char *hash)
 123 {
 124   s_xbt_sha_t sha;
 125
 126   xbt_sha_reset(&sha);
 127   xbt_sha_feed(&sha, (const unsigned char *) data, strlen(data));
 128
 129   xbt_sha_print(&sha, hash);
 130 }
 131
 132 /* ********************* */
 133 /* Core of the algorithm */
 134 /* ********************* */
 135
 136 #define SRL(x,y) (((x) << (y)) | ((x) >> (32-(y))))
 137 #define SHA(a,b,f,c) \
 138   for (i= (a) ; i<= (b) ; i++) { \
 139     TMP = SRL(A,5) + ( (f) ) + E + sha->buf[i] + (c) ; \
 140     E = D; \
 141     D = C; \
 142     C = SRL(B,30); \
 143     B = A; \
 144     A = TMP; \
 145   }
 146
 147 static void sha_calculate(xbt_sha_t sha)
 148 {
 149   int i;
 150   unsigned int A, B, C, D, E, TMP;
 151
 152   for (i = 16; i < 80; i++)
 153     sha->buf[i] =
 154         SRL(sha->buf[i - 3] ^ sha->buf[i - 8] ^ sha->
 155             buf[i - 14] ^ sha->buf[i - 16], 1);
 156
 157   A = sha->hash[0];
 158   B = sha->hash[1];
 159   C = sha->hash[2];
 160   D = sha->hash[3];
 161   E = sha->hash[4];
 162
 163   SHA(0, 19, ((C ^ D) & B) ^ D, 0x5a827999);
 164   SHA(20, 39, B ^ C ^ D, 0x6ed9eba1);
 165   SHA(40, 59, (B & C) | (D & (B | C)), 0x8f1bbcdc);
 166   SHA(60, 79, B ^ C ^ D, 0xca62c1d6);
 167
 168   sha->hash[0] += A;
 169   sha->hash[1] += B;
 170   sha->hash[2] += C;
 171   sha->hash[3] += D;
 172   sha->hash[4] += E;
 173 }
 174
 175 /* ************* */
 176 /* Testing stuff */
 177 /* ************* */
 178 #ifdef SIMGRID_TEST
 179 #include "xbt/hash.h"
 180 #include "portable.h"           /* hexa_str */
 181
 182 static char *mycmp(const char *p1, const char *p2, size_t n)
 183 {
 184   int i;
 185
 186   for (i = 0; i < n; i++) {
 187     if (p1[i] != p2[i]) {
 188       return bprintf("Differs on %d -- Ox%x", i, p1[i]);
 189     }
 190   }
 191   return xbt_strdup("");
 192 }
 193
 194 static void test_sha(const char *clear, const char *hashed)
 195 {
 196   char hash[41];
 197   xbt_sha(clear, hash);
 198
 199   xbt_test_add("==== Test with '%s'", clear);
 200   xbt_test_assert(!memcmp(hash, hashed, 40), "Wrong sha: %40s!=%40s (%s)",
 201                    hash, hashed, mycmp(hash, hashed, 40));
 202 }
 203
 204 XBT_TEST_SUITE("hash", "Various hash functions");
 205
 206 XBT_TEST_UNIT("sha", test_crypto_sha, "Test of the sha algorithm")
 207 {
 208   /* Empty string as test vector */
 209   test_sha("", "da39a3ee5e6b4b0d3255bfef95601890afd80709");
 210
 211   /* Some pangram as test vector */
 212   test_sha("The quick brown fox jumps over the lazy dog",
 213            "2fd4e1c67a2d28fced849ee1bb76e7391b93eb12");
 214   test_sha("Woven silk pyjamas exchanged for blue quartz",
 215            "da3aff337c810c6470db4dbf0f205c8afc31c442");
 216   test_sha("Pack my box with five dozen liquor jugs",
 217            "373ba8be29d4d95708bf7cd43038f4e409dcb439");
 218
 219 }
 220 #endif                          /* SIMGRID_TEST */