0000: 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 6d 70 6c 65 /*.** This imple
0010: 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 53 48 41 mentation of SHA
0020: 31 20 69 73 20 61 64 61 70 74 65 64 20 66 72 6f 1 is adapted fro
0030: 6d 20 74 68 65 20 65 78 61 6d 70 6c 65 20 69 6d m the example im
0040: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 2a 2a 20 plementation.**
0050: 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 52 46 43 contained in RFC
0060: 2d 33 31 37 34 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 -3174..*/.#inclu
0070: 64 65 20 3c 73 74 64 69 6e 74 2e 68 3e 0a 23 69 de <stdint.h>.#i
0080: 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 79 70 65 nclude <sys/type
0090: 73 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 22 63 s.h>.#include "c
00a0: 6f 6e 66 69 67 2e 68 22 0a 23 69 6e 63 6c 75 64 onfig.h".#includ
00b0: 65 20 22 73 68 61 31 2e 68 22 0a 0a 2f 2a 0a 20 e "sha1.h"../*.
00c0: 2a 20 49 66 20 79 6f 75 20 64 6f 20 6e 6f 74 20 * If you do not
00d0: 68 61 76 65 20 74 68 65 20 49 53 4f 20 73 74 61 have the ISO sta
00e0: 6e 64 61 72 64 20 73 74 64 69 6e 74 2e 68 20 68 ndard stdint.h h
00f0: 65 61 64 65 72 20 66 69 6c 65 2c 20 74 68 65 6e eader file, then
0100: 20 79 6f 75 0a 20 2a 20 6d 75 73 74 20 74 79 70 you. * must typ
0110: 64 65 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e def the followin
0120: 67 3a 0a 20 2a 20 20 20 20 6e 61 6d 65 20 20 20 g:. * name
0130: 20 20 20 20 20 20 20 20 20 20 20 6d 65 61 6e 69 meani
0140: 6e 67 0a 20 2a 20 20 75 69 6e 74 33 32 5f 74 20 ng. * uint32_t
0150: 20 20 20 20 20 20 20 20 75 6e 73 69 67 6e 65 64 unsigned
0160: 20 33 32 20 62 69 74 20 69 6e 74 65 67 65 72 0a 32 bit integer.
0170: 20 2a 20 20 75 69 6e 74 38 5f 74 20 20 20 20 20 * uint8_t
0180: 20 20 20 20 20 75 6e 73 69 67 6e 65 64 20 38 20 unsigned 8
0190: 62 69 74 20 69 6e 74 65 67 65 72 20 28 69 2e 65 bit integer (i.e
01a0: 2e 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ., unsigned char
01b0: 29 0a 20 2a 20 20 69 6e 74 5f 6c 65 61 73 74 31 ). * int_least1
01c0: 36 5f 74 20 20 20 20 69 6e 74 65 67 65 72 20 6f 6_t integer o
01d0: 66 20 3e 3d 20 31 36 20 62 69 74 73 0a 20 2a 0a f >= 16 bits. *.
01e0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 53 48 41 31 */.#define SHA1
01f0: 48 61 73 68 53 69 7a 65 20 32 30 0a 23 64 65 66 HashSize 20.#def
0200: 69 6e 65 20 73 68 61 53 75 63 63 65 73 73 20 30 ine shaSuccess 0
0210: 0a 23 64 65 66 69 6e 65 20 73 68 61 49 6e 70 75 .#define shaInpu
0220: 74 54 6f 6f 4c 6f 6e 67 20 31 0a 23 64 65 66 69 tTooLong 1.#defi
0230: 6e 65 20 73 68 61 53 74 61 74 65 45 72 72 6f 72 ne shaStateError
0240: 20 32 0a 0a 2f 2a 0a 20 2a 20 20 54 68 69 73 20 2../*. * This
0250: 73 74 72 75 63 74 75 72 65 20 77 69 6c 6c 20 68 structure will h
0260: 6f 6c 64 20 63 6f 6e 74 65 78 74 20 69 6e 66 6f old context info
0270: 72 6d 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 rmation for the
0280: 53 48 41 2d 31 0a 20 2a 20 20 68 61 73 68 69 6e SHA-1. * hashin
0290: 67 20 6f 70 65 72 61 74 69 6f 6e 0a 20 2a 2f 0a g operation. */.
02a0: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 53 typedef struct S
02b0: 48 41 31 43 6f 6e 74 65 78 74 20 53 48 41 31 43 HA1Context SHA1C
02c0: 6f 6e 74 65 78 74 3b 0a 73 74 72 75 63 74 20 53 ontext;.struct S
02d0: 48 41 31 43 6f 6e 74 65 78 74 20 7b 0a 20 20 20 HA1Context {.
02e0: 20 75 69 6e 74 33 32 5f 74 20 49 6e 74 65 72 6d uint32_t Interm
02f0: 65 64 69 61 74 65 5f 48 61 73 68 5b 53 48 41 31 ediate_Hash[SHA1
0300: 48 61 73 68 53 69 7a 65 2f 34 5d 3b 20 2f 2a 20 HashSize/4]; /*
0310: 4d 65 73 73 61 67 65 20 44 69 67 65 73 74 20 20 Message Digest
0320: 2a 2f 0a 0a 20 20 20 20 75 69 6e 74 33 32 5f 74 */.. uint32_t
0330: 20 4c 65 6e 67 74 68 5f 4c 6f 77 3b 20 20 20 20 Length_Low;
0340: 20 20 20 20 20 20 20 20 2f 2a 20 4d 65 73 73 61 /* Messa
0350: 67 65 20 6c 65 6e 67 74 68 20 69 6e 20 62 69 74 ge length in bit
0360: 73 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 75 69 s */. ui
0370: 6e 74 33 32 5f 74 20 4c 65 6e 67 74 68 5f 48 69 nt32_t Length_Hi
0380: 67 68 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a gh; /*
0390: 20 4d 65 73 73 61 67 65 20 6c 65 6e 67 74 68 20 Message length
03a0: 69 6e 20 62 69 74 73 20 20 20 20 20 20 2a 2f 0a in bits */.
03b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
03c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03d0: 2f 2a 20 49 6e 64 65 78 20 69 6e 74 6f 20 6d 65 /* Index into me
03e0: 73 73 61 67 65 20 62 6c 6f 63 6b 20 61 72 72 61 ssage block arra
03f0: 79 20 20 20 2a 2f 0a 20 20 20 20 69 6e 74 5f 6c y */. int_l
0400: 65 61 73 74 31 36 5f 74 20 4d 65 73 73 61 67 65 east16_t Message
0410: 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78 3b 0a 20 20 _Block_Index;.
0420: 20 20 75 69 6e 74 38 5f 74 20 4d 65 73 73 61 67 uint8_t Messag
0430: 65 5f 42 6c 6f 63 6b 5b 36 34 5d 3b 20 20 20 20 e_Block[64];
0440: 20 20 2f 2a 20 35 31 32 2d 62 69 74 20 6d 65 73 /* 512-bit mes
0450: 73 61 67 65 20 62 6c 6f 63 6b 73 20 20 20 20 20 sage blocks
0460: 20 2a 2f 0a 0a 20 20 20 20 69 6e 74 20 43 6f 6d */.. int Com
0470: 70 75 74 65 64 3b 20 20 20 20 20 20 20 20 20 20 puted;
0480: 20 20 20 20 20 2f 2a 20 49 73 20 74 68 65 20 64 /* Is the d
0490: 69 67 65 73 74 20 63 6f 6d 70 75 74 65 64 3f 20 igest computed?
04a0: 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 */. i
04b0: 6e 74 20 43 6f 72 72 75 70 74 65 64 3b 20 20 20 nt Corrupted;
04c0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49 73 20 /* Is
04d0: 74 68 65 20 6d 65 73 73 61 67 65 20 64 69 67 65 the message dige
04e0: 73 74 20 63 6f 72 72 75 70 74 65 64 3f 20 2a 2f st corrupted? */
04f0: 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 20 73 68 61 31 .};../*. * sha1
0500: 2e 63 0a 20 2a 0a 20 2a 20 20 44 65 73 63 72 69 .c. *. * Descri
0510: 70 74 69 6f 6e 3a 0a 20 2a 20 20 20 20 20 20 54 ption:. * T
0520: 68 69 73 20 66 69 6c 65 20 69 6d 70 6c 65 6d 65 his file impleme
0530: 6e 74 73 20 74 68 65 20 53 65 63 75 72 65 20 48 nts the Secure H
0540: 61 73 68 69 6e 67 20 41 6c 67 6f 72 69 74 68 6d ashing Algorithm
0550: 20 31 20 61 73 0a 20 2a 20 20 20 20 20 20 64 65 1 as. * de
0560: 66 69 6e 65 64 20 69 6e 20 46 49 50 53 20 50 55 fined in FIPS PU
0570: 42 20 31 38 30 2d 31 20 70 75 62 6c 69 73 68 65 B 180-1 publishe
0580: 64 20 41 70 72 69 6c 20 31 37 2c 20 31 39 39 35 d April 17, 1995
0590: 2e 0a 20 2a 0a 20 2a 20 20 20 20 20 20 54 68 65 .. *. * The
05a0: 20 53 48 41 2d 31 2c 20 70 72 6f 64 75 63 65 73 SHA-1, produces
05b0: 20 61 20 31 36 30 2d 62 69 74 20 6d 65 73 73 61 a 160-bit messa
05c0: 67 65 20 64 69 67 65 73 74 20 66 6f 72 20 61 20 ge digest for a
05d0: 67 69 76 65 6e 0a 20 2a 20 20 20 20 20 20 64 61 given. * da
05e0: 74 61 20 73 74 72 65 61 6d 2e 20 20 49 74 20 73 ta stream. It s
05f0: 68 6f 75 6c 64 20 74 61 6b 65 20 61 62 6f 75 74 hould take about
0600: 20 32 2a 2a 6e 20 73 74 65 70 73 20 74 6f 20 66 2**n steps to f
0610: 69 6e 64 20 61 0a 20 2a 20 20 20 20 20 20 6d 65 ind a. * me
0620: 73 73 61 67 65 20 77 69 74 68 20 74 68 65 20 73 ssage with the s
0630: 61 6d 65 20 64 69 67 65 73 74 20 61 73 20 61 20 ame digest as a
0640: 67 69 76 65 6e 20 6d 65 73 73 61 67 65 20 61 6e given message an
0650: 64 0a 20 2a 20 20 20 20 20 20 32 2a 2a 28 6e 2f d. * 2**(n/
0660: 32 29 20 74 6f 20 66 69 6e 64 20 61 6e 79 20 74 2) to find any t
0670: 77 6f 20 6d 65 73 73 61 67 65 73 20 77 69 74 68 wo messages with
0680: 20 74 68 65 20 73 61 6d 65 20 64 69 67 65 73 74 the same digest
0690: 2c 0a 20 2a 20 20 20 20 20 20 77 68 65 6e 20 6e ,. * when n
06a0: 20 69 73 20 74 68 65 20 64 69 67 65 73 74 20 73 is the digest s
06b0: 69 7a 65 20 69 6e 20 62 69 74 73 2e 20 20 54 68 ize in bits. Th
06c0: 65 72 65 66 6f 72 65 2c 20 74 68 69 73 0a 20 2a erefore, this. *
06d0: 20 20 20 20 20 20 61 6c 67 6f 72 69 74 68 6d 20 algorithm
06e0: 63 61 6e 20 73 65 72 76 65 20 61 73 20 61 20 6d can serve as a m
06f0: 65 61 6e 73 20 6f 66 20 70 72 6f 76 69 64 69 6e eans of providin
0700: 67 20 61 0a 20 2a 20 20 20 20 20 20 22 66 69 6e g a. * "fin
0710: 67 65 72 70 72 69 6e 74 22 20 66 6f 72 20 61 20 gerprint" for a
0720: 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 20 message.. *. *
0730: 50 6f 72 74 61 62 69 6c 69 74 79 20 49 73 73 75 Portability Issu
0740: 65 73 3a 0a 20 2a 20 20 20 20 20 20 53 48 41 2d es:. * SHA-
0750: 31 20 69 73 20 64 65 66 69 6e 65 64 20 69 6e 20 1 is defined in
0760: 74 65 72 6d 73 20 6f 66 20 33 32 2d 62 69 74 20 terms of 32-bit
0770: 22 77 6f 72 64 73 22 2e 20 20 54 68 69 73 20 63 "words". This c
0780: 6f 64 65 0a 20 2a 20 20 20 20 20 20 75 73 65 73 ode. * uses
0790: 20 3c 73 74 64 69 6e 74 2e 68 3e 20 28 69 6e 63 <stdint.h> (inc
07a0: 6c 75 64 65 64 20 76 69 61 20 22 73 68 61 31 2e luded via "sha1.
07b0: 68 22 20 74 6f 20 64 65 66 69 6e 65 20 33 32 20 h" to define 32
07c0: 61 6e 64 20 38 0a 20 2a 20 20 20 20 20 20 62 69 and 8. * bi
07d0: 74 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 65 67 t unsigned integ
07e0: 65 72 20 74 79 70 65 73 2e 20 20 49 66 20 79 6f er types. If yo
07f0: 75 72 20 43 20 63 6f 6d 70 69 6c 65 72 20 64 6f ur C compiler do
0800: 65 73 20 6e 6f 74 0a 20 2a 20 20 20 20 20 20 73 es not. * s
0810: 75 70 70 6f 72 74 20 33 32 20 62 69 74 20 75 6e upport 32 bit un
0820: 73 69 67 6e 65 64 20 69 6e 74 65 67 65 72 73 2c signed integers,
0830: 20 74 68 69 73 20 63 6f 64 65 20 69 73 20 6e 6f this code is no
0840: 74 0a 20 2a 20 20 20 20 20 20 61 70 70 72 6f 70 t. * approp
0850: 72 69 61 74 65 2e 0a 20 2a 0a 20 2a 20 20 43 61 riate.. *. * Ca
0860: 76 65 61 74 73 3a 0a 20 2a 20 20 20 20 20 20 53 veats:. * S
0870: 48 41 2d 31 20 69 73 20 64 65 73 69 67 6e 65 64 HA-1 is designed
0880: 20 74 6f 20 77 6f 72 6b 20 77 69 74 68 20 6d 65 to work with me
0890: 73 73 61 67 65 73 20 6c 65 73 73 20 74 68 61 6e ssages less than
08a0: 20 32 5e 36 34 20 62 69 74 73 0a 20 2a 20 20 20 2^64 bits. *
08b0: 20 20 20 6c 6f 6e 67 2e 20 20 41 6c 74 68 6f 75 long. Althou
08c0: 67 68 20 53 48 41 2d 31 20 61 6c 6c 6f 77 73 20 gh SHA-1 allows
08d0: 61 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 a message digest
08e0: 20 74 6f 20 62 65 20 67 65 6e 65 72 61 74 65 64 to be generated
08f0: 0a 20 2a 20 20 20 20 20 20 66 6f 72 20 6d 65 73 . * for mes
0900: 73 61 67 65 73 20 6f 66 20 61 6e 79 20 6e 75 6d sages of any num
0910: 62 65 72 20 6f 66 20 62 69 74 73 20 6c 65 73 73 ber of bits less
0920: 20 74 68 61 6e 20 32 5e 36 34 2c 20 74 68 69 73 than 2^64, this
0930: 0a 20 2a 20 20 20 20 20 20 69 6d 70 6c 65 6d 65 . * impleme
0940: 6e 74 61 74 69 6f 6e 20 6f 6e 6c 79 20 77 6f 72 ntation only wor
0950: 6b 73 20 77 69 74 68 20 6d 65 73 73 61 67 65 73 ks with messages
0960: 20 77 69 74 68 20 61 20 6c 65 6e 67 74 68 20 74 with a length t
0970: 68 61 74 20 69 73 0a 20 2a 20 20 20 20 20 20 61 hat is. * a
0980: 20 6d 75 6c 74 69 70 6c 65 20 6f 66 20 74 68 65 multiple of the
0990: 20 73 69 7a 65 20 6f 66 20 61 6e 20 38 2d 62 69 size of an 8-bi
09a0: 74 20 63 68 61 72 61 63 74 65 72 2e 0a 20 2a 0a t character.. *.
09b0: 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 20 44 65 66 69 */../*. * Defi
09c0: 6e 65 20 74 68 65 20 53 48 41 31 20 63 69 72 63 ne the SHA1 circ
09d0: 75 6c 61 72 20 6c 65 66 74 20 73 68 69 66 74 20 ular left shift
09e0: 6d 61 63 72 6f 0a 20 2a 2f 0a 23 64 65 66 69 6e macro. */.#defin
09f0: 65 20 53 48 41 31 43 69 72 63 75 6c 61 72 53 68 e SHA1CircularSh
0a00: 69 66 74 28 62 69 74 73 2c 77 6f 72 64 29 20 5c ift(bits,word) \
0a10: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0a20: 20 28 28 28 77 6f 72 64 29 20 3c 3c 20 28 62 69 (((word) << (bi
0a30: 74 73 29 29 20 7c 20 28 28 77 6f 72 64 29 20 3e ts)) | ((word) >
0a40: 3e 20 28 33 32 2d 28 62 69 74 73 29 29 29 29 0a > (32-(bits)))).
0a50: 0a 2f 2a 20 4c 6f 63 61 6c 20 46 75 6e 63 74 69 ./* Local Functi
0a60: 6f 6e 20 50 72 6f 74 6f 74 79 70 74 65 73 20 2a on Prototyptes *
0a70: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 53 48 /.static void SH
0a80: 41 31 50 61 64 4d 65 73 73 61 67 65 28 53 48 41 A1PadMessage(SHA
0a90: 31 43 6f 6e 74 65 78 74 20 2a 29 3b 0a 73 74 61 1Context *);.sta
0aa0: 74 69 63 20 76 6f 69 64 20 53 48 41 31 50 72 6f tic void SHA1Pro
0ab0: 63 65 73 73 4d 65 73 73 61 67 65 42 6c 6f 63 6b cessMessageBlock
0ac0: 28 53 48 41 31 43 6f 6e 74 65 78 74 20 2a 29 3b (SHA1Context *);
0ad0: 0a 0a 2f 2a 0a 20 2a 20 20 53 48 41 31 52 65 73 ../*. * SHA1Res
0ae0: 65 74 0a 20 2a 0a 20 2a 20 20 44 65 73 63 72 69 et. *. * Descri
0af0: 70 74 69 6f 6e 3a 0a 20 2a 20 20 20 20 20 20 54 ption:. * T
0b00: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 6c his function wil
0b10: 6c 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 l initialize the
0b20: 20 53 48 41 31 43 6f 6e 74 65 78 74 20 69 6e 20 SHA1Context in
0b30: 70 72 65 70 61 72 61 74 69 6f 6e 0a 20 2a 20 20 preparation. *
0b40: 20 20 20 20 66 6f 72 20 63 6f 6d 70 75 74 69 6e for computin
0b50: 67 20 61 20 6e 65 77 20 53 48 41 31 20 6d 65 73 g a new SHA1 mes
0b60: 73 61 67 65 20 64 69 67 65 73 74 2e 0a 20 2a 0a sage digest.. *.
0b70: 20 2a 20 20 50 61 72 61 6d 65 74 65 72 73 3a 0a * Parameters:.
0b80: 20 2a 20 20 20 20 20 20 63 6f 6e 74 65 78 74 3a * context:
0b90: 20 5b 69 6e 2f 6f 75 74 5d 0a 20 2a 20 20 20 20 [in/out]. *
0ba0: 20 20 20 20 20 20 54 68 65 20 63 6f 6e 74 65 78 The contex
0bb0: 74 20 74 6f 20 72 65 73 65 74 2e 0a 20 2a 0a 20 t to reset.. *.
0bc0: 2a 20 20 52 65 74 75 72 6e 73 3a 0a 20 2a 20 20 * Returns:. *
0bd0: 20 20 20 20 73 68 61 20 45 72 72 6f 72 20 43 6f sha Error Co
0be0: 64 65 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 de.. *. */.stati
0bf0: 63 20 69 6e 74 20 53 48 41 31 52 65 73 65 74 28 c int SHA1Reset(
0c00: 53 48 41 31 43 6f 6e 74 65 78 74 20 2a 63 6f 6e SHA1Context *con
0c10: 74 65 78 74 29 0a 7b 0a 20 20 20 20 63 6f 6e 74 text).{. cont
0c20: 65 78 74 2d 3e 4c 65 6e 67 74 68 5f 4c 6f 77 20 ext->Length_Low
0c30: 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 30 3b = 0;
0c40: 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4c 65 . context->Le
0c50: 6e 67 74 68 5f 48 69 67 68 20 20 20 20 20 20 20 ngth_High
0c60: 20 20 20 20 20 3d 20 30 3b 0a 20 20 20 20 63 6f = 0;. co
0c70: 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 ntext->Message_B
0c80: 6c 6f 63 6b 5f 49 6e 64 65 78 20 20 20 20 3d 20 lock_Index =
0c90: 30 3b 0a 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d 0;.. context-
0ca0: 3e 49 6e 74 65 72 6d 65 64 69 61 74 65 5f 48 61 >Intermediate_Ha
0cb0: 73 68 5b 30 5d 20 20 20 3d 20 30 78 36 37 34 35 sh[0] = 0x6745
0cc0: 32 33 30 31 3b 0a 20 20 20 20 63 6f 6e 74 65 78 2301;. contex
0cd0: 74 2d 3e 49 6e 74 65 72 6d 65 64 69 61 74 65 5f t->Intermediate_
0ce0: 48 61 73 68 5b 31 5d 20 20 20 3d 20 30 78 45 46 Hash[1] = 0xEF
0cf0: 43 44 41 42 38 39 3b 0a 20 20 20 20 63 6f 6e 74 CDAB89;. cont
0d00: 65 78 74 2d 3e 49 6e 74 65 72 6d 65 64 69 61 74 ext->Intermediat
0d10: 65 5f 48 61 73 68 5b 32 5d 20 20 20 3d 20 30 78 e_Hash[2] = 0x
0d20: 39 38 42 41 44 43 46 45 3b 0a 20 20 20 20 63 6f 98BADCFE;. co
0d30: 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65 64 69 ntext->Intermedi
0d40: 61 74 65 5f 48 61 73 68 5b 33 5d 20 20 20 3d 20 ate_Hash[3] =
0d50: 30 78 31 30 33 32 35 34 37 36 3b 0a 20 20 20 20 0x10325476;.
0d60: 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65 context->Interme
0d70: 64 69 61 74 65 5f 48 61 73 68 5b 34 5d 20 20 20 diate_Hash[4]
0d80: 3d 20 30 78 43 33 44 32 45 31 46 30 3b 0a 0a 20 = 0xC3D2E1F0;..
0d90: 20 20 20 63 6f 6e 74 65 78 74 2d 3e 43 6f 6d 70 context->Comp
0da0: 75 74 65 64 20 20 20 3d 20 30 3b 0a 20 20 20 20 uted = 0;.
0db0: 63 6f 6e 74 65 78 74 2d 3e 43 6f 72 72 75 70 74 context->Corrupt
0dc0: 65 64 20 20 3d 20 30 3b 0a 0a 20 20 20 20 72 65 ed = 0;.. re
0dd0: 74 75 72 6e 20 73 68 61 53 75 63 63 65 73 73 3b turn shaSuccess;
0de0: 0a 7d 0a 0a 2f 2a 0a 20 2a 20 20 53 48 41 31 52 .}../*. * SHA1R
0df0: 65 73 75 6c 74 0a 20 2a 0a 20 2a 20 20 44 65 73 esult. *. * Des
0e00: 63 72 69 70 74 69 6f 6e 3a 0a 20 2a 20 20 20 20 cription:. *
0e10: 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 This function
0e20: 77 69 6c 6c 20 72 65 74 75 72 6e 20 74 68 65 20 will return the
0e30: 31 36 30 2d 62 69 74 20 6d 65 73 73 61 67 65 20 160-bit message
0e40: 64 69 67 65 73 74 20 69 6e 74 6f 20 74 68 65 0a digest into the.
0e50: 20 2a 20 20 20 20 20 20 4d 65 73 73 61 67 65 5f * Message_
0e60: 44 69 67 65 73 74 20 61 72 72 61 79 20 20 70 72 Digest array pr
0e70: 6f 76 69 64 65 64 20 62 79 20 74 68 65 20 63 61 ovided by the ca
0e80: 6c 6c 65 72 2e 0a 20 2a 20 20 20 20 20 20 4e 4f ller.. * NO
0e90: 54 45 3a 20 54 68 65 20 66 69 72 73 74 20 6f 63 TE: The first oc
0ea0: 74 65 74 20 6f 66 20 68 61 73 68 20 69 73 20 73 tet of hash is s
0eb0: 74 6f 72 65 64 20 69 6e 20 74 68 65 20 30 74 68 tored in the 0th
0ec0: 20 65 6c 65 6d 65 6e 74 2c 0a 20 2a 20 20 20 20 element,. *
0ed0: 20 20 20 20 20 20 20 20 74 68 65 20 6c 61 73 74 the last
0ee0: 20 6f 63 74 65 74 20 6f 66 20 68 61 73 68 20 69 octet of hash i
0ef0: 6e 20 74 68 65 20 31 39 74 68 20 65 6c 65 6d 65 n the 19th eleme
0f00: 6e 74 2e 0a 20 2a 0a 20 2a 20 20 50 61 72 61 6d nt.. *. * Param
0f10: 65 74 65 72 73 3a 0a 20 2a 20 20 20 20 20 20 63 eters:. * c
0f20: 6f 6e 74 65 78 74 3a 20 5b 69 6e 2f 6f 75 74 5d ontext: [in/out]
0f30: 0a 20 2a 20 20 20 20 20 20 20 20 20 20 54 68 65 . * The
0f40: 20 63 6f 6e 74 65 78 74 20 74 6f 20 75 73 65 20 context to use
0f50: 74 6f 20 63 61 6c 63 75 6c 61 74 65 20 74 68 65 to calculate the
0f60: 20 53 48 41 2d 31 20 68 61 73 68 2e 0a 20 2a 20 SHA-1 hash.. *
0f70: 20 20 20 20 20 4d 65 73 73 61 67 65 5f 44 69 67 Message_Dig
0f80: 65 73 74 3a 20 5b 6f 75 74 5d 0a 20 2a 20 20 20 est: [out]. *
0f90: 20 20 20 20 20 20 20 57 68 65 72 65 20 74 68 65 Where the
0fa0: 20 64 69 67 65 73 74 20 69 73 20 72 65 74 75 72 digest is retur
0fb0: 6e 65 64 2e 0a 20 2a 0a 20 2a 20 20 52 65 74 75 ned.. *. * Retu
0fc0: 72 6e 73 3a 0a 20 2a 20 20 20 20 20 20 73 68 61 rns:. * sha
0fd0: 20 45 72 72 6f 72 20 43 6f 64 65 2e 0a 20 2a 0a Error Code.. *.
0fe0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 53 */.static int S
0ff0: 48 41 31 52 65 73 75 6c 74 28 20 53 48 41 31 43 HA1Result( SHA1C
1000: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c ontext *context,
1010: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1020: 20 75 69 6e 74 38 5f 74 20 4d 65 73 73 61 67 65 uint8_t Message
1030: 5f 44 69 67 65 73 74 5b 53 48 41 31 48 61 73 68 _Digest[SHA1Hash
1040: 53 69 7a 65 5d 29 0a 7b 0a 20 20 20 20 69 6e 74 Size]).{. int
1050: 20 69 3b 0a 0a 20 20 20 20 69 66 20 28 63 6f 6e i;.. if (con
1060: 74 65 78 74 2d 3e 43 6f 72 72 75 70 74 65 64 29 text->Corrupted)
1070: 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 72 . {. r
1080: 65 74 75 72 6e 20 63 6f 6e 74 65 78 74 2d 3e 43 eturn context->C
1090: 6f 72 72 75 70 74 65 64 3b 0a 20 20 20 20 7d 0a orrupted;. }.
10a0: 0a 20 20 20 20 69 66 20 28 21 63 6f 6e 74 65 78 . if (!contex
10b0: 74 2d 3e 43 6f 6d 70 75 74 65 64 29 0a 20 20 20 t->Computed).
10c0: 20 7b 0a 20 20 20 20 20 20 20 20 53 48 41 31 50 {. SHA1P
10d0: 61 64 4d 65 73 73 61 67 65 28 63 6f 6e 74 65 78 adMessage(contex
10e0: 74 29 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 t);. for(
10f0: 69 3d 30 3b 20 69 3c 36 34 3b 20 2b 2b 69 29 0a i=0; i<64; ++i).
1100: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 {.
1110: 20 20 20 20 20 20 2f 2a 20 6d 65 73 73 61 67 65 /* message
1120: 20 6d 61 79 20 62 65 20 73 65 6e 73 69 74 69 76 may be sensitiv
1130: 65 2c 20 63 6c 65 61 72 20 69 74 20 6f 75 74 20 e, clear it out
1140: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 */. c
1150: 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f ontext->Message_
1160: 42 6c 6f 63 6b 5b 69 5d 20 3d 20 30 3b 0a 20 20 Block[i] = 0;.
1170: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
1180: 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f context->Length_
1190: 4c 6f 77 20 3d 20 30 3b 20 20 20 20 2f 2a 20 61 Low = 0; /* a
11a0: 6e 64 20 63 6c 65 61 72 20 6c 65 6e 67 74 68 20 nd clear length
11b0: 2a 2f 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 65 */. conte
11c0: 78 74 2d 3e 4c 65 6e 67 74 68 5f 48 69 67 68 20 xt->Length_High
11d0: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e = 0;. con
11e0: 74 65 78 74 2d 3e 43 6f 6d 70 75 74 65 64 20 3d text->Computed =
11f0: 20 31 3b 0a 0a 20 20 20 20 7d 0a 0a 20 20 20 20 1;.. }..
1200: 66 6f 72 28 69 20 3d 20 30 3b 20 69 20 3c 20 53 for(i = 0; i < S
1210: 48 41 31 48 61 73 68 53 69 7a 65 3b 20 2b 2b 69 HA1HashSize; ++i
1220: 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 ). {.
1230: 4d 65 73 73 61 67 65 5f 44 69 67 65 73 74 5b 69 Message_Digest[i
1240: 5d 20 3d 20 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 ] = context->Int
1250: 65 72 6d 65 64 69 61 74 65 5f 48 61 73 68 5b 69 ermediate_Hash[i
1260: 3e 3e 32 5d 0a 20 20 20 20 20 20 20 20 20 20 20 >>2].
1270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1280: 20 3e 3e 20 38 20 2a 20 28 20 33 20 2d 20 28 20 >> 8 * ( 3 - (
1290: 69 20 26 20 30 78 30 33 20 29 20 29 3b 0a 20 20 i & 0x03 ) );.
12a0: 20 20 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 }.. return
12b0: 73 68 61 53 75 63 63 65 73 73 3b 0a 7d 0a 0a 2f shaSuccess;.}../
12c0: 2a 0a 20 2a 20 20 53 48 41 31 49 6e 70 75 74 0a *. * SHA1Input.
12d0: 20 2a 0a 20 2a 20 20 44 65 73 63 72 69 70 74 69 *. * Descripti
12e0: 6f 6e 3a 0a 20 2a 20 20 20 20 20 20 54 68 69 73 on:. * This
12f0: 20 66 75 6e 63 74 69 6f 6e 20 61 63 63 65 70 74 function accept
1300: 73 20 61 6e 20 61 72 72 61 79 20 6f 66 20 6f 63 s an array of oc
1310: 74 65 74 73 20 61 73 20 74 68 65 20 6e 65 78 74 tets as the next
1320: 20 70 6f 72 74 69 6f 6e 0a 20 2a 20 20 20 20 20 portion. *
1330: 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 2e of the message.
1340: 0a 20 2a 0a 20 2a 20 20 50 61 72 61 6d 65 74 65 . *. * Paramete
1350: 72 73 3a 0a 20 2a 20 20 20 20 20 20 63 6f 6e 74 rs:. * cont
1360: 65 78 74 3a 20 5b 69 6e 2f 6f 75 74 5d 0a 20 2a ext: [in/out]. *
1370: 20 20 20 20 20 20 20 20 20 20 54 68 65 20 53 48 The SH
1380: 41 20 63 6f 6e 74 65 78 74 20 74 6f 20 75 70 64 A context to upd
1390: 61 74 65 0a 20 2a 20 20 20 20 20 20 6d 65 73 73 ate. * mess
13a0: 61 67 65 5f 61 72 72 61 79 3a 20 5b 69 6e 5d 0a age_array: [in].
13b0: 20 2a 20 20 20 20 20 20 20 20 20 20 41 6e 20 61 * An a
13c0: 72 72 61 79 20 6f 66 20 63 68 61 72 61 63 74 65 rray of characte
13d0: 72 73 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 rs representing
13e0: 74 68 65 20 6e 65 78 74 20 70 6f 72 74 69 6f 6e the next portion
13f0: 20 6f 66 0a 20 2a 20 20 20 20 20 20 20 20 20 20 of. *
1400: 74 68 65 20 6d 65 73 73 61 67 65 2e 0a 20 2a 20 the message.. *
1410: 20 20 20 20 20 6c 65 6e 67 74 68 3a 20 5b 69 6e length: [in
1420: 5d 0a 20 2a 20 20 20 20 20 20 20 20 20 20 54 68 ]. * Th
1430: 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 e length of the
1440: 6d 65 73 73 61 67 65 20 69 6e 20 6d 65 73 73 61 message in messa
1450: 67 65 5f 61 72 72 61 79 0a 20 2a 0a 20 2a 20 20 ge_array. *. *
1460: 52 65 74 75 72 6e 73 3a 0a 20 2a 20 20 20 20 20 Returns:. *
1470: 20 73 68 61 20 45 72 72 6f 72 20 43 6f 64 65 2e sha Error Code.
1480: 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 0a 69 . *. */.static.i
1490: 6e 74 20 53 48 41 31 49 6e 70 75 74 28 20 20 20 nt SHA1Input(
14a0: 20 53 48 41 31 43 6f 6e 74 65 78 74 20 20 20 20 SHA1Context
14b0: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 20 20 20 20 *context,.
14c0: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 cons
14d0: 74 20 75 69 6e 74 38 5f 74 20 20 2a 6d 65 73 73 t uint8_t *mess
14e0: 61 67 65 5f 61 72 72 61 79 2c 0a 20 20 20 20 20 age_array,.
14f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 73 uns
1500: 69 67 6e 65 64 20 20 20 20 20 20 20 6c 65 6e 67 igned leng
1510: 74 68 29 0a 7b 0a 20 20 20 20 69 66 20 28 21 6c th).{. if (!l
1520: 65 6e 67 74 68 29 0a 20 20 20 20 7b 0a 20 20 20 ength). {.
1530: 20 20 20 20 20 72 65 74 75 72 6e 20 73 68 61 53 return shaS
1540: 75 63 63 65 73 73 3b 0a 20 20 20 20 7d 0a 0a 20 uccess;. }..
1550: 20 20 20 69 66 20 28 63 6f 6e 74 65 78 74 2d 3e if (context->
1560: 43 6f 6d 70 75 74 65 64 29 0a 20 20 20 20 7b 0a Computed). {.
1570: 20 20 20 20 20 20 20 20 63 6f 6e 74 65 78 74 2d context-
1580: 3e 43 6f 72 72 75 70 74 65 64 20 3d 20 73 68 61 >Corrupted = sha
1590: 53 74 61 74 65 45 72 72 6f 72 3b 0a 0a 20 20 20 StateError;..
15a0: 20 20 20 20 20 72 65 74 75 72 6e 20 73 68 61 53 return shaS
15b0: 74 61 74 65 45 72 72 6f 72 3b 0a 20 20 20 20 7d tateError;. }
15c0: 0a 0a 20 20 20 20 69 66 20 28 63 6f 6e 74 65 78 .. if (contex
15d0: 74 2d 3e 43 6f 72 72 75 70 74 65 64 29 0a 20 20 t->Corrupted).
15e0: 20 20 7b 0a 20 20 20 20 20 20 20 20 20 72 65 74 {. ret
15f0: 75 72 6e 20 63 6f 6e 74 65 78 74 2d 3e 43 6f 72 urn context->Cor
1600: 72 75 70 74 65 64 3b 0a 20 20 20 20 7d 0a 20 20 rupted;. }.
1610: 20 20 77 68 69 6c 65 28 6c 65 6e 67 74 68 2d 2d while(length--
1620: 20 26 26 20 21 63 6f 6e 74 65 78 74 2d 3e 43 6f && !context->Co
1630: 72 72 75 70 74 65 64 29 0a 20 20 20 20 7b 0a 20 rrupted). {.
1640: 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 context->Mess
1650: 61 67 65 5f 42 6c 6f 63 6b 5b 63 6f 6e 74 65 78 age_Block[contex
1660: 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b t->Message_Block
1670: 5f 49 6e 64 65 78 2b 2b 5d 20 3d 0a 20 20 20 20 _Index++] =.
1680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1690: 28 2a 6d 65 73 73 61 67 65 5f 61 72 72 61 79 20 (*message_array
16a0: 26 20 30 78 46 46 29 3b 0a 0a 20 20 20 20 63 6f & 0xFF);.. co
16b0: 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f 4c 6f ntext->Length_Lo
16c0: 77 20 2b 3d 20 38 3b 0a 20 20 20 20 69 66 20 28 w += 8;. if (
16d0: 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f context->Length_
16e0: 4c 6f 77 20 3d 3d 20 30 29 0a 20 20 20 20 7b 0a Low == 0). {.
16f0: 20 20 20 20 20 20 20 20 63 6f 6e 74 65 78 74 2d context-
1700: 3e 4c 65 6e 67 74 68 5f 48 69 67 68 2b 2b 3b 0a >Length_High++;.
1710: 20 20 20 20 20 20 20 20 69 66 20 28 63 6f 6e 74 if (cont
1720: 65 78 74 2d 3e 4c 65 6e 67 74 68 5f 48 69 67 68 ext->Length_High
1730: 20 3d 3d 20 30 29 0a 20 20 20 20 20 20 20 20 7b == 0). {
1740: 0a 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 . /*
1750: 4d 65 73 73 61 67 65 20 69 73 20 74 6f 6f 20 6c Message is too l
1760: 6f 6e 67 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 ong */.
1770: 20 20 20 63 6f 6e 74 65 78 74 2d 3e 43 6f 72 72 context->Corr
1780: 75 70 74 65 64 20 3d 20 31 3b 0a 20 20 20 20 20 upted = 1;.
1790: 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 }. }..
17a0: 69 66 20 28 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 if (context->Mes
17b0: 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78 sage_Block_Index
17c0: 20 3d 3d 20 36 34 29 0a 20 20 20 20 7b 0a 20 20 == 64). {.
17d0: 20 20 20 20 20 20 53 48 41 31 50 72 6f 63 65 73 SHA1Proces
17e0: 73 4d 65 73 73 61 67 65 42 6c 6f 63 6b 28 63 6f sMessageBlock(co
17f0: 6e 74 65 78 74 29 3b 0a 20 20 20 20 7d 0a 0a 20 ntext);. }..
1800: 20 20 20 6d 65 73 73 61 67 65 5f 61 72 72 61 79 message_array
1810: 2b 2b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 ++;. }.. r
1820: 65 74 75 72 6e 20 73 68 61 53 75 63 63 65 73 73 eturn shaSuccess
1830: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 20 53 48 41 31 ;.}../*. * SHA1
1840: 50 72 6f 63 65 73 73 4d 65 73 73 61 67 65 42 6c ProcessMessageBl
1850: 6f 63 6b 0a 20 2a 0a 20 2a 20 20 44 65 73 63 72 ock. *. * Descr
1860: 69 70 74 69 6f 6e 3a 0a 20 2a 20 20 20 20 20 20 iption:. *
1870: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 This function wi
1880: 6c 6c 20 70 72 6f 63 65 73 73 20 74 68 65 20 6e ll process the n
1890: 65 78 74 20 35 31 32 20 62 69 74 73 20 6f 66 20 ext 512 bits of
18a0: 74 68 65 20 6d 65 73 73 61 67 65 0a 20 2a 20 20 the message. *
18b0: 20 20 20 20 73 74 6f 72 65 64 20 69 6e 20 74 68 stored in th
18c0: 65 20 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b 20 e Message_Block
18d0: 61 72 72 61 79 2e 0a 20 2a 0a 20 2a 20 20 50 61 array.. *. * Pa
18e0: 72 61 6d 65 74 65 72 73 3a 0a 20 2a 20 20 20 20 rameters:. *
18f0: 20 20 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 20 52 None.. *. * R
1900: 65 74 75 72 6e 73 3a 0a 20 2a 20 20 20 20 20 20 eturns:. *
1910: 4e 6f 74 68 69 6e 67 2e 0a 20 2a 0a 20 2a 20 20 Nothing.. *. *
1920: 43 6f 6d 6d 65 6e 74 73 3a 0a 20 2a 20 20 20 20 Comments:. *
1930: 20 20 4d 61 6e 79 20 6f 66 20 74 68 65 20 76 61 Many of the va
1940: 72 69 61 62 6c 65 20 6e 61 6d 65 73 20 69 6e 20 riable names in
1950: 74 68 69 73 20 63 6f 64 65 2c 20 65 73 70 65 63 this code, espec
1960: 69 61 6c 6c 79 20 74 68 65 0a 20 2a 20 20 20 20 ially the. *
1970: 20 20 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 single charact
1980: 65 72 20 6e 61 6d 65 73 2c 20 77 65 72 65 20 75 er names, were u
1990: 73 65 64 20 62 65 63 61 75 73 65 20 74 68 6f 73 sed because thos
19a0: 65 20 77 65 72 65 20 74 68 65 0a 20 2a 20 20 20 e were the. *
19b0: 20 20 20 6e 61 6d 65 73 20 75 73 65 64 20 69 6e names used in
19c0: 20 74 68 65 20 70 75 62 6c 69 63 61 74 69 6f 6e the publication
19d0: 2e 0a 20 2a 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 .. *. *. */.stat
19e0: 69 63 20 76 6f 69 64 20 53 48 41 31 50 72 6f 63 ic void SHA1Proc
19f0: 65 73 73 4d 65 73 73 61 67 65 42 6c 6f 63 6b 28 essMessageBlock(
1a00: 53 48 41 31 43 6f 6e 74 65 78 74 20 2a 63 6f 6e SHA1Context *con
1a10: 74 65 78 74 29 0a 7b 0a 20 20 20 20 63 6f 6e 73 text).{. cons
1a20: 74 20 75 69 6e 74 33 32 5f 74 20 4b 5b 5d 20 3d t uint32_t K[] =
1a30: 20 20 20 20 7b 20 20 20 20 20 20 20 2f 2a 20 43 { /* C
1a40: 6f 6e 73 74 61 6e 74 73 20 64 65 66 69 6e 65 64 onstants defined
1a50: 20 69 6e 20 53 48 41 2d 31 20 20 20 2a 2f 0a 20 in SHA-1 */.
1a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a70: 20 20 20 20 20 20 20 20 20 20 20 30 78 35 41 38 0x5A8
1a80: 32 37 39 39 39 2c 0a 20 20 20 20 20 20 20 20 20 27999,.
1a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1aa0: 20 20 20 30 78 36 45 44 39 45 42 41 31 2c 0a 20 0x6ED9EBA1,.
1ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ac0: 20 20 20 20 20 20 20 20 20 20 20 30 78 38 46 31 0x8F1
1ad0: 42 42 43 44 43 2c 0a 20 20 20 20 20 20 20 20 20 BBCDC,.
1ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1af0: 20 20 20 30 78 43 41 36 32 43 31 44 36 0a 20 20 0xCA62C1D6.
1b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b10: 20 20 20 20 20 20 20 20 20 20 7d 3b 0a 20 20 20 };.
1b20: 20 69 6e 74 20 20 20 20 20 20 20 20 20 20 20 74 int t
1b30: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
1b40: 20 20 2f 2a 20 4c 6f 6f 70 20 63 6f 75 6e 74 65 /* Loop counte
1b50: 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r
1b60: 20 2a 2f 0a 20 20 20 20 75 69 6e 74 33 32 5f 74 */. uint32_t
1b70: 20 20 20 20 20 20 74 65 6d 70 3b 20 20 20 20 20 temp;
1b80: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 6d 70 /* Temp
1b90: 6f 72 61 72 79 20 77 6f 72 64 20 76 61 6c 75 65 orary word value
1ba0: 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 75 */. u
1bb0: 69 6e 74 33 32 5f 74 20 20 20 20 20 20 57 5b 38 int32_t W[8
1bc0: 30 5d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 0];
1bd0: 2f 2a 20 57 6f 72 64 20 73 65 71 75 65 6e 63 65 /* Word sequence
1be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a *
1bf0: 2f 0a 20 20 20 20 75 69 6e 74 33 32 5f 74 20 20 /. uint32_t
1c00: 20 20 20 20 41 2c 20 42 2c 20 43 2c 20 44 2c 20 A, B, C, D,
1c10: 45 3b 20 20 20 20 20 2f 2a 20 57 6f 72 64 20 62 E; /* Word b
1c20: 75 66 66 65 72 73 20 20 20 20 20 20 20 20 20 20 uffers
1c30: 20 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 2f 2a */.. /*
1c40: 0a 20 20 20 20 20 2a 20 20 49 6e 69 74 69 61 6c . * Initial
1c50: 69 7a 65 20 74 68 65 20 66 69 72 73 74 20 31 36 ize the first 16
1c60: 20 77 6f 72 64 73 20 69 6e 20 74 68 65 20 61 72 words in the ar
1c70: 72 61 79 20 57 0a 20 20 20 20 20 2a 2f 0a 20 20 ray W. */.
1c80: 20 20 66 6f 72 28 74 20 3d 20 30 3b 20 74 20 3c for(t = 0; t <
1c90: 20 31 36 3b 20 74 2b 2b 29 0a 20 20 20 20 7b 0a 16; t++). {.
1ca0: 20 20 20 20 20 20 20 20 57 5b 74 5d 20 3d 20 63 W[t] = c
1cb0: 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f ontext->Message_
1cc0: 42 6c 6f 63 6b 5b 74 20 2a 20 34 5d 20 3c 3c 20 Block[t * 4] <<
1cd0: 32 34 3b 0a 20 20 20 20 20 20 20 20 57 5b 74 5d 24;. W[t]
1ce0: 20 7c 3d 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 |= context->Mes
1cf0: 73 61 67 65 5f 42 6c 6f 63 6b 5b 74 20 2a 20 34 sage_Block[t * 4
1d00: 20 2b 20 31 5d 20 3c 3c 20 31 36 3b 0a 20 20 20 + 1] << 16;.
1d10: 20 20 20 20 20 57 5b 74 5d 20 7c 3d 20 63 6f 6e W[t] |= con
1d20: 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c text->Message_Bl
1d30: 6f 63 6b 5b 74 20 2a 20 34 20 2b 20 32 5d 20 3c ock[t * 4 + 2] <
1d40: 3c 20 38 3b 0a 20 20 20 20 20 20 20 20 57 5b 74 < 8;. W[t
1d50: 5d 20 7c 3d 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 ] |= context->Me
1d60: 73 73 61 67 65 5f 42 6c 6f 63 6b 5b 74 20 2a 20 ssage_Block[t *
1d70: 34 20 2b 20 33 5d 3b 0a 20 20 20 20 7d 0a 0a 20 4 + 3];. }..
1d80: 20 20 20 66 6f 72 28 74 20 3d 20 31 36 3b 20 74 for(t = 16; t
1d90: 20 3c 20 38 30 3b 20 74 2b 2b 29 0a 20 20 20 20 < 80; t++).
1da0: 7b 0a 20 20 20 20 20 20 20 57 5b 74 5d 20 3d 20 {. W[t] =
1db0: 53 48 41 31 43 69 72 63 75 6c 61 72 53 68 69 66 SHA1CircularShif
1dc0: 74 28 31 2c 57 5b 74 2d 33 5d 20 5e 20 57 5b 74 t(1,W[t-3] ^ W[t
1dd0: 2d 38 5d 20 5e 20 57 5b 74 2d 31 34 5d 20 5e 20 -8] ^ W[t-14] ^
1de0: 57 5b 74 2d 31 36 5d 29 3b 0a 20 20 20 20 7d 0a W[t-16]);. }.
1df0: 0a 20 20 20 20 41 20 3d 20 63 6f 6e 74 65 78 74 . A = context
1e00: 2d 3e 49 6e 74 65 72 6d 65 64 69 61 74 65 5f 48 ->Intermediate_H
1e10: 61 73 68 5b 30 5d 3b 0a 20 20 20 20 42 20 3d 20 ash[0];. B =
1e20: 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65 context->Interme
1e30: 64 69 61 74 65 5f 48 61 73 68 5b 31 5d 3b 0a 20 diate_Hash[1];.
1e40: 20 20 20 43 20 3d 20 63 6f 6e 74 65 78 74 2d 3e C = context->
1e50: 49 6e 74 65 72 6d 65 64 69 61 74 65 5f 48 61 73 Intermediate_Has
1e60: 68 5b 32 5d 3b 0a 20 20 20 20 44 20 3d 20 63 6f h[2];. D = co
1e70: 6e 74 65 78 74 2d 3e 49 6e 74 65 72 6d 65 64 69 ntext->Intermedi
1e80: 61 74 65 5f 48 61 73 68 5b 33 5d 3b 0a 20 20 20 ate_Hash[3];.
1e90: 20 45 20 3d 20 63 6f 6e 74 65 78 74 2d 3e 49 6e E = context->In
1ea0: 74 65 72 6d 65 64 69 61 74 65 5f 48 61 73 68 5b termediate_Hash[
1eb0: 34 5d 3b 0a 0a 20 20 20 20 66 6f 72 28 74 20 3d 4];.. for(t =
1ec0: 20 30 3b 20 74 20 3c 20 32 30 3b 20 74 2b 2b 29 0; t < 20; t++)
1ed0: 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 74 . {. t
1ee0: 65 6d 70 20 3d 20 20 53 48 41 31 43 69 72 63 75 emp = SHA1Circu
1ef0: 6c 61 72 53 68 69 66 74 28 35 2c 41 29 20 2b 0a larShift(5,A) +.
1f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f10: 28 28 42 20 26 20 43 29 20 7c 20 28 28 7e 42 29 ((B & C) | ((~B)
1f20: 20 26 20 44 29 29 20 2b 20 45 20 2b 20 57 5b 74 & D)) + E + W[t
1f30: 5d 20 2b 20 4b 5b 30 5d 3b 0a 20 20 20 20 20 20 ] + K[0];.
1f40: 20 20 45 20 3d 20 44 3b 0a 20 20 20 20 20 20 20 E = D;.
1f50: 20 44 20 3d 20 43 3b 0a 20 20 20 20 20 20 20 20 D = C;.
1f60: 43 20 3d 20 53 48 41 31 43 69 72 63 75 6c 61 72 C = SHA1Circular
1f70: 53 68 69 66 74 28 33 30 2c 42 29 3b 0a 0a 20 20 Shift(30,B);..
1f80: 20 20 20 20 20 20 42 20 3d 20 41 3b 0a 20 20 20 B = A;.
1f90: 20 20 20 20 20 41 20 3d 20 74 65 6d 70 3b 0a 20 A = temp;.
1fa0: 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 28 74 20 }.. for(t
1fb0: 3d 20 32 30 3b 20 74 20 3c 20 34 30 3b 20 74 2b = 20; t < 40; t+
1fc0: 2b 29 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 20 +). {.
1fd0: 20 74 65 6d 70 20 3d 20 53 48 41 31 43 69 72 63 temp = SHA1Circ
1fe0: 75 6c 61 72 53 68 69 66 74 28 35 2c 41 29 20 2b ularShift(5,A) +
1ff0: 20 28 42 20 5e 20 43 20 5e 20 44 29 20 2b 20 45 (B ^ C ^ D) + E
2000: 20 2b 20 57 5b 74 5d 20 2b 20 4b 5b 31 5d 3b 0a + W[t] + K[1];.
2010: 20 20 20 20 20 20 20 20 45 20 3d 20 44 3b 0a 20 E = D;.
2020: 20 20 20 20 20 20 20 44 20 3d 20 43 3b 0a 20 20 D = C;.
2030: 20 20 20 20 20 20 43 20 3d 20 53 48 41 31 43 69 C = SHA1Ci
2040: 72 63 75 6c 61 72 53 68 69 66 74 28 33 30 2c 42 rcularShift(30,B
2050: 29 3b 0a 20 20 20 20 20 20 20 20 42 20 3d 20 41 );. B = A
2060: 3b 0a 20 20 20 20 20 20 20 20 41 20 3d 20 74 65 ;. A = te
2070: 6d 70 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 mp;. }.. f
2080: 6f 72 28 74 20 3d 20 34 30 3b 20 74 20 3c 20 36 or(t = 40; t < 6
2090: 30 3b 20 74 2b 2b 29 0a 20 20 20 20 7b 0a 20 20 0; t++). {.
20a0: 20 20 20 20 20 20 74 65 6d 70 20 3d 20 53 48 41 temp = SHA
20b0: 31 43 69 72 63 75 6c 61 72 53 68 69 66 74 28 35 1CircularShift(5
20c0: 2c 41 29 20 2b 0a 20 20 20 20 20 20 20 20 20 20 ,A) +.
20d0: 20 20 20 20 20 28 28 42 20 26 20 43 29 20 7c 20 ((B & C) |
20e0: 28 42 20 26 20 44 29 20 7c 20 28 43 20 26 20 44 (B & D) | (C & D
20f0: 29 29 20 2b 20 45 20 2b 20 57 5b 74 5d 20 2b 20 )) + E + W[t] +
2100: 4b 5b 32 5d 3b 0a 20 20 20 20 20 20 20 20 45 20 K[2];. E
2110: 3d 20 44 3b 0a 20 20 20 20 20 20 20 20 44 20 3d = D;. D =
2120: 20 43 3b 0a 20 20 20 20 20 20 20 20 43 20 3d 20 C;. C =
2130: 53 48 41 31 43 69 72 63 75 6c 61 72 53 68 69 66 SHA1CircularShif
2140: 74 28 33 30 2c 42 29 3b 0a 20 20 20 20 20 20 20 t(30,B);.
2150: 20 42 20 3d 20 41 3b 0a 20 20 20 20 20 20 20 20 B = A;.
2160: 41 20 3d 20 74 65 6d 70 3b 0a 20 20 20 20 7d 0a A = temp;. }.
2170: 0a 20 20 20 20 66 6f 72 28 74 20 3d 20 36 30 3b . for(t = 60;
2180: 20 74 20 3c 20 38 30 3b 20 74 2b 2b 29 0a 20 20 t < 80; t++).
2190: 20 20 7b 0a 20 20 20 20 20 20 20 20 74 65 6d 70 {. temp
21a0: 20 3d 20 53 48 41 31 43 69 72 63 75 6c 61 72 53 = SHA1CircularS
21b0: 68 69 66 74 28 35 2c 41 29 20 2b 20 28 42 20 5e hift(5,A) + (B ^
21c0: 20 43 20 5e 20 44 29 20 2b 20 45 20 2b 20 57 5b C ^ D) + E + W[
21d0: 74 5d 20 2b 20 4b 5b 33 5d 3b 0a 20 20 20 20 20 t] + K[3];.
21e0: 20 20 20 45 20 3d 20 44 3b 0a 20 20 20 20 20 20 E = D;.
21f0: 20 20 44 20 3d 20 43 3b 0a 20 20 20 20 20 20 20 D = C;.
2200: 20 43 20 3d 20 53 48 41 31 43 69 72 63 75 6c 61 C = SHA1Circula
2210: 72 53 68 69 66 74 28 33 30 2c 42 29 3b 0a 20 20 rShift(30,B);.
2220: 20 20 20 20 20 20 42 20 3d 20 41 3b 0a 20 20 20 B = A;.
2230: 20 20 20 20 20 41 20 3d 20 74 65 6d 70 3b 0a 20 A = temp;.
2240: 20 20 20 7d 0a 0a 20 20 20 20 63 6f 6e 74 65 78 }.. contex
2250: 74 2d 3e 49 6e 74 65 72 6d 65 64 69 61 74 65 5f t->Intermediate_
2260: 48 61 73 68 5b 30 5d 20 2b 3d 20 41 3b 0a 20 20 Hash[0] += A;.
2270: 20 20 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 context->Inter
2280: 6d 65 64 69 61 74 65 5f 48 61 73 68 5b 31 5d 20 mediate_Hash[1]
2290: 2b 3d 20 42 3b 0a 20 20 20 20 63 6f 6e 74 65 78 += B;. contex
22a0: 74 2d 3e 49 6e 74 65 72 6d 65 64 69 61 74 65 5f t->Intermediate_
22b0: 48 61 73 68 5b 32 5d 20 2b 3d 20 43 3b 0a 20 20 Hash[2] += C;.
22c0: 20 20 63 6f 6e 74 65 78 74 2d 3e 49 6e 74 65 72 context->Inter
22d0: 6d 65 64 69 61 74 65 5f 48 61 73 68 5b 33 5d 20 mediate_Hash[3]
22e0: 2b 3d 20 44 3b 0a 20 20 20 20 63 6f 6e 74 65 78 += D;. contex
22f0: 74 2d 3e 49 6e 74 65 72 6d 65 64 69 61 74 65 5f t->Intermediate_
2300: 48 61 73 68 5b 34 5d 20 2b 3d 20 45 3b 0a 0a 20 Hash[4] += E;..
2310: 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 context->Mess
2320: 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78 20 age_Block_Index
2330: 3d 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 20 53 = 0;.}../*. * S
2340: 48 41 31 50 61 64 4d 65 73 73 61 67 65 0a 20 2a HA1PadMessage. *
2350: 0a 0a 20 2a 20 20 44 65 73 63 72 69 70 74 69 6f .. * Descriptio
2360: 6e 3a 0a 20 2a 20 20 20 20 20 20 41 63 63 6f 72 n:. * Accor
2370: 64 69 6e 67 20 74 6f 20 74 68 65 20 73 74 61 6e ding to the stan
2380: 64 61 72 64 2c 20 74 68 65 20 6d 65 73 73 61 67 dard, the messag
2390: 65 20 6d 75 73 74 20 62 65 20 70 61 64 64 65 64 e must be padded
23a0: 20 74 6f 20 61 6e 20 65 76 65 6e 0a 20 2a 20 20 to an even. *
23b0: 20 20 20 20 35 31 32 20 62 69 74 73 2e 20 20 54 512 bits. T
23c0: 68 65 20 66 69 72 73 74 20 70 61 64 64 69 6e 67 he first padding
23d0: 20 62 69 74 20 6d 75 73 74 20 62 65 20 61 20 27 bit must be a '
23e0: 31 27 2e 20 20 54 68 65 20 6c 61 73 74 20 36 34 1'. The last 64
23f0: 0a 20 2a 20 20 20 20 20 20 62 69 74 73 20 72 65 . * bits re
2400: 70 72 65 73 65 6e 74 20 74 68 65 20 6c 65 6e 67 present the leng
2410: 74 68 20 6f 66 20 74 68 65 20 6f 72 69 67 69 6e th of the origin
2420: 61 6c 20 6d 65 73 73 61 67 65 2e 20 20 41 6c 6c al message. All
2430: 20 62 69 74 73 20 69 6e 0a 20 2a 20 20 20 20 20 bits in. *
2440: 20 62 65 74 77 65 65 6e 20 73 68 6f 75 6c 64 20 between should
2450: 62 65 20 30 2e 20 20 54 68 69 73 20 66 75 6e 63 be 0. This func
2460: 74 69 6f 6e 20 77 69 6c 6c 20 70 61 64 20 74 68 tion will pad th
2470: 65 20 6d 65 73 73 61 67 65 0a 20 2a 20 20 20 20 e message. *
2480: 20 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 according to t
2490: 68 6f 73 65 20 72 75 6c 65 73 20 62 79 20 66 69 hose rules by fi
24a0: 6c 6c 69 6e 67 20 74 68 65 20 4d 65 73 73 61 67 lling the Messag
24b0: 65 5f 42 6c 6f 63 6b 20 61 72 72 61 79 0a 20 2a e_Block array. *
24c0: 20 20 20 20 20 20 61 63 63 6f 72 64 69 6e 67 6c accordingl
24d0: 79 2e 20 20 49 74 20 77 69 6c 6c 20 61 6c 73 6f y. It will also
24e0: 20 63 61 6c 6c 20 74 68 65 20 50 72 6f 63 65 73 call the Proces
24f0: 73 4d 65 73 73 61 67 65 42 6c 6f 63 6b 20 66 75 sMessageBlock fu
2500: 6e 63 74 69 6f 6e 0a 20 2a 20 20 20 20 20 20 70 nction. * p
2510: 72 6f 76 69 64 65 64 20 61 70 70 72 6f 70 72 69 rovided appropri
2520: 61 74 65 6c 79 2e 20 20 57 68 65 6e 20 69 74 20 ately. When it
2530: 72 65 74 75 72 6e 73 2c 20 69 74 20 63 61 6e 20 returns, it can
2540: 62 65 20 61 73 73 75 6d 65 64 20 74 68 61 74 0a be assumed that.
2550: 20 2a 20 20 20 20 20 20 74 68 65 20 6d 65 73 73 * the mess
2560: 61 67 65 20 64 69 67 65 73 74 20 68 61 73 20 62 age digest has b
2570: 65 65 6e 20 63 6f 6d 70 75 74 65 64 2e 0a 20 2a een computed.. *
2580: 0a 20 2a 20 20 50 61 72 61 6d 65 74 65 72 73 3a . * Parameters:
2590: 0a 20 2a 20 20 20 20 20 20 63 6f 6e 74 65 78 74 . * context
25a0: 3a 20 5b 69 6e 2f 6f 75 74 5d 0a 20 2a 20 20 20 : [in/out]. *
25b0: 20 20 20 20 20 20 20 54 68 65 20 63 6f 6e 74 65 The conte
25c0: 78 74 20 74 6f 20 70 61 64 0a 20 2a 20 20 20 20 xt to pad. *
25d0: 20 20 50 72 6f 63 65 73 73 4d 65 73 73 61 67 65 ProcessMessage
25e0: 42 6c 6f 63 6b 3a 20 5b 69 6e 5d 0a 20 2a 20 20 Block: [in]. *
25f0: 20 20 20 20 20 20 20 20 54 68 65 20 61 70 70 72 The appr
2600: 6f 70 72 69 61 74 65 20 53 48 41 2a 50 72 6f 63 opriate SHA*Proc
2610: 65 73 73 4d 65 73 73 61 67 65 42 6c 6f 63 6b 20 essMessageBlock
2620: 66 75 6e 63 74 69 6f 6e 0a 20 2a 20 20 52 65 74 function. * Ret
2630: 75 72 6e 73 3a 0a 20 2a 20 20 20 20 20 20 4e 6f urns:. * No
2640: 74 68 69 6e 67 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 thing.. *. */.st
2650: 61 74 69 63 20 76 6f 69 64 20 53 48 41 31 50 61 atic void SHA1Pa
2660: 64 4d 65 73 73 61 67 65 28 53 48 41 31 43 6f 6e dMessage(SHA1Con
2670: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 29 0a 7b text *context).{
2680: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 20 . /*. *
2690: 43 68 65 63 6b 20 74 6f 20 73 65 65 20 69 66 20 Check to see if
26a0: 74 68 65 20 63 75 72 72 65 6e 74 20 6d 65 73 73 the current mess
26b0: 61 67 65 20 62 6c 6f 63 6b 20 69 73 20 74 6f 6f age block is too
26c0: 20 73 6d 61 6c 6c 20 74 6f 20 68 6f 6c 64 0a 20 small to hold.
26d0: 20 20 20 20 2a 20 20 74 68 65 20 69 6e 69 74 69 * the initi
26e0: 61 6c 20 70 61 64 64 69 6e 67 20 62 69 74 73 20 al padding bits
26f0: 61 6e 64 20 6c 65 6e 67 74 68 2e 20 20 49 66 20 and length. If
2700: 73 6f 2c 20 77 65 20 77 69 6c 6c 20 70 61 64 20 so, we will pad
2710: 74 68 65 0a 20 20 20 20 20 2a 20 20 62 6c 6f 63 the. * bloc
2720: 6b 2c 20 70 72 6f 63 65 73 73 20 69 74 2c 20 61 k, process it, a
2730: 6e 64 20 74 68 65 6e 20 63 6f 6e 74 69 6e 75 65 nd then continue
2740: 20 70 61 64 64 69 6e 67 20 69 6e 74 6f 20 61 20 padding into a
2750: 73 65 63 6f 6e 64 0a 20 20 20 20 20 2a 20 20 62 second. * b
2760: 6c 6f 63 6b 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 lock.. */.
2770: 20 20 69 66 20 28 63 6f 6e 74 65 78 74 2d 3e 4d if (context->M
2780: 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 essage_Block_Ind
2790: 65 78 20 3e 20 35 35 29 0a 20 20 20 20 7b 0a 20 ex > 55). {.
27a0: 20 20 20 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e context->
27b0: 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b 63 6f Message_Block[co
27c0: 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 ntext->Message_B
27d0: 6c 6f 63 6b 5f 49 6e 64 65 78 2b 2b 5d 20 3d 20 lock_Index++] =
27e0: 30 78 38 30 3b 0a 20 20 20 20 20 20 20 20 77 68 0x80;. wh
27f0: 69 6c 65 28 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 ile(context->Mes
2800: 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78 sage_Block_Index
2810: 20 3c 20 36 34 29 0a 20 20 20 20 20 20 20 20 7b < 64). {
2820: 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e . con
2830: 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c text->Message_Bl
2840: 6f 63 6b 5b 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 ock[context->Mes
2850: 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78 sage_Block_Index
2860: 2b 2b 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 ++] = 0;.
2870: 20 7d 0a 0a 20 20 20 20 20 20 20 20 53 48 41 31 }.. SHA1
2880: 50 72 6f 63 65 73 73 4d 65 73 73 61 67 65 42 6c ProcessMessageBl
2890: 6f 63 6b 28 63 6f 6e 74 65 78 74 29 3b 0a 0a 20 ock(context);..
28a0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 63 6f 6e while(con
28b0: 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c text->Message_Bl
28c0: 6f 63 6b 5f 49 6e 64 65 78 20 3c 20 35 36 29 0a ock_Index < 56).
28d0: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 {.
28e0: 20 20 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d context->M
28f0: 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b 63 6f 6e essage_Block[con
2900: 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c text->Message_Bl
2910: 6f 63 6b 5f 49 6e 64 65 78 2b 2b 5d 20 3d 20 30 ock_Index++] = 0
2920: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
2930: 7d 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 7b }. else. {
2940: 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 65 78 74 . context
2950: 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b ->Message_Block[
2960: 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 context->Message
2970: 5f 42 6c 6f 63 6b 5f 49 6e 64 65 78 2b 2b 5d 20 _Block_Index++]
2980: 3d 20 30 78 38 30 3b 0a 20 20 20 20 20 20 20 20 = 0x80;.
2990: 77 68 69 6c 65 28 63 6f 6e 74 65 78 74 2d 3e 4d while(context->M
29a0: 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e 64 essage_Block_Ind
29b0: 65 78 20 3c 20 35 36 29 0a 20 20 20 20 20 20 20 ex < 56).
29c0: 20 7b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
29d0: 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 context->Message
29e0: 5f 42 6c 6f 63 6b 5b 63 6f 6e 74 65 78 74 2d 3e _Block[context->
29f0: 4d 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5f 49 6e Message_Block_In
2a00: 64 65 78 2b 2b 5d 20 3d 20 30 3b 0a 20 20 20 20 dex++] = 0;.
2a10: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 }. }..
2a20: 20 2f 2a 0a 20 20 20 20 20 2a 20 20 53 74 6f 72 /*. * Stor
2a30: 65 20 74 68 65 20 6d 65 73 73 61 67 65 20 6c 65 e the message le
2a40: 6e 67 74 68 20 61 73 20 74 68 65 20 6c 61 73 74 ngth as the last
2a50: 20 38 20 6f 63 74 65 74 73 0a 20 20 20 20 20 2a 8 octets. *
2a60: 2f 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d /. context->M
2a70: 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b 35 36 5d essage_Block[56]
2a80: 20 3d 20 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 = context->Leng
2a90: 74 68 5f 48 69 67 68 20 3e 3e 20 32 34 3b 0a 20 th_High >> 24;.
2aa0: 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 context->Mess
2ab0: 61 67 65 5f 42 6c 6f 63 6b 5b 35 37 5d 20 3d 20 age_Block[57] =
2ac0: 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f context->Length_
2ad0: 48 69 67 68 20 3e 3e 20 31 36 3b 0a 20 20 20 20 High >> 16;.
2ae0: 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 context->Message
2af0: 5f 42 6c 6f 63 6b 5b 35 38 5d 20 3d 20 63 6f 6e _Block[58] = con
2b00: 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f 48 69 67 text->Length_Hig
2b10: 68 20 3e 3e 20 38 3b 0a 20 20 20 20 63 6f 6e 74 h >> 8;. cont
2b20: 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f ext->Message_Blo
2b30: 63 6b 5b 35 39 5d 20 3d 20 63 6f 6e 74 65 78 74 ck[59] = context
2b40: 2d 3e 4c 65 6e 67 74 68 5f 48 69 67 68 3b 0a 20 ->Length_High;.
2b50: 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 context->Mess
2b60: 61 67 65 5f 42 6c 6f 63 6b 5b 36 30 5d 20 3d 20 age_Block[60] =
2b70: 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 74 68 5f context->Length_
2b80: 4c 6f 77 20 3e 3e 20 32 34 3b 0a 20 20 20 20 63 Low >> 24;. c
2b90: 6f 6e 74 65 78 74 2d 3e 4d 65 73 73 61 67 65 5f ontext->Message_
2ba0: 42 6c 6f 63 6b 5b 36 31 5d 20 3d 20 63 6f 6e 74 Block[61] = cont
2bb0: 65 78 74 2d 3e 4c 65 6e 67 74 68 5f 4c 6f 77 20 ext->Length_Low
2bc0: 3e 3e 20 31 36 3b 0a 20 20 20 20 63 6f 6e 74 65 >> 16;. conte
2bd0: 78 74 2d 3e 4d 65 73 73 61 67 65 5f 42 6c 6f 63 xt->Message_Bloc
2be0: 6b 5b 36 32 5d 20 3d 20 63 6f 6e 74 65 78 74 2d k[62] = context-
2bf0: 3e 4c 65 6e 67 74 68 5f 4c 6f 77 20 3e 3e 20 38 >Length_Low >> 8
2c00: 3b 0a 20 20 20 20 63 6f 6e 74 65 78 74 2d 3e 4d ;. context->M
2c10: 65 73 73 61 67 65 5f 42 6c 6f 63 6b 5b 36 33 5d essage_Block[63]
2c20: 20 3d 20 63 6f 6e 74 65 78 74 2d 3e 4c 65 6e 67 = context->Leng
2c30: 74 68 5f 4c 6f 77 3b 0a 0a 20 20 20 20 53 48 41 th_Low;.. SHA
2c40: 31 50 72 6f 63 65 73 73 4d 65 73 73 61 67 65 42 1ProcessMessageB
2c50: 6c 6f 63 6b 28 63 6f 6e 74 65 78 74 29 3b 0a 7d lock(context);.}
2c60: 0a 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 .../*.** Convert
2c70: 20 61 20 64 69 67 65 73 74 20 69 6e 74 6f 20 62 a digest into b
2c80: 61 73 65 2d 31 36 2e 20 20 64 69 67 65 73 74 20 ase-16. digest
2c90: 73 68 6f 75 6c 64 20 62 65 20 64 65 63 6c 61 72 should be declar
2ca0: 65 64 20 61 73 0a 2a 2a 20 22 75 6e 73 69 67 6e ed as.** "unsign
2cb0: 65 64 20 63 68 61 72 20 64 69 67 65 73 74 5b 32 ed char digest[2
2cc0: 30 5d 22 20 69 6e 20 74 68 65 20 63 61 6c 6c 69 0]" in the calli
2cd0: 6e 67 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 ng function. Th
2ce0: 65 20 53 48 41 31 0a 2a 2a 20 64 69 67 65 73 74 e SHA1.** digest
2cf0: 20 69 73 20 73 74 6f 72 65 64 20 69 6e 20 74 68 is stored in th
2d00: 65 20 66 69 72 73 74 20 32 30 20 62 79 74 65 73 e first 20 bytes
2d10: 2e 20 20 7a 42 75 66 20 73 68 6f 75 6c 64 0a 2a . zBuf should.*
2d20: 2a 20 62 65 20 22 63 68 61 72 20 7a 42 75 66 5b * be "char zBuf[
2d30: 34 31 5d 22 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 41]"..*/.static
2d40: 76 6f 69 64 20 44 69 67 65 73 74 54 6f 42 61 73 void DigestToBas
2d50: 65 31 36 28 75 6e 73 69 67 6e 65 64 20 63 68 61 e16(unsigned cha
2d60: 72 20 2a 64 69 67 65 73 74 2c 20 63 68 61 72 20 r *digest, char
2d70: 2a 7a 42 75 66 29 7b 0a 20 20 73 74 61 74 69 63 *zBuf){. static
2d80: 20 63 68 61 72 20 63 6f 6e 73 74 20 7a 45 6e 63 char const zEnc
2d90: 6f 64 65 5b 5d 20 3d 20 22 30 31 32 33 34 35 36 ode[] = "0123456
2da0: 37 38 39 61 62 63 64 65 66 22 3b 0a 20 20 69 6e 789abcdef";. in
2db0: 74 20 69 2c 20 6a 3b 0a 0a 20 20 66 6f 72 28 6a t i, j;.. for(j
2dc0: 3d 69 3d 30 3b 20 69 3c 32 30 3b 20 69 2b 2b 29 =i=0; i<20; i++)
2dd0: 7b 0a 20 20 20 20 69 6e 74 20 61 20 3d 20 64 69 {. int a = di
2de0: 67 65 73 74 5b 69 5d 3b 0a 20 20 20 20 7a 42 75 gest[i];. zBu
2df0: 66 5b 6a 2b 2b 5d 20 3d 20 7a 45 6e 63 6f 64 65 f[j++] = zEncode
2e00: 5b 28 61 3e 3e 34 29 26 30 78 66 5d 3b 0a 20 20 [(a>>4)&0xf];.
2e10: 20 20 7a 42 75 66 5b 6a 2b 2b 5d 20 3d 20 7a 45 zBuf[j++] = zE
2e20: 6e 63 6f 64 65 5b 61 20 26 20 30 78 66 5d 3b 0a ncode[a & 0xf];.
2e30: 20 20 7d 0a 20 20 7a 42 75 66 5b 6a 5d 20 3d 20 }. zBuf[j] =
2e40: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 0;.}../*.** The
2e50: 73 74 61 74 65 20 6f 66 20 61 20 69 6e 63 72 65 state of a incre
2e60: 6d 65 6e 74 61 6c 20 53 48 41 31 20 63 68 65 63 mental SHA1 chec
2e70: 6b 73 75 6d 20 63 6f 6d 70 75 74 61 74 69 6f 6e ksum computation
2e80: 2e 20 20 4f 6e 6c 79 20 6f 6e 65 0a 2a 2a 20 73 . Only one.** s
2e90: 75 63 68 20 63 6f 6d 70 75 74 61 74 69 6f 6e 20 uch computation
2ea0: 63 61 6e 20 62 65 20 75 6e 64 65 72 77 61 79 20 can be underway
2eb0: 61 74 20 61 20 74 69 6d 65 2c 20 6f 66 20 63 6f at a time, of co
2ec0: 75 72 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 urse..*/.static
2ed0: 53 48 41 31 43 6f 6e 74 65 78 74 20 69 6e 63 72 SHA1Context incr
2ee0: 43 74 78 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 Ctx;.static int
2ef0: 69 6e 63 72 49 6e 69 74 20 3d 20 30 3b 0a 0a 2f incrInit = 0;../
2f00: 2a 0a 2a 2a 20 41 64 64 20 6d 6f 72 65 20 74 65 *.** Add more te
2f10: 78 74 20 74 6f 20 74 68 65 20 69 6e 63 72 65 6d xt to the increm
2f20: 65 6e 74 61 6c 20 53 48 41 31 20 63 68 65 63 6b ental SHA1 check
2f30: 73 75 6d 2e 0a 2a 2f 0a 76 6f 69 64 20 73 68 61 sum..*/.void sha
2f40: 31 73 75 6d 5f 73 74 65 70 5f 74 65 78 74 28 63 1sum_step_text(c
2f50: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 65 78 74 onst char *zText
2f60: 2c 20 69 6e 74 20 6e 42 79 74 65 73 29 7b 0a 20 , int nBytes){.
2f70: 20 69 66 28 20 21 69 6e 63 72 49 6e 69 74 20 29 if( !incrInit )
2f80: 7b 0a 20 20 20 20 53 48 41 31 52 65 73 65 74 28 {. SHA1Reset(
2f90: 26 69 6e 63 72 43 74 78 29 3b 0a 20 20 20 20 69 &incrCtx);. i
2fa0: 6e 63 72 49 6e 69 74 20 3d 20 31 3b 0a 20 20 7d ncrInit = 1;. }
2fb0: 0a 20 20 69 66 28 20 6e 42 79 74 65 73 3c 3d 30 . if( nBytes<=0
2fc0: 20 29 7b 0a 20 20 20 20 69 66 28 20 6e 42 79 74 ){. if( nByt
2fd0: 65 73 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a es==0 ) return;.
2fe0: 20 20 20 20 6e 42 79 74 65 73 20 3d 20 73 74 72 nBytes = str
2ff0: 6c 65 6e 28 7a 54 65 78 74 29 3b 0a 20 20 7d 0a len(zText);. }.
3000: 20 20 53 48 41 31 49 6e 70 75 74 28 26 69 6e 63 SHA1Input(&inc
3010: 72 43 74 78 2c 20 28 75 6e 73 69 67 6e 65 64 20 rCtx, (unsigned
3020: 63 68 61 72 2a 29 7a 54 65 78 74 2c 20 6e 42 79 char*)zText, nBy
3030: 74 65 73 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 tes);.}../*.** A
3040: 64 64 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f dd the content o
3050: 66 20 61 20 62 6c 6f 62 20 74 6f 20 74 68 65 20 f a blob to the
3060: 69 6e 63 72 65 6d 65 6e 74 61 6c 20 53 48 41 31 incremental SHA1
3070: 20 63 68 65 63 6b 73 75 6d 2e 0a 2a 2f 0a 76 6f checksum..*/.vo
3080: 69 64 20 73 68 61 31 73 75 6d 5f 73 74 65 70 5f id sha1sum_step_
3090: 62 6c 6f 62 28 42 6c 6f 62 20 2a 70 29 7b 0a 20 blob(Blob *p){.
30a0: 20 73 68 61 31 73 75 6d 5f 73 74 65 70 5f 74 65 sha1sum_step_te
30b0: 78 74 28 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 xt(blob_buffer(p
30c0: 29 2c 20 62 6c 6f 62 5f 73 69 7a 65 28 70 29 29 ), blob_size(p))
30d0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69 6e 69 73 ;.}../*.** Finis
30e0: 68 20 74 68 65 20 69 6e 63 72 65 6d 65 6e 74 61 h the incrementa
30f0: 6c 20 53 48 41 31 20 63 68 65 63 6b 73 75 6d 2e l SHA1 checksum.
3100: 20 20 53 74 6f 72 65 20 74 68 65 20 72 65 73 75 Store the resu
3110: 6c 74 20 69 6e 20 62 6c 6f 62 20 70 4f 75 74 0a lt in blob pOut.
3120: 2a 2a 20 69 66 20 70 4f 75 74 21 3d 30 2e 20 20 ** if pOut!=0.
3130: 41 6c 73 6f 20 72 65 74 75 72 6e 20 61 20 70 6f Also return a po
3140: 69 6e 74 65 72 20 74 6f 20 74 68 65 20 72 65 73 inter to the res
3150: 75 6c 74 2e 20 20 0a 2a 2a 0a 2a 2a 20 54 68 69 ult. .**.** Thi
3160: 73 20 72 65 73 65 74 73 20 74 68 65 20 69 6e 63 s resets the inc
3170: 72 65 6d 65 6e 74 61 6c 20 63 68 65 63 6b 73 75 remental checksu
3180: 6d 20 70 72 65 70 61 72 69 6e 67 20 66 6f 72 20 m preparing for
3190: 74 68 65 20 6e 65 78 74 20 72 6f 75 6e 64 0a 2a the next round.*
31a0: 2a 20 6f 66 20 63 6f 6d 70 75 74 61 74 69 6f 6e * of computation
31b0: 2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 70 6f . The return po
31c0: 69 6e 74 65 72 20 70 6f 69 6e 74 73 20 74 6f 20 inter points to
31d0: 61 20 73 74 61 74 69 63 20 62 75 66 66 65 72 20 a static buffer
31e0: 74 68 61 74 0a 2a 2a 20 69 73 20 6f 76 65 72 77 that.** is overw
31f0: 72 69 74 74 65 6e 20 62 79 20 73 75 62 73 65 71 ritten by subseq
3200: 75 65 6e 74 20 63 61 6c 6c 73 20 74 6f 20 74 68 uent calls to th
3210: 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a is function..*/.
3220: 63 68 61 72 20 2a 73 68 61 31 73 75 6d 5f 66 69 char *sha1sum_fi
3230: 6e 69 73 68 28 42 6c 6f 62 20 2a 70 4f 75 74 29 nish(Blob *pOut)
3240: 7b 0a 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 {. unsigned cha
3250: 72 20 7a 52 65 73 75 6c 74 5b 32 30 5d 3b 0a 20 r zResult[20];.
3260: 20 73 74 61 74 69 63 20 63 68 61 72 20 7a 4f 75 static char zOu
3270: 74 5b 34 31 5d 3b 0a 20 20 73 68 61 31 73 75 6d t[41];. sha1sum
3280: 5f 73 74 65 70 5f 74 65 78 74 28 30 2c 30 29 3b _step_text(0,0);
3290: 0a 20 20 53 48 41 31 52 65 73 75 6c 74 28 26 69 . SHA1Result(&i
32a0: 6e 63 72 43 74 78 2c 20 7a 52 65 73 75 6c 74 29 ncrCtx, zResult)
32b0: 3b 0a 20 20 69 6e 63 72 49 6e 69 74 20 3d 20 30 ;. incrInit = 0
32c0: 3b 0a 20 20 44 69 67 65 73 74 54 6f 42 61 73 65 ;. DigestToBase
32d0: 31 36 28 7a 52 65 73 75 6c 74 2c 20 7a 4f 75 74 16(zResult, zOut
32e0: 29 3b 0a 20 20 69 66 28 20 70 4f 75 74 20 29 7b );. if( pOut ){
32f0: 0a 20 20 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 . blob_zero(p
3300: 4f 75 74 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 61 Out);. blob_a
3310: 70 70 65 6e 64 28 70 4f 75 74 2c 20 7a 4f 75 74 ppend(pOut, zOut
3320: 2c 20 34 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 , 40);. }. ret
3330: 75 72 6e 20 7a 4f 75 74 3b 0a 7d 0a 0a 0a 2f 2a urn zOut;.}.../*
3340: 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 20 .** Compute the
3350: 53 48 41 31 20 63 68 65 63 6b 73 75 6d 20 6f 66 SHA1 checksum of
3360: 20 61 20 66 69 6c 65 20 6f 6e 20 64 69 73 6b 2e a file on disk.
3370: 20 20 53 74 6f 72 65 20 74 68 65 20 72 65 73 75 Store the resu
3380: 6c 74 69 6e 67 0a 2a 2a 20 63 68 65 63 6b 73 75 lting.** checksu
3390: 6d 20 69 6e 20 74 68 65 20 62 6c 6f 62 20 70 43 m in the blob pC
33a0: 6b 73 75 6d 2e 20 20 70 43 6b 73 75 6d 20 69 73 ksum. pCksum is
33b0: 20 61 73 73 75 6d 65 64 20 74 6f 20 62 65 20 69 assumed to be i
33c0: 6e 69 6e 69 74 69 61 6c 69 7a 65 64 2e 0a 2a 2a ninitialized..**
33d0: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e .** Return the n
33e0: 75 6d 62 65 72 20 6f 66 20 65 72 72 6f 72 73 2e umber of errors.
33f0: 0a 2a 2f 0a 69 6e 74 20 73 68 61 31 73 75 6d 5f .*/.int sha1sum_
3400: 66 69 6c 65 28 63 6f 6e 73 74 20 63 68 61 72 20 file(const char
3410: 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 42 6c 6f 62 *zFilename, Blob
3420: 20 2a 70 43 6b 73 75 6d 29 7b 0a 20 20 46 49 4c *pCksum){. FIL
3430: 45 20 2a 69 6e 3b 0a 20 20 53 48 41 31 43 6f 6e E *in;. SHA1Con
3440: 74 65 78 74 20 63 74 78 3b 0a 20 20 75 6e 73 69 text ctx;. unsi
3450: 67 6e 65 64 20 63 68 61 72 20 7a 52 65 73 75 6c gned char zResul
3460: 74 5b 32 30 5d 3b 0a 20 20 63 68 61 72 20 7a 42 t[20];. char zB
3470: 75 66 5b 31 30 32 34 30 5d 3b 0a 0a 20 20 69 6e uf[10240];.. in
3480: 20 3d 20 66 6f 70 65 6e 28 7a 46 69 6c 65 6e 61 = fopen(zFilena
3490: 6d 65 2c 22 72 62 22 29 3b 0a 20 20 69 66 28 20 me,"rb");. if(
34a0: 69 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 in==0 ){. ret
34b0: 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 53 48 41 urn 1;. }. SHA
34c0: 31 52 65 73 65 74 28 26 63 74 78 29 3b 0a 20 20 1Reset(&ctx);.
34d0: 66 6f 72 28 3b 3b 29 7b 0a 20 20 20 20 69 6e 74 for(;;){. int
34e0: 20 6e 3b 0a 20 20 20 20 6e 20 3d 20 66 72 65 61 n;. n = frea
34f0: 64 28 7a 42 75 66 2c 20 31 2c 20 73 69 7a 65 6f d(zBuf, 1, sizeo
3500: 66 28 7a 42 75 66 29 2c 20 69 6e 29 3b 0a 20 20 f(zBuf), in);.
3510: 20 20 69 66 28 20 6e 3c 3d 30 20 29 20 62 72 65 if( n<=0 ) bre
3520: 61 6b 3b 0a 20 20 20 20 53 48 41 31 49 6e 70 75 ak;. SHA1Inpu
3530: 74 28 26 63 74 78 2c 20 28 75 6e 73 69 67 6e 65 t(&ctx, (unsigne
3540: 64 20 63 68 61 72 2a 29 7a 42 75 66 2c 20 28 75 d char*)zBuf, (u
3550: 6e 73 69 67 6e 65 64 29 6e 29 3b 0a 20 20 7d 0a nsigned)n);. }.
3560: 20 20 66 63 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 fclose(in);.
3570: 62 6c 6f 62 5f 7a 65 72 6f 28 70 43 6b 73 75 6d blob_zero(pCksum
3580: 29 3b 0a 20 20 62 6c 6f 62 5f 72 65 73 69 7a 65 );. blob_resize
3590: 28 70 43 6b 73 75 6d 2c 20 34 30 29 3b 0a 20 20 (pCksum, 40);.
35a0: 53 48 41 31 52 65 73 75 6c 74 28 26 63 74 78 2c SHA1Result(&ctx,
35b0: 20 7a 52 65 73 75 6c 74 29 3b 0a 20 20 44 69 67 zResult);. Dig
35c0: 65 73 74 54 6f 42 61 73 65 31 36 28 7a 52 65 73 estToBase16(zRes
35d0: 75 6c 74 2c 20 62 6c 6f 62 5f 62 75 66 66 65 72 ult, blob_buffer
35e0: 28 70 43 6b 73 75 6d 29 29 3b 0a 20 20 72 65 74 (pCksum));. ret
35f0: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn 0;.}../*.**
3600: 43 6f 6d 70 75 74 65 20 74 68 65 20 53 48 41 31 Compute the SHA1
3610: 20 63 68 65 63 6b 73 75 6d 20 6f 66 20 61 20 62 checksum of a b
3620: 6c 6f 62 20 69 6e 20 6d 65 6d 6f 72 79 2e 20 20 lob in memory.
3630: 53 74 6f 72 65 20 74 68 65 20 72 65 73 75 6c 74 Store the result
3640: 69 6e 67 0a 2a 2a 20 63 68 65 63 6b 73 75 6d 20 ing.** checksum
3650: 69 6e 20 74 68 65 20 62 6c 6f 62 20 70 43 6b 73 in the blob pCks
3660: 75 6d 2e 20 20 70 43 6b 73 75 6d 20 69 73 20 61 um. pCksum is a
3670: 73 73 75 6d 65 64 20 74 6f 20 62 65 20 65 69 74 ssumed to be eit
3680: 68 65 72 0a 2a 2a 20 75 6e 69 6e 69 74 69 61 6c her.** uninitial
3690: 69 7a 65 64 20 6f 72 20 74 68 65 20 73 61 6d 65 ized or the same
36a0: 20 62 6c 6f 62 20 61 73 20 70 49 6e 2e 0a 2a 2a blob as pIn..**
36b0: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e .** Return the n
36c0: 75 6d 62 65 72 20 6f 66 20 65 72 72 6f 72 73 2e umber of errors.
36d0: 0a 2a 2f 0a 69 6e 74 20 73 68 61 31 73 75 6d 5f .*/.int sha1sum_
36e0: 62 6c 6f 62 28 63 6f 6e 73 74 20 42 6c 6f 62 20 blob(const Blob
36f0: 2a 70 49 6e 2c 20 42 6c 6f 62 20 2a 70 43 6b 73 *pIn, Blob *pCks
3700: 75 6d 29 7b 0a 20 20 53 48 41 31 43 6f 6e 74 65 um){. SHA1Conte
3710: 78 74 20 63 74 78 3b 0a 20 20 75 6e 73 69 67 6e xt ctx;. unsign
3720: 65 64 20 63 68 61 72 20 7a 52 65 73 75 6c 74 5b ed char zResult[
3730: 32 30 5d 3b 0a 0a 20 20 53 48 41 31 52 65 73 65 20];.. SHA1Rese
3740: 74 28 26 63 74 78 29 3b 0a 20 20 53 48 41 31 49 t(&ctx);. SHA1I
3750: 6e 70 75 74 28 26 63 74 78 2c 20 28 75 6e 73 69 nput(&ctx, (unsi
3760: 67 6e 65 64 20 63 68 61 72 2a 29 62 6c 6f 62 5f gned char*)blob_
3770: 62 75 66 66 65 72 28 70 49 6e 29 2c 20 62 6c 6f buffer(pIn), blo
3780: 62 5f 73 69 7a 65 28 70 49 6e 29 29 3b 0a 20 20 b_size(pIn));.
3790: 69 66 28 20 70 49 6e 3d 3d 70 43 6b 73 75 6d 20 if( pIn==pCksum
37a0: 29 7b 0a 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 ){. blob_rese
37b0: 74 28 70 43 6b 73 75 6d 29 3b 0a 20 20 7d 65 6c t(pCksum);. }el
37c0: 73 65 7b 0a 20 20 20 20 62 6c 6f 62 5f 7a 65 72 se{. blob_zer
37d0: 6f 28 70 43 6b 73 75 6d 29 3b 0a 20 20 7d 0a 20 o(pCksum);. }.
37e0: 20 62 6c 6f 62 5f 72 65 73 69 7a 65 28 70 43 6b blob_resize(pCk
37f0: 73 75 6d 2c 20 34 30 29 3b 0a 20 20 53 48 41 31 sum, 40);. SHA1
3800: 52 65 73 75 6c 74 28 26 63 74 78 2c 20 7a 52 65 Result(&ctx, zRe
3810: 73 75 6c 74 29 3b 0a 20 20 44 69 67 65 73 74 54 sult);. DigestT
3820: 6f 42 61 73 65 31 36 28 7a 52 65 73 75 6c 74 2c oBase16(zResult,
3830: 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 43 6b blob_buffer(pCk
3840: 73 75 6d 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 sum));. return
3850: 30 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 43 4f 4d 0;.}.../*.** COM
3860: 4d 41 4e 44 3a 20 74 65 73 74 2d 73 68 61 31 73 MAND: test-sha1s
3870: 75 6d 0a 2a 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 um.**.** Compute
3880: 20 61 6e 20 53 48 41 31 20 63 68 65 63 6b 73 75 an SHA1 checksu
3890: 6d 20 6f 66 20 61 6c 6c 20 66 69 6c 65 73 20 6e m of all files n
38a0: 61 6d 65 64 20 6f 6e 20 74 68 65 20 63 6f 6d 6d amed on the comm
38b0: 61 6e 64 2d 6c 69 6e 65 2e 0a 2a 2a 20 49 66 20 and-line..** If
38c0: 61 6e 20 66 69 6c 65 20 69 73 20 6e 61 6d 65 64 an file is named
38d0: 20 22 2d 22 20 74 68 65 6e 20 74 61 6b 65 20 69 "-" then take i
38e0: 74 73 20 63 6f 6e 74 65 6e 74 20 66 72 6f 6d 20 ts content from
38f0: 73 74 61 6e 64 61 72 64 20 69 6e 70 75 74 2e 0a standard input..
3900: 2a 2f 0a 76 6f 69 64 20 73 68 61 31 73 75 6d 5f */.void sha1sum_
3910: 74 65 73 74 28 76 6f 69 64 29 7b 0a 20 20 69 6e test(void){. in
3920: 74 20 69 3b 0a 20 20 42 6c 6f 62 20 69 6e 3b 0a t i;. Blob in;.
3930: 20 20 42 6c 6f 62 20 63 6b 73 75 6d 3b 0a 20 20 Blob cksum;.
3940: 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 67 2e . for(i=2; i<g.
3950: 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 argc; i++){.
3960: 69 66 28 20 67 2e 61 72 67 76 5b 69 5d 5b 30 5d if( g.argv[i][0]
3970: 3d 3d 27 2d 27 20 26 26 20 67 2e 61 72 67 76 5b =='-' && g.argv[
3980: 69 5d 5b 31 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 i][1]==0 ){.
3990: 20 20 62 6c 6f 62 5f 72 65 61 64 5f 66 72 6f 6d blob_read_from
39a0: 5f 63 68 61 6e 6e 65 6c 28 26 69 6e 2c 20 73 74 _channel(&in, st
39b0: 64 69 6e 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 din, -1);.
39c0: 73 68 61 31 73 75 6d 5f 62 6c 6f 62 28 26 69 6e sha1sum_blob(&in
39d0: 2c 20 26 63 6b 73 75 6d 29 3b 0a 20 20 20 20 7d , &cksum);. }
39e0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 68 61 31 else{. sha1
39f0: 73 75 6d 5f 66 69 6c 65 28 67 2e 61 72 67 76 5b sum_file(g.argv[
3a00: 69 5d 2c 20 26 63 6b 73 75 6d 29 3b 0a 20 20 20 i], &cksum);.
3a10: 20 7d 0a 20 20 20 20 70 72 69 6e 74 66 28 22 25 }. printf("%
3a20: 73 20 20 25 73 5c 6e 22 2c 20 62 6c 6f 62 5f 73 s %s\n", blob_s
3a30: 74 72 28 26 63 6b 73 75 6d 29 2c 20 67 2e 61 72 tr(&cksum), g.ar
3a40: 67 76 5b 69 5d 29 3b 0a 20 20 20 20 62 6c 6f 62 gv[i]);. blob
3a50: 5f 72 65 73 65 74 28 26 63 6b 73 75 6d 29 3b 0a _reset(&cksum);.
3a60: 20 20 7d 0a 7d 0a }.}.