1 files changed, 112 insertions, 0 deletions
diff --git a/src/skey/sha1.c b/src/skey/sha1.c
new file mode 100644
index 0000000..ac34ccc
--- /dev/null
+++ b/src/skey/sha1.c
@@ -0,0 +1,112 @@
+#include <config.h>
+
+#include <string.h>
+#include <stdlib.h>
+#include <arpa/inet.h>
+
+#include <glib.h>
+
+#include "skey.h"
+#include "skeyutil.h"
+#include "sha1.h"
+
+
+#define SHA1_DIGESTSIZE       20
+#define SHA1_BLOCKSIZE        64
+
+#define HTONDIGEST(x) { \
+      x[0] = htonl(x[0]); \
+      x[1] = htonl(x[1]); \
+      x[2] = htonl(x[2]); \
+      x[3] = htonl(x[3]); \
+      x[4] = htonl(x[4]); }
+
+#ifdef WORDS_BIGENDIAN
+/*
+ * Note: this code is harmless on little-endian machines.
+ */
+static void byteReverse(unsigned char *buf, unsigned longs)
+{
+    guint32 t;
+    do {
+	t = (guint32) ((unsigned) buf[3] << 8 | buf[2]) << 16 |
+	    ((unsigned) buf[1] << 8 | buf[0]);
+	*(guint32 *) buf = t;
+	buf += 4;
+    } while (--longs);
+}
+#endif
+
+
+int SHA1Keycrunch(char *result, const char *seed, const char *passphrase)
+{
+	char *buf;
+        gsize len;
+        GChecksum *checksum;
+        guint8 digest[20];
+        gsize digest_len = sizeof (digest);
+	guint32 *results;
+
+	len = strlen(seed) + strlen(passphrase);
+	if ((buf = (char *)g_try_malloc(len+1)) == NULL)
+		return -1;
+
+	strcpy(buf, seed);
+	skey_lowcase(buf);
+	strcat(buf, passphrase);
+	skey_sevenbit(buf);
+
+        checksum = g_checksum_new (G_CHECKSUM_SHA1);
+        g_checksum_update (checksum, (const guchar *) buf, len);
+	g_free(buf);
+
+        g_checksum_get_digest (checksum, digest, &digest_len);
+        g_assert (digest_len == 20);
+
+        results = (guint32 *) digest;
+
+#ifndef WORDS_BIGENDIAN
+	HTONDIGEST(results);
+#else
+	byteReverse((unsigned char *)digest, 5);
+#endif
+
+        results = (guint32 *) digest;
+        results[0] ^= results[2];
+	results[1] ^= results[3];
+	results[0] ^= results[4];
+
+	memcpy((void *)result, (void *)results, SKEY_SIZE);
+
+        g_checksum_free (checksum);
+
+	return 0;
+}
+
+void SHA1SKey(char *x)
+{
+        GChecksum *checksum;
+        guint8 digest[20];
+        gsize digest_len = sizeof (digest);
+	guint32 *results;
+
+        checksum = g_checksum_new (G_CHECKSUM_SHA1);
+        g_checksum_update (checksum, (const guchar *) x, SKEY_SIZE);
+        g_checksum_get_digest (checksum, digest, &digest_len);
+        g_assert (digest_len == 20);
+
+        results = (guint32 *) digest;
+#ifndef WORDS_BIGENDIAN
+	HTONDIGEST(results);
+#else
+	byteReverse((unsigned char *)digest, 5);
+#endif
+
+	results[0] ^= results[2];
+	results[1] ^= results[3];
+	results[0] ^= results[4];
+
+	memcpy((void *)x, (void *)results, SKEY_SIZE);
+
+        g_checksum_free (checksum);
+}