1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
|
/*
* sha.h: header file for SHA-1/224/256/384/512 routines
*
* Ref: NIST FIPS PUB 180-2 Secure Hash Standard
*
* Copyright (C) 2003-2005 Mark Shelor, All Rights Reserved
*
* Version: 5.32
* Fri Dec 2 02:32:20 MST 2005
*
*/
#ifndef _INCLUDE_SHA_H_
#define _INCLUDE_SHA_H_
#include <limits.h>
#define SHA32_MAX 4294967295U
#define SHA64_MAX 18446744073709551615U
#define SHA32_SHR(x, n) ((x) >> (n))
#define SHA32_SHL(x, n) ((x) << (n))
#define SHA64_SHR(x, n) ((x) >> (n))
#define SHA64_SHL(x, n) ((x) << (n))
#define SHA32_ALIGNED
#define SHA64_ALIGNED
#define SHA_LO32(x) (x)
#if USHRT_MAX == SHA32_MAX
#define SHA32 unsigned short
#define SHA32_CONST(c) c ## U
#elif UINT_MAX == SHA32_MAX
#define SHA32 unsigned int
#define SHA32_CONST(c) c ## U
#elif ULONG_MAX == SHA32_MAX
#define SHA32 unsigned long
#define SHA32_CONST(c) c ## UL
#else
#undef SHA32_ALIGNED
#undef SHA_LO32
#define SHA_LO32(x) ((x) & SHA32_MAX)
#undef SHA32_SHR
#define SHA32_SHR(x, n) (SHA_LO32(x) >> (n))
#define SHA32 unsigned long
#define SHA32_CONST(c) c ## UL
#endif
#if defined(ULONG_LONG_MAX) || defined(ULLONG_MAX) || defined(HAS_LONG_LONG)
#define SHA_ULL_EXISTS
#endif
#if (((ULONG_MAX >> 16) >> 16) >> 16) >> 15 == 1UL
#define SHA64 unsigned long
#define SHA64_CONST(c) c ## UL
#elif defined(SHA_ULL_EXISTS) && defined(LONGLONGSIZE) && LONGLONGSIZE == 8
#define SHA64 unsigned long long
#define SHA64_CONST(c) c ## ULL
#elif defined(SHA_ULL_EXISTS)
#undef SHA64_ALIGNED
#undef SHA64_SHR
#define SHA64_SHR(x, n) (((x) & SHA64_MAX) >> (n))
#define SHA64 unsigned long long
#define SHA64_CONST(c) c ## ULL
/* The following cases detect compilers that
* support 64-bit types in a non-standard way */
#elif defined(_MSC_VER) /* Microsoft C */
#define SHA64 unsigned __int64
#define SHA64_CONST(c) (SHA64) c
#endif
#if defined(SHA64) && !defined(NO_SHA_384_512)
#define SHA_384_512
#endif
#if defined(BYTEORDER) && (BYTEORDER & 0xffff) == 0x4321
#if defined(SHA32_ALIGNED)
#define SHA32_SCHED(W, b) memcpy(W, b, 64)
#endif
#if defined(SHA64) && defined(SHA64_ALIGNED)
#define SHA64_SCHED(W, b) memcpy(W, b, 128)
#endif
#endif
#if !defined(SHA32_SCHED)
#define SHA32_SCHED(W, b) { int t; SHA32 *q = W; \
for (t = 0; t < 16; t++, b += 4) *q++ = \
(SHA32) b[0] << 24 | (SHA32) b[1] << 16 | \
(SHA32) b[2] << 8 | (SHA32) b[3]; }
#endif
#if defined(SHA64) && !defined(SHA64_SCHED)
#define SHA64_SCHED(W, b) { int t; SHA64 *q = W; \
for (t = 0; t < 16; t++, b += 8) *q++ = \
(SHA64) b[0] << 56 | (SHA64) b[1] << 48 | \
(SHA64) b[2] << 40 | (SHA64) b[3] << 32 | \
(SHA64) b[4] << 24 | (SHA64) b[5] << 16 | \
(SHA64) b[6] << 8 | (SHA64) b[7]; }
#endif
/*
* SHA_STO_CLASS: default to auto storage class for message schedule
* arrays inside transform routines. Note that redefining this to
* static might improve performance on some platforms (e.g. Intel).
*/
#if !defined(SHA_STO_CLASS)
#define SHA_STO_CLASS auto
#endif
/* Override use of static arrays if compiling for thread-safety */
#ifdef SHA_THREAD_SAFE
#undef SHA_STO_CLASS
#define SHA_STO_CLASS auto
#endif
/* Configure memory management and I/O for Perl or standalone C */
#ifdef SHA_PERL_MODULE
#define SHA_new New
#define SHA_newz Newz
#define SHA_free Safefree
#define SHA_FILE PerlIO
#define SHA_stdin() PerlIO_stdin()
#define SHA_stdout() PerlIO_stdout()
#define SHA_open PerlIO_open
#define SHA_close PerlIO_close
#define SHA_fprintf PerlIO_printf
#define SHA_feof PerlIO_eof
#define SHA_getc PerlIO_getc
#else
#define SHA_new(id, p, n, t) p = (t *) malloc(sizeof(t))
#define SHA_newz(id, p, n, t) p = (t *) calloc(n, sizeof(t))
#define SHA_free free
#define SHA_FILE FILE
#define SHA_stdin() stdin
#define SHA_stdout() stdout
#define SHA_open fopen
#define SHA_close fclose
#define SHA_fprintf fprintf
#define SHA_feof feof
#define SHA_getc fgetc
#endif
#define SHA1 1
#define SHA224 224
#define SHA256 256
#define SHA384 384
#define SHA512 512
#define SHA1_BLOCK_BITS 512
#define SHA224_BLOCK_BITS SHA1_BLOCK_BITS
#define SHA256_BLOCK_BITS SHA1_BLOCK_BITS
#define SHA384_BLOCK_BITS 1024
#define SHA512_BLOCK_BITS SHA384_BLOCK_BITS
#define SHA1_DIGEST_BITS 160
#define SHA224_DIGEST_BITS 224
#define SHA256_DIGEST_BITS 256
#define SHA384_DIGEST_BITS 384
#define SHA512_DIGEST_BITS 512
#define SHA_MAX_BLOCK_BITS SHA512_BLOCK_BITS
#define SHA_MAX_DIGEST_BITS SHA512_DIGEST_BITS
#define SHA_MAX_HEX_LEN (SHA_MAX_DIGEST_BITS / 4)
#define SHA_MAX_BASE64_LEN (1 + (SHA_MAX_DIGEST_BITS / 6))
#if defined(SHA64)
#define SHA_H_SIZE sizeof(SHA64) * 8
#else
#define SHA_H_SIZE sizeof(SHA32) * 8
#endif
typedef struct {
int alg;
void (*sha)();
unsigned char H[SHA_H_SIZE];
unsigned char block[SHA_MAX_BLOCK_BITS/8];
unsigned int blockcnt;
unsigned int blocksize;
SHA32 lenhh, lenhl, lenlh, lenll;
unsigned char digest[SHA_MAX_DIGEST_BITS/8];
int digestlen;
char hex[SHA_MAX_HEX_LEN+1];
char base64[SHA_MAX_BASE64_LEN+1];
} SHA;
#define SHA_FMT_RAW 1
#define SHA_FMT_HEX 2
#define SHA_FMT_BASE64 3
#if defined(__STDC__) && __STDC__ != 0
#define _SHA_P(protos) protos
#else
#define _SHA_P(protos) ()
#endif
#define _SHA_STATE SHA *s
#define _SHA_ALG int alg
#define _SHA_DATA unsigned char *bitstr, unsigned long bitcnt
#define _SHA_FNAME char *filename
SHA *shaopen _SHA_P((_SHA_ALG));
unsigned long shawrite _SHA_P((_SHA_DATA, _SHA_STATE));
void shafinish _SHA_P((_SHA_STATE));
void sharewind _SHA_P((_SHA_STATE));
unsigned char *shadigest _SHA_P((_SHA_STATE));
char *shahex _SHA_P((_SHA_STATE));
char *shabase64 _SHA_P((_SHA_STATE));
int shadsize _SHA_P((_SHA_STATE));
SHA *shadup _SHA_P((_SHA_STATE));
int shadump _SHA_P((_SHA_FNAME, _SHA_STATE));
SHA *shaload _SHA_P((_SHA_FNAME));
int shaclose _SHA_P((_SHA_STATE));
unsigned char *sha1digest _SHA_P((_SHA_DATA));
char *sha1hex _SHA_P((_SHA_DATA));
char *sha1base64 _SHA_P((_SHA_DATA));
unsigned char *sha224digest _SHA_P((_SHA_DATA));
char *sha224hex _SHA_P((_SHA_DATA));
char *sha224base64 _SHA_P((_SHA_DATA));
unsigned char *sha256digest _SHA_P((_SHA_DATA));
char *sha256hex _SHA_P((_SHA_DATA));
char *sha256base64 _SHA_P((_SHA_DATA));
unsigned char *sha384digest _SHA_P((_SHA_DATA));
char *sha384hex _SHA_P((_SHA_DATA));
char *sha384base64 _SHA_P((_SHA_DATA));
unsigned char *sha512digest _SHA_P((_SHA_DATA));
char *sha512hex _SHA_P((_SHA_DATA));
char *sha512base64 _SHA_P((_SHA_DATA));
#endif /* _INCLUDE_SHA_H_ */
|
