sys/src/libsec/port/sha1block.c

   1 #include "os.h"
   2
   3 void
   4 _sha1block(uchar *p, ulong len, u32int *s)
   5 {
   6         u32int a, b, c, d, e, x;
   7         uchar *end;
   8         u32int *wp, *wend;
   9         u32int w[80];
  10
  11         /* at this point, we have a multiple of 64 bytes */
  12         for(end = p+len; p < end;){
  13                 a = s[0];
  14                 b = s[1];
  15                 c = s[2];
  16                 d = s[3];
  17                 e = s[4];
  18
  19                 wend = w + 15;
  20                 for(wp = w; wp < wend; wp += 5){
  21                         wp[0] = (p[0]<<24) | (p[1]<<16) | (p[2]<<8) | p[3];
  22                         e += ((a<<5) | (a>>27)) + wp[0];
  23                         e += 0x5a827999 + (((c^d)&b)^d);
  24                         b = (b<<30)|(b>>2);
  25
  26                         wp[1] = (p[4]<<24) | (p[5]<<16) | (p[6]<<8) | p[7];
  27                         d += ((e<<5) | (e>>27)) + wp[1];
  28                         d += 0x5a827999 + (((b^c)&a)^c);
  29                         a = (a<<30)|(a>>2);
  30
  31                         wp[2] = (p[8]<<24) | (p[9]<<16) | (p[10]<<8) | p[11];
  32                         c += ((d<<5) | (d>>27)) + wp[2];
  33                         c += 0x5a827999 + (((a^b)&e)^b);
  34                         e = (e<<30)|(e>>2);
  35
  36                         wp[3] = (p[12]<<24) | (p[13]<<16) | (p[14]<<8) | p[15];
  37                         b += ((c<<5) | (c>>27)) + wp[3];
  38                         b += 0x5a827999 + (((e^a)&d)^a);
  39                         d = (d<<30)|(d>>2);
  40
  41                         wp[4] = (p[16]<<24) | (p[17]<<16) | (p[18]<<8) | p[19];
  42                         a += ((b<<5) | (b>>27)) + wp[4];
  43                         a += 0x5a827999 + (((d^e)&c)^e);
  44                         c = (c<<30)|(c>>2);
  45
  46                         p += 20;
  47                 }
  48
  49                 wp[0] = (p[0]<<24) | (p[1]<<16) | (p[2]<<8) | p[3];
  50                 e += ((a<<5) | (a>>27)) + wp[0];
  51                 e += 0x5a827999 + (((c^d)&b)^d);
  52                 b = (b<<30)|(b>>2);
  53
  54                 x = wp[-2] ^ wp[-7] ^ wp[-13] ^ wp[-15];
  55                 wp[1] = (x<<1) | (x>>31);
  56                 d += ((e<<5) | (e>>27)) + wp[1];
  57                 d += 0x5a827999 + (((b^c)&a)^c);
  58                 a = (a<<30)|(a>>2);
  59
  60                 x = wp[-1] ^ wp[-6] ^ wp[-12] ^ wp[-14];
  61                 wp[2] = (x<<1) | (x>>31);
  62                 c += ((d<<5) | (d>>27)) + wp[2];
  63                 c += 0x5a827999 + (((a^b)&e)^b);
  64                 e = (e<<30)|(e>>2);
  65
  66                 x = wp[0] ^ wp[-5] ^ wp[-11] ^ wp[-13];
  67                 wp[3] = (x<<1) | (x>>31);
  68                 b += ((c<<5) | (c>>27)) + wp[3];
  69                 b += 0x5a827999 + (((e^a)&d)^a);
  70                 d = (d<<30)|(d>>2);
  71
  72                 x = wp[1] ^ wp[-4] ^ wp[-10] ^ wp[-12];
  73                 wp[4] = (x<<1) | (x>>31);
  74                 a += ((b<<5) | (b>>27)) + wp[4];
  75                 a += 0x5a827999 + (((d^e)&c)^e);
  76                 c = (c<<30)|(c>>2);
  77
  78                 wp += 5;
  79                 p += 4;
  80
  81                 wend = w + 40;
  82                 for(; wp < wend; wp += 5){
  83                         x = wp[-3] ^ wp[-8] ^ wp[-14] ^ wp[-16];
  84                         wp[0] = (x<<1) | (x>>31);
  85                         e += ((a<<5) | (a>>27)) + wp[0];
  86                         e += 0x6ed9eba1 + (b^c^d);
  87                         b = (b<<30)|(b>>2);
  88
  89                         x = wp[-2] ^ wp[-7] ^ wp[-13] ^ wp[-15];
  90                         wp[1] = (x<<1) | (x>>31);
  91                         d += ((e<<5) | (e>>27)) + wp[1];
  92                         d += 0x6ed9eba1 + (a^b^c);
  93                         a = (a<<30)|(a>>2);
  94
  95                         x = wp[-1] ^ wp[-6] ^ wp[-12] ^ wp[-14];
  96                         wp[2] = (x<<1) | (x>>31);
  97                         c += ((d<<5) | (d>>27)) + wp[2];
  98                         c += 0x6ed9eba1 + (e^a^b);
  99                         e = (e<<30)|(e>>2);
 100
 101                         x = wp[0] ^ wp[-5] ^ wp[-11] ^ wp[-13];
 102                         wp[3] = (x<<1) | (x>>31);
 103                         b += ((c<<5) | (c>>27)) + wp[3];
 104                         b += 0x6ed9eba1 + (d^e^a);
 105                         d = (d<<30)|(d>>2);
 106
 107                         x = wp[1] ^ wp[-4] ^ wp[-10] ^ wp[-12];
 108                         wp[4] = (x<<1) | (x>>31);
 109                         a += ((b<<5) | (b>>27)) + wp[4];
 110                         a += 0x6ed9eba1 + (c^d^e);
 111                         c = (c<<30)|(c>>2);
 112                 }
 113
 114                 wend = w + 60;
 115                 for(; wp < wend; wp += 5){
 116                         x = wp[-3] ^ wp[-8] ^ wp[-14] ^ wp[-16];
 117                         wp[0] = (x<<1) | (x>>31);
 118                         e += ((a<<5) | (a>>27)) + wp[0];
 119                         e += 0x8f1bbcdc + ((b&c)|((b|c)&d));
 120                         b = (b<<30)|(b>>2);
 121
 122                         x = wp[-2] ^ wp[-7] ^ wp[-13] ^ wp[-15];
 123                         wp[1] = (x<<1) | (x>>31);
 124                         d += ((e<<5) | (e>>27)) + wp[1];
 125                         d += 0x8f1bbcdc + ((a&b)|((a|b)&c));
 126                         a = (a<<30)|(a>>2);
 127
 128                         x = wp[-1] ^ wp[-6] ^ wp[-12] ^ wp[-14];
 129                         wp[2] = (x<<1) | (x>>31);
 130                         c += ((d<<5) | (d>>27)) + wp[2];
 131                         c += 0x8f1bbcdc + ((e&a)|((e|a)&b));
 132                         e = (e<<30)|(e>>2);
 133
 134                         x = wp[0] ^ wp[-5] ^ wp[-11] ^ wp[-13];
 135                         wp[3] = (x<<1) | (x>>31);
 136                         b += ((c<<5) | (c>>27)) + wp[3];
 137                         b += 0x8f1bbcdc + ((d&e)|((d|e)&a));
 138                         d = (d<<30)|(d>>2);
 139
 140                         x = wp[1] ^ wp[-4] ^ wp[-10] ^ wp[-12];
 141                         wp[4] = (x<<1) | (x>>31);
 142                         a += ((b<<5) | (b>>27)) + wp[4];
 143                         a += 0x8f1bbcdc + ((c&d)|((c|d)&e));
 144                         c = (c<<30)|(c>>2);
 145                 }
 146
 147                 wend = w + 80;
 148                 for(; wp < wend; wp += 5){
 149                         x = wp[-3] ^ wp[-8] ^ wp[-14] ^ wp[-16];
 150                         wp[0] = (x<<1) | (x>>31);
 151                         e += ((a<<5) | (a>>27)) + wp[0];
 152                         e += 0xca62c1d6 + (b^c^d);
 153                         b = (b<<30)|(b>>2);
 154
 155                         x = wp[-2] ^ wp[-7] ^ wp[-13] ^ wp[-15];
 156                         wp[1] = (x<<1) | (x>>31);
 157                         d += ((e<<5) | (e>>27)) + wp[1];
 158                         d += 0xca62c1d6 + (a^b^c);
 159                         a = (a<<30)|(a>>2);
 160
 161                         x = wp[-1] ^ wp[-6] ^ wp[-12] ^ wp[-14];
 162                         wp[2] = (x<<1) | (x>>31);
 163                         c += ((d<<5) | (d>>27)) + wp[2];
 164                         c += 0xca62c1d6 + (e^a^b);
 165                         e = (e<<30)|(e>>2);
 166
 167                         x = wp[0] ^ wp[-5] ^ wp[-11] ^ wp[-13];
 168                         wp[3] = (x<<1) | (x>>31);
 169                         b += ((c<<5) | (c>>27)) + wp[3];
 170                         b += 0xca62c1d6 + (d^e^a);
 171                         d = (d<<30)|(d>>2);
 172
 173                         x = wp[1] ^ wp[-4] ^ wp[-10] ^ wp[-12];
 174                         wp[4] = (x<<1) | (x>>31);
 175                         a += ((b<<5) | (b>>27)) + wp[4];
 176                         a += 0xca62c1d6 + (c^d^e);
 177                         c = (c<<30)|(c>>2);
 178                 }
 179
 180                 /* save state */
 181                 s[0] += a;
 182                 s[1] += b;
 183                 s[2] += c;
 184                 s[3] += d;
 185                 s[4] += e;
 186         }
 187 }