#!/usr/bin/php
<?php

include __DIR__ . '/func.inc.phps';
include __DIR__ . '/kkk_score.inc.phps';
include __DIR__ . '/kkk3_score.inc.phps';
include __DIR__ . '/wiki_score.inc.phps';

# ---

define('SCORE_OPTIMIZE', 3); // 0=kkk, 1=kkk3, 2=markov, 3=sinkov
define('SAVESTATE_FILE', 'savestate_sinkov');
define('HILLCLIMB_ENABLED', true);
define('HILLCLIMB_MAX_LOOKAHEAD', 100);
define('RANDOM_SWAP_SCHRITTE', 1);
define('ONLY_SAVE_GREATERTHAN_MAX', true);
define('ONLY_SWAP_COLUMN_NO', -1); // -1 : swap all columns
define('SWAP_COLUMN_EVERY_XTH_ROUND', 2000);

# ---

$c1 = 'XGQIP RGWZY PUFWO MNBMW XBQTF MRGWG EWMXR MYIVE RPTMP IXYFK WRPWS RFIPW MXEJF PSBPF XREYF XTWZI';
$key_c1 = 'BEFGIJKMNOPQRSTUVWXYZ';

$c2 = 'ZWWLJ WLLAY TKKAO JWJUZ YYUJJ QWLLA AQJTX OKDPU JSAOH KSAQO ZAKJQ LWWVU ZLQHK IZOWS EWTSB WZIKA';
$key_c2 = 'ABDEHIJKLOPQSTUVWXYZ';

$c3 = 'YKOLC DHUYL UJRBJ MXXJV JNJVL DDHUY XLCKY NJFUJ EYHUX LYASV BBKMK DDUJJ CKYHB SAAJV JMWBS AJHVY';
$key_c3 = 'ABCDEFHJKLMNORSUVWXY';

$c4 = 'IFLJH IPIQG SLJHA MMKXB TIFLJ MSLSH SCGSH WBQBH MKBJW SELNS SHMMI ANTJM XJBKB AMTJM KMTBL NSK'; // CC
$key_c4 = 'SCGH-ABEFIJKLMNPQTWX'; // ohne GH, da teilbekannt

$c5 = 'UFXFL HLRLJ CRMLG KMRRC FUFXF RRMLD ZLWCO SGXLZ ZXFUX MSOLC DLLRR PLMSO FXQGW TCQSQ SDCQF';
$key_c5 = 'CDFGHJKLMOPQRSTUWXZ';

$chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";

srand((double)microtime()*1000000);

if (file_exists(SAVESTATE_FILE)) {
	$sav = file(SAVESTATE_FILE);
	$x1 = trim($sav[0]);
	$x2 = trim($sav[1]);
	$x3 = trim($sav[2]);
	$x4 = trim($sav[3]);
	$x5 = trim($sav[4]);

        $z1 = do_replace($key_c1, $x1, $c1);
        $z2 = do_replace($key_c2, $x2, $c2);
        $z3 = do_replace($key_c3, $x3, $c3);
	$z4 = do_replace($key_c4, $x4, $c4);
        $z5 = do_replace($key_c5, $x5, $c5);
	$z = mix5($z1, $z2, $z3, $z4, $z5);

	$kkk = p($z, true, true);
	$kkk3 = p3($z, true, true);
	$markov = markov_score($z);
	$sinkov = sinkov_score($z);
	if (SCORE_OPTIMIZE == 0) $p = $kkk;
	else if (SCORE_OPTIMIZE == 1) $p = $kkk3;
	else if (SCORE_OPTIMIZE == 2) $p = $markov;
	else if (SCORE_OPTIMIZE == 3) $p = $sinkov;
	$max = $p;

	if (HILLCLIMB_ENABLED) {
		$hillclimb_lookahead_counts = 0;
		$hillclimb_last_bak_key = array($x1, $x2, $x3, $x4, $x5);
	}
	echo "Loaded savestate (kkk: $kkk, kkk3: $kkk3, markov: $markov, sinkov: $sinkov)\n";
} else {
        $x1 = randomkey(1);
        $x2 = randomkey(2);
        $x3 = randomkey(3);
        $x4 = randomkey(4);
        $x5 = randomkey(5);
	$max = 0;
	if (HILLCLIMB_ENABLED) {
		$hillclimb_lookahead_counts = 0;
		$hillclimb_last_bak_key = array($x1, $x2, $x3, $x4, $x5);
	}
}

$round = 0;
$column_to_swap = (ONLY_SWAP_COLUMN_NO == -1) ? rand(1,5) : ONLY_SWAP_COLUMN_NO;
while (true) {
	$round++;
	if ($round % SWAP_COLUMN_EVERY_XTH_ROUND == 0) {
		$column_to_swap = (ONLY_SWAP_COLUMN_NO == -1) ? rand(1,5) : ONLY_SWAP_COLUMN_NO;
#		echo "$round : $column_to_swap\n";
	}
	if ($column_to_swap == 1) $x1 = randomswap($x1, RANDOM_SWAP_SCHRITTE);
	if ($column_to_swap == 2) $x2 = randomswap($x2, RANDOM_SWAP_SCHRITTE);
	if ($column_to_swap == 3) $x3 = randomswap($x3, RANDOM_SWAP_SCHRITTE);
	if ($column_to_swap == 4) $x4 = randomswap($x4, RANDOM_SWAP_SCHRITTE, true);
	if ($column_to_swap == 5) $x5 = randomswap($x5, RANDOM_SWAP_SCHRITTE);
	$x = "K1=$x1; K2=$x2; K3=$x3; K4=$x4; K5=$x5";

        $z1 = do_replace($key_c1, $x1, $c1);
        $z2 = do_replace($key_c2, $x2, $c2);
        $z3 = do_replace($key_c3, $x3, $c3);
	$z4 = do_replace($key_c4, $x4, $c4);
        $z5 = do_replace($key_c5, $x5, $c5);
	$z = mix5($z1, $z2, $z3, $z4, $z5);

	// ---

	// $c? = original content of column
	// $x? = key of column
	// $z? = decrypted

	$kkk = p($z, true, true);
	$kkk3 = p3($z, true, true);
	$markov = markov_score($z);
	$sinkov = sinkov_score($z);
	if (SCORE_OPTIMIZE == 0) $p = $kkk;
	else if (SCORE_OPTIMIZE == 1) $p = $kkk3;
	else if (SCORE_OPTIMIZE == 2) $p = $markov;
	else if (SCORE_OPTIMIZE == 3) $p = $sinkov;

	if (ONLY_SAVE_GREATERTHAN_MAX) {
		$new_max = $p > $max;
	} else {
		$new_max = $p >= $max;
	}

	if (HILLCLIMB_ENABLED) {
		if ($new_max) {
			$max = $p;
			$hillclimb_last_bak_key = array($x1, $x2, $x3, $x4, $x5);
			$z = strtolower($z);
			echo date('d.m.Y H:i:s').' - ';
			echo "($x) $z\n";
			echo "\t--> (kkk: $kkk, kkk3: $kkk3, markov: $markov, sinkov: $sinkov)\n";
			save();
		} else {
			$hillclimb_lookahead_counts++;
			if ($hillclimb_lookahead_counts > HILLCLIMB_MAX_LOOKAHEAD) {
				// Recover
				list($x1, $x2, $x3, $x4, $x5) = $hillclimb_last_bak_key;
				$hillclimb_lookahead_counts = 0;
			}
		}
	} else {
		if ($new_max) {
			$max = $p;
			$z = strtolower($z);
			echo date('d.m.Y H:i:s').' - ';
			echo "($x) $z\n";
			echo "\t--> (kkk: $kkk, kkk3: $kkk3, markov: $markov, sinkov: $sinkov)\n";
			save();
		}
	}

	// ---

}

# ---

function save() {
	global $x1, $x2, $x3, $x4, $x5;
	file_put_contents(SAVESTATE_FILE, "$x1\n$x2\n$x3\n$x4\n$x5\n");
}