#!/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);
	}
}

$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) {
		$new_max = ONLY_SAVE_GREATERTHAN_MAX ? $kkk > $max_kkk : $kkk >= $max_kkk;
	}
	else if (SCORE_OPTIMIZE == 1) {
		$new_max = ONLY_SAVE_GREATERTHAN_MAX ? $kkk3 > $max_kkk3 : $kkk3 >= $max_kkk3;
	}
	else if (SCORE_OPTIMIZE == 2) {
		$new_max = ONLY_SAVE_GREATERTHAN_MAX ? $markov > $max_markov : $markov >= $max_markov;
	}
	else if (SCORE_OPTIMIZE == 3) {
		$new_max = ONLY_SAVE_GREATERTHAN_MAX ? $sinkov > $max_sinkov : $sinkov >= $max_sinkov;
	} else {
		$tmp = 0;
		if (ONLY_SAVE_GREATERTHAN_MAX) {
			if ($kkk > $max_kkk) $tmp++;
			if ($kkk3 > $max_kkk3) $tmp++;
			if ($markov > $max_markov) $tmp++;
			if ($sinkov > $max_sinkov) $tmp++;
		} else {
			if ($kkk >= $max_kkk) $tmp++;
			if ($kkk3 >= $max_kkk3) $tmp++;
			if ($markov >= $max_markov) $tmp++;
			if ($sinkov >= $max_sinkov) $tmp++;
		}
		$new_max = $tmp >= -SCORE_OPTIMIZE;
	}

	if (HILLCLIMB_ENABLED) {
		if ($new_max) {
			$max_kkk = $kkk;
			$max_kkk3 = $kkk3;
			$max_markov = $markov;
			$max_sinkov = $sinkov;

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

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