/*
 * This file is part of Eggdrop blowfish patch for John The Ripper.
 * Copyright (c) 2002 by Sun-Zero <sun-zero at freemail.hu>
 * This is a free software distributable under terms of the GNU GPL.
 *
 * This format has collisions for repeated patterns (eg. "1" vs. "11",
 * or "hey" vs. "heyheyheyhey") - you can run it with --keep-guessing
 * if you'd like to see alternative plaintexts.
 */

#if FMT_EXTERNS_H
extern struct fmt_main fmt_BFEgg;
#elif FMT_REGISTERS_H
john_register_one(&fmt_BFEgg);
#else

#include <string.h>

#ifdef _OPENMP
#include <omp.h>
// Tuning on AMD A8 4500M laptop, cygwin64 with OMP(4x) -test=5
// 4   = 44330 (original)
// 16  = 54760
// 24  = 56151
// 32  = 56216
// 64  = 57770
// 96  = 57888
// 128 = 58016  > instant -test=0
// 256 = 58282  // from here on, not enough gain to matter.
// 512 = 58573
// 1024= 59464
// 4096= 59244  > 1s -test=0
#ifndef OMP_SCALE
#define OMP_SCALE               128
#endif
#endif

#include "misc.h"
#include "formats.h"
#include "common.h"
#include "blowfish.c"

#define FORMAT_LABEL            "bfegg"
#define FORMAT_NAME             "Eggdrop"
#define ALGORITHM_NAME          "Blowfish 32/" ARCH_BITS_STR
#define BENCHMARK_COMMENT       ""
#define BENCHMARK_LENGTH        -1
#define PLAINTEXT_MIN_LENGTH    1
#define PLAINTEXT_LENGTH        72
#define CIPHERTEXT_LENGTH       13
#define BINARY_SIZE             7
#define BINARY_ALIGN            4
#define SALT_SIZE               0
#define SALT_ALIGN              1
#define MIN_KEYS_PER_CRYPT      1
#define MAX_KEYS_PER_CRYPT      1

static struct fmt_tests tests[] = {
    {"+9F93o1OxwgK1", "123456"},
    {"+C/.8o.Wuph9.", "qwerty"},
    {"+EEHgy/MBLDd0", "walkman"},
    {"+vPBrs07OTXE/", "tesztuser"},
    {"+zIvO/1nDsd9.", "654321"},
    {"+V6ZOx0rVGWT0", "1"},
    {"+V6ZOx0rVGWT0", "11"},
    {"+Obytd.zXYjH/", "abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"},
    {NULL}
};

static char (*saved_key)[PLAINTEXT_LENGTH + 1];
static uint32_t (*crypt_out)[(BINARY_SIZE + 1) / sizeof(uint32_t)];

#if defined (_MSC_VER) || defined (__MINGW32__)
// in VC, _atoi64 is a function.
#define _atoi64 JtR_atoi64
#endif

static const char _itoa64[] = "./0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
static char _atoi64[0x100];

static int valid(char *ciphertext, struct fmt_main *self) {
    char *pos;

    if (*ciphertext != '+') return 0;
    if (strnlen(ciphertext, CIPHERTEXT_LENGTH + 1) != CIPHERTEXT_LENGTH) return 0;

    for (pos = &ciphertext[1]; atoi64[ARCH_INDEX(*pos)] != 0x7F; pos++);
    if (*pos || pos - ciphertext != CIPHERTEXT_LENGTH) return 0;

    return 1;
}

void init(struct fmt_main *self) {
	const char *pos;

#ifdef _OPENMP
	omp_autotune(self, OMP_SCALE);
#endif
	saved_key = mem_calloc(self->params.max_keys_per_crypt,
	                       sizeof(*saved_key));
	crypt_out = mem_calloc(self->params.max_keys_per_crypt,
	                       sizeof(*crypt_out));

	memset(_atoi64, 0x7F, sizeof(_atoi64));
	for (pos = _itoa64; pos <= &_itoa64[63]; pos++)
		_atoi64[ARCH_INDEX(*pos)] = pos - _itoa64;
}

static void done(void)
{
	MEM_FREE(crypt_out);
	MEM_FREE(saved_key);
}

/* The base64 is flawed - we just mimic flaws from the original code */
static void *get_binary(char *ciphertext)
{
	static union toalign {
		unsigned char c[BINARY_SIZE];
		uint32_t a[1];
	} a;
	unsigned char *out = a.c;
	uint32_t value;
	char *pos;

	pos = ciphertext + 1;

	value = (uint32_t)_atoi64[ARCH_INDEX(pos[0])] |
		((uint32_t)_atoi64[ARCH_INDEX(pos[1])] << 6) |
		((uint32_t)_atoi64[ARCH_INDEX(pos[2])] << 12) |
		((uint32_t)_atoi64[ARCH_INDEX(pos[3])] << 18);
	out[0] = value;
	out[1] = value >> 8;
	out[2] = value >> 16;
	out[3] = _atoi64[ARCH_INDEX(pos[4])] |
		(_atoi64[ARCH_INDEX(pos[5])] << 6);
	pos += 6;
	value = (uint32_t)_atoi64[ARCH_INDEX(pos[0])] |
		((uint32_t)_atoi64[ARCH_INDEX(pos[1])] << 6) |
		((uint32_t)_atoi64[ARCH_INDEX(pos[2])] << 12) |
		((uint32_t)_atoi64[ARCH_INDEX(pos[3])] << 18);
	out[4] = value;
	out[5] = value >> 8;
	out[6] = value >> 16;

	return (void *)out;
}

static void set_key(char *key, int index) {
    strnzcpy(saved_key[index], key, sizeof(*saved_key));
}

static char *get_key(int index) {
  return saved_key[index];
}

static int cmp_all(void *binary, int count) {
	int index;

	for (index = 0; index < count; index++)
		if (!memcmp(binary, crypt_out[index], 4))
			return 1;
	return 0;
}

static int cmp_one(void *binary, int index)
{
	return !memcmp(binary, crypt_out[index], BINARY_SIZE);
}

static int cmp_exact(char *source, int index)
{
  return 1;
}

#define COMMON_GET_HASH_VAR crypt_out
#include "common-get-hash.h"

static int crypt_all(int *pcount, struct db_salt *salt)
{
	const int count = *pcount;
	int index;
#ifdef _OPENMP
#pragma omp parallel for
#endif
	for (index = 0; index < count; index++) {
		if (saved_key[index][0] != 0)
			blowfish_encrypt_pass(saved_key[index],
				(char*)crypt_out[index]);
	}

	return count;
}

struct fmt_main fmt_BFEgg = {
  {
    FORMAT_LABEL,
    FORMAT_NAME,
    ALGORITHM_NAME,
    BENCHMARK_COMMENT,
    BENCHMARK_LENGTH,
    PLAINTEXT_MIN_LENGTH,
    PLAINTEXT_LENGTH,
    BINARY_SIZE,
    BINARY_ALIGN,
    SALT_SIZE,
    SALT_ALIGN,
    MIN_KEYS_PER_CRYPT,
    MAX_KEYS_PER_CRYPT,
    FMT_CASE | FMT_8_BIT | FMT_OMP,
    { NULL },
    { NULL },
    tests
  }, {
    init,
    done,
    fmt_default_reset,
    fmt_default_prepare,
    valid,
    fmt_default_split,
    get_binary,
    fmt_default_salt,
		{ NULL },
    fmt_default_source,
    {
			fmt_default_binary_hash_0,
			fmt_default_binary_hash_1,
			fmt_default_binary_hash_2,
			fmt_default_binary_hash_3,
			fmt_default_binary_hash_4,
			fmt_default_binary_hash_5,
			fmt_default_binary_hash_6
    },
	fmt_default_salt_hash,
	NULL,
	fmt_default_set_salt,
	set_key,
	get_key,
	fmt_default_clear_keys,
	crypt_all,
	{
#define COMMON_GET_HASH_LINK
#include "common-get-hash.h"
	},
	    cmp_all,
	    cmp_one,
	    cmp_exact
  }
};

#endif /* plugin stanza */
