#!/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', 0); // 0=kkk, 1=kkk3, 2=markov, 3=sinkov, -1 = 1 score systems need to be greater, -2 = 2 score systems need to be greater, etc.
define('SAVESTATE_FILE', 'savestate');
#define('HILLCLIMB_ENABLED', true);
#define('HILLCLIMB_MAX_LOOKAHEAD', 1000);
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', 1);

# ---

$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);
	$max_kkk = $kkk;
	$max_kkk3 = $kkk3;
	$max_markov = $markov;
	$max_sinkov = $sinkov;

#	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 {

	// Mapping an Eng-Wahrscheinlichkeitstabelle
#	$x1 = 'LDORSYVNPBTMAUCFGEIHW';
#	$x2 = 'TYPFMUAOISGHDLRWEBCN';
#	$x3 = 'LHMRGBOEINUWPYCASFDT';
#	$x4 = 'EXTN-DOPFSAHNELYMRUW'; // TN geraten
#	$x5 = 'OLTCFPGESDYHANWRMIU';

        $x1 = randomkey(1);
        $x2 = randomkey(2);
        $x3 = randomkey(3);
        $x4 = randomkey(4);
        $x5 = randomkey(5);

	$max_kkk = 0;
	$max_kkk3 = 0;
	$max_markov = 0;
	$max_sinkov = 0;
#	if (HILLCLIMB_ENABLED) {
#		$hillclimb_lookahead_counts = 0;
#		$hillclimb_last_bak_key = array($x1, $x2, $x3, $x4, $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);

$max_a_k = array($x1, $x2, $x3, $x4, $x5);
$max_a_p = p($z, true, true);

$max_b_k = null;
$max_b_p = -1;

$column_to_swap = rand(1,5);

define('SEARCH_WINDOW', 10000);

$round = 0;
while (true) {
	$round++;
	if ($round % SEARCH_WINDOW == 0) {

			list($combine_max, $combine_key) = combine($max_a_k, $max_b_k);

#			echo "Combine: $max_a_p + $max_b_p = $combine_max\n";

			if (($combine_max > $max_a_p) && ($combine_max > $max_b_p)) {
				$new_p = $combine_max;
				$new_k = $combine_key;
			} else if ($max_a_p > $max_b_p) {
				$new_p = $max_a_p;
				$new_k = $max_a_k;
			} else {
				$new_p = $max_b_p;
				$new_k = $max_b_k;
			}

			$max_b_p = -1;
			$max_b_k = null;

			if ($new_p > $max_a_p) {
				$max_a_p = $new_p;
				$max_a_k = $new_k;

				$x1 = $max_a_k[0];
				$x2 = $max_a_k[1];
				$x3 = $max_a_k[2];
				$x4 = $max_a_k[3];
				$x5 = $max_a_k[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);

				$x = "K1=$x1; K2=$x2; K3=$x3; K4=$x4; K5=$x5";
				$kkk = p($z, true, true);
				$kkk3 = p3($z, true, true);
				$markov = markov_score($z);
				$sinkov = sinkov_score($z);
				$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($x1, $x2, $x3, $x4, $x5);
			}

		        $x1 = randomkey(1);
		        $x2 = randomkey(2);
		        $x3 = randomkey(3);
		        $x4 = randomkey(4);
		        $x5 = randomkey(5);

			$column_to_swap = rand(1,5);
	}

	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);

        $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);

	$tmp_p = p($z, true, true);
	if ($tmp_p > $max_b_p) {
		$max_b_p = $tmp_p;
		$max_b_k = array($x1, $x2, $x3, $x4, $x5);
	}
}

function combine($k_a, $k_b) {
	$ret = null;
	$max = -1;

	$z = mix5($k_a[0], $k_a[1], $k_a[2], $k_a[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_a[1], $k_a[2], $k_a[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_a[1], $k_a[2], $k_a[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_a[1], $k_a[2], $k_a[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_a[1], $k_a[2], $k_b[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_a[1], $k_a[2], $k_b[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_a[1], $k_a[2], $k_b[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_a[1], $k_a[2], $k_b[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_a[1], $k_b[2], $k_a[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_a[1], $k_b[2], $k_a[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_a[1], $k_b[2], $k_a[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_a[1], $k_b[2], $k_a[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_a[1], $k_b[2], $k_b[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_a[1], $k_b[2], $k_b[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_a[1], $k_b[2], $k_b[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_a[1], $k_b[2], $k_b[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_b[1], $k_a[2], $k_a[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_b[1], $k_a[2], $k_a[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_b[1], $k_a[2], $k_a[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_b[1], $k_a[2], $k_a[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_b[1], $k_a[2], $k_b[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_b[1], $k_a[2], $k_b[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_b[1], $k_a[2], $k_b[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_b[1], $k_a[2], $k_b[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_b[1], $k_b[2], $k_a[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_b[1], $k_b[2], $k_a[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_b[1], $k_b[2], $k_a[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_b[1], $k_b[2], $k_a[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_b[1], $k_b[2], $k_b[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_b[1], $k_b[2], $k_b[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_a[0], $k_b[1], $k_b[2], $k_b[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_a[0], $k_b[1], $k_b[2], $k_b[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_a[1], $k_a[2], $k_a[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_a[1], $k_a[2], $k_a[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_a[1], $k_a[2], $k_a[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_a[1], $k_a[2], $k_a[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_a[1], $k_a[2], $k_b[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_a[1], $k_a[2], $k_b[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_a[1], $k_a[2], $k_b[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_a[1], $k_a[2], $k_b[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_a[1], $k_b[2], $k_a[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_a[1], $k_b[2], $k_a[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_a[1], $k_b[2], $k_a[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_a[1], $k_b[2], $k_a[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_a[1], $k_b[2], $k_b[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_a[1], $k_b[2], $k_b[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_a[1], $k_b[2], $k_b[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_a[1], $k_b[2], $k_b[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_b[1], $k_a[2], $k_a[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_b[1], $k_a[2], $k_a[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_b[1], $k_a[2], $k_a[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_b[1], $k_a[2], $k_a[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_b[1], $k_a[2], $k_b[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_b[1], $k_a[2], $k_b[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_b[1], $k_a[2], $k_b[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_b[1], $k_a[2], $k_b[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_b[1], $k_b[2], $k_a[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_b[1], $k_b[2], $k_a[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_b[1], $k_b[2], $k_a[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_b[1], $k_b[2], $k_a[3], $k_b[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_b[1], $k_b[2], $k_b[3], $k_a[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_b[1], $k_b[2], $k_b[3], $k_a[4]); $max = $loc; }
	$z = mix5($k_b[0], $k_b[1], $k_b[2], $k_b[3], $k_b[4]); $loc = p($z, true, true); if ($loc > $max) { $ret = array($k_b[0], $k_b[1], $k_b[2], $k_b[3], $k_b[4]); $max = $loc; }

	return array($max, $ret);
}

# ---

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