monotone

monotone Mtn Source Tree

Root/botan/sha160.cpp

1/*************************************************
2* SHA-160 Source File *
3* (C) 1999-2008 The Botan Project *
4*************************************************/
5
6#include <botan/sha160.h>
7#include <botan/loadstor.h>
8#include <botan/bit_ops.h>
9
10namespace Botan {
11
12namespace {
13
14/*************************************************
15* SHA-160 F1 Function *
16*************************************************/
17inline void F1(u32bit A, u32bit& B, u32bit C, u32bit D, u32bit& E, u32bit msg)
18 {
19 E += (D ^ (B & (C ^ D))) + msg + 0x5A827999 + rotate_left(A, 5);
20 B = rotate_left(B, 30);
21 }
22
23/*************************************************
24* SHA-160 F2 Function *
25*************************************************/
26inline void F2(u32bit A, u32bit& B, u32bit C, u32bit D, u32bit& E, u32bit msg)
27 {
28 E += (B ^ C ^ D) + msg + 0x6ED9EBA1 + rotate_left(A, 5);
29 B = rotate_left(B, 30);
30 }
31
32/*************************************************
33* SHA-160 F3 Function *
34*************************************************/
35inline void F3(u32bit A, u32bit& B, u32bit C, u32bit D, u32bit& E, u32bit msg)
36 {
37 E += ((B & C) | ((B | C) & D)) + msg + 0x8F1BBCDC + rotate_left(A, 5);
38 B = rotate_left(B, 30);
39 }
40
41/*************************************************
42* SHA-160 F4 Function *
43*************************************************/
44inline void F4(u32bit A, u32bit& B, u32bit C, u32bit D, u32bit& E, u32bit msg)
45 {
46 E += (B ^ C ^ D) + msg + 0xCA62C1D6 + rotate_left(A, 5);
47 B = rotate_left(B, 30);
48 }
49
50}
51
52/*************************************************
53* SHA-160 Compression Function *
54*************************************************/
55void SHA_160::hash(const byte input[])
56 {
57 for(u32bit j = 0; j != 16; j += 4)
58 {
59 W[j ] = load_be<u32bit>(input, j);
60 W[j+1] = load_be<u32bit>(input, j+1);
61 W[j+2] = load_be<u32bit>(input, j+2);
62 W[j+3] = load_be<u32bit>(input, j+3);
63 }
64
65 for(u32bit j = 16; j != 80; j += 4)
66 {
67 W[j ] = rotate_left((W[j-3] ^ W[j-8] ^ W[j-14] ^ W[j-16]), 1);
68 W[j+1] = rotate_left((W[j-2] ^ W[j-7] ^ W[j-13] ^ W[j-15]), 1);
69 W[j+2] = rotate_left((W[j-1] ^ W[j-6] ^ W[j-12] ^ W[j-14]), 1);
70 W[j+3] = rotate_left((W[j ] ^ W[j-5] ^ W[j-11] ^ W[j-13]), 1);
71 }
72
73 u32bit A = digest[0], B = digest[1], C = digest[2],
74 D = digest[3], E = digest[4];
75
76 F1(A,B,C,D,E,W[ 0]); F1(E,A,B,C,D,W[ 1]); F1(D,E,A,B,C,W[ 2]);
77 F1(C,D,E,A,B,W[ 3]); F1(B,C,D,E,A,W[ 4]); F1(A,B,C,D,E,W[ 5]);
78 F1(E,A,B,C,D,W[ 6]); F1(D,E,A,B,C,W[ 7]); F1(C,D,E,A,B,W[ 8]);
79 F1(B,C,D,E,A,W[ 9]); F1(A,B,C,D,E,W[10]); F1(E,A,B,C,D,W[11]);
80 F1(D,E,A,B,C,W[12]); F1(C,D,E,A,B,W[13]); F1(B,C,D,E,A,W[14]);
81 F1(A,B,C,D,E,W[15]); F1(E,A,B,C,D,W[16]); F1(D,E,A,B,C,W[17]);
82 F1(C,D,E,A,B,W[18]); F1(B,C,D,E,A,W[19]);
83
84 F2(A,B,C,D,E,W[20]); F2(E,A,B,C,D,W[21]); F2(D,E,A,B,C,W[22]);
85 F2(C,D,E,A,B,W[23]); F2(B,C,D,E,A,W[24]); F2(A,B,C,D,E,W[25]);
86 F2(E,A,B,C,D,W[26]); F2(D,E,A,B,C,W[27]); F2(C,D,E,A,B,W[28]);
87 F2(B,C,D,E,A,W[29]); F2(A,B,C,D,E,W[30]); F2(E,A,B,C,D,W[31]);
88 F2(D,E,A,B,C,W[32]); F2(C,D,E,A,B,W[33]); F2(B,C,D,E,A,W[34]);
89 F2(A,B,C,D,E,W[35]); F2(E,A,B,C,D,W[36]); F2(D,E,A,B,C,W[37]);
90 F2(C,D,E,A,B,W[38]); F2(B,C,D,E,A,W[39]);
91
92 F3(A,B,C,D,E,W[40]); F3(E,A,B,C,D,W[41]); F3(D,E,A,B,C,W[42]);
93 F3(C,D,E,A,B,W[43]); F3(B,C,D,E,A,W[44]); F3(A,B,C,D,E,W[45]);
94 F3(E,A,B,C,D,W[46]); F3(D,E,A,B,C,W[47]); F3(C,D,E,A,B,W[48]);
95 F3(B,C,D,E,A,W[49]); F3(A,B,C,D,E,W[50]); F3(E,A,B,C,D,W[51]);
96 F3(D,E,A,B,C,W[52]); F3(C,D,E,A,B,W[53]); F3(B,C,D,E,A,W[54]);
97 F3(A,B,C,D,E,W[55]); F3(E,A,B,C,D,W[56]); F3(D,E,A,B,C,W[57]);
98 F3(C,D,E,A,B,W[58]); F3(B,C,D,E,A,W[59]);
99
100 F4(A,B,C,D,E,W[60]); F4(E,A,B,C,D,W[61]); F4(D,E,A,B,C,W[62]);
101 F4(C,D,E,A,B,W[63]); F4(B,C,D,E,A,W[64]); F4(A,B,C,D,E,W[65]);
102 F4(E,A,B,C,D,W[66]); F4(D,E,A,B,C,W[67]); F4(C,D,E,A,B,W[68]);
103 F4(B,C,D,E,A,W[69]); F4(A,B,C,D,E,W[70]); F4(E,A,B,C,D,W[71]);
104 F4(D,E,A,B,C,W[72]); F4(C,D,E,A,B,W[73]); F4(B,C,D,E,A,W[74]);
105 F4(A,B,C,D,E,W[75]); F4(E,A,B,C,D,W[76]); F4(D,E,A,B,C,W[77]);
106 F4(C,D,E,A,B,W[78]); F4(B,C,D,E,A,W[79]);
107
108 digest[0] += A; digest[1] += B; digest[2] += C;
109 digest[3] += D; digest[4] += E;
110 }
111
112/*************************************************
113* Copy out the digest *
114*************************************************/
115void SHA_160::copy_out(byte output[])
116 {
117 for(u32bit j = 0; j != OUTPUT_LENGTH; j += 4)
118 store_be(digest[j/4], output + j);
119 }
120
121/*************************************************
122* Clear memory of sensitive data *
123*************************************************/
124void SHA_160::clear() throw()
125 {
126 MDx_HashFunction::clear();
127 W.clear();
128 digest[0] = 0x67452301;
129 digest[1] = 0xEFCDAB89;
130 digest[2] = 0x98BADCFE;
131 digest[3] = 0x10325476;
132 digest[4] = 0xC3D2E1F0;
133 }
134
135/*************************************************
136* SHA_160 Constructor *
137*************************************************/
138SHA_160::SHA_160() : MDx_HashFunction(20, 64, true, true), W(80)
139 {
140 clear();
141 }
142
143}

Archive Download this file

Branches

Tags

Quick Links:     www.monotone.ca    -     Downloads    -     Documentation    -     Wiki    -     Code Forge    -     Build Status