summaryrefslogtreecommitdiff
path: root/3rdparty/plibsys/src/pcryptohash-sha1.c
diff options
context:
space:
mode:
authorsanine <sanine.not@pm.me>2022-08-27 23:52:56 -0500
committersanine <sanine.not@pm.me>2022-08-27 23:52:56 -0500
commita4dd0ad63c00f4dee3b86dfd3075d1d61b2b3180 (patch)
tree13bd5bfa15e6fea2a12f176bae79adf9c6fd0933 /3rdparty/plibsys/src/pcryptohash-sha1.c
parentbde3e4f1bb7b8f8abca0884a7d994ee1c17a66b1 (diff)
add plibsys
Diffstat (limited to '3rdparty/plibsys/src/pcryptohash-sha1.c')
-rw-r--r--3rdparty/plibsys/src/pcryptohash-sha1.c321
1 files changed, 321 insertions, 0 deletions
diff --git a/3rdparty/plibsys/src/pcryptohash-sha1.c b/3rdparty/plibsys/src/pcryptohash-sha1.c
new file mode 100644
index 0000000..62e826c
--- /dev/null
+++ b/3rdparty/plibsys/src/pcryptohash-sha1.c
@@ -0,0 +1,321 @@
+/*
+ * The MIT License
+ *
+ * Copyright (C) 2010-2016 Alexander Saprykin <saprykin.spb@gmail.com>
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining
+ * a copy of this software and associated documentation files (the
+ * 'Software'), to deal in the Software without restriction, including
+ * without limitation the rights to use, copy, modify, merge, publish,
+ * distribute, sublicense, and/or sell copies of the Software, and to
+ * permit persons to whom the Software is furnished to do so, subject to
+ * the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be
+ * included in all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+ * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+ * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+ * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+ * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ */
+
+#include <string.h>
+#include <stdlib.h>
+
+#include "pmem.h"
+#include "pcryptohash-sha1.h"
+
+struct PHashSHA1_ {
+ union buf_ {
+ puchar buf[64];
+ puint32 buf_w[16];
+ } buf;
+ puint32 hash[5];
+
+ puint32 len_high;
+ puint32 len_low;
+};
+
+static const puchar pp_crypto_hash_sha1_pad[64] = {
+ 0x80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
+};
+
+static void pp_crypto_hash_sha1_swap_bytes (puint32 *data, puint words);
+static void pp_crypto_hash_sha1_process (PHashSHA1 *ctx, const puint32 data[16]);
+
+#define P_SHA1_ROTL(val, shift) ((val) << (shift) | (val) >> (32 - (shift)))
+
+#define P_SHA1_F1(x, y, z) ((x & y) | ((~x) & z))
+#define P_SHA1_F2(x, y, z) (x ^ y ^ z)
+#define P_SHA1_F3(x, y, z) ((x & y) | (x & z) | (y & z))
+
+#define P_SHA1_W(W, i) \
+( \
+ (W)[i & 0x0F] = P_SHA1_ROTL ( \
+ (W)[(i - 3) & 0x0F] \
+ ^ (W)[(i - 8) & 0x0F] \
+ ^ (W)[(i - 14) & 0x0F] \
+ ^ (W)[(i - 16) & 0x0F], \
+ 1) \
+)
+
+#define P_SHA1_ROUND_0(a, b, c, d, e, w) \
+{ \
+ e += P_SHA1_ROTL (a, 5) + P_SHA1_F1 (b, c, d) \
+ + 0x5A827999 + w; \
+ b = P_SHA1_ROTL (b, 30); \
+}
+
+#define P_SHA1_ROUND_1(a, b, c, d, e, w) \
+{ \
+ e += P_SHA1_ROTL (a, 5) + P_SHA1_F2 (b, c, d) \
+ + 0x6ED9EBA1 + w; \
+ b = P_SHA1_ROTL (b, 30); \
+}
+
+#define P_SHA1_ROUND_2(a, b, c, d, e, w) \
+{ \
+ e += P_SHA1_ROTL (a, 5) + P_SHA1_F3 (b, c, d) \
+ + 0x8F1BBCDC + w; \
+ b = P_SHA1_ROTL (b, 30); \
+}
+
+#define P_SHA1_ROUND_3(a, b, c, d, e, w) \
+{ \
+ e += P_SHA1_ROTL (a, 5) + P_SHA1_F2 (b, c, d) \
+ + 0xCA62C1D6 + w; \
+ b = P_SHA1_ROTL (b, 30); \
+}
+
+static void
+pp_crypto_hash_sha1_swap_bytes (puint32 *data,
+ puint words)
+{
+#ifdef PLIBSYS_IS_BIGENDIAN
+ P_UNUSED (data);
+ P_UNUSED (words);
+#else
+ while (words-- > 0) {
+ *data = PUINT32_TO_BE (*data);
+ ++data;
+ }
+#endif
+}
+
+static void
+pp_crypto_hash_sha1_process (PHashSHA1 *ctx,
+ const puint32 data[16])
+{
+ puint32 W[16], A, B, C, D, E;
+
+ if (P_UNLIKELY (ctx == NULL))
+ return;
+
+ memcpy (W, data, 64);
+
+ A = ctx->hash[0];
+ B = ctx->hash[1];
+ C = ctx->hash[2];
+ D = ctx->hash[3];
+ E = ctx->hash[4];
+
+ P_SHA1_ROUND_0 (A, B, C, D, E, W[0]);
+ P_SHA1_ROUND_0 (E, A, B, C, D, W[1]);
+ P_SHA1_ROUND_0 (D, E, A, B, C, W[2]);
+ P_SHA1_ROUND_0 (C, D, E, A, B, W[3]);
+ P_SHA1_ROUND_0 (B, C, D, E, A, W[4]);
+ P_SHA1_ROUND_0 (A, B, C, D, E, W[5]);
+ P_SHA1_ROUND_0 (E, A, B, C, D, W[6]);
+ P_SHA1_ROUND_0 (D, E, A, B, C, W[7]);
+ P_SHA1_ROUND_0 (C, D, E, A, B, W[8]);
+ P_SHA1_ROUND_0 (B, C, D, E, A, W[9]);
+ P_SHA1_ROUND_0 (A, B, C, D, E, W[10]);
+ P_SHA1_ROUND_0 (E, A, B, C, D, W[11]);
+ P_SHA1_ROUND_0 (D, E, A, B, C, W[12]);
+ P_SHA1_ROUND_0 (C, D, E, A, B, W[13]);
+ P_SHA1_ROUND_0 (B, C, D, E, A, W[14]);
+ P_SHA1_ROUND_0 (A, B, C, D, E, W[15]);
+ P_SHA1_ROUND_0 (E, A, B, C, D, P_SHA1_W (W, 16));
+ P_SHA1_ROUND_0 (D, E, A, B, C, P_SHA1_W (W, 17));
+ P_SHA1_ROUND_0 (C, D, E, A, B, P_SHA1_W (W, 18));
+ P_SHA1_ROUND_0 (B, C, D, E, A, P_SHA1_W (W, 19));
+
+ P_SHA1_ROUND_1 (A, B, C, D, E, P_SHA1_W (W, 20));
+ P_SHA1_ROUND_1 (E, A, B, C, D, P_SHA1_W (W, 21));
+ P_SHA1_ROUND_1 (D, E, A, B, C, P_SHA1_W (W, 22));
+ P_SHA1_ROUND_1 (C, D, E, A, B, P_SHA1_W (W, 23));
+ P_SHA1_ROUND_1 (B, C, D, E, A, P_SHA1_W (W, 24));
+ P_SHA1_ROUND_1 (A, B, C, D, E, P_SHA1_W (W, 25));
+ P_SHA1_ROUND_1 (E, A, B, C, D, P_SHA1_W (W, 26));
+ P_SHA1_ROUND_1 (D, E, A, B, C, P_SHA1_W (W, 27));
+ P_SHA1_ROUND_1 (C, D, E, A, B, P_SHA1_W (W, 28));
+ P_SHA1_ROUND_1 (B, C, D, E, A, P_SHA1_W (W, 29));
+ P_SHA1_ROUND_1 (A, B, C, D, E, P_SHA1_W (W, 30));
+ P_SHA1_ROUND_1 (E, A, B, C, D, P_SHA1_W (W, 31));
+ P_SHA1_ROUND_1 (D, E, A, B, C, P_SHA1_W (W, 32));
+ P_SHA1_ROUND_1 (C, D, E, A, B, P_SHA1_W (W, 33));
+ P_SHA1_ROUND_1 (B, C, D, E, A, P_SHA1_W (W, 34));
+ P_SHA1_ROUND_1 (A, B, C, D, E, P_SHA1_W (W, 35));
+ P_SHA1_ROUND_1 (E, A, B, C, D, P_SHA1_W (W, 36));
+ P_SHA1_ROUND_1 (D, E, A, B, C, P_SHA1_W (W, 37));
+ P_SHA1_ROUND_1 (C, D, E, A, B, P_SHA1_W (W, 38));
+ P_SHA1_ROUND_1 (B, C, D, E, A, P_SHA1_W (W, 39));
+
+ P_SHA1_ROUND_2 (A, B, C, D, E, P_SHA1_W (W, 40));
+ P_SHA1_ROUND_2 (E, A, B, C, D, P_SHA1_W (W, 41));
+ P_SHA1_ROUND_2 (D, E, A, B, C, P_SHA1_W (W, 42));
+ P_SHA1_ROUND_2 (C, D, E, A, B, P_SHA1_W (W, 43));
+ P_SHA1_ROUND_2 (B, C, D, E, A, P_SHA1_W (W, 44));
+ P_SHA1_ROUND_2 (A, B, C, D, E, P_SHA1_W (W, 45));
+ P_SHA1_ROUND_2 (E, A, B, C, D, P_SHA1_W (W, 46));
+ P_SHA1_ROUND_2 (D, E, A, B, C, P_SHA1_W (W, 47));
+ P_SHA1_ROUND_2 (C, D, E, A, B, P_SHA1_W (W, 48));
+ P_SHA1_ROUND_2 (B, C, D, E, A, P_SHA1_W (W, 49));
+ P_SHA1_ROUND_2 (A, B, C, D, E, P_SHA1_W (W, 50));
+ P_SHA1_ROUND_2 (E, A, B, C, D, P_SHA1_W (W, 51));
+ P_SHA1_ROUND_2 (D, E, A, B, C, P_SHA1_W (W, 52));
+ P_SHA1_ROUND_2 (C, D, E, A, B, P_SHA1_W (W, 53));
+ P_SHA1_ROUND_2 (B, C, D, E, A, P_SHA1_W (W, 54));
+ P_SHA1_ROUND_2 (A, B, C, D, E, P_SHA1_W (W, 55));
+ P_SHA1_ROUND_2 (E, A, B, C, D, P_SHA1_W (W, 56));
+ P_SHA1_ROUND_2 (D, E, A, B, C, P_SHA1_W (W, 57));
+ P_SHA1_ROUND_2 (C, D, E, A, B, P_SHA1_W (W, 58));
+ P_SHA1_ROUND_2 (B, C, D, E, A, P_SHA1_W (W, 59));
+
+ P_SHA1_ROUND_3 (A, B, C, D, E, P_SHA1_W (W, 60));
+ P_SHA1_ROUND_3 (E, A, B, C, D, P_SHA1_W (W, 61));
+ P_SHA1_ROUND_3 (D, E, A, B, C, P_SHA1_W (W, 62));
+ P_SHA1_ROUND_3 (C, D, E, A, B, P_SHA1_W (W, 63));
+ P_SHA1_ROUND_3 (B, C, D, E, A, P_SHA1_W (W, 64));
+ P_SHA1_ROUND_3 (A, B, C, D, E, P_SHA1_W (W, 65));
+ P_SHA1_ROUND_3 (E, A, B, C, D, P_SHA1_W (W, 66));
+ P_SHA1_ROUND_3 (D, E, A, B, C, P_SHA1_W (W, 67));
+ P_SHA1_ROUND_3 (C, D, E, A, B, P_SHA1_W (W, 68));
+ P_SHA1_ROUND_3 (B, C, D, E, A, P_SHA1_W (W, 69));
+ P_SHA1_ROUND_3 (A, B, C, D, E, P_SHA1_W (W, 70));
+ P_SHA1_ROUND_3 (E, A, B, C, D, P_SHA1_W (W, 71));
+ P_SHA1_ROUND_3 (D, E, A, B, C, P_SHA1_W (W, 72));
+ P_SHA1_ROUND_3 (C, D, E, A, B, P_SHA1_W (W, 73));
+ P_SHA1_ROUND_3 (B, C, D, E, A, P_SHA1_W (W, 74));
+ P_SHA1_ROUND_3 (A, B, C, D, E, P_SHA1_W (W, 75));
+ P_SHA1_ROUND_3 (E, A, B, C, D, P_SHA1_W (W, 76));
+ P_SHA1_ROUND_3 (D, E, A, B, C, P_SHA1_W (W, 77));
+ P_SHA1_ROUND_3 (C, D, E, A, B, P_SHA1_W (W, 78));
+ P_SHA1_ROUND_3 (B, C, D, E, A, P_SHA1_W (W, 79));
+
+ ctx->hash[0] += A;
+ ctx->hash[1] += B;
+ ctx->hash[2] += C;
+ ctx->hash[3] += D;
+ ctx->hash[4] += E;
+}
+
+void
+p_crypto_hash_sha1_reset (PHashSHA1 *ctx)
+{
+ memset (ctx->buf.buf, 0, 64);
+
+ ctx->len_low = 0;
+ ctx->len_high = 0;
+
+ ctx->hash[0] = 0x67452301;
+ ctx->hash[1] = 0xEFCDAB89;
+ ctx->hash[2] = 0x98BADCFE;
+ ctx->hash[3] = 0x10325476;
+ ctx->hash[4] = 0xC3D2E1F0;
+}
+
+PHashSHA1 *
+p_crypto_hash_sha1_new (void)
+{
+ PHashSHA1 *ret;
+
+ if (P_UNLIKELY ((ret = p_malloc0 (sizeof (PHashSHA1))) == NULL))
+ return NULL;
+
+ p_crypto_hash_sha1_reset (ret);
+
+ return ret;
+}
+
+void
+p_crypto_hash_sha1_update (PHashSHA1 *ctx,
+ const puchar *data,
+ psize len)
+{
+ puint32 left, to_fill;
+
+ left = ctx->len_low & 0x3F;
+ to_fill = 64 - left;
+
+ ctx->len_low += (puint32) len;
+
+ if (ctx->len_low < (puint32) len)
+ ++ctx->len_high;
+
+ if (left && (puint32) len >= to_fill) {
+ memcpy (ctx->buf.buf + left, data, to_fill);
+ pp_crypto_hash_sha1_swap_bytes (ctx->buf.buf_w, 16);
+ pp_crypto_hash_sha1_process (ctx, ctx->buf.buf_w);
+
+ data += to_fill;
+ len -= to_fill;
+ left = 0;
+ }
+
+ while (len >= 64) {
+ memcpy (ctx->buf.buf, data, 64);
+ pp_crypto_hash_sha1_swap_bytes (ctx->buf.buf_w, 16);
+ pp_crypto_hash_sha1_process (ctx, ctx->buf.buf_w);
+
+ data += 64;
+ len -= 64;
+ }
+
+ if (len > 0)
+ memcpy (ctx->buf.buf + left, data, len);
+}
+
+void
+p_crypto_hash_sha1_finish (PHashSHA1 *ctx)
+{
+ puint32 high, low;
+ pint left, last;
+
+ left = ctx->len_low & 0x3F;
+ last = (left < 56) ? (56 - left) : (120 - left);
+
+ low = ctx->len_low << 3;
+ high = ctx->len_high << 3
+ | ctx->len_low >> 29;
+
+ if (last > 0)
+ p_crypto_hash_sha1_update (ctx, pp_crypto_hash_sha1_pad, (psize) last);
+
+ ctx->buf.buf_w[14] = high;
+ ctx->buf.buf_w[15] = low;
+
+ pp_crypto_hash_sha1_swap_bytes (ctx->buf.buf_w, 14);
+ pp_crypto_hash_sha1_process (ctx, ctx->buf.buf_w);
+
+ pp_crypto_hash_sha1_swap_bytes (ctx->hash, 5);
+}
+
+const puchar *
+p_crypto_hash_sha1_digest (PHashSHA1 *ctx)
+{
+ return (const puchar *) ctx->hash;
+}
+
+void
+p_crypto_hash_sha1_free (PHashSHA1 *ctx)
+{
+ p_free (ctx);
+}