Hex Artifact Content
Not logged in

Artifact 58f9d1dcef78dc72bbdbd13f37391d4dc31828bc:


0000: 2f 2a 20 73 68 61 31 2e 63 20 2d 20 61 6e 20 69  /* sha1.c - an i
0010: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66  mplementation of
0020: 20 53 65 63 75 72 65 20 48 61 73 68 20 41 6c 67   Secure Hash Alg
0030: 6f 72 69 74 68 6d 20 31 20 28 53 48 41 31 29 0a  orithm 1 (SHA1).
0040: 20 2a 20 62 61 73 65 64 20 6f 6e 20 52 46 43 20   * based on RFC 
0050: 33 31 37 34 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79  3174.. *. * Copy
0060: 72 69 67 68 74 3a 20 32 30 30 38 2d 32 30 31 32  right: 2008-2012
0070: 20 41 6c 65 6b 73 65 79 20 4b 72 61 76 63 68 65   Aleksey Kravche
0080: 6e 6b 6f 20 3c 72 68 61 73 68 2e 61 64 6d 69 6e  nko <rhash.admin
0090: 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 20 2a 0a 20  @gmail.com>. *. 
00a0: 2a 20 50 65 72 6d 69 73 73 69 6f 6e 20 69 73 20  * Permission is 
00b0: 68 65 72 65 62 79 20 67 72 61 6e 74 65 64 2c 20  hereby granted, 
00c0: 20 66 72 65 65 20 6f 66 20 63 68 61 72 67 65 2c   free of charge,
00d0: 20 20 74 6f 20 61 6e 79 20 70 65 72 73 6f 6e 20    to any person 
00e0: 20 6f 62 74 61 69 6e 69 6e 67 20 61 0a 20 2a 20   obtaining a. * 
00f0: 63 6f 70 79 20 6f 66 20 74 68 69 73 20 73 6f 66  copy of this sof
0100: 74 77 61 72 65 20 61 6e 64 20 61 73 73 6f 63 69  tware and associ
0110: 61 74 65 64 20 64 6f 63 75 6d 65 6e 74 61 74 69  ated documentati
0120: 6f 6e 20 66 69 6c 65 73 20 28 74 68 65 20 22 53  on files (the "S
0130: 6f 66 74 77 61 72 65 22 29 2c 0a 20 2a 20 74 6f  oftware"),. * to
0140: 20 64 65 61 6c 20 69 6e 20 74 68 65 20 53 6f 66   deal in the Sof
0150: 74 77 61 72 65 20 77 69 74 68 6f 75 74 20 72 65  tware without re
0160: 73 74 72 69 63 74 69 6f 6e 2c 20 20 69 6e 63 6c  striction,  incl
0170: 75 64 69 6e 67 20 77 69 74 68 6f 75 74 20 6c 69  uding without li
0180: 6d 69 74 61 74 69 6f 6e 0a 20 2a 20 74 68 65 20  mitation. * the 
0190: 72 69 67 68 74 73 20 74 6f 20 20 75 73 65 2c 20  rights to  use, 
01a0: 63 6f 70 79 2c 20 6d 6f 64 69 66 79 2c 20 20 6d  copy, modify,  m
01b0: 65 72 67 65 2c 20 70 75 62 6c 69 73 68 2c 20 64  erge, publish, d
01c0: 69 73 74 72 69 62 75 74 65 2c 20 73 75 62 6c 69  istribute, subli
01d0: 63 65 6e 73 65 2c 0a 20 2a 20 61 6e 64 2f 6f 72  cense,. * and/or
01e0: 20 73 65 6c 6c 20 63 6f 70 69 65 73 20 20 6f 66   sell copies  of
01f0: 20 20 74 68 65 20 53 6f 66 74 77 61 72 65 2c 20    the Software, 
0200: 20 61 6e 64 20 74 6f 20 70 65 72 6d 69 74 20 20   and to permit  
0210: 70 65 72 73 6f 6e 73 20 20 74 6f 20 77 68 6f 6d  persons  to whom
0220: 20 74 68 65 0a 20 2a 20 53 6f 66 74 77 61 72 65   the. * Software
0230: 20 69 73 20 66 75 72 6e 69 73 68 65 64 20 74 6f   is furnished to
0240: 20 64 6f 20 73 6f 2e 0a 20 2a 0a 20 2a 20 54 68   do so.. *. * Th
0250: 69 73 20 70 72 6f 67 72 61 6d 20 20 69 73 20 20  is program  is  
0260: 64 69 73 74 72 69 62 75 74 65 64 20 20 69 6e 20  distributed  in 
0270: 20 74 68 65 20 20 68 6f 70 65 20 20 74 68 61 74   the  hope  that
0280: 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66   it will be usef
0290: 75 6c 2c 20 20 62 75 74 0a 20 2a 20 57 49 54 48  ul,  but. * WITH
02a0: 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59  OUT ANY WARRANTY
02b0: 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74  ; without even t
02c0: 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61  he implied warra
02d0: 6e 74 79 20 6f 66 20 4d 45 52 43 48 41 4e 54 41  nty of MERCHANTA
02e0: 42 49 4c 49 54 59 0a 20 2a 20 6f 72 20 46 49 54  BILITY. * or FIT
02f0: 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49  NESS FOR A PARTI
0300: 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20  CULAR PURPOSE.  
0310: 55 73 65 20 74 68 69 73 20 70 72 6f 67 72 61 6d  Use this program
0320: 20 20 61 74 20 20 79 6f 75 72 20 6f 77 6e 20 72    at  your own r
0330: 69 73 6b 21 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75  isk!. */..#inclu
0340: 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69  de <string.h>.#i
0350: 6e 63 6c 75 64 65 20 22 62 79 74 65 5f 6f 72 64  nclude "byte_ord
0360: 65 72 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22  er.h".#include "
0370: 73 68 61 31 2e 68 22 0a 0a 2f 2a 2a 0a 20 2a 20  sha1.h"../**. * 
0380: 49 6e 69 74 69 61 6c 69 7a 65 20 63 6f 6e 74 65  Initialize conte
0390: 78 74 20 62 65 66 6f 72 65 20 63 61 6c 63 75 6c  xt before calcul
03a0: 61 69 6e 67 20 68 61 73 68 2e 0a 20 2a 0a 20 2a  aing hash.. *. *
03b0: 20 40 70 61 72 61 6d 20 63 74 78 20 63 6f 6e 74   @param ctx cont
03c0: 65 78 74 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a  ext to initializ
03d0: 65 0a 20 2a 2f 0a 76 6f 69 64 20 72 68 61 73 68  e. */.void rhash
03e0: 5f 73 68 61 31 5f 69 6e 69 74 28 73 68 61 31 5f  _sha1_init(sha1_
03f0: 63 74 78 20 2a 63 74 78 29 0a 7b 0a 09 63 74 78  ctx *ctx).{..ctx
0400: 2d 3e 6c 65 6e 67 74 68 20 3d 20 30 3b 0a 0a 09  ->length = 0;...
0410: 2f 2a 20 69 6e 69 74 69 61 6c 69 7a 65 20 61 6c  /* initialize al
0420: 67 6f 72 69 74 68 6d 20 73 74 61 74 65 20 2a 2f  gorithm state */
0430: 0a 09 63 74 78 2d 3e 68 61 73 68 5b 30 5d 20 3d  ..ctx->hash[0] =
0440: 20 30 78 36 37 34 35 32 33 30 31 3b 0a 09 63 74   0x67452301;..ct
0450: 78 2d 3e 68 61 73 68 5b 31 5d 20 3d 20 30 78 65  x->hash[1] = 0xe
0460: 66 63 64 61 62 38 39 3b 0a 09 63 74 78 2d 3e 68  fcdab89;..ctx->h
0470: 61 73 68 5b 32 5d 20 3d 20 30 78 39 38 62 61 64  ash[2] = 0x98bad
0480: 63 66 65 3b 0a 09 63 74 78 2d 3e 68 61 73 68 5b  cfe;..ctx->hash[
0490: 33 5d 20 3d 20 30 78 31 30 33 32 35 34 37 36 3b  3] = 0x10325476;
04a0: 0a 09 63 74 78 2d 3e 68 61 73 68 5b 34 5d 20 3d  ..ctx->hash[4] =
04b0: 20 30 78 63 33 64 32 65 31 66 30 3b 0a 7d 0a 0a   0xc3d2e1f0;.}..
04c0: 2f 2a 2a 0a 20 2a 20 54 68 65 20 63 6f 72 65 20  /**. * The core 
04d0: 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2e 20  transformation. 
04e0: 50 72 6f 63 65 73 73 20 61 20 35 31 32 2d 62 69  Process a 512-bi
04f0: 74 20 62 6c 6f 63 6b 2e 0a 20 2a 20 54 68 65 20  t block.. * The 
0500: 66 75 6e 63 74 69 6f 6e 20 68 61 73 20 62 65 65  function has bee
0510: 6e 20 74 61 6b 65 6e 20 66 72 6f 6d 20 52 46 43  n taken from RFC
0520: 20 33 31 37 34 20 77 69 74 68 20 6c 69 74 74 6c   3174 with littl
0530: 65 20 63 68 61 6e 67 65 73 2e 0a 20 2a 0a 20 2a  e changes.. *. *
0540: 20 40 70 61 72 61 6d 20 68 61 73 68 20 61 6c 67   @param hash alg
0550: 6f 72 69 74 68 6d 20 73 74 61 74 65 0a 20 2a 20  orithm state. * 
0560: 40 70 61 72 61 6d 20 62 6c 6f 63 6b 20 74 68 65  @param block the
0570: 20 6d 65 73 73 61 67 65 20 62 6c 6f 63 6b 20 74   message block t
0580: 6f 20 70 72 6f 63 65 73 73 0a 20 2a 2f 0a 73 74  o process. */.st
0590: 61 74 69 63 20 76 6f 69 64 20 72 68 61 73 68 5f  atic void rhash_
05a0: 73 68 61 31 5f 70 72 6f 63 65 73 73 5f 62 6c 6f  sha1_process_blo
05b0: 63 6b 28 75 6e 73 69 67 6e 65 64 2a 20 68 61 73  ck(unsigned* has
05c0: 68 2c 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65  h, const unsigne
05d0: 64 2a 20 62 6c 6f 63 6b 29 0a 7b 0a 09 69 6e 74  d* block).{..int
05e0: 20 20 20 20 20 20 20 20 20 20 20 74 3b 20 20 20             t;   
05f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0600: 20 4c 6f 6f 70 20 63 6f 75 6e 74 65 72 20 2a 2f   Loop counter */
0610: 0a 09 75 69 6e 74 33 32 5f 74 20 20 20 20 20 20  ..uint32_t      
0620: 74 65 6d 70 3b 20 20 20 20 20 20 20 20 20 20 20  temp;           
0630: 20 20 20 2f 2a 20 54 65 6d 70 6f 72 61 72 79 20     /* Temporary 
0640: 77 6f 72 64 20 76 61 6c 75 65 20 2a 2f 0a 09 75  word value */..u
0650: 69 6e 74 33 32 5f 74 20 20 20 20 20 20 57 5b 38  int32_t      W[8
0660: 30 5d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  0];             
0670: 2f 2a 20 57 6f 72 64 20 73 65 71 75 65 6e 63 65  /* Word sequence
0680: 20 2a 2f 0a 09 75 69 6e 74 33 32 5f 74 20 20 20   */..uint32_t   
0690: 20 20 20 41 2c 20 42 2c 20 43 2c 20 44 2c 20 45     A, B, C, D, E
06a0: 3b 20 20 20 20 20 2f 2a 20 57 6f 72 64 20 62 75  ;     /* Word bu
06b0: 66 66 65 72 73 20 2a 2f 0a 0a 09 2f 2a 20 69 6e  ffers */.../* in
06c0: 69 74 69 61 6c 69 7a 65 20 74 68 65 20 66 69 72  itialize the fir
06d0: 73 74 20 31 36 20 77 6f 72 64 73 20 69 6e 20 74  st 16 words in t
06e0: 68 65 20 61 72 72 61 79 20 57 20 2a 2f 0a 09 66  he array W */..f
06f0: 6f 72 20 28 74 20 3d 20 30 3b 20 74 20 3c 20 31  or (t = 0; t < 1
0700: 36 3b 20 74 2b 2b 29 20 7b 0a 09 09 2f 2a 20 6e  6; t++) {.../* n
0710: 6f 74 65 3a 20 69 74 20 69 73 20 6d 75 63 68 20  ote: it is much 
0720: 66 61 73 74 65 72 20 74 6f 20 61 70 70 6c 79 20  faster to apply 
0730: 62 65 32 6d 65 20 68 65 72 65 2c 20 74 68 65 6e  be2me here, then
0740: 20 75 73 69 6e 67 20 62 65 33 32 5f 63 6f 70 79   using be32_copy
0750: 20 2a 2f 0a 09 09 57 5b 74 5d 20 3d 20 62 65 32   */...W[t] = be2
0760: 6d 65 5f 33 32 28 62 6c 6f 63 6b 5b 74 5d 29 3b  me_32(block[t]);
0770: 0a 09 7d 0a 0a 09 2f 2a 20 69 6e 69 74 69 61 6c  ..}.../* initial
0780: 69 7a 65 20 74 68 65 20 72 65 73 74 20 2a 2f 0a  ize the rest */.
0790: 09 66 6f 72 20 28 74 20 3d 20 31 36 3b 20 74 20  .for (t = 16; t 
07a0: 3c 20 38 30 3b 20 74 2b 2b 29 20 7b 0a 09 09 57  < 80; t++) {...W
07b0: 5b 74 5d 20 3d 20 52 4f 54 4c 33 32 28 57 5b 74  [t] = ROTL32(W[t
07c0: 20 2d 20 33 5d 20 5e 20 57 5b 74 20 2d 20 38 5d   - 3] ^ W[t - 8]
07d0: 20 5e 20 57 5b 74 20 2d 20 31 34 5d 20 5e 20 57   ^ W[t - 14] ^ W
07e0: 5b 74 20 2d 20 31 36 5d 2c 20 31 29 3b 0a 09 7d  [t - 16], 1);..}
07f0: 0a 0a 09 41 20 3d 20 68 61 73 68 5b 30 5d 3b 0a  ...A = hash[0];.
0800: 09 42 20 3d 20 68 61 73 68 5b 31 5d 3b 0a 09 43  .B = hash[1];..C
0810: 20 3d 20 68 61 73 68 5b 32 5d 3b 0a 09 44 20 3d   = hash[2];..D =
0820: 20 68 61 73 68 5b 33 5d 3b 0a 09 45 20 3d 20 68   hash[3];..E = h
0830: 61 73 68 5b 34 5d 3b 0a 0a 09 66 6f 72 20 28 74  ash[4];...for (t
0840: 20 3d 20 30 3b 20 74 20 3c 20 32 30 3b 20 74 2b   = 0; t < 20; t+
0850: 2b 29 20 7b 0a 09 09 2f 2a 20 74 68 65 20 66 6f  +) {.../* the fo
0860: 6c 6c 6f 77 69 6e 67 20 69 73 20 66 61 73 74 65  llowing is faste
0870: 72 20 74 68 61 6e 20 28 28 42 20 26 20 43 29 20  r than ((B & C) 
0880: 7c 20 28 28 7e 42 29 20 26 20 44 29 29 20 2a 2f  | ((~B) & D)) */
0890: 0a 09 09 74 65 6d 70 20 3d 20 20 52 4f 54 4c 33  ...temp =  ROTL3
08a0: 32 28 41 2c 20 35 29 20 2b 20 28 28 28 43 20 5e  2(A, 5) + (((C ^
08b0: 20 44 29 20 26 20 42 29 20 5e 20 44 29 0a 09 09   D) & B) ^ D)...
08c0: 09 2b 20 45 20 2b 20 57 5b 74 5d 20 2b 20 30 78  .+ E + W[t] + 0x
08d0: 35 41 38 32 37 39 39 39 3b 0a 09 09 45 20 3d 20  5A827999;...E = 
08e0: 44 3b 0a 09 09 44 20 3d 20 43 3b 0a 09 09 43 20  D;...D = C;...C 
08f0: 3d 20 52 4f 54 4c 33 32 28 42 2c 20 33 30 29 3b  = ROTL32(B, 30);
0900: 0a 09 09 42 20 3d 20 41 3b 0a 09 09 41 20 3d 20  ...B = A;...A = 
0910: 74 65 6d 70 3b 0a 09 7d 0a 0a 09 66 6f 72 20 28  temp;..}...for (
0920: 74 20 3d 20 32 30 3b 20 74 20 3c 20 34 30 3b 20  t = 20; t < 40; 
0930: 74 2b 2b 29 20 7b 0a 09 09 74 65 6d 70 20 3d 20  t++) {...temp = 
0940: 52 4f 54 4c 33 32 28 41 2c 20 35 29 20 2b 20 28  ROTL32(A, 5) + (
0950: 42 20 5e 20 43 20 5e 20 44 29 20 2b 20 45 20 2b  B ^ C ^ D) + E +
0960: 20 57 5b 74 5d 20 2b 20 30 78 36 45 44 39 45 42   W[t] + 0x6ED9EB
0970: 41 31 3b 0a 09 09 45 20 3d 20 44 3b 0a 09 09 44  A1;...E = D;...D
0980: 20 3d 20 43 3b 0a 09 09 43 20 3d 20 52 4f 54 4c   = C;...C = ROTL
0990: 33 32 28 42 2c 20 33 30 29 3b 0a 09 09 42 20 3d  32(B, 30);...B =
09a0: 20 41 3b 0a 09 09 41 20 3d 20 74 65 6d 70 3b 0a   A;...A = temp;.
09b0: 09 7d 0a 0a 09 66 6f 72 20 28 74 20 3d 20 34 30  .}...for (t = 40
09c0: 3b 20 74 20 3c 20 36 30 3b 20 74 2b 2b 29 20 7b  ; t < 60; t++) {
09d0: 0a 09 09 74 65 6d 70 20 3d 20 52 4f 54 4c 33 32  ...temp = ROTL32
09e0: 28 41 2c 20 35 29 20 2b 20 28 28 42 20 26 20 43  (A, 5) + ((B & C
09f0: 29 20 7c 20 28 42 20 26 20 44 29 20 7c 20 28 43  ) | (B & D) | (C
0a00: 20 26 20 44 29 29 0a 09 09 09 2b 20 45 20 2b 20   & D))....+ E + 
0a10: 57 5b 74 5d 20 2b 20 30 78 38 46 31 42 42 43 44  W[t] + 0x8F1BBCD
0a20: 43 3b 0a 09 09 45 20 3d 20 44 3b 0a 09 09 44 20  C;...E = D;...D 
0a30: 3d 20 43 3b 0a 09 09 43 20 3d 20 52 4f 54 4c 33  = C;...C = ROTL3
0a40: 32 28 42 2c 20 33 30 29 3b 0a 09 09 42 20 3d 20  2(B, 30);...B = 
0a50: 41 3b 0a 09 09 41 20 3d 20 74 65 6d 70 3b 0a 09  A;...A = temp;..
0a60: 7d 0a 0a 09 66 6f 72 20 28 74 20 3d 20 36 30 3b  }...for (t = 60;
0a70: 20 74 20 3c 20 38 30 3b 20 74 2b 2b 29 20 7b 0a   t < 80; t++) {.
0a80: 09 09 74 65 6d 70 20 3d 20 52 4f 54 4c 33 32 28  ..temp = ROTL32(
0a90: 41 2c 20 35 29 20 2b 20 28 42 20 5e 20 43 20 5e  A, 5) + (B ^ C ^
0aa0: 20 44 29 20 2b 20 45 20 2b 20 57 5b 74 5d 20 2b   D) + E + W[t] +
0ab0: 20 30 78 43 41 36 32 43 31 44 36 3b 0a 09 09 45   0xCA62C1D6;...E
0ac0: 20 3d 20 44 3b 0a 09 09 44 20 3d 20 43 3b 0a 09   = D;...D = C;..
0ad0: 09 43 20 3d 20 52 4f 54 4c 33 32 28 42 2c 20 33  .C = ROTL32(B, 3
0ae0: 30 29 3b 0a 09 09 42 20 3d 20 41 3b 0a 09 09 41  0);...B = A;...A
0af0: 20 3d 20 74 65 6d 70 3b 0a 09 7d 0a 0a 09 68 61   = temp;..}...ha
0b00: 73 68 5b 30 5d 20 2b 3d 20 41 3b 0a 09 68 61 73  sh[0] += A;..has
0b10: 68 5b 31 5d 20 2b 3d 20 42 3b 0a 09 68 61 73 68  h[1] += B;..hash
0b20: 5b 32 5d 20 2b 3d 20 43 3b 0a 09 68 61 73 68 5b  [2] += C;..hash[
0b30: 33 5d 20 2b 3d 20 44 3b 0a 09 68 61 73 68 5b 34  3] += D;..hash[4
0b40: 5d 20 2b 3d 20 45 3b 0a 7d 0a 0a 2f 2a 2a 0a 20  ] += E;.}../**. 
0b50: 2a 20 43 61 6c 63 75 6c 61 74 65 20 6d 65 73 73  * Calculate mess
0b60: 61 67 65 20 68 61 73 68 2e 0a 20 2a 20 43 61 6e  age hash.. * Can
0b70: 20 62 65 20 63 61 6c 6c 65 64 20 72 65 70 65 61   be called repea
0b80: 74 65 64 6c 79 20 77 69 74 68 20 63 68 75 6e 6b  tedly with chunk
0b90: 73 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65  s of the message
0ba0: 20 74 6f 20 62 65 20 68 61 73 68 65 64 2e 0a 20   to be hashed.. 
0bb0: 2a 0a 20 2a 20 40 70 61 72 61 6d 20 63 74 78 20  *. * @param ctx 
0bc0: 74 68 65 20 61 6c 67 6f 72 69 74 68 6d 20 63 6f  the algorithm co
0bd0: 6e 74 65 78 74 20 63 6f 6e 74 61 69 6e 69 6e 67  ntext containing
0be0: 20 63 75 72 72 65 6e 74 20 68 61 73 68 69 6e 67   current hashing
0bf0: 20 73 74 61 74 65 0a 20 2a 20 40 70 61 72 61 6d   state. * @param
0c00: 20 6d 73 67 20 6d 65 73 73 61 67 65 20 63 68 75   msg message chu
0c10: 6e 6b 0a 20 2a 20 40 70 61 72 61 6d 20 73 69 7a  nk. * @param siz
0c20: 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20  e length of the 
0c30: 6d 65 73 73 61 67 65 20 63 68 75 6e 6b 0a 20 2a  message chunk. *
0c40: 2f 0a 76 6f 69 64 20 72 68 61 73 68 5f 73 68 61  /.void rhash_sha
0c50: 31 5f 75 70 64 61 74 65 28 73 68 61 31 5f 63 74  1_update(sha1_ct
0c60: 78 20 2a 63 74 78 2c 20 63 6f 6e 73 74 20 75 6e  x *ctx, const un
0c70: 73 69 67 6e 65 64 20 63 68 61 72 2a 20 6d 73 67  signed char* msg
0c80: 2c 20 73 69 7a 65 5f 74 20 73 69 7a 65 29 0a 7b  , size_t size).{
0c90: 0a 09 75 6e 73 69 67 6e 65 64 20 69 6e 64 65 78  ..unsigned index
0ca0: 20 3d 20 28 75 6e 73 69 67 6e 65 64 29 63 74 78   = (unsigned)ctx
0cb0: 2d 3e 6c 65 6e 67 74 68 20 26 20 36 33 3b 0a 09  ->length & 63;..
0cc0: 63 74 78 2d 3e 6c 65 6e 67 74 68 20 2b 3d 20 73  ctx->length += s
0cd0: 69 7a 65 3b 0a 0a 09 2f 2a 20 66 69 6c 6c 20 70  ize;.../* fill p
0ce0: 61 72 74 69 61 6c 20 62 6c 6f 63 6b 20 2a 2f 0a  artial block */.
0cf0: 09 69 66 20 28 69 6e 64 65 78 29 20 7b 0a 09 09  .if (index) {...
0d00: 75 6e 73 69 67 6e 65 64 20 6c 65 66 74 20 3d 20  unsigned left = 
0d10: 73 68 61 31 5f 62 6c 6f 63 6b 5f 73 69 7a 65 20  sha1_block_size 
0d20: 2d 20 69 6e 64 65 78 3b 0a 09 09 6d 65 6d 63 70  - index;...memcp
0d30: 79 28 63 74 78 2d 3e 6d 65 73 73 61 67 65 20 2b  y(ctx->message +
0d40: 20 69 6e 64 65 78 2c 20 6d 73 67 2c 20 28 73 69   index, msg, (si
0d50: 7a 65 20 3c 20 6c 65 66 74 20 3f 20 73 69 7a 65  ze < left ? size
0d60: 20 3a 20 6c 65 66 74 29 29 3b 0a 09 09 69 66 20   : left));...if 
0d70: 28 73 69 7a 65 20 3c 20 6c 65 66 74 29 20 72 65  (size < left) re
0d80: 74 75 72 6e 3b 0a 0a 09 09 2f 2a 20 70 72 6f 63  turn;..../* proc
0d90: 65 73 73 20 70 61 72 74 69 61 6c 20 62 6c 6f 63  ess partial bloc
0da0: 6b 20 2a 2f 0a 09 09 72 68 61 73 68 5f 73 68 61  k */...rhash_sha
0db0: 31 5f 70 72 6f 63 65 73 73 5f 62 6c 6f 63 6b 28  1_process_block(
0dc0: 63 74 78 2d 3e 68 61 73 68 2c 20 28 75 6e 73 69  ctx->hash, (unsi
0dd0: 67 6e 65 64 2a 29 63 74 78 2d 3e 6d 65 73 73 61  gned*)ctx->messa
0de0: 67 65 29 3b 0a 09 09 6d 73 67 20 20 2b 3d 20 6c  ge);...msg  += l
0df0: 65 66 74 3b 0a 09 09 73 69 7a 65 20 2d 3d 20 6c  eft;...size -= l
0e00: 65 66 74 3b 0a 09 7d 0a 09 77 68 69 6c 65 20 28  eft;..}..while (
0e10: 73 69 7a 65 20 3e 3d 20 73 68 61 31 5f 62 6c 6f  size >= sha1_blo
0e20: 63 6b 5f 73 69 7a 65 29 20 7b 0a 09 09 75 6e 73  ck_size) {...uns
0e30: 69 67 6e 65 64 2a 20 61 6c 69 67 6e 65 64 5f 6d  igned* aligned_m
0e40: 65 73 73 61 67 65 5f 62 6c 6f 63 6b 3b 0a 09 09  essage_block;...
0e50: 69 66 20 28 49 53 5f 41 4c 49 47 4e 45 44 5f 33  if (IS_ALIGNED_3
0e60: 32 28 6d 73 67 29 29 20 7b 0a 09 09 09 2f 2a 20  2(msg)) {..../* 
0e70: 74 68 65 20 6d 6f 73 74 20 63 6f 6d 6d 6f 6e 20  the most common 
0e80: 63 61 73 65 20 69 73 20 70 72 6f 63 65 73 73 69  case is processi
0e90: 6e 67 20 6f 66 20 61 6e 20 61 6c 72 65 61 64 79  ng of an already
0ea0: 20 61 6c 69 67 6e 65 64 20 6d 65 73 73 61 67 65   aligned message
0eb0: 0a 09 09 09 77 69 74 68 6f 75 74 20 63 6f 70 79  ....without copy
0ec0: 69 6e 67 20 69 74 20 2a 2f 0a 09 09 09 61 6c 69  ing it */....ali
0ed0: 67 6e 65 64 5f 6d 65 73 73 61 67 65 5f 62 6c 6f  gned_message_blo
0ee0: 63 6b 20 3d 20 28 75 6e 73 69 67 6e 65 64 2a 29  ck = (unsigned*)
0ef0: 6d 73 67 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a  msg;...} else {.
0f00: 09 09 09 6d 65 6d 63 70 79 28 63 74 78 2d 3e 6d  ...memcpy(ctx->m
0f10: 65 73 73 61 67 65 2c 20 6d 73 67 2c 20 73 68 61  essage, msg, sha
0f20: 31 5f 62 6c 6f 63 6b 5f 73 69 7a 65 29 3b 0a 09  1_block_size);..
0f30: 09 09 61 6c 69 67 6e 65 64 5f 6d 65 73 73 61 67  ..aligned_messag
0f40: 65 5f 62 6c 6f 63 6b 20 3d 20 28 75 6e 73 69 67  e_block = (unsig
0f50: 6e 65 64 2a 29 63 74 78 2d 3e 6d 65 73 73 61 67  ned*)ctx->messag
0f60: 65 3b 0a 09 09 7d 0a 0a 09 09 72 68 61 73 68 5f  e;...}....rhash_
0f70: 73 68 61 31 5f 70 72 6f 63 65 73 73 5f 62 6c 6f  sha1_process_blo
0f80: 63 6b 28 63 74 78 2d 3e 68 61 73 68 2c 20 61 6c  ck(ctx->hash, al
0f90: 69 67 6e 65 64 5f 6d 65 73 73 61 67 65 5f 62 6c  igned_message_bl
0fa0: 6f 63 6b 29 3b 0a 09 09 6d 73 67 20 20 2b 3d 20  ock);...msg  += 
0fb0: 73 68 61 31 5f 62 6c 6f 63 6b 5f 73 69 7a 65 3b  sha1_block_size;
0fc0: 0a 09 09 73 69 7a 65 20 2d 3d 20 73 68 61 31 5f  ...size -= sha1_
0fd0: 62 6c 6f 63 6b 5f 73 69 7a 65 3b 0a 09 7d 0a 09  block_size;..}..
0fe0: 69 66 20 28 73 69 7a 65 29 20 7b 0a 09 09 2f 2a  if (size) {.../*
0ff0: 20 73 61 76 65 20 6c 65 66 74 6f 76 65 72 73 20   save leftovers 
1000: 2a 2f 0a 09 09 6d 65 6d 63 70 79 28 63 74 78 2d  */...memcpy(ctx-
1010: 3e 6d 65 73 73 61 67 65 2c 20 6d 73 67 2c 20 73  >message, msg, s
1020: 69 7a 65 29 3b 0a 09 7d 0a 7d 0a 0a 2f 2a 2a 0a  ize);..}.}../**.
1030: 20 2a 20 53 74 6f 72 65 20 63 61 6c 63 75 6c 61   * Store calcula
1040: 74 65 64 20 68 61 73 68 20 69 6e 74 6f 20 74 68  ted hash into th
1050: 65 20 67 69 76 65 6e 20 61 72 72 61 79 2e 0a 20  e given array.. 
1060: 2a 0a 20 2a 20 40 70 61 72 61 6d 20 63 74 78 20  *. * @param ctx 
1070: 74 68 65 20 61 6c 67 6f 72 69 74 68 6d 20 63 6f  the algorithm co
1080: 6e 74 65 78 74 20 63 6f 6e 74 61 69 6e 69 6e 67  ntext containing
1090: 20 63 75 72 72 65 6e 74 20 68 61 73 68 69 6e 67   current hashing
10a0: 20 73 74 61 74 65 0a 20 2a 20 40 70 61 72 61 6d   state. * @param
10b0: 20 72 65 73 75 6c 74 20 63 61 6c 63 75 6c 61 74   result calculat
10c0: 65 64 20 68 61 73 68 20 69 6e 20 62 69 6e 61 72  ed hash in binar
10d0: 79 20 66 6f 72 6d 0a 20 2a 2f 0a 76 6f 69 64 20  y form. */.void 
10e0: 72 68 61 73 68 5f 73 68 61 31 5f 66 69 6e 61 6c  rhash_sha1_final
10f0: 28 73 68 61 31 5f 63 74 78 20 2a 63 74 78 2c 20  (sha1_ctx *ctx, 
1100: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 2a 20 72  unsigned char* r
1110: 65 73 75 6c 74 29 0a 7b 0a 09 75 6e 73 69 67 6e  esult).{..unsign
1120: 65 64 20 20 69 6e 64 65 78 20 3d 20 28 75 6e 73  ed  index = (uns
1130: 69 67 6e 65 64 29 63 74 78 2d 3e 6c 65 6e 67 74  igned)ctx->lengt
1140: 68 20 26 20 36 33 3b 0a 09 75 6e 73 69 67 6e 65  h & 63;..unsigne
1150: 64 2a 20 6d 73 67 33 32 20 3d 20 28 75 6e 73 69  d* msg32 = (unsi
1160: 67 6e 65 64 2a 29 63 74 78 2d 3e 6d 65 73 73 61  gned*)ctx->messa
1170: 67 65 3b 0a 0a 09 2f 2a 20 70 61 64 20 6d 65 73  ge;.../* pad mes
1180: 73 61 67 65 20 61 6e 64 20 72 75 6e 20 66 6f 72  sage and run for
1190: 20 6c 61 73 74 20 62 6c 6f 63 6b 20 2a 2f 0a 09   last block */..
11a0: 63 74 78 2d 3e 6d 65 73 73 61 67 65 5b 69 6e 64  ctx->message[ind
11b0: 65 78 2b 2b 5d 20 3d 20 30 78 38 30 3b 0a 09 77  ex++] = 0x80;..w
11c0: 68 69 6c 65 20 28 28 69 6e 64 65 78 20 26 20 33  hile ((index & 3
11d0: 29 20 21 3d 20 30 29 20 7b 0a 09 09 63 74 78 2d  ) != 0) {...ctx-
11e0: 3e 6d 65 73 73 61 67 65 5b 69 6e 64 65 78 2b 2b  >message[index++
11f0: 5d 20 3d 20 30 3b 0a 09 7d 0a 09 69 6e 64 65 78  ] = 0;..}..index
1200: 20 3e 3e 3d 20 32 3b 0a 0a 09 2f 2a 20 69 66 20   >>= 2;.../* if 
1210: 6e 6f 20 72 6f 6f 6d 20 6c 65 66 74 20 69 6e 20  no room left in 
1220: 74 68 65 20 6d 65 73 73 61 67 65 20 74 6f 20 73  the message to s
1230: 74 6f 72 65 20 36 34 2d 62 69 74 20 6d 65 73 73  tore 64-bit mess
1240: 61 67 65 20 6c 65 6e 67 74 68 20 2a 2f 0a 09 69  age length */..i
1250: 66 20 28 69 6e 64 65 78 20 3e 20 31 34 29 20 7b  f (index > 14) {
1260: 0a 09 09 2f 2a 20 74 68 65 6e 20 66 69 6c 6c 20  .../* then fill 
1270: 74 68 65 20 72 65 73 74 20 77 69 74 68 20 7a 65  the rest with ze
1280: 72 6f 73 20 61 6e 64 20 70 72 6f 63 65 73 73 20  ros and process 
1290: 69 74 20 2a 2f 0a 09 09 77 68 69 6c 65 20 28 69  it */...while (i
12a0: 6e 64 65 78 20 3c 20 31 36 29 20 7b 0a 09 09 09  ndex < 16) {....
12b0: 6d 73 67 33 32 5b 69 6e 64 65 78 2b 2b 5d 20 3d  msg32[index++] =
12c0: 20 30 3b 0a 09 09 7d 0a 09 09 72 68 61 73 68 5f   0;...}...rhash_
12d0: 73 68 61 31 5f 70 72 6f 63 65 73 73 5f 62 6c 6f  sha1_process_blo
12e0: 63 6b 28 63 74 78 2d 3e 68 61 73 68 2c 20 6d 73  ck(ctx->hash, ms
12f0: 67 33 32 29 3b 0a 09 09 69 6e 64 65 78 20 3d 20  g32);...index = 
1300: 30 3b 0a 09 7d 0a 09 77 68 69 6c 65 20 28 69 6e  0;..}..while (in
1310: 64 65 78 20 3c 20 31 34 29 20 7b 0a 09 09 6d 73  dex < 14) {...ms
1320: 67 33 32 5b 69 6e 64 65 78 2b 2b 5d 20 3d 20 30  g32[index++] = 0
1330: 3b 0a 09 7d 0a 09 6d 73 67 33 32 5b 31 34 5d 20  ;..}..msg32[14] 
1340: 3d 20 62 65 32 6d 65 5f 33 32 28 20 28 75 6e 73  = be2me_32( (uns
1350: 69 67 6e 65 64 29 28 63 74 78 2d 3e 6c 65 6e 67  igned)(ctx->leng
1360: 74 68 20 3e 3e 20 32 39 29 20 29 3b 0a 09 6d 73  th >> 29) );..ms
1370: 67 33 32 5b 31 35 5d 20 3d 20 62 65 32 6d 65 5f  g32[15] = be2me_
1380: 33 32 28 20 28 75 6e 73 69 67 6e 65 64 29 28 63  32( (unsigned)(c
1390: 74 78 2d 3e 6c 65 6e 67 74 68 20 3c 3c 20 33 29  tx->length << 3)
13a0: 20 29 3b 0a 09 72 68 61 73 68 5f 73 68 61 31 5f   );..rhash_sha1_
13b0: 70 72 6f 63 65 73 73 5f 62 6c 6f 63 6b 28 63 74  process_block(ct
13c0: 78 2d 3e 68 61 73 68 2c 20 6d 73 67 33 32 29 3b  x->hash, msg32);
13d0: 0a 0a 09 69 66 20 28 72 65 73 75 6c 74 29 20 62  ...if (result) b
13e0: 65 33 32 5f 63 6f 70 79 28 72 65 73 75 6c 74 2c  e32_copy(result,
13f0: 20 30 2c 20 26 63 74 78 2d 3e 68 61 73 68 2c 20   0, &ctx->hash, 
1400: 73 68 61 31 5f 68 61 73 68 5f 73 69 7a 65 29 3b  sha1_hash_size);
1410: 0a 7d 0a                                         .}.