gnulib: lib/sha256.c annotate

annotate lib/sha256.c @ 40196:e63f5d3edab5

relocatable-prog: Update documentation. * doc/relocatable-maint.texi (Supporting Relocation): Update to match the recent changes.

author	Bruno Haible <bruno@clisp.org>
date	Sun, 24 Feb 2019 01:49:15 +0100
parents	b06060465f09
children

rev	line source
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	1 /* sha256.c - Functions to compute SHA256 and SHA224 message digest of files or
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	2 memory blocks according to the NIST specification FIPS-180-2.
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	3
40057 b06060465f09 maint: Run 'make update-copyright' Paul Eggert <eggert@cs.ucla.edu> parents: 39711 diff changeset	4 Copyright (C) 2005-2006, 2008-2019 Free Software Foundation, Inc.
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	5
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	6 This program is free software: you can redistribute it and/or modify
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	7 it under the terms of the GNU General Public License as published by
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	8 the Free Software Foundation, either version 3 of the License, or
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	9 (at your option) any later version.
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	10
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	11 This program is distributed in the hope that it will be useful,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	12 but WITHOUT ANY WARRANTY; without even the implied warranty of
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	14 GNU General Public License for more details.
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	15
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	16 You should have received a copy of the GNU General Public License
19190 9759915b2aca all: prefer https: URLs Paul Eggert <eggert@cs.ucla.edu> parents: 18756 diff changeset	17 along with this program. If not, see <https://www.gnu.org/licenses/>. */
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	18
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	19 /* Written by David Madore, considerably copypasting from
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	20 Scott G. Miller's sha1.c
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	21 */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	22
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	23 #include <config.h>
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	24
17554 0c8459454095 md5, sha1, sha256, sha512: use openssl routines if available Pádraig Brady <P@draigBrady.com> parents: 17249 diff changeset	25 #if HAVE_OPENSSL_SHA256
0c8459454095 md5, sha1, sha256, sha512: use openssl routines if available Pádraig Brady <P@draigBrady.com> parents: 17249 diff changeset	26 # define GL_OPENSSL_INLINE _GL_EXTERN_INLINE
0c8459454095 md5, sha1, sha256, sha512: use openssl routines if available Pádraig Brady <P@draigBrady.com> parents: 17249 diff changeset	27 #endif
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	28 #include "sha256.h"
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	29
15997 d8fd2f096b83 crypto libraries: use stdalign Paul Eggert <eggert@cs.ucla.edu> parents: 14079 diff changeset	30 #include <stdalign.h>
d8fd2f096b83 crypto libraries: use stdalign Paul Eggert <eggert@cs.ucla.edu> parents: 14079 diff changeset	31 #include <stdint.h>
12198 e8fbc5424b99 digests, copy-file: increase the IO buffer size from 4KiB to 32KiB Pádraig Brady <P@draigBrady.com> parents: 10129 diff changeset	32 #include <stdlib.h>
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	33 #include <string.h>
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	34
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	35 #if USE_UNLOCKED_IO
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	36 # include "unlocked-io.h"
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	37 #endif
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	38
39693 0d87ac50f584 crypto: use byteswap Paul Eggert <eggert@cs.ucla.edu> parents: 19684 diff changeset	39 #include <byteswap.h>
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	40 #ifdef WORDS_BIGENDIAN
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	41 # define SWAP(n) (n)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	42 #else
39693 0d87ac50f584 crypto: use byteswap Paul Eggert <eggert@cs.ucla.edu> parents: 19684 diff changeset	43 # define SWAP(n) bswap_32 (n)
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	44 #endif
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	45
12198 e8fbc5424b99 digests, copy-file: increase the IO buffer size from 4KiB to 32KiB Pádraig Brady <P@draigBrady.com> parents: 10129 diff changeset	46 #define BLOCKSIZE 32768
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	47 #if BLOCKSIZE % 64 != 0
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	48 # error "invalid BLOCKSIZE"
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	49 #endif
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	50
17554 0c8459454095 md5, sha1, sha256, sha512: use openssl routines if available Pádraig Brady <P@draigBrady.com> parents: 17249 diff changeset	51 #if ! HAVE_OPENSSL_SHA256
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	52 /* This array contains the bytes used to pad the buffer to the next
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	53 64-byte boundary. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	54 static const unsigned char fillbuf[64] = { 0x80, 0 /* , 0, 0, ... */ };
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	55
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	56
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	57 /*
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	58 Takes a pointer to a 256 bit block of data (eight 32 bit ints) and
16342 90c6dac9de6a Spelling fixes. Paul Eggert <eggert@cs.ucla.edu> parents: 16201 diff changeset	59 initializes it to the start constants of the SHA256 algorithm. This
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	60 must be called before using hash in the call to sha256_hash
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	61 */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	62 void
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	63 sha256_init_ctx (struct sha256_ctx *ctx)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	64 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	65 ctx->state[0] = 0x6a09e667UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	66 ctx->state[1] = 0xbb67ae85UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	67 ctx->state[2] = 0x3c6ef372UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	68 ctx->state[3] = 0xa54ff53aUL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	69 ctx->state[4] = 0x510e527fUL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	70 ctx->state[5] = 0x9b05688cUL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	71 ctx->state[6] = 0x1f83d9abUL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	72 ctx->state[7] = 0x5be0cd19UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	73
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	74 ctx->total[0] = ctx->total[1] = 0;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	75 ctx->buflen = 0;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	76 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	77
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	78 void
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	79 sha224_init_ctx (struct sha256_ctx *ctx)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	80 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	81 ctx->state[0] = 0xc1059ed8UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	82 ctx->state[1] = 0x367cd507UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	83 ctx->state[2] = 0x3070dd17UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	84 ctx->state[3] = 0xf70e5939UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	85 ctx->state[4] = 0xffc00b31UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	86 ctx->state[5] = 0x68581511UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	87 ctx->state[6] = 0x64f98fa7UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	88 ctx->state[7] = 0xbefa4fa4UL;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	89
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	90 ctx->total[0] = ctx->total[1] = 0;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	91 ctx->buflen = 0;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	92 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	93
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	94 /* Copy the value from v into the memory location pointed to by *CP,
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	95 If your architecture allows unaligned access, this is equivalent to
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	96 * (__typeof__ (v) ) cp = v /
17183 f3fa9d9507c7 arctwo, md4, md5, sha1, sha256, sha512: no 'static inline' Paul Eggert <eggert@cs.ucla.edu> parents: 16860 diff changeset	97 static void
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	98 set_uint32 (char *cp, uint32_t v)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	99 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	100 memcpy (cp, &v, sizeof v);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	101 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	102
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	103 /* Put result from CTX in first 32 bytes following RESBUF.
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	104 The result must be in little endian byte order. */
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	105 void *
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	106 sha256_read_ctx (const struct sha256_ctx ctx, void resbuf)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	107 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	108 int i;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	109 char *r = resbuf;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	110
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	111 for (i = 0; i < 8; i++)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	112 set_uint32 (r + i * sizeof ctx->state[0], SWAP (ctx->state[i]));
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	113
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	114 return resbuf;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	115 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	116
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	117 void *
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	118 sha224_read_ctx (const struct sha256_ctx ctx, void resbuf)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	119 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	120 int i;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	121 char *r = resbuf;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	122
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	123 for (i = 0; i < 7; i++)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	124 set_uint32 (r + i * sizeof ctx->state[0], SWAP (ctx->state[i]));
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	125
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	126 return resbuf;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	127 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	128
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	129 /* Process the remaining bytes in the internal buffer and the usual
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	130 prolog according to the standard and write the result to RESBUF. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	131 static void
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	132 sha256_conclude_ctx (struct sha256_ctx *ctx)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	133 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	134 /* Take yet unprocessed bytes into account. */
10129 4c9de4cfa188 sha256: do not artificially restrict buffer length to be < 2^32 Jim Meyering <meyering@redhat.com> parents: 10128 diff changeset	135 size_t bytes = ctx->buflen;
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	136 size_t size = (bytes < 56) ? 64 / 4 : 64 * 2 / 4;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	137
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	138 /* Now count remaining bytes. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	139 ctx->total[0] += bytes;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	140 if (ctx->total[0] < bytes)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	141 ++ctx->total[1];
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	142
10128 92a80b637ea1 avoid unaligned access errors, e.g., on sparc Jim Meyering <meyering@redhat.com> parents: 10058 diff changeset	143 /* Put the 64-bit file length in bits at the end of the buffer.
92a80b637ea1 avoid unaligned access errors, e.g., on sparc Jim Meyering <meyering@redhat.com> parents: 10058 diff changeset	144 Use set_uint32 rather than a simple assignment, to avoid risk of
92a80b637ea1 avoid unaligned access errors, e.g., on sparc Jim Meyering <meyering@redhat.com> parents: 10058 diff changeset	145 unaligned access. */
92a80b637ea1 avoid unaligned access errors, e.g., on sparc Jim Meyering <meyering@redhat.com> parents: 10058 diff changeset	146 set_uint32 ((char *) &ctx->buffer[size - 2],
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	147 SWAP ((ctx->total[1] << 3) \| (ctx->total[0] >> 29)));
10128 92a80b637ea1 avoid unaligned access errors, e.g., on sparc Jim Meyering <meyering@redhat.com> parents: 10058 diff changeset	148 set_uint32 ((char *) &ctx->buffer[size - 1],
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	149 SWAP (ctx->total[0] << 3));
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	150
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	151 memcpy (&((char ) ctx->buffer)[bytes], fillbuf, (size - 2) 4 - bytes);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	152
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	153 /* Process last bytes. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	154 sha256_process_block (ctx->buffer, size * 4, ctx);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	155 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	156
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	157 void *
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	158 sha256_finish_ctx (struct sha256_ctx ctx, void resbuf)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	159 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	160 sha256_conclude_ctx (ctx);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	161 return sha256_read_ctx (ctx, resbuf);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	162 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	163
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	164 void *
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	165 sha224_finish_ctx (struct sha256_ctx ctx, void resbuf)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	166 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	167 sha256_conclude_ctx (ctx);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	168 return sha224_read_ctx (ctx, resbuf);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	169 }
17554 0c8459454095 md5, sha1, sha256, sha512: use openssl routines if available Pádraig Brady <P@draigBrady.com> parents: 17249 diff changeset	170 #endif
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	171
19684 560df898e0e9 crypto: omit stream ops Emacs doesn’t need Paul Eggert <eggert@cs.ucla.edu> parents: 19619 diff changeset	172 #ifdef GL_COMPILE_CRYPTO_STREAM
560df898e0e9 crypto: omit stream ops Emacs doesn’t need Paul Eggert <eggert@cs.ucla.edu> parents: 19619 diff changeset	173
560df898e0e9 crypto: omit stream ops Emacs doesn’t need Paul Eggert <eggert@cs.ucla.edu> parents: 19619 diff changeset	174 #include "af_alg.h"
560df898e0e9 crypto: omit stream ops Emacs doesn’t need Paul Eggert <eggert@cs.ucla.edu> parents: 19619 diff changeset	175
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	176 /* Compute message digest for bytes read from STREAM using algorithm ALG.
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	177 Write the message digest into RESBLOCK, which contains HASHLEN bytes.
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	178 The initial and finishing operations are INIT_CTX and FINISH_CTX.
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	179 Return zero if and only if successful. */
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	180 static int
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	181 shaxxx_stream (FILE stream, char const alg, void *resblock,
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	182 ssize_t hashlen, void (init_ctx) (struct sha256_ctx ),
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	183 void (finish_ctx) (struct sha256_ctx , void ))
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	184 {
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	185 switch (afalg_stream (stream, alg, resblock, hashlen))
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	186 {
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	187 case 0: return 0;
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	188 case -EIO: return 1;
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	189 }
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	190
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	191 char *buffer = malloc (BLOCKSIZE + 72);
12198 e8fbc5424b99 digests, copy-file: increase the IO buffer size from 4KiB to 32KiB Pádraig Brady <P@draigBrady.com> parents: 10129 diff changeset	192 if (!buffer)
e8fbc5424b99 digests, copy-file: increase the IO buffer size from 4KiB to 32KiB Pádraig Brady <P@draigBrady.com> parents: 10129 diff changeset	193 return 1;
e8fbc5424b99 digests, copy-file: increase the IO buffer size from 4KiB to 32KiB Pádraig Brady <P@draigBrady.com> parents: 10129 diff changeset	194
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	195 struct sha256_ctx ctx;
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	196 init_ctx (&ctx);
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	197 size_t sum;
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	198
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	199 /* Iterate over full file contents. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	200 while (1)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	201 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	202 /* We read the file in blocks of BLOCKSIZE bytes. One call of the
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	203 computation function processes the whole buffer so that with the
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	204 next round of the loop another block can be read. */
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	205 size_t n;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	206 sum = 0;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	207
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	208 /* Read block. Take care for partial reads. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	209 while (1)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	210 {
39707 5fd4481b1d32 af_alg: avoid hangs when reading from streams Pádraig Brady <P@draigBrady.com> parents: 39693 diff changeset	211 /* Either process a partial fread() from this loop,
5fd4481b1d32 af_alg: avoid hangs when reading from streams Pádraig Brady <P@draigBrady.com> parents: 39693 diff changeset	212 or the fread() in afalg_stream may have gotten EOF.
39711 e693c621c472 maint: clarify comments about sticky EOF Pádraig Brady <P@draigBrady.com> parents: 39707 diff changeset	213 We need to avoid a subsequent fread() as EOF may
e693c621c472 maint: clarify comments about sticky EOF Pádraig Brady <P@draigBrady.com> parents: 39707 diff changeset	214 not be sticky. For details of such systems, see:
e693c621c472 maint: clarify comments about sticky EOF Pádraig Brady <P@draigBrady.com> parents: 39707 diff changeset	215 https://sourceware.org/bugzilla/show_bug.cgi?id=1190 */
39707 5fd4481b1d32 af_alg: avoid hangs when reading from streams Pádraig Brady <P@draigBrady.com> parents: 39693 diff changeset	216 if (feof (stream))
5fd4481b1d32 af_alg: avoid hangs when reading from streams Pádraig Brady <P@draigBrady.com> parents: 39693 diff changeset	217 goto process_partial_block;
5fd4481b1d32 af_alg: avoid hangs when reading from streams Pádraig Brady <P@draigBrady.com> parents: 39693 diff changeset	218
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	219 n = fread (buffer + sum, 1, BLOCKSIZE - sum, stream);
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	220
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	221 sum += n;
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	222
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	223 if (sum == BLOCKSIZE)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	224 break;
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	225
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	226 if (n == 0)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	227 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	228 /* Check for the error flag IFF N == 0, so that we don't
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	229 exit the loop after a partial read due to e.g., EAGAIN
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	230 or EWOULDBLOCK. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	231 if (ferror (stream))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	232 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	233 free (buffer);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	234 return 1;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	235 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	236 goto process_partial_block;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	237 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	238 }
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	239
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	240 /* Process buffer with BLOCKSIZE bytes. Note that
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	241 BLOCKSIZE % 64 == 0
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	242 */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	243 sha256_process_block (buffer, BLOCKSIZE, &ctx);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	244 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	245
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	246 process_partial_block:;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	247
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	248 /* Process any remaining bytes. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	249 if (sum > 0)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	250 sha256_process_bytes (buffer, sum, &ctx);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	251
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	252 /* Construct result in desired memory. */
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	253 finish_ctx (&ctx, resblock);
12198 e8fbc5424b99 digests, copy-file: increase the IO buffer size from 4KiB to 32KiB Pádraig Brady <P@draigBrady.com> parents: 10129 diff changeset	254 free (buffer);
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	255 return 0;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	256 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	257
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	258 int
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	259 sha256_stream (FILE stream, void resblock)
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	260 {
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	261 return shaxxx_stream (stream, "sha256", resblock, SHA256_DIGEST_SIZE,
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	262 sha256_init_ctx, sha256_finish_ctx);
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	263 }
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	264
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	265 int
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	266 sha224_stream (FILE stream, void resblock)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	267 {
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	268 return shaxxx_stream (stream, "sha224", resblock, SHA224_DIGEST_SIZE,
57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	269 sha224_init_ctx, sha224_finish_ctx);
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	270 }
19684 560df898e0e9 crypto: omit stream ops Emacs doesn’t need Paul Eggert <eggert@cs.ucla.edu> parents: 19619 diff changeset	271 #endif
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	272
17554 0c8459454095 md5, sha1, sha256, sha512: use openssl routines if available Pádraig Brady <P@draigBrady.com> parents: 17249 diff changeset	273 #if ! HAVE_OPENSSL_SHA256
19619 57bf41f3355e crypto/{md5,sha1,sha256,sha512}: simplify Paul Eggert <eggert@cs.ucla.edu> parents: 19616 diff changeset	274 /* Compute SHA256 message digest for LEN bytes beginning at BUFFER. The
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	275 result is always in little endian byte order, so that a byte-wise
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	276 output yields to the wanted ASCII representation of the message
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	277 digest. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	278 void *
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	279 sha256_buffer (const char buffer, size_t len, void resblock)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	280 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	281 struct sha256_ctx ctx;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	282
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	283 /* Initialize the computation context. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	284 sha256_init_ctx (&ctx);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	285
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	286 /* Process whole buffer but last len % 64 bytes. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	287 sha256_process_bytes (buffer, len, &ctx);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	288
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	289 /* Put result in desired memory area. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	290 return sha256_finish_ctx (&ctx, resblock);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	291 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	292
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	293 void *
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	294 sha224_buffer (const char buffer, size_t len, void resblock)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	295 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	296 struct sha256_ctx ctx;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	297
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	298 /* Initialize the computation context. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	299 sha224_init_ctx (&ctx);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	300
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	301 /* Process whole buffer but last len % 64 bytes. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	302 sha256_process_bytes (buffer, len, &ctx);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	303
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	304 /* Put result in desired memory area. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	305 return sha224_finish_ctx (&ctx, resblock);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	306 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	307
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	308 void
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	309 sha256_process_bytes (const void buffer, size_t len, struct sha256_ctx ctx)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	310 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	311 /* When we already have some bits in our internal buffer concatenate
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	312 both inputs first. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	313 if (ctx->buflen != 0)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	314 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	315 size_t left_over = ctx->buflen;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	316 size_t add = 128 - left_over > len ? len : 128 - left_over;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	317
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	318 memcpy (&((char *) ctx->buffer)[left_over], buffer, add);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	319 ctx->buflen += add;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	320
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	321 if (ctx->buflen > 64)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	322 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	323 sha256_process_block (ctx->buffer, ctx->buflen & ~63, ctx);
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	324
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	325 ctx->buflen &= 63;
18756 34f03a221ea4 md5, sha1, sha256, sha512: Add comments regarding correctness. Bruno Haible <bruno@clisp.org> parents: 18626 diff changeset	326 /* The regions in the following copy operation cannot overlap,
34f03a221ea4 md5, sha1, sha256, sha512: Add comments regarding correctness. Bruno Haible <bruno@clisp.org> parents: 18626 diff changeset	327 because ctx->buflen < 64 ≤ (left_over + add) & ~63. */
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	328 memcpy (ctx->buffer,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	329 &((char *) ctx->buffer)[(left_over + add) & ~63],
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	330 ctx->buflen);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	331 }
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	332
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	333 buffer = (const char *) buffer + add;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	334 len -= add;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	335 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	336
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	337 /* Process available complete blocks. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	338 if (len >= 64)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	339 {
18531 c76b85c7da8d md4,md5,sha: allow _STRING_INLINE_unaligned enable unaligned operation Pádraig Brady <P@draigBrady.com>* parents: 18189 diff changeset	340 #if !(_STRING_ARCH_unaligned \|\| _STRING_INLINE_unaligned)
15997 d8fd2f096b83 crypto libraries: use stdalign Paul Eggert <eggert@cs.ucla.edu> parents: 14079 diff changeset	341 # define UNALIGNED_P(p) ((uintptr_t) (p) % alignof (uint32_t) != 0)
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	342 if (UNALIGNED_P (buffer))
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	343 while (len > 64)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	344 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	345 sha256_process_block (memcpy (ctx->buffer, buffer, 64), 64, ctx);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	346 buffer = (const char *) buffer + 64;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	347 len -= 64;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	348 }
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	349 else
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	350 #endif
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	351 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	352 sha256_process_block (buffer, len & ~63, ctx);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	353 buffer = (const char *) buffer + (len & ~63);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	354 len &= 63;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	355 }
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	356 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	357
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	358 /* Move remaining bytes in internal buffer. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	359 if (len > 0)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	360 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	361 size_t left_over = ctx->buflen;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	362
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	363 memcpy (&((char *) ctx->buffer)[left_over], buffer, len);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	364 left_over += len;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	365 if (left_over >= 64)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	366 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	367 sha256_process_block (ctx->buffer, 64, ctx);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	368 left_over -= 64;
18756 34f03a221ea4 md5, sha1, sha256, sha512: Add comments regarding correctness. Bruno Haible <bruno@clisp.org> parents: 18626 diff changeset	369 /* The regions in the following copy operation cannot overlap,
34f03a221ea4 md5, sha1, sha256, sha512: Add comments regarding correctness. Bruno Haible <bruno@clisp.org> parents: 18626 diff changeset	370 because left_over ≤ 64. */
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	371 memcpy (ctx->buffer, &ctx->buffer[16], left_over);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	372 }
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	373 ctx->buflen = left_over;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	374 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	375 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	376
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	377 /* --- Code below is the primary difference between sha1.c and sha256.c --- */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	378
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	379 /* SHA256 round constants */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	380 #define K(I) sha256_round_constants[I]
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	381 static const uint32_t sha256_round_constants[64] = {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	382 0x428a2f98UL, 0x71374491UL, 0xb5c0fbcfUL, 0xe9b5dba5UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	383 0x3956c25bUL, 0x59f111f1UL, 0x923f82a4UL, 0xab1c5ed5UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	384 0xd807aa98UL, 0x12835b01UL, 0x243185beUL, 0x550c7dc3UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	385 0x72be5d74UL, 0x80deb1feUL, 0x9bdc06a7UL, 0xc19bf174UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	386 0xe49b69c1UL, 0xefbe4786UL, 0x0fc19dc6UL, 0x240ca1ccUL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	387 0x2de92c6fUL, 0x4a7484aaUL, 0x5cb0a9dcUL, 0x76f988daUL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	388 0x983e5152UL, 0xa831c66dUL, 0xb00327c8UL, 0xbf597fc7UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	389 0xc6e00bf3UL, 0xd5a79147UL, 0x06ca6351UL, 0x14292967UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	390 0x27b70a85UL, 0x2e1b2138UL, 0x4d2c6dfcUL, 0x53380d13UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	391 0x650a7354UL, 0x766a0abbUL, 0x81c2c92eUL, 0x92722c85UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	392 0xa2bfe8a1UL, 0xa81a664bUL, 0xc24b8b70UL, 0xc76c51a3UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	393 0xd192e819UL, 0xd6990624UL, 0xf40e3585UL, 0x106aa070UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	394 0x19a4c116UL, 0x1e376c08UL, 0x2748774cUL, 0x34b0bcb5UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	395 0x391c0cb3UL, 0x4ed8aa4aUL, 0x5b9cca4fUL, 0x682e6ff3UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	396 0x748f82eeUL, 0x78a5636fUL, 0x84c87814UL, 0x8cc70208UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	397 0x90befffaUL, 0xa4506cebUL, 0xbef9a3f7UL, 0xc67178f2UL,
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	398 };
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	399
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	400 /* Round functions. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	401 #define F2(A,B,C) ( ( A & B ) \| ( C & ( A \| B ) ) )
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	402 #define F1(E,F,G) ( G ^ ( E & ( F ^ G ) ) )
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	403
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	404 /* Process LEN bytes of BUFFER, accumulating context into CTX.
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	405 It is assumed that LEN % 64 == 0.
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	406 Most of this code comes from GnuPG's cipher/sha1.c. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	407
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	408 void
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	409 sha256_process_block (const void buffer, size_t len, struct sha256_ctx ctx)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	410 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	411 const uint32_t *words = buffer;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	412 size_t nwords = len / sizeof (uint32_t);
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	413 const uint32_t *endp = words + nwords;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	414 uint32_t x[16];
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	415 uint32_t a = ctx->state[0];
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	416 uint32_t b = ctx->state[1];
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	417 uint32_t c = ctx->state[2];
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	418 uint32_t d = ctx->state[3];
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	419 uint32_t e = ctx->state[4];
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	420 uint32_t f = ctx->state[5];
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	421 uint32_t g = ctx->state[6];
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	422 uint32_t h = ctx->state[7];
16860 a3feab896112 crypto: fix bug in large buffer handling Paul Eggert <eggert@cs.ucla.edu> parents: 16342 diff changeset	423 uint32_t lolen = len;
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	424
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	425 /* First increment the byte count. FIPS PUB 180-2 specifies the possible
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	426 length of the file up to 2^64 bits. Here we only compute the
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	427 number of bytes. Do a double word increment. */
16860 a3feab896112 crypto: fix bug in large buffer handling Paul Eggert <eggert@cs.ucla.edu> parents: 16342 diff changeset	428 ctx->total[0] += lolen;
a3feab896112 crypto: fix bug in large buffer handling Paul Eggert <eggert@cs.ucla.edu> parents: 16342 diff changeset	429 ctx->total[1] += (len >> 31 >> 1) + (ctx->total[0] < lolen);
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	430
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	431 #define rol(x, n) (((x) << (n)) \| ((x) >> (32 - (n))))
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	432 #define S0(x) (rol(x,25)^rol(x,14)^(x>>3))
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	433 #define S1(x) (rol(x,15)^rol(x,13)^(x>>10))
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	434 #define SS0(x) (rol(x,30)^rol(x,19)^rol(x,10))
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	435 #define SS1(x) (rol(x,26)^rol(x,21)^rol(x,7))
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	436
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	437 #define M(I) ( tm = S1(x[(I-2)&0x0f]) + x[(I-7)&0x0f] \
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	438 + S0(x[(I-15)&0x0f]) + x[I&0x0f] \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	439 , x[I&0x0f] = tm )
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	440
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	441 #define R(A,B,C,D,E,F,G,H,K,M) do { t0 = SS0(A) + F2(A,B,C); \
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	442 t1 = H + SS1(E) \
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	443 + F1(E,F,G) \
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	444 + K \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	445 + M; \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	446 D += t1; H = t0 + t1; \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	447 } while(0)
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	448
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	449 while (words < endp)
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	450 {
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	451 uint32_t tm;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	452 uint32_t t0, t1;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	453 int t;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	454 /* FIXME: see sha1.c for a better implementation. */
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	455 for (t = 0; t < 16; t++)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	456 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	457 x[t] = SWAP (*words);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	458 words++;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12198 diff changeset	459 }
10058 e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	460
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	461 R( a, b, c, d, e, f, g, h, K( 0), x[ 0] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	462 R( h, a, b, c, d, e, f, g, K( 1), x[ 1] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	463 R( g, h, a, b, c, d, e, f, K( 2), x[ 2] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	464 R( f, g, h, a, b, c, d, e, K( 3), x[ 3] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	465 R( e, f, g, h, a, b, c, d, K( 4), x[ 4] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	466 R( d, e, f, g, h, a, b, c, K( 5), x[ 5] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	467 R( c, d, e, f, g, h, a, b, K( 6), x[ 6] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	468 R( b, c, d, e, f, g, h, a, K( 7), x[ 7] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	469 R( a, b, c, d, e, f, g, h, K( 8), x[ 8] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	470 R( h, a, b, c, d, e, f, g, K( 9), x[ 9] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	471 R( g, h, a, b, c, d, e, f, K(10), x[10] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	472 R( f, g, h, a, b, c, d, e, K(11), x[11] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	473 R( e, f, g, h, a, b, c, d, K(12), x[12] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	474 R( d, e, f, g, h, a, b, c, K(13), x[13] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	475 R( c, d, e, f, g, h, a, b, K(14), x[14] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	476 R( b, c, d, e, f, g, h, a, K(15), x[15] );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	477 R( a, b, c, d, e, f, g, h, K(16), M(16) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	478 R( h, a, b, c, d, e, f, g, K(17), M(17) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	479 R( g, h, a, b, c, d, e, f, K(18), M(18) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	480 R( f, g, h, a, b, c, d, e, K(19), M(19) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	481 R( e, f, g, h, a, b, c, d, K(20), M(20) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	482 R( d, e, f, g, h, a, b, c, K(21), M(21) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	483 R( c, d, e, f, g, h, a, b, K(22), M(22) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	484 R( b, c, d, e, f, g, h, a, K(23), M(23) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	485 R( a, b, c, d, e, f, g, h, K(24), M(24) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	486 R( h, a, b, c, d, e, f, g, K(25), M(25) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	487 R( g, h, a, b, c, d, e, f, K(26), M(26) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	488 R( f, g, h, a, b, c, d, e, K(27), M(27) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	489 R( e, f, g, h, a, b, c, d, K(28), M(28) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	490 R( d, e, f, g, h, a, b, c, K(29), M(29) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	491 R( c, d, e, f, g, h, a, b, K(30), M(30) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	492 R( b, c, d, e, f, g, h, a, K(31), M(31) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	493 R( a, b, c, d, e, f, g, h, K(32), M(32) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	494 R( h, a, b, c, d, e, f, g, K(33), M(33) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	495 R( g, h, a, b, c, d, e, f, K(34), M(34) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	496 R( f, g, h, a, b, c, d, e, K(35), M(35) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	497 R( e, f, g, h, a, b, c, d, K(36), M(36) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	498 R( d, e, f, g, h, a, b, c, K(37), M(37) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	499 R( c, d, e, f, g, h, a, b, K(38), M(38) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	500 R( b, c, d, e, f, g, h, a, K(39), M(39) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	501 R( a, b, c, d, e, f, g, h, K(40), M(40) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	502 R( h, a, b, c, d, e, f, g, K(41), M(41) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	503 R( g, h, a, b, c, d, e, f, K(42), M(42) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	504 R( f, g, h, a, b, c, d, e, K(43), M(43) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	505 R( e, f, g, h, a, b, c, d, K(44), M(44) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	506 R( d, e, f, g, h, a, b, c, K(45), M(45) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	507 R( c, d, e, f, g, h, a, b, K(46), M(46) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	508 R( b, c, d, e, f, g, h, a, K(47), M(47) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	509 R( a, b, c, d, e, f, g, h, K(48), M(48) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	510 R( h, a, b, c, d, e, f, g, K(49), M(49) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	511 R( g, h, a, b, c, d, e, f, K(50), M(50) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	512 R( f, g, h, a, b, c, d, e, K(51), M(51) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	513 R( e, f, g, h, a, b, c, d, K(52), M(52) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	514 R( d, e, f, g, h, a, b, c, K(53), M(53) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	515 R( c, d, e, f, g, h, a, b, K(54), M(54) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	516 R( b, c, d, e, f, g, h, a, K(55), M(55) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	517 R( a, b, c, d, e, f, g, h, K(56), M(56) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	518 R( h, a, b, c, d, e, f, g, K(57), M(57) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	519 R( g, h, a, b, c, d, e, f, K(58), M(58) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	520 R( f, g, h, a, b, c, d, e, K(59), M(59) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	521 R( e, f, g, h, a, b, c, d, K(60), M(60) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	522 R( d, e, f, g, h, a, b, c, K(61), M(61) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	523 R( c, d, e, f, g, h, a, b, K(62), M(62) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	524 R( b, c, d, e, f, g, h, a, K(63), M(63) );
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	525
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	526 a = ctx->state[0] += a;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	527 b = ctx->state[1] += b;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	528 c = ctx->state[2] += c;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	529 d = ctx->state[3] += d;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	530 e = ctx->state[4] += e;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	531 f = ctx->state[5] += f;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	532 g = ctx->state[6] += g;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	533 h = ctx->state[7] += h;
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	534 }
e65afb893b33 New modules: crypto/sha256, crypto/sha512 (from coreutils) Jim Meyering <meyering@redhat.com> parents: diff changeset	535 }
17554 0c8459454095 md5, sha1, sha256, sha512: use openssl routines if available Pádraig Brady <P@draigBrady.com> parents: 17249 diff changeset	536 #endif
19496 33ee5e90be64 maint: Add encoding marker for Emacs to non-ASCII sources. Bruno Haible <bruno@clisp.org> parents: 19484 diff changeset	537
33ee5e90be64 maint: Add encoding marker for Emacs to non-ASCII sources. Bruno Haible <bruno@clisp.org> parents: 19484 diff changeset	538 /*
33ee5e90be64 maint: Add encoding marker for Emacs to non-ASCII sources. Bruno Haible <bruno@clisp.org> parents: 19484 diff changeset	539 * Hey Emacs!
33ee5e90be64 maint: Add encoding marker for Emacs to non-ASCII sources. Bruno Haible <bruno@clisp.org> parents: 19484 diff changeset	540 * Local Variables:
33ee5e90be64 maint: Add encoding marker for Emacs to non-ASCII sources. Bruno Haible <bruno@clisp.org> parents: 19484 diff changeset	541 * coding: utf-8
33ee5e90be64 maint: Add encoding marker for Emacs to non-ASCII sources. Bruno Haible <bruno@clisp.org> parents: 19484 diff changeset	542 * End:
33ee5e90be64 maint: Add encoding marker for Emacs to non-ASCII sources. Bruno Haible <bruno@clisp.org> parents: 19484 diff changeset	543 */

Mercurial > gnulib

annotate lib/sha256.c @ 40196:e63f5d3edab5