Shuffle things around. Add NIST X.509 test to build.

1 files changed, 165 insertions, 0 deletions

diff --git a/lib/hash/has160/has160.cpp b/lib/hash/has160/has160.cpp
new file mode 100644
index 000000000..6890ccb85
--- /dev/null
+++ b/lib/hash/has160/has160.cpp
@@ -0,0 +1,165 @@
+/*
+* HAS-160
+* (C) 1999-2007 Jack Lloyd
+*
+* Distributed under the terms of the Botan license
+*/
+
+#include <botan/has160.h>
+#include <botan/loadstor.h>
+#include <botan/rotate.h>
+
+namespace Botan {
+
+namespace HAS_160_F {
+
+/*
+* HAS-160 F1 Function
+*/
+inline void F1(u32bit A, u32bit& B, u32bit C, u32bit D, u32bit& E,
+               u32bit msg, u32bit rot)
+   {
+   E += rotate_left(A, rot) + (D ^ (B & (C ^ D))) + msg;
+   B  = rotate_left(B, 10);
+   }
+
+/*
+* HAS-160 F2 Function
+*/
+inline void F2(u32bit A, u32bit& B, u32bit C, u32bit D, u32bit& E,
+               u32bit msg, u32bit rot)
+   {
+   E += rotate_left(A, rot) + (B ^ C ^ D) + msg + 0x5A827999;
+   B  = rotate_left(B, 17);
+   }
+
+/*
+* HAS-160 F3 Function
+*/
+inline void F3(u32bit A, u32bit& B, u32bit C, u32bit D, u32bit& E,
+               u32bit msg, u32bit rot)
+   {
+   E += rotate_left(A, rot) + (C ^ (B | ~D)) + msg + 0x6ED9EBA1;
+   B  = rotate_left(B, 25);
+   }
+
+/*
+* HAS-160 F4 Function
+*/
+inline void F4(u32bit A, u32bit& B, u32bit C, u32bit D, u32bit& E,
+               u32bit msg, u32bit rot)
+   {
+   E += rotate_left(A, rot) + (B ^ C ^ D) + msg + 0x8F1BBCDC;
+   B  = rotate_left(B, 30);
+   }
+
+}
+
+/*
+* HAS-160 Compression Function
+*/
+void HAS_160::compress_n(const byte input[], size_t blocks)
+   {
+   using namespace HAS_160_F;
+
+   u32bit A = digest[0], B = digest[1], C = digest[2],
+          D = digest[3], E = digest[4];
+
+   for(size_t i = 0; i != blocks; ++i)
+      {
+      load_le(&X[0], input, 16);
+
+      X[16] = X[ 0] ^ X[ 1] ^ X[ 2] ^ X[ 3];
+      X[17] = X[ 4] ^ X[ 5] ^ X[ 6] ^ X[ 7];
+      X[18] = X[ 8] ^ X[ 9] ^ X[10] ^ X[11];
+      X[19] = X[12] ^ X[13] ^ X[14] ^ X[15];
+      F1(A,B,C,D,E,X[18], 5);   F1(E,A,B,C,D,X[ 0],11);
+      F1(D,E,A,B,C,X[ 1], 7);   F1(C,D,E,A,B,X[ 2],15);
+      F1(B,C,D,E,A,X[ 3], 6);   F1(A,B,C,D,E,X[19],13);
+      F1(E,A,B,C,D,X[ 4], 8);   F1(D,E,A,B,C,X[ 5],14);
+      F1(C,D,E,A,B,X[ 6], 7);   F1(B,C,D,E,A,X[ 7],12);
+      F1(A,B,C,D,E,X[16], 9);   F1(E,A,B,C,D,X[ 8],11);
+      F1(D,E,A,B,C,X[ 9], 8);   F1(C,D,E,A,B,X[10],15);
+      F1(B,C,D,E,A,X[11], 6);   F1(A,B,C,D,E,X[17],12);
+      F1(E,A,B,C,D,X[12], 9);   F1(D,E,A,B,C,X[13],14);
+      F1(C,D,E,A,B,X[14], 5);   F1(B,C,D,E,A,X[15],13);
+
+      X[16] = X[ 3] ^ X[ 6] ^ X[ 9] ^ X[12];
+      X[17] = X[ 2] ^ X[ 5] ^ X[ 8] ^ X[15];
+      X[18] = X[ 1] ^ X[ 4] ^ X[11] ^ X[14];
+      X[19] = X[ 0] ^ X[ 7] ^ X[10] ^ X[13];
+      F2(A,B,C,D,E,X[18], 5);   F2(E,A,B,C,D,X[ 3],11);
+      F2(D,E,A,B,C,X[ 6], 7);   F2(C,D,E,A,B,X[ 9],15);
+      F2(B,C,D,E,A,X[12], 6);   F2(A,B,C,D,E,X[19],13);
+      F2(E,A,B,C,D,X[15], 8);   F2(D,E,A,B,C,X[ 2],14);
+      F2(C,D,E,A,B,X[ 5], 7);   F2(B,C,D,E,A,X[ 8],12);
+      F2(A,B,C,D,E,X[16], 9);   F2(E,A,B,C,D,X[11],11);
+      F2(D,E,A,B,C,X[14], 8);   F2(C,D,E,A,B,X[ 1],15);
+      F2(B,C,D,E,A,X[ 4], 6);   F2(A,B,C,D,E,X[17],12);
+      F2(E,A,B,C,D,X[ 7], 9);   F2(D,E,A,B,C,X[10],14);
+      F2(C,D,E,A,B,X[13], 5);   F2(B,C,D,E,A,X[ 0],13);
+
+      X[16] = X[ 5] ^ X[ 7] ^ X[12] ^ X[14];
+      X[17] = X[ 0] ^ X[ 2] ^ X[ 9] ^ X[11];
+      X[18] = X[ 4] ^ X[ 6] ^ X[13] ^ X[15];
+      X[19] = X[ 1] ^ X[ 3] ^ X[ 8] ^ X[10];
+      F3(A,B,C,D,E,X[18], 5);   F3(E,A,B,C,D,X[12],11);
+      F3(D,E,A,B,C,X[ 5], 7);   F3(C,D,E,A,B,X[14],15);
+      F3(B,C,D,E,A,X[ 7], 6);   F3(A,B,C,D,E,X[19],13);
+      F3(E,A,B,C,D,X[ 0], 8);   F3(D,E,A,B,C,X[ 9],14);
+      F3(C,D,E,A,B,X[ 2], 7);   F3(B,C,D,E,A,X[11],12);
+      F3(A,B,C,D,E,X[16], 9);   F3(E,A,B,C,D,X[ 4],11);
+      F3(D,E,A,B,C,X[13], 8);   F3(C,D,E,A,B,X[ 6],15);
+      F3(B,C,D,E,A,X[15], 6);   F3(A,B,C,D,E,X[17],12);
+      F3(E,A,B,C,D,X[ 8], 9);   F3(D,E,A,B,C,X[ 1],14);
+      F3(C,D,E,A,B,X[10], 5);   F3(B,C,D,E,A,X[ 3],13);
+
+      X[16] = X[ 2] ^ X[ 7] ^ X[ 8] ^ X[13];
+      X[17] = X[ 3] ^ X[ 4] ^ X[ 9] ^ X[14];
+      X[18] = X[ 0] ^ X[ 5] ^ X[10] ^ X[15];
+      X[19] = X[ 1] ^ X[ 6] ^ X[11] ^ X[12];
+      F4(A,B,C,D,E,X[18], 5);   F4(E,A,B,C,D,X[ 7],11);
+      F4(D,E,A,B,C,X[ 2], 7);   F4(C,D,E,A,B,X[13],15);
+      F4(B,C,D,E,A,X[ 8], 6);   F4(A,B,C,D,E,X[19],13);
+      F4(E,A,B,C,D,X[ 3], 8);   F4(D,E,A,B,C,X[14],14);
+      F4(C,D,E,A,B,X[ 9], 7);   F4(B,C,D,E,A,X[ 4],12);
+      F4(A,B,C,D,E,X[16], 9);   F4(E,A,B,C,D,X[15],11);
+      F4(D,E,A,B,C,X[10], 8);   F4(C,D,E,A,B,X[ 5],15);
+      F4(B,C,D,E,A,X[ 0], 6);   F4(A,B,C,D,E,X[17],12);
+      F4(E,A,B,C,D,X[11], 9);   F4(D,E,A,B,C,X[ 6],14);
+      F4(C,D,E,A,B,X[ 1], 5);   F4(B,C,D,E,A,X[12],13);
+
+      A = (digest[0] += A);
+      B = (digest[1] += B);
+      C = (digest[2] += C);
+      D = (digest[3] += D);
+      E = (digest[4] += E);
+
+      input += hash_block_size();
+      }
+   }
+
+/*
+* Copy out the digest
+*/
+void HAS_160::copy_out(byte output[])
+   {
+   for(size_t i = 0; i != output_length(); i += 4)
+      store_le(digest[i/4], output + i);
+   }
+
+/*
+* Clear memory of sensitive data
+*/
+void HAS_160::clear()
+   {
+   MDx_HashFunction::clear();
+   zeroise(X);
+   digest[0] = 0x67452301;
+   digest[1] = 0xEFCDAB89;
+   digest[2] = 0x98BADCFE;
+   digest[3] = 0x10325476;
+   digest[4] = 0xC3D2E1F0;
+   }
+
+}