Hex Artifact Content

Artifact a03e9d2d38e3a88ec774a125d422b68d6c4469b1:


0000: 2f 2a 0a 20 2a 20 20 73 68 61 31 2e 63 0a 20 2a  /*. *  sha1.c. *
0010: 0a 20 2a 20 20 44 65 73 63 72 69 70 74 69 6f 6e  . *  Description
0020: 3a 0a 20 2a 20 20 20 20 20 20 54 68 69 73 20 66  :. *      This f
0030: 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74  ile implements t
0040: 68 65 20 53 65 63 75 72 65 20 48 61 73 68 69 6e  he Secure Hashin
0050: 67 20 41 6c 67 6f 72 69 74 68 6d 20 31 20 61 73  g Algorithm 1 as
0060: 0a 20 2a 20 20 20 20 20 20 64 65 66 69 6e 65 64  . *      defined
0070: 20 69 6e 20 46 49 50 53 20 50 55 42 20 31 38 30   in FIPS PUB 180
0080: 2d 31 20 70 75 62 6c 69 73 68 65 64 20 41 70 72  -1 published Apr
0090: 69 6c 20 31 37 2c 20 31 39 39 35 2e 0a 20 2a 0a  il 17, 1995.. *.
00a0: 20 2a 20 20 20 20 20 20 54 68 65 20 53 48 41 2d   *      The SHA-
00b0: 31 2c 20 70 72 6f 64 75 63 65 73 20 61 20 31 36  1, produces a 16
00c0: 30 2d 62 69 74 20 6d 65 73 73 61 67 65 20 64 69  0-bit message di
00d0: 67 65 73 74 20 66 6f 72 20 61 20 67 69 76 65 6e  gest for a given
00e0: 0a 20 2a 20 20 20 20 20 20 64 61 74 61 20 73 74  . *      data st
00f0: 72 65 61 6d 2e 20 20 49 74 20 73 68 6f 75 6c 64  ream.  It should
0100: 20 74 61 6b 65 20 61 62 6f 75 74 20 32 2a 2a 6e   take about 2**n
0110: 20 73 74 65 70 73 20 74 6f 20 66 69 6e 64 20 61   steps to find a
0120: 0a 20 2a 20 20 20 20 20 20 6d 65 73 73 61 67 65  . *      message
0130: 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 64   with the same d
0140: 69 67 65 73 74 20 61 73 20 61 20 67 69 76 65 6e  igest as a given
0150: 20 6d 65 73 73 61 67 65 20 61 6e 64 0a 20 2a 20   message and. * 
0160: 20 20 20 20 20 32 2a 2a 28 6e 2f 32 29 20 74 6f       2**(n/2) to
0170: 20 66 69 6e 64 20 61 6e 79 20 74 77 6f 20 6d 65   find any two me
0180: 73 73 61 67 65 73 20 77 69 74 68 20 74 68 65 20  ssages with the 
0190: 73 61 6d 65 20 64 69 67 65 73 74 2c 0a 20 2a 20  same digest,. * 
01a0: 20 20 20 20 20 77 68 65 6e 20 6e 20 69 73 20 74       when n is t
01b0: 68 65 20 64 69 67 65 73 74 20 73 69 7a 65 20 69  he digest size i
01c0: 6e 20 62 69 74 73 2e 20 20 54 68 65 72 65 66 6f  n bits.  Therefo
01d0: 72 65 2c 20 74 68 69 73 0a 20 2a 20 20 20 20 20  re, this. *     
01e0: 20 61 6c 67 6f 72 69 74 68 6d 20 63 61 6e 20 73   algorithm can s
01f0: 65 72 76 65 20 61 73 20 61 20 6d 65 61 6e 73 20  erve as a means 
0200: 6f 66 20 70 72 6f 76 69 64 69 6e 67 20 61 0a 20  of providing a. 
0210: 2a 20 20 20 20 20 20 22 66 69 6e 67 65 72 70 72  *      "fingerpr
0220: 69 6e 74 22 20 66 6f 72 20 61 20 6d 65 73 73 61  int" for a messa
0230: 67 65 2e 0a 20 2a 0a 20 2a 20 20 50 6f 72 74 61  ge.. *. *  Porta
0240: 62 69 6c 69 74 79 20 49 73 73 75 65 73 3a 0a 20  bility Issues:. 
0250: 2a 20 20 20 20 20 20 53 48 41 2d 31 20 69 73 20  *      SHA-1 is 
0260: 64 65 66 69 6e 65 64 20 69 6e 20 74 65 72 6d 73  defined in terms
0270: 20 6f 66 20 33 32 2d 62 69 74 20 22 77 6f 72 64   of 32-bit "word
0280: 73 22 2e 20 20 54 68 69 73 20 63 6f 64 65 0a 20  s".  This code. 
0290: 2a 20 20 20 20 20 20 75 73 65 73 20 3c 73 74 64  *      uses <std
02a0: 69 6e 74 2e 68 3e 20 28 69 6e 63 6c 75 64 65 64  int.h> (included
02b0: 20 76 69 61 20 22 73 68 61 31 2e 68 22 20 74 6f   via "sha1.h" to
02c0: 20 64 65 66 69 6e 65 20 33 32 20 61 6e 64 20 38   define 32 and 8
02d0: 0a 20 2a 20 20 20 20 20 20 62 69 74 20 75 6e 73  . *      bit uns
02e0: 69 67 6e 65 64 20 69 6e 74 65 67 65 72 20 74 79  igned integer ty
02f0: 70 65 73 2e 20 20 49 66 20 79 6f 75 72 20 43 20  pes.  If your C 
0300: 63 6f 6d 70 69 6c 65 72 20 64 6f 65 73 20 6e 6f  compiler does no
0310: 74 0a 20 2a 20 20 20 20 20 20 73 75 70 70 6f 72  t. *      suppor
0320: 74 20 33 32 20 62 69 74 20 75 6e 73 69 67 6e 65  t 32 bit unsigne
0330: 64 20 69 6e 74 65 67 65 72 73 2c 20 74 68 69 73  d integers, this
0340: 20 63 6f 64 65 20 69 73 20 6e 6f 74 0a 20 2a 20   code is not. * 
0350: 20 20 20 20 20 61 70 70 72 6f 70 72 69 61 74 65       appropriate
0360: 2e 0a 20 2a 0a 20 2a 20 20 43 61 76 65 61 74 73  .. *. *  Caveats
0370: 3a 0a 20 2a 20 20 20 20 20 20 53 48 41 2d 31 20  :. *      SHA-1 
0380: 69 73 20 64 65 73 69 67 6e 65 64 20 74 6f 20 77  is designed to w
0390: 6f 72 6b 20 77 69 74 68 20 6d 65 73 73 61 67 65  ork with message
03a0: 73 20 6c 65 73 73 20 74 68 61 6e 20 32 5e 36 34  s less than 2^64
03b0: 20 62 69 74 73 0a 20 2a 20 20 20 20 20 20 6c 6f   bits. *      lo
03c0: 6e 67 2e 20 20 41 6c 74 68 6f 75 67 68 20 53 48  ng.  Although SH
03d0: 41 2d 31 20 61 6c 6c 6f 77 73 20 61 20 6d 65 73  A-1 allows a mes
03e0: 73 61 67 65 20 64 69 67 65 73 74 20 74 6f 20 62  sage digest to b
03f0: 65 20 67 65 6e 65 72 61 74 65 64 0a 20 2a 20 20  e generated. *  
0400: 20 20 20 20 66 6f 72 20 6d 65 73 73 61 67 65 73      for messages
0410: 20 6f 66 20 61 6e 79 20 6e 75 6d 62 65 72 20 6f   of any number o
0420: 66 20 62 69 74 73 20 6c 65 73 73 20 74 68 61 6e  f bits less than
0430: 20 32 5e 36 34 2c 20 74 68 69 73 0a 20 2a 20 20   2^64, this. *  
0440: 20 20 20 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69      implementati
0450: 6f 6e 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 77 69  on only works wi
0460: 74 68 20 6d 65 73 73 61 67 65 73 20 77 69 74 68  th messages with
0470: 20 61 20 6c 65 6e 67 74 68 20 74 68 61 74 20 69   a length that i
0480: 73 0a 20 2a 20 20 20 20 20 20 61 20 6d 75 6c 74  s. *      a mult
0490: 69 70 6c 65 20 6f 66 20 74 68 65 20 73 69 7a 65  iple of the size
04a0: 20 6f 66 20 61 6e 20 38 2d 62 69 74 20 63 68 61   of an 8-bit cha
04b0: 72 61 63 74 65 72 2e 0a 20 2a 0a 20 2a 2f 0a 0a  racter.. *. */..
04c0: 23 69 6e 63 6c 75 64 65 20 22 73 68 61 31 2e 68  #include "sha1.h
04d0: 22 0a 0a 2f 2a 0a 20 2a 20 20 44 65 66 69 6e 65  "../*. *  Define
04e0: 20 74 68 65 20 53 48 41 31 20 63 69 72 63 75 6c   the SHA1 circul
04f0: 61 72 20 6c 65 66 74 20 73 68 69 66 74 20 6d 61  ar left shift ma
0500: 63 72 6f 0a 20 2a 2f 0a 23 64 65 66 69 6e 65 20  cro. */.#define 
0510: 53 48 41 31 43 69 72 63 75 6c 61 72 53 68 69 66  SHA1CircularShif
0520: 74 28 62 69 74 73 2c 77 6f 72 64 29 20 5c 0a 20  t(bits,word) \. 
0530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
0540: 28 28 77 6f 72 64 29 20 3c 3c 20 28 62 69 74 73  ((word) << (bits
0550: 29 29 20 7c 20 28 28 77 6f 72 64 29 20 3e 3e 20  )) | ((word) >> 
0560: 28 33 32 2d 28 62 69 74 73 29 29 29 29 0a 0a 2f  (32-(bits))))../
0570: 2a 20 4c 6f 63 61 6c 20 46 75 6e 63 74 69 6f 6e  * Local Function
0580: 20 50 72 6f 74 6f 74 79 70 74 65 73 20 2a 2f 0a   Prototyptes */.
0590: 73 74 61 74 69 63 20 76 6f 69 64 20 53 48 41 31  static void SHA1
05a0: 50 61 64 4d 65 73 73 61 67 65 28 53 48 41 31 43  PadMessage(SHA1C
05b0: 6f 6e 74 65 78 74 20 2a 29 3b 0a 73 74 61 74 69  ontext *);.stati
05c0: 63 20 76 6f 69 64 20 53 48 41 31 50 72 6f 63 65  c void SHA1Proce
05d0: 73 73 4d 65 73 73 61 67 65 42 6c 6f 63 6b 28 53  ssMessageBlock(S
05e0: 48 41 31 43 6f 6e 74 65 78 74 20 2a 29 3b 0a 0a  HA1Context *);..
05f0: 2f 2a 0a 20 2a 20 20 53 48 41 31 52 65 73 65 74  /*. *  SHA1Reset
0600: 0a 20 2a 0a 20 2a 20 20 44 65 73 63 72 69 70 74  . *. *  Descript
0610: 69 6f 6e 3a 0a 20 2a 20 20 20 20 20 20 54 68 69  ion:. *      Thi
0620: 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20  s function will 
0630: 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 53  initialize the S
0640: 48 41 31 43 6f 6e 74 65 78 74 20 69 6e 20 70 72  HA1Context in pr
0650: 65 70 61 72 61 74 69 6f 6e 0a 20 2a 20 20 20 20  eparation. *    
0660: 20 20 66 6f 72 20 63 6f 6d 70 75 74 69 6e 67 20    for computing 
0670: 61 20 6e 65 77 20 53 48 41 31 20 6d 65 73 73 61  a new SHA1 messa
0680: 67 65 20 64 69 67 65 73 74 2e 0a 20 2a 0a 20 2a  ge digest.. *. *
0690: 20 20 50 61 72 61 6d 65 74 65 72 73 3a 0a 20 2a    Parameters:. *
06a0: 20 20 20 20 20 20 63 6f 6e 74 65 78 74 3a 20 5b        context: [
06b0: 69 6e 2f 6f 75 74 5d 0a 20 2a 20 20 20 20 20 20  in/out]. *      
06c0: 20 20 20 20 54 68 65 20 63 6f 6e 74 65 78 74 20      The context 
06d0: 74 6f 20 72 65 73 65 74 2e 0a 20 2a 0a 20 2a 20  to reset.. *. * 
06e0: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 20 20 20 20   Returns:. *    
06f0: 20 20 73 68 61 20 45 72 72 6f 72 20 43 6f 64 65    sha Error Code
0700: 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20  .. *. */.static 
0710: 69 6e 74 20 53 48 41 31 52 65 73 65 74 28 53 48  int SHA1Reset(SH
0720: 41 31 43 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65  A1Context *conte
0730: 78 74 29 0a 7b 0a 20 20 20 20 69 66 20 28 21 63  xt).{.    if (!c
0740: 6f 6e 74 65 78 74 29 0a 20 20 20 20 7b 0a 20 20  ontext).    {.  
0750: 20 20 20 20 20 20 72 65 74 75 72 6e 20 73 68 61        return sha
0760: 4e 75 6c 6c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  Null;.    }..   
0770: 20 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68   context->Length
0780: 5f 4c 6f 77 20 20 20 20 20 20 20 20 20 20 20 20  _Low            
0790: 20 3d 20 30 3b 0a 20 20 20 20 63 6f 6e 74 65 78   = 0;.    contex
07a0: 74 2d 3e 4c 65 6e 67 74 68 5f 48 69 67 68 20 20  t->Length_High  
07b0: 20 20 20 20 20 20 20 20 20 20 3d 20 30 3b 0a 20            = 0;. 
07c0: 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73     context->Mess
07d0: 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78 20  age_Block_Index 
07e0: 20 20 20 3d 20 30 3b 0a 0a 20 20 20 20 63 6f 6e     = 0;..    con
07f0: 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65 64 69 61  text->Intermedia
0800: 74 65 5f 48 61 73 68 5b 30 5d 20 20 20 3d 20 30  te_Hash[0]   = 0
0810: 78 36 37 34 35 32 33 30 31 3b 0a 20 20 20 20 63  x67452301;.    c
0820: 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65 64  ontext->Intermed
0830: 69 61 74 65 5f 48 61 73 68 5b 31 5d 20 20 20 3d  iate_Hash[1]   =
0840: 20 30 78 45 46 43 44 41 42 38 39 3b 0a 20 20 20   0xEFCDAB89;.   
0850: 20 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d   context->Interm
0860: 65 64 69 61 74 65 5f 48 61 73 68 5b 32 5d 20 20  ediate_Hash[2]  
0870: 20 3d 20 30 78 39 38 42 41 44 43 46 45 3b 0a 20   = 0x98BADCFE;. 
0880: 20 20 20 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65     context->Inte
0890: 72 6d 65 64 69 61 74 65 5f 48 61 73 68 5b 33 5d  rmediate_Hash[3]
08a0: 20 20 20 3d 20 30 78 31 30 33 32 35 34 37 36 3b     = 0x10325476;
08b0: 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 49 6e  .    context->In
08c0: 74 65 72 6d 65 64 69 61 74 65 5f 48 61 73 68 5b  termediate_Hash[
08d0: 34 5d 20 20 20 3d 20 30 78 43 33 44 32 45 31 46  4]   = 0xC3D2E1F
08e0: 30 3b 0a 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d  0;..    context-
08f0: 3e 43 6f 6d 70 75 74 65 64 20 20 20 3d 20 30 3b  >Computed   = 0;
0900: 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 43 6f  .    context->Co
0910: 72 72 75 70 74 65 64 20 20 3d 20 30 3b 0a 0a 20  rrupted  = 0;.. 
0920: 20 20 20 72 65 74 75 72 6e 20 73 68 61 53 75 63     return shaSuc
0930: 63 65 73 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 20  cess;.}../*. *  
0940: 53 48 41 31 52 65 73 75 6c 74 0a 20 2a 0a 20 2a  SHA1Result. *. *
0950: 20 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 0a 20    Description:. 
0960: 2a 20 20 20 20 20 20 54 68 69 73 20 66 75 6e 63  *      This func
0970: 74 69 6f 6e 20 77 69 6c 6c 20 72 65 74 75 72 6e  tion will return
0980: 20 74 68 65 20 31 36 30 2d 62 69 74 20 6d 65 73   the 160-bit mes
0990: 73 61 67 65 20 64 69 67 65 73 74 20 69 6e 74 6f  sage digest into
09a0: 20 74 68 65 0a 20 2a 20 20 20 20 20 20 4d 65 73   the. *      Mes
09b0: 73 61 67 65 5f 44 69 67 65 73 74 20 61 72 72 61  sage_Digest arra
09c0: 79 20 20 70 72 6f 76 69 64 65 64 20 62 79 20 74  y  provided by t
09d0: 68 65 20 63 61 6c 6c 65 72 2e 0a 20 2a 20 20 20  he caller.. *   
09e0: 20 20 20 4e 4f 54 45 3a 20 54 68 65 20 66 69 72     NOTE: The fir
09f0: 73 74 20 6f 63 74 65 74 20 6f 66 20 68 61 73 68  st octet of hash
0a00: 20 69 73 20 73 74 6f 72 65 64 20 69 6e 20 74 68   is stored in th
0a10: 65 20 30 74 68 20 65 6c 65 6d 65 6e 74 2c 0a 20  e 0th element,. 
0a20: 2a 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65  *            the
0a30: 20 6c 61 73 74 20 6f 63 74 65 74 20 6f 66 20 68   last octet of h
0a40: 61 73 68 20 69 6e 20 74 68 65 20 31 39 74 68 20  ash in the 19th 
0a50: 65 6c 65 6d 65 6e 74 2e 0a 20 2a 0a 20 2a 20 20  element.. *. *  
0a60: 50 61 72 61 6d 65 74 65 72 73 3a 0a 20 2a 20 20  Parameters:. *  
0a70: 20 20 20 20 63 6f 6e 74 65 78 74 3a 20 5b 69 6e      context: [in
0a80: 2f 6f 75 74 5d 0a 20 2a 20 20 20 20 20 20 20 20  /out]. *        
0a90: 20 20 54 68 65 20 63 6f 6e 74 65 78 74 20 74 6f    The context to
0aa0: 20 75 73 65 20 74 6f 20 63 61 6c 63 75 6c 61 74   use to calculat
0ab0: 65 20 74 68 65 20 53 48 41 2d 31 20 68 61 73 68  e the SHA-1 hash
0ac0: 2e 0a 20 2a 20 20 20 20 20 20 4d 65 73 73 61 67  .. *      Messag
0ad0: 65 5f 44 69 67 65 73 74 3a 20 5b 6f 75 74 5d 0a  e_Digest: [out].
0ae0: 20 2a 20 20 20 20 20 20 20 20 20 20 57 68 65 72   *          Wher
0af0: 65 20 74 68 65 20 64 69 67 65 73 74 20 69 73 20  e the digest is 
0b00: 72 65 74 75 72 6e 65 64 2e 0a 20 2a 0a 20 2a 20  returned.. *. * 
0b10: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 20 20 20 20   Returns:. *    
0b20: 20 20 73 68 61 20 45 72 72 6f 72 20 43 6f 64 65    sha Error Code
0b30: 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20  .. *. */.static 
0b40: 69 6e 74 20 53 48 41 31 52 65 73 75 6c 74 28 20  int SHA1Result( 
0b50: 53 48 41 31 43 6f 6e 74 65 78 74 20 2a 63 6f 6e  SHA1Context *con
0b60: 74 65 78 74 2c 0a 20 20 20 20 20 20 20 20 20 20  text,.          
0b70: 20 20 20 20 20 20 75 69 6e 74 38 5f 74 20 4d 65        uint8_t Me
0b80: 73 73 61 67 65 5f 44 69 67 65 73 74 5b 53 48 41  ssage_Digest[SHA
0b90: 31 48 61 73 68 53 69 7a 65 5d 29 0a 7b 0a 20 20  1HashSize]).{.  
0ba0: 20 20 69 6e 74 20 69 3b 0a 0a 20 20 20 20 69 66    int i;..    if
0bb0: 20 28 21 63 6f 6e 74 65 78 74 20 7c 7c 20 21 4d   (!context || !M
0bc0: 65 73 73 61 67 65 5f 44 69 67 65 73 74 29 0a 20  essage_Digest). 
0bd0: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74     {.        ret
0be0: 75 72 6e 20 73 68 61 4e 75 6c 6c 3b 0a 20 20 20  urn shaNull;.   
0bf0: 20 7d 0a 0a 20 20 20 20 69 66 20 28 63 6f 6e 74   }..    if (cont
0c00: 65 78 74 2d 3e 43 6f 72 72 75 70 74 65 64 29 0a  ext->Corrupted).
0c10: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 72 65      {.        re
0c20: 74 75 72 6e 20 63 6f 6e 74 65 78 74 2d 3e 43 6f  turn context->Co
0c30: 72 72 75 70 74 65 64 3b 0a 20 20 20 20 7d 0a 0a  rrupted;.    }..
0c40: 20 20 20 20 69 66 20 28 21 63 6f 6e 74 65 78 74      if (!context
0c50: 2d 3e 43 6f 6d 70 75 74 65 64 29 0a 20 20 20 20  ->Computed).    
0c60: 7b 0a 20 20 20 20 20 20 20 20 53 48 41 31 50 61  {.        SHA1Pa
0c70: 64 4d 65 73 73 61 67 65 28 63 6f 6e 74 65 78 74  dMessage(context
0c80: 29 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69  );.        for(i
0c90: 3d 30 3b 20 69 3c 36 34 3b 20 2b 2b 69 29 0a 20  =0; i<64; ++i). 
0ca0: 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20         {.       
0cb0: 20 20 20 20 20 2f 2a 20 6d 65 73 73 61 67 65 20       /* message 
0cc0: 6d 61 79 20 62 65 20 73 65 6e 73 69 74 69 76 65  may be sensitive
0cd0: 2c 20 63 6c 65 61 72 20 69 74 20 6f 75 74 20 2a  , clear it out *
0ce0: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f  /.            co
0cf0: 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42  ntext->Message_B
0d00: 6c 6f 63 6b 5b 69 5d 20 3d 20 30 3b 0a 20 20 20  lock[i] = 0;.   
0d10: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 63       }.        c
0d20: 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f 4c  ontext->Length_L
0d30: 6f 77 20 3d 20 30 3b 20 20 20 20 2f 2a 20 61 6e  ow = 0;    /* an
0d40: 64 20 63 6c 65 61 72 20 6c 65 6e 67 74 68 20 2a  d clear length *
0d50: 2f 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 65 78  /.        contex
0d60: 74 2d 3e 4c 65 6e 67 74 68 5f 48 69 67 68 20 3d  t->Length_High =
0d70: 20 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 74   0;.        cont
0d80: 65 78 74 2d 3e 43 6f 6d 70 75 74 65 64 20 3d 20  ext->Computed = 
0d90: 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f  1;.    }..    fo
0da0: 72 28 69 20 3d 20 30 3b 20 69 20 3c 20 53 48 41  r(i = 0; i < SHA
0db0: 31 48 61 73 68 53 69 7a 65 3b 20 2b 2b 69 29 0a  1HashSize; ++i).
0dc0: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 4d 65      {.        Me
0dd0: 73 73 61 67 65 5f 44 69 67 65 73 74 5b 69 5d 20  ssage_Digest[i] 
0de0: 3d 20 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72  = context->Inter
0df0: 6d 65 64 69 61 74 65 5f 48 61 73 68 5b 69 3e 3e  mediate_Hash[i>>
0e00: 32 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  2].             
0e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3e                 >
0e20: 3e 20 38 20 2a 20 28 20 33 20 2d 20 28 20 69 20  > 8 * ( 3 - ( i 
0e30: 26 20 30 78 30 33 20 29 20 29 3b 0a 20 20 20 20  & 0x03 ) );.    
0e40: 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 73 68  }..    return sh
0e50: 61 53 75 63 63 65 73 73 3b 0a 7d 0a 0a 2f 2a 0a  aSuccess;.}../*.
0e60: 20 2a 20 20 53 48 41 31 49 6e 70 75 74 0a 20 2a   *  SHA1Input. *
0e70: 0a 20 2a 20 20 44 65 73 63 72 69 70 74 69 6f 6e  . *  Description
0e80: 3a 0a 20 2a 20 20 20 20 20 20 54 68 69 73 20 66  :. *      This f
0e90: 75 6e 63 74 69 6f 6e 20 61 63 63 65 70 74 73 20  unction accepts 
0ea0: 61 6e 20 61 72 72 61 79 20 6f 66 20 6f 63 74 65  an array of octe
0eb0: 74 73 20 61 73 20 74 68 65 20 6e 65 78 74 20 70  ts as the next p
0ec0: 6f 72 74 69 6f 6e 0a 20 2a 20 20 20 20 20 20 6f  ortion. *      o
0ed0: 66 20 74 68 65 20 6d 65 73 73 61 67 65 2e 0a 20  f the message.. 
0ee0: 2a 0a 20 2a 20 20 50 61 72 61 6d 65 74 65 72 73  *. *  Parameters
0ef0: 3a 0a 20 2a 20 20 20 20 20 20 63 6f 6e 74 65 78  :. *      contex
0f00: 74 3a 20 5b 69 6e 2f 6f 75 74 5d 0a 20 2a 20 20  t: [in/out]. *  
0f10: 20 20 20 20 20 20 20 20 54 68 65 20 53 48 41 20          The SHA 
0f20: 63 6f 6e 74 65 78 74 20 74 6f 20 75 70 64 61 74  context to updat
0f30: 65 0a 20 2a 20 20 20 20 20 20 6d 65 73 73 61 67  e. *      messag
0f40: 65 5f 61 72 72 61 79 3a 20 5b 69 6e 5d 0a 20 2a  e_array: [in]. *
0f50: 20 20 20 20 20 20 20 20 20 20 41 6e 20 61 72 72            An arr
0f60: 61 79 20 6f 66 20 63 68 61 72 61 63 74 65 72 73  ay of characters
0f70: 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 74 68   representing th
0f80: 65 20 6e 65 78 74 20 70 6f 72 74 69 6f 6e 20 6f  e next portion o
0f90: 66 0a 20 2a 20 20 20 20 20 20 20 20 20 20 74 68  f. *          th
0fa0: 65 20 6d 65 73 73 61 67 65 2e 0a 20 2a 20 20 20  e message.. *   
0fb0: 20 20 20 6c 65 6e 67 74 68 3a 20 5b 69 6e 5d 0a     length: [in].
0fc0: 20 2a 20 20 20 20 20 20 20 20 20 20 54 68 65 20   *          The 
0fd0: 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 6d 65  length of the me
0fe0: 73 73 61 67 65 20 69 6e 20 6d 65 73 73 61 67 65  ssage in message
0ff0: 5f 61 72 72 61 79 0a 20 2a 0a 20 2a 20 20 52 65  _array. *. *  Re
1000: 74 75 72 6e 73 3a 0a 20 2a 20 20 20 20 20 20 73  turns:. *      s
1010: 68 61 20 45 72 72 6f 72 20 43 6f 64 65 2e 0a 20  ha Error Code.. 
1020: 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  *. */.static int
1030: 20 53 48 41 31 49 6e 70 75 74 28 20 20 20 20 53   SHA1Input(    S
1040: 48 41 31 43 6f 6e 74 65 78 74 20 20 20 20 2a 63  HA1Context    *c
1050: 6f 6e 74 65 78 74 2c 0a 20 20 20 20 20 20 20 20  ontext,.        
1060: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 74 20            const 
1070: 75 69 6e 74 38 5f 74 20 20 2a 6d 65 73 73 61 67  uint8_t  *messag
1080: 65 5f 61 72 72 61 79 2c 0a 20 20 20 20 20 20 20  e_array,.       
1090: 20 20 20 20 20 20 20 20 20 20 20 75 6e 73 69 67             unsig
10a0: 6e 65 64 20 20 20 20 20 20 20 6c 65 6e 67 74 68  ned       length
10b0: 29 0a 7b 0a 20 20 20 20 69 66 20 28 21 6c 65 6e  ).{.    if (!len
10c0: 67 74 68 29 0a 20 20 20 20 7b 0a 20 20 20 20 20  gth).    {.     
10d0: 20 20 20 72 65 74 75 72 6e 20 73 68 61 53 75 63     return shaSuc
10e0: 63 65 73 73 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  cess;.    }..   
10f0: 20 69 66 20 28 21 63 6f 6e 74 65 78 74 20 7c 7c   if (!context ||
1100: 20 21 6d 65 73 73 61 67 65 5f 61 72 72 61 79 29   !message_array)
1110: 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 72  .    {.        r
1120: 65 74 75 72 6e 20 73 68 61 4e 75 6c 6c 3b 0a 20  eturn shaNull;. 
1130: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 63 6f     }..    if (co
1140: 6e 74 65 78 74 2d 3e 43 6f 6d 70 75 74 65 64 29  ntext->Computed)
1150: 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 63  .    {.        c
1160: 6f 6e 74 65 78 74 2d 3e 43 6f 72 72 75 70 74 65  ontext->Corrupte
1170: 64 20 3d 20 73 68 61 53 74 61 74 65 45 72 72 6f  d = shaStateErro
1180: 72 3b 0a 0a 20 20 20 20 20 20 20 20 72 65 74 75  r;..        retu
1190: 72 6e 20 73 68 61 53 74 61 74 65 45 72 72 6f 72  rn shaStateError
11a0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20  ;.    }..    if 
11b0: 28 63 6f 6e 74 65 78 74 2d 3e 43 6f 72 72 75 70  (context->Corrup
11c0: 74 65 64 29 0a 20 20 20 20 7b 0a 20 20 20 20 20  ted).    {.     
11d0: 20 20 20 20 72 65 74 75 72 6e 20 63 6f 6e 74 65      return conte
11e0: 78 74 2d 3e 43 6f 72 72 75 70 74 65 64 3b 0a 20  xt->Corrupted;. 
11f0: 20 20 20 7d 0a 20 20 20 20 77 68 69 6c 65 28 6c     }.    while(l
1200: 65 6e 67 74 68 2d 2d 20 26 26 20 21 63 6f 6e 74  ength-- && !cont
1210: 65 78 74 2d 3e 43 6f 72 72 75 70 74 65 64 29 0a  ext->Corrupted).
1220: 20 20 20 20 7b 0a 20 20 20 20 63 6f 6e 74 65 78      {.    contex
1230: 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b  t->Message_Block
1240: 5b 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67  [context->Messag
1250: 65 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78 2b 2b 5d  e_Block_Index++]
1260: 20 3d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   =.             
1270: 20 20 20 20 20 20 20 28 2a 6d 65 73 73 61 67 65         (*message
1280: 5f 61 72 72 61 79 20 26 20 30 78 46 46 29 3b 0a  _array & 0xFF);.
1290: 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4c 65  .    context->Le
12a0: 6e 67 74 68 5f 4c 6f 77 20 2b 3d 20 38 3b 0a 20  ngth_Low += 8;. 
12b0: 20 20 20 69 66 20 28 63 6f 6e 74 65 78 74 2d 3e     if (context->
12c0: 4c 65 6e 67 74 68 5f 4c 6f 77 20 3d 3d 20 30 29  Length_Low == 0)
12d0: 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 63  .    {.        c
12e0: 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f 48  ontext->Length_H
12f0: 69 67 68 2b 2b 3b 0a 20 20 20 20 20 20 20 20 69  igh++;.        i
1300: 66 20 28 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67  f (context->Leng
1310: 74 68 5f 48 69 67 68 20 3d 3d 20 30 29 0a 20 20  th_High == 0).  
1320: 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20        {.        
1330: 20 20 20 20 2f 2a 20 4d 65 73 73 61 67 65 20 69      /* Message i
1340: 73 20 74 6f 6f 20 6c 6f 6e 67 20 2a 2f 0a 20 20  s too long */.  
1350: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 65 78            contex
1360: 74 2d 3e 43 6f 72 72 75 70 74 65 64 20 3d 20 31  t->Corrupted = 1
1370: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
1380: 7d 0a 0a 20 20 20 20 69 66 20 28 63 6f 6e 74 65  }..    if (conte
1390: 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63  xt->Message_Bloc
13a0: 6b 5f 49 6e 64 65 78 20 3d 3d 20 36 34 29 0a 20  k_Index == 64). 
13b0: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 53 48 41     {.        SHA
13c0: 31 50 72 6f 63 65 73 73 4d 65 73 73 61 67 65 42  1ProcessMessageB
13d0: 6c 6f 63 6b 28 63 6f 6e 74 65 78 74 29 3b 0a 20  lock(context);. 
13e0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 73 73 61 67     }..    messag
13f0: 65 5f 61 72 72 61 79 2b 2b 3b 0a 20 20 20 20 7d  e_array++;.    }
1400: 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 73 68 61  ..    return sha
1410: 53 75 63 63 65 73 73 3b 0a 7d 0a 0a 2f 2a 0a 20  Success;.}../*. 
1420: 2a 20 20 53 48 41 31 50 72 6f 63 65 73 73 4d 65  *  SHA1ProcessMe
1430: 73 73 61 67 65 42 6c 6f 63 6b 0a 20 2a 0a 20 2a  ssageBlock. *. *
1440: 20 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 0a 20    Description:. 
1450: 2a 20 20 20 20 20 20 54 68 69 73 20 66 75 6e 63  *      This func
1460: 74 69 6f 6e 20 77 69 6c 6c 20 70 72 6f 63 65 73  tion will proces
1470: 73 20 74 68 65 20 6e 65 78 74 20 35 31 32 20 62  s the next 512 b
1480: 69 74 73 20 6f 66 20 74 68 65 20 6d 65 73 73 61  its of the messa
1490: 67 65 0a 20 2a 20 20 20 20 20 20 73 74 6f 72 65  ge. *      store
14a0: 64 20 69 6e 20 74 68 65 20 4d 65 73 73 61 67 65  d in the Message
14b0: 5f 42 6c 6f 63 6b 20 61 72 72 61 79 2e 0a 20 2a  _Block array.. *
14c0: 0a 20 2a 20 20 50 61 72 61 6d 65 74 65 72 73 3a  . *  Parameters:
14d0: 0a 20 2a 20 20 20 20 20 20 4e 6f 6e 65 2e 0a 20  . *      None.. 
14e0: 2a 0a 20 2a 20 20 52 65 74 75 72 6e 73 3a 0a 20  *. *  Returns:. 
14f0: 2a 20 20 20 20 20 20 4e 6f 74 68 69 6e 67 2e 0a  *      Nothing..
1500: 20 2a 0a 20 2a 20 20 43 6f 6d 6d 65 6e 74 73 3a   *. *  Comments:
1510: 0a 20 2a 20 20 20 20 20 20 4d 61 6e 79 20 6f 66  . *      Many of
1520: 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 6e 61   the variable na
1530: 6d 65 73 20 69 6e 20 74 68 69 73 20 63 6f 64 65  mes in this code
1540: 2c 20 65 73 70 65 63 69 61 6c 6c 79 20 74 68 65  , especially the
1550: 0a 20 2a 20 20 20 20 20 20 73 69 6e 67 6c 65 20  . *      single 
1560: 63 68 61 72 61 63 74 65 72 20 6e 61 6d 65 73 2c  character names,
1570: 20 77 65 72 65 20 75 73 65 64 20 62 65 63 61 75   were used becau
1580: 73 65 20 74 68 6f 73 65 20 77 65 72 65 20 74 68  se those were th
1590: 65 0a 20 2a 20 20 20 20 20 20 6e 61 6d 65 73 20  e. *      names 
15a0: 75 73 65 64 20 69 6e 20 74 68 65 20 70 75 62 6c  used in the publ
15b0: 69 63 61 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 0a 20  ication.. *. *. 
15c0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 53  */.static void S
15d0: 48 41 31 50 72 6f 63 65 73 73 4d 65 73 73 61 67  HA1ProcessMessag
15e0: 65 42 6c 6f 63 6b 28 53 48 41 31 43 6f 6e 74 65  eBlock(SHA1Conte
15f0: 78 74 20 2a 63 6f 6e 74 65 78 74 29 0a 7b 0a 20  xt *context).{. 
1600: 20 20 20 63 6f 6e 73 74 20 75 69 6e 74 33 32 5f     const uint32_
1610: 74 20 4b 5b 5d 20 3d 20 20 20 20 7b 20 20 20 20  t K[] =    {    
1620: 20 20 20 2f 2a 20 43 6f 6e 73 74 61 6e 74 73 20     /* Constants 
1630: 64 65 66 69 6e 65 64 20 69 6e 20 53 48 41 2d 31  defined in SHA-1
1640: 20 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20     */.          
1650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1660: 20 20 30 78 35 41 38 32 37 39 39 39 2c 0a 20 20    0x5A827999,.  
1670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1680: 20 20 20 20 20 20 20 20 20 20 30 78 36 45 44 39            0x6ED9
1690: 45 42 41 31 2c 0a 20 20 20 20 20 20 20 20 20 20  EBA1,.          
16a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
16b0: 20 20 30 78 38 46 31 42 42 43 44 43 2c 0a 20 20    0x8F1BBCDC,.  
16c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
16d0: 20 20 20 20 20 20 20 20 20 20 30 78 43 41 36 32            0xCA62
16e0: 43 31 44 36 0a 20 20 20 20 20 20 20 20 20 20 20  C1D6.           
16f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1700: 20 7d 3b 0a 20 20 20 20 69 6e 74 20 20 20 20 20   };.    int     
1710: 20 20 20 20 20 20 74 3b 20 20 20 20 20 20 20 20        t;        
1720: 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 6f 6f 70           /* Loop
1730: 20 63 6f 75 6e 74 65 72 20 20 20 20 20 20 20 20   counter        
1740: 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 75          */.    u
1750: 69 6e 74 33 32 5f 74 20 20 20 20 20 20 74 65 6d  int32_t      tem
1760: 70 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  p;              
1770: 2f 2a 20 54 65 6d 70 6f 72 61 72 79 20 77 6f 72  /* Temporary wor
1780: 64 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 2a  d value        *
1790: 2f 0a 20 20 20 20 75 69 6e 74 33 32 5f 74 20 20  /.    uint32_t  
17a0: 20 20 20 20 57 5b 38 30 5d 3b 20 20 20 20 20 20      W[80];      
17b0: 20 20 20 20 20 20 20 2f 2a 20 57 6f 72 64 20 73         /* Word s
17c0: 65 71 75 65 6e 63 65 20 20 20 20 20 20 20 20 20  equence         
17d0: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 75 69 6e        */.    uin
17e0: 74 33 32 5f 74 20 20 20 20 20 20 41 2c 20 42 2c  t32_t      A, B,
17f0: 20 43 2c 20 44 2c 20 45 3b 20 20 20 20 20 2f 2a   C, D, E;     /*
1800: 20 57 6f 72 64 20 62 75 66 66 65 72 73 20 20 20   Word buffers   
1810: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a               */.
1820: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 20  .    /*.     *  
1830: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 66  Initialize the f
1840: 69 72 73 74 20 31 36 20 77 6f 72 64 73 20 69 6e  irst 16 words in
1850: 20 74 68 65 20 61 72 72 61 79 20 57 0a 20 20 20   the array W.   
1860: 20 20 2a 2f 0a 20 20 20 20 66 6f 72 28 74 20 3d    */.    for(t =
1870: 20 30 3b 20 74 20 3c 20 31 36 3b 20 74 2b 2b 29   0; t < 16; t++)
1880: 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 57  .    {.        W
1890: 5b 74 5d 20 3d 20 63 6f 6e 74 65 78 74 2d 3e 4d  [t] = context->M
18a0: 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b 74 20 2a  essage_Block[t *
18b0: 20 34 5d 20 3c 3c 20 32 34 3b 0a 20 20 20 20 20   4] << 24;.     
18c0: 20 20 20 57 5b 74 5d 20 7c 3d 20 63 6f 6e 74 65     W[t] |= conte
18d0: 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63  xt->Message_Bloc
18e0: 6b 5b 74 20 2a 20 34 20 2b 20 31 5d 20 3c 3c 20  k[t * 4 + 1] << 
18f0: 31 36 3b 0a 20 20 20 20 20 20 20 20 57 5b 74 5d  16;.        W[t]
1900: 20 7c 3d 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73   |= context->Mes
1910: 73 61 67 65 5f 42 6c 6f 63 6b 5b 74 20 2a 20 34  sage_Block[t * 4
1920: 20 2b 20 32 5d 20 3c 3c 20 38 3b 0a 20 20 20 20   + 2] << 8;.    
1930: 20 20 20 20 57 5b 74 5d 20 7c 3d 20 63 6f 6e 74      W[t] |= cont
1940: 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f  ext->Message_Blo
1950: 63 6b 5b 74 20 2a 20 34 20 2b 20 33 5d 3b 0a 20  ck[t * 4 + 3];. 
1960: 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 28 74 20     }..    for(t 
1970: 3d 20 31 36 3b 20 74 20 3c 20 38 30 3b 20 74 2b  = 16; t < 80; t+
1980: 2b 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20  +).    {.       
1990: 57 5b 74 5d 20 3d 20 53 48 41 31 43 69 72 63 75  W[t] = SHA1Circu
19a0: 6c 61 72 53 68 69 66 74 28 31 2c 57 5b 74 2d 33  larShift(1,W[t-3
19b0: 5d 20 5e 20 57 5b 74 2d 38 5d 20 5e 20 57 5b 74  ] ^ W[t-8] ^ W[t
19c0: 2d 31 34 5d 20 5e 20 57 5b 74 2d 31 36 5d 29 3b  -14] ^ W[t-16]);
19d0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 41 20 3d 20  .    }..    A = 
19e0: 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65  context->Interme
19f0: 64 69 61 74 65 5f 48 61 73 68 5b 30 5d 3b 0a 20  diate_Hash[0];. 
1a00: 20 20 20 42 20 3d 20 63 6f 6e 74 65 78 74 2d 3e     B = context->
1a10: 49 6e 74 65 72 6d 65 64 69 61 74 65 5f 48 61 73  Intermediate_Has
1a20: 68 5b 31 5d 3b 0a 20 20 20 20 43 20 3d 20 63 6f  h[1];.    C = co
1a30: 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65 64 69  ntext->Intermedi
1a40: 61 74 65 5f 48 61 73 68 5b 32 5d 3b 0a 20 20 20  ate_Hash[2];.   
1a50: 20 44 20 3d 20 63 6f 6e 74 65 78 74 2d 3e 49 6e   D = context->In
1a60: 74 65 72 6d 65 64 69 61 74 65 5f 48 61 73 68 5b  termediate_Hash[
1a70: 33 5d 3b 0a 20 20 20 20 45 20 3d 20 63 6f 6e 74  3];.    E = cont
1a80: 65 78 74 2d 3e 49 6e 74 65 72 6d 65 64 69 61 74  ext->Intermediat
1a90: 65 5f 48 61 73 68 5b 34 5d 3b 0a 0a 20 20 20 20  e_Hash[4];..    
1aa0: 66 6f 72 28 74 20 3d 20 30 3b 20 74 20 3c 20 32  for(t = 0; t < 2
1ab0: 30 3b 20 74 2b 2b 29 0a 20 20 20 20 7b 0a 20 20  0; t++).    {.  
1ac0: 20 20 20 20 20 20 74 65 6d 70 20 3d 20 20 53 48        temp =  SH
1ad0: 41 31 43 69 72 63 75 6c 61 72 53 68 69 66 74 28  A1CircularShift(
1ae0: 35 2c 41 29 20 2b 0a 20 20 20 20 20 20 20 20 20  5,A) +.         
1af0: 20 20 20 20 20 20 20 28 28 42 20 26 20 43 29 20         ((B & C) 
1b00: 7c 20 28 28 7e 42 29 20 26 20 44 29 29 20 2b 20  | ((~B) & D)) + 
1b10: 45 20 2b 20 57 5b 74 5d 20 2b 20 4b 5b 30 5d 3b  E + W[t] + K[0];
1b20: 0a 20 20 20 20 20 20 20 20 45 20 3d 20 44 3b 0a  .        E = D;.
1b30: 20 20 20 20 20 20 20 20 44 20 3d 20 43 3b 0a 20          D = C;. 
1b40: 20 20 20 20 20 20 20 43 20 3d 20 53 48 41 31 43         C = SHA1C
1b50: 69 72 63 75 6c 61 72 53 68 69 66 74 28 33 30 2c  ircularShift(30,
1b60: 42 29 3b 0a 20 20 20 20 20 20 20 20 42 20 3d 20  B);.        B = 
1b70: 41 3b 0a 20 20 20 20 20 20 20 20 41 20 3d 20 74  A;.        A = t
1b80: 65 6d 70 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  emp;.    }..    
1b90: 66 6f 72 28 74 20 3d 20 32 30 3b 20 74 20 3c 20  for(t = 20; t < 
1ba0: 34 30 3b 20 74 2b 2b 29 0a 20 20 20 20 7b 0a 20  40; t++).    {. 
1bb0: 20 20 20 20 20 20 20 74 65 6d 70 20 3d 20 53 48         temp = SH
1bc0: 41 31 43 69 72 63 75 6c 61 72 53 68 69 66 74 28  A1CircularShift(
1bd0: 35 2c 41 29 20 2b 20 28 42 20 5e 20 43 20 5e 20  5,A) + (B ^ C ^ 
1be0: 44 29 20 2b 20 45 20 2b 20 57 5b 74 5d 20 2b 20  D) + E + W[t] + 
1bf0: 4b 5b 31 5d 3b 0a 20 20 20 20 20 20 20 20 45 20  K[1];.        E 
1c00: 3d 20 44 3b 0a 20 20 20 20 20 20 20 20 44 20 3d  = D;.        D =
1c10: 20 43 3b 0a 20 20 20 20 20 20 20 20 43 20 3d 20   C;.        C = 
1c20: 53 48 41 31 43 69 72 63 75 6c 61 72 53 68 69 66  SHA1CircularShif
1c30: 74 28 33 30 2c 42 29 3b 0a 20 20 20 20 20 20 20  t(30,B);.       
1c40: 20 42 20 3d 20 41 3b 0a 20 20 20 20 20 20 20 20   B = A;.        
1c50: 41 20 3d 20 74 65 6d 70 3b 0a 20 20 20 20 7d 0a  A = temp;.    }.
1c60: 0a 20 20 20 20 66 6f 72 28 74 20 3d 20 34 30 3b  .    for(t = 40;
1c70: 20 74 20 3c 20 36 30 3b 20 74 2b 2b 29 0a 20 20   t < 60; t++).  
1c80: 20 20 7b 0a 20 20 20 20 20 20 20 20 74 65 6d 70    {.        temp
1c90: 20 3d 20 53 48 41 31 43 69 72 63 75 6c 61 72 53   = SHA1CircularS
1ca0: 68 69 66 74 28 35 2c 41 29 20 2b 0a 20 20 20 20  hift(5,A) +.    
1cb0: 20 20 20 20 20 20 20 20 20 20 20 28 28 42 20 26             ((B &
1cc0: 20 43 29 20 7c 20 28 42 20 26 20 44 29 20 7c 20   C) | (B & D) | 
1cd0: 28 43 20 26 20 44 29 29 20 2b 20 45 20 2b 20 57  (C & D)) + E + W
1ce0: 5b 74 5d 20 2b 20 4b 5b 32 5d 3b 0a 20 20 20 20  [t] + K[2];.    
1cf0: 20 20 20 20 45 20 3d 20 44 3b 0a 20 20 20 20 20      E = D;.     
1d00: 20 20 20 44 20 3d 20 43 3b 0a 20 20 20 20 20 20     D = C;.      
1d10: 20 20 43 20 3d 20 53 48 41 31 43 69 72 63 75 6c    C = SHA1Circul
1d20: 61 72 53 68 69 66 74 28 33 30 2c 42 29 3b 0a 20  arShift(30,B);. 
1d30: 20 20 20 20 20 20 20 42 20 3d 20 41 3b 0a 20 20         B = A;.  
1d40: 20 20 20 20 20 20 41 20 3d 20 74 65 6d 70 3b 0a        A = temp;.
1d50: 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 28 74      }..    for(t
1d60: 20 3d 20 36 30 3b 20 74 20 3c 20 38 30 3b 20 74   = 60; t < 80; t
1d70: 2b 2b 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20  ++).    {.      
1d80: 20 20 74 65 6d 70 20 3d 20 53 48 41 31 43 69 72    temp = SHA1Cir
1d90: 63 75 6c 61 72 53 68 69 66 74 28 35 2c 41 29 20  cularShift(5,A) 
1da0: 2b 20 28 42 20 5e 20 43 20 5e 20 44 29 20 2b 20  + (B ^ C ^ D) + 
1db0: 45 20 2b 20 57 5b 74 5d 20 2b 20 4b 5b 33 5d 3b  E + W[t] + K[3];
1dc0: 0a 20 20 20 20 20 20 20 20 45 20 3d 20 44 3b 0a  .        E = D;.
1dd0: 20 20 20 20 20 20 20 20 44 20 3d 20 43 3b 0a 20          D = C;. 
1de0: 20 20 20 20 20 20 20 43 20 3d 20 53 48 41 31 43         C = SHA1C
1df0: 69 72 63 75 6c 61 72 53 68 69 66 74 28 33 30 2c  ircularShift(30,
1e00: 42 29 3b 0a 20 20 20 20 20 20 20 20 42 20 3d 20  B);.        B = 
1e10: 41 3b 0a 20 20 20 20 20 20 20 20 41 20 3d 20 74  A;.        A = t
1e20: 65 6d 70 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  emp;.    }..    
1e30: 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65  context->Interme
1e40: 64 69 61 74 65 5f 48 61 73 68 5b 30 5d 20 2b 3d  diate_Hash[0] +=
1e50: 20 41 3b 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d   A;.    context-
1e60: 3e 49 6e 74 65 72 6d 65 64 69 61 74 65 5f 48 61  >Intermediate_Ha
1e70: 73 68 5b 31 5d 20 2b 3d 20 42 3b 0a 20 20 20 20  sh[1] += B;.    
1e80: 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65  context->Interme
1e90: 64 69 61 74 65 5f 48 61 73 68 5b 32 5d 20 2b 3d  diate_Hash[2] +=
1ea0: 20 43 3b 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d   C;.    context-
1eb0: 3e 49 6e 74 65 72 6d 65 64 69 61 74 65 5f 48 61  >Intermediate_Ha
1ec0: 73 68 5b 33 5d 20 2b 3d 20 44 3b 0a 20 20 20 20  sh[3] += D;.    
1ed0: 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65  context->Interme
1ee0: 64 69 61 74 65 5f 48 61 73 68 5b 34 5d 20 2b 3d  diate_Hash[4] +=
1ef0: 20 45 3b 0a 0a 20 20 20 20 63 6f 6e 74 65 78 74   E;..    context
1f00: 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5f  ->Message_Block_
1f10: 49 6e 64 65 78 20 3d 20 30 3b 0a 7d 0a 0a 0a 2f  Index = 0;.}.../
1f20: 2a 0a 20 2a 20 20 53 48 41 31 50 61 64 4d 65 73  *. *  SHA1PadMes
1f30: 73 61 67 65 0a 20 2a 0a 20 2a 20 20 44 65 73 63  sage. *. *  Desc
1f40: 72 69 70 74 69 6f 6e 3a 0a 20 2a 20 20 20 20 20  ription:. *     
1f50: 20 41 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68   According to th
1f60: 65 20 73 74 61 6e 64 61 72 64 2c 20 74 68 65 20  e standard, the 
1f70: 6d 65 73 73 61 67 65 20 6d 75 73 74 20 62 65 20  message must be 
1f80: 70 61 64 64 65 64 20 74 6f 20 61 6e 20 65 76 65  padded to an eve
1f90: 6e 0a 20 2a 20 20 20 20 20 20 35 31 32 20 62 69  n. *      512 bi
1fa0: 74 73 2e 20 20 54 68 65 20 66 69 72 73 74 20 70  ts.  The first p
1fb0: 61 64 64 69 6e 67 20 62 69 74 20 6d 75 73 74 20  adding bit must 
1fc0: 62 65 20 61 20 27 31 27 2e 20 20 54 68 65 20 6c  be a '1'.  The l
1fd0: 61 73 74 20 36 34 0a 20 2a 20 20 20 20 20 20 62  ast 64. *      b
1fe0: 69 74 73 20 72 65 70 72 65 73 65 6e 74 20 74 68  its represent th
1ff0: 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20  e length of the 
2000: 6f 72 69 67 69 6e 61 6c 20 6d 65 73 73 61 67 65  original message
2010: 2e 20 20 41 6c 6c 20 62 69 74 73 20 69 6e 0a 20  .  All bits in. 
2020: 2a 20 20 20 20 20 20 62 65 74 77 65 65 6e 20 73  *      between s
2030: 68 6f 75 6c 64 20 62 65 20 30 2e 20 20 54 68 69  hould be 0.  Thi
2040: 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20  s function will 
2050: 70 61 64 20 74 68 65 20 6d 65 73 73 61 67 65 0a  pad the message.
2060: 20 2a 20 20 20 20 20 20 61 63 63 6f 72 64 69 6e   *      accordin
2070: 67 20 74 6f 20 74 68 6f 73 65 20 72 75 6c 65 73  g to those rules
2080: 20 62 79 20 66 69 6c 6c 69 6e 67 20 74 68 65 20   by filling the 
2090: 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b 20 61 72  Message_Block ar
20a0: 72 61 79 0a 20 2a 20 20 20 20 20 20 61 63 63 6f  ray. *      acco
20b0: 72 64 69 6e 67 6c 79 2e 20 20 49 74 20 77 69 6c  rdingly.  It wil
20c0: 6c 20 61 6c 73 6f 20 63 61 6c 6c 20 74 68 65 20  l also call the 
20d0: 50 72 6f 63 65 73 73 4d 65 73 73 61 67 65 42 6c  ProcessMessageBl
20e0: 6f 63 6b 20 66 75 6e 63 74 69 6f 6e 0a 20 2a 20  ock function. * 
20f0: 20 20 20 20 20 70 72 6f 76 69 64 65 64 20 61 70       provided ap
2100: 70 72 6f 70 72 69 61 74 65 6c 79 2e 20 20 57 68  propriately.  Wh
2110: 65 6e 20 69 74 20 72 65 74 75 72 6e 73 2c 20 69  en it returns, i
2120: 74 20 63 61 6e 20 62 65 20 61 73 73 75 6d 65 64  t can be assumed
2130: 20 74 68 61 74 0a 20 2a 20 20 20 20 20 20 74 68   that. *      th
2140: 65 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74  e message digest
2150: 20 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 75 74   has been comput
2160: 65 64 2e 0a 20 2a 0a 20 2a 20 20 50 61 72 61 6d  ed.. *. *  Param
2170: 65 74 65 72 73 3a 0a 20 2a 20 20 20 20 20 20 63  eters:. *      c
2180: 6f 6e 74 65 78 74 3a 20 5b 69 6e 2f 6f 75 74 5d  ontext: [in/out]
2190: 0a 20 2a 20 20 20 20 20 20 20 20 20 20 54 68 65  . *          The
21a0: 20 63 6f 6e 74 65 78 74 20 74 6f 20 70 61 64 0a   context to pad.
21b0: 20 2a 20 20 20 20 20 20 50 72 6f 63 65 73 73 4d   *      ProcessM
21c0: 65 73 73 61 67 65 42 6c 6f 63 6b 3a 20 5b 69 6e  essageBlock: [in
21d0: 5d 0a 20 2a 20 20 20 20 20 20 20 20 20 20 54 68  ]. *          Th
21e0: 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 53 48  e appropriate SH
21f0: 41 2a 50 72 6f 63 65 73 73 4d 65 73 73 61 67 65  A*ProcessMessage
2200: 42 6c 6f 63 6b 20 66 75 6e 63 74 69 6f 6e 0a 20  Block function. 
2210: 2a 20 20 52 65 74 75 72 6e 73 3a 0a 20 2a 20 20  *  Returns:. *  
2220: 20 20 20 20 4e 6f 74 68 69 6e 67 2e 0a 20 2a 0a      Nothing.. *.
2230: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64   */..static void
2240: 20 53 48 41 31 50 61 64 4d 65 73 73 61 67 65 28   SHA1PadMessage(
2250: 53 48 41 31 43 6f 6e 74 65 78 74 20 2a 63 6f 6e  SHA1Context *con
2260: 74 65 78 74 29 0a 7b 0a 20 20 20 20 2f 2a 0a 20  text).{.    /*. 
2270: 20 20 20 20 2a 20 20 43 68 65 63 6b 20 74 6f 20      *  Check to 
2280: 73 65 65 20 69 66 20 74 68 65 20 63 75 72 72 65  see if the curre
2290: 6e 74 20 6d 65 73 73 61 67 65 20 62 6c 6f 63 6b  nt message block
22a0: 20 69 73 20 74 6f 6f 20 73 6d 61 6c 6c 20 74 6f   is too small to
22b0: 20 68 6f 6c 64 0a 20 20 20 20 20 2a 20 20 74 68   hold.     *  th
22c0: 65 20 69 6e 69 74 69 61 6c 20 70 61 64 64 69 6e  e initial paddin
22d0: 67 20 62 69 74 73 20 61 6e 64 20 6c 65 6e 67 74  g bits and lengt
22e0: 68 2e 20 20 49 66 20 73 6f 2c 20 77 65 20 77 69  h.  If so, we wi
22f0: 6c 6c 20 70 61 64 20 74 68 65 0a 20 20 20 20 20  ll pad the.     
2300: 2a 20 20 62 6c 6f 63 6b 2c 20 70 72 6f 63 65 73  *  block, proces
2310: 73 20 69 74 2c 20 61 6e 64 20 74 68 65 6e 20 63  s it, and then c
2320: 6f 6e 74 69 6e 75 65 20 70 61 64 64 69 6e 67 20  ontinue padding 
2330: 69 6e 74 6f 20 61 20 73 65 63 6f 6e 64 0a 20 20  into a second.  
2340: 20 20 20 2a 20 20 62 6c 6f 63 6b 2e 0a 20 20 20     *  block..   
2350: 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 6f 6e    */.    if (con
2360: 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c  text->Message_Bl
2370: 6f 63 6b 5f 49 6e 64 65 78 20 3e 20 35 35 29 0a  ock_Index > 55).
2380: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 63 6f      {.        co
2390: 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42  ntext->Message_B
23a0: 6c 6f 63 6b 5b 63 6f 6e 74 65 78 74 2d 3e 4d 65  lock[context->Me
23b0: 73 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 65  ssage_Block_Inde
23c0: 78 2b 2b 5d 20 3d 20 30 78 38 30 3b 0a 20 20 20  x++] = 0x80;.   
23d0: 20 20 20 20 20 77 68 69 6c 65 28 63 6f 6e 74 65       while(conte
23e0: 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63  xt->Message_Bloc
23f0: 6b 5f 49 6e 64 65 78 20 3c 20 36 34 29 0a 20 20  k_Index < 64).  
2400: 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20        {.        
2410: 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73      context->Mes
2420: 73 61 67 65 5f 42 6c 6f 63 6b 5b 63 6f 6e 74 65  sage_Block[conte
2430: 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63  xt->Message_Bloc
2440: 6b 5f 49 6e 64 65 78 2b 2b 5d 20 3d 20 30 3b 0a  k_Index++] = 0;.
2450: 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20          }..     
2460: 20 20 20 53 48 41 31 50 72 6f 63 65 73 73 4d 65     SHA1ProcessMe
2470: 73 73 61 67 65 42 6c 6f 63 6b 28 63 6f 6e 74 65  ssageBlock(conte
2480: 78 74 29 3b 0a 0a 20 20 20 20 20 20 20 20 77 68  xt);..        wh
2490: 69 6c 65 28 63 6f 6e 74 65 78 74 2d 3e 4d 65 73  ile(context->Mes
24a0: 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78  sage_Block_Index
24b0: 20 3c 20 35 36 29 0a 20 20 20 20 20 20 20 20 7b   < 56).        {
24c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e  .            con
24d0: 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c  text->Message_Bl
24e0: 6f 63 6b 5b 63 6f 6e 74 65 78 74 2d 3e 4d 65 73  ock[context->Mes
24f0: 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78  sage_Block_Index
2500: 2b 2b 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  ++] = 0;.       
2510: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73   }.    }.    els
2520: 65 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20  e.    {.        
2530: 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65  context->Message
2540: 5f 42 6c 6f 63 6b 5b 63 6f 6e 74 65 78 74 2d 3e  _Block[context->
2550: 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e  Message_Block_In
2560: 64 65 78 2b 2b 5d 20 3d 20 30 78 38 30 3b 0a 20  dex++] = 0x80;. 
2570: 20 20 20 20 20 20 20 77 68 69 6c 65 28 63 6f 6e         while(con
2580: 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c  text->Message_Bl
2590: 6f 63 6b 5f 49 6e 64 65 78 20 3c 20 35 36 29 0a  ock_Index < 56).
25a0: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20          {.      
25b0: 20 20 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d        context->M
25c0: 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b 63 6f 6e  essage_Block[con
25d0: 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c  text->Message_Bl
25e0: 6f 63 6b 5f 49 6e 64 65 78 2b 2b 5d 20 3d 20 30  ock_Index++] = 0
25f0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
2600: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  }..    /*.     *
2610: 20 20 53 74 6f 72 65 20 74 68 65 20 6d 65 73 73    Store the mess
2620: 61 67 65 20 6c 65 6e 67 74 68 20 61 73 20 74 68  age length as th
2630: 65 20 6c 61 73 74 20 38 20 6f 63 74 65 74 73 0a  e last 8 octets.
2640: 20 20 20 20 20 2a 2f 0a 20 20 20 20 63 6f 6e 74       */.    cont
2650: 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f  ext->Message_Blo
2660: 63 6b 5b 35 36 5d 20 3d 20 63 6f 6e 74 65 78 74  ck[56] = context
2670: 2d 3e 4c 65 6e 67 74 68 5f 48 69 67 68 20 3e 3e  ->Length_High >>
2680: 20 32 34 3b 0a 20 20 20 20 63 6f 6e 74 65 78 74   24;.    context
2690: 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b  ->Message_Block[
26a0: 35 37 5d 20 3d 20 63 6f 6e 74 65 78 74 2d 3e 4c  57] = context->L
26b0: 65 6e 67 74 68 5f 48 69 67 68 20 3e 3e 20 31 36  ength_High >> 16
26c0: 3b 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d  ;.    context->M
26d0: 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b 35 38 5d  essage_Block[58]
26e0: 20 3d 20 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67   = context->Leng
26f0: 74 68 5f 48 69 67 68 20 3e 3e 20 38 3b 0a 20 20  th_High >> 8;.  
2700: 20 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61    context->Messa
2710: 67 65 5f 42 6c 6f 63 6b 5b 35 39 5d 20 3d 20 63  ge_Block[59] = c
2720: 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f 48  ontext->Length_H
2730: 69 67 68 3b 0a 20 20 20 20 63 6f 6e 74 65 78 74  igh;.    context
2740: 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b  ->Message_Block[
2750: 36 30 5d 20 3d 20 63 6f 6e 74 65 78 74 2d 3e 4c  60] = context->L
2760: 65 6e 67 74 68 5f 4c 6f 77 20 3e 3e 20 32 34 3b  ength_Low >> 24;
2770: 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d 65  .    context->Me
2780: 73 73 61 67 65 5f 42 6c 6f 63 6b 5b 36 31 5d 20  ssage_Block[61] 
2790: 3d 20 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 74  = context->Lengt
27a0: 68 5f 4c 6f 77 20 3e 3e 20 31 36 3b 0a 20 20 20  h_Low >> 16;.   
27b0: 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67   context->Messag
27c0: 65 5f 42 6c 6f 63 6b 5b 36 32 5d 20 3d 20 63 6f  e_Block[62] = co
27d0: 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f 4c 6f  ntext->Length_Lo
27e0: 77 20 3e 3e 20 38 3b 0a 20 20 20 20 63 6f 6e 74  w >> 8;.    cont
27f0: 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f  ext->Message_Blo
2800: 63 6b 5b 36 33 5d 20 3d 20 63 6f 6e 74 65 78 74  ck[63] = context
2810: 2d 3e 4c 65 6e 67 74 68 5f 4c 6f 77 3b 0a 0a 20  ->Length_Low;.. 
2820: 20 20 20 53 48 41 31 50 72 6f 63 65 73 73 4d 65     SHA1ProcessMe
2830: 73 73 61 67 65 42 6c 6f 63 6b 28 63 6f 6e 74 65  ssageBlock(conte
2840: 78 74 29 3b 0a 7d 0a                             xt);.}.