#!/usr/bin/php
<?php

# Hier werden mit Hillclimbing zuerst C4, dann C5, dann C4+C5 optimiert
# Es wird zu der Englisch-normalverteilung gesprungen, anstelle random-keys zu nehmen wie bei K4-107

include __DIR__ . '/../../dictanalysis/praxis/points_n.inc.phps';
include __DIR__ . '/func.inc.phps';

# Nach SCHRITTE_MAX random-swaps ohne steigerung der points befinden wir uns wohl auf einem berg
# Wir speichern den PEAK und wählen dann ein neuen Random-State
define('SCHRITTE_MAX', $argv[2]);
define('NEIGHBOR_LVL', $argv[1]);

if ($argc != 3) die('arguments...');

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

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

# Backup der englisch-normalverteilung
$eng_x1 = $x1;
$eng_x2 = $x2;
$eng_x3 = $x3;
$eng_x4 = $x4;
$eng_x5 = $x5;

$schritte = 1;


# $use_random = true;

while (1) {
	echo "*** Beginne neue Runde ***\n";

	$use_random = rand(1,2) == 1;
	if ($use_random) {
		echo "Starte mit Random-Key...\n";
#		$x1 = randomkey(1);
#		$x2 = randomkey(2);
#		$x3 = randomkey(3);
		$x4 = randomkey(4);
		$x5 = randomkey(5);
	} else {
		echo "Starte mit ENG-Alignment-Key...\n";
#		$x1 = $eng_x1;
#		$x2 = $eng_x2;
#		$x3 = $eng_x3;
		$x4 = $eng_x4;
		$x5 = $eng_x5;
	}

	echo opt('c4');
	echo "[C4 optimiert]\n";
	echo opt('c5');
	echo "[C5 optimiert]\n";
	echo opt('c4_c5');
	echo "[C4+C5 optimiert]\n\n";
	// TODO: anschließend c1..c5 opt?
}


function opt($action) {
	global $x1, $x2, $x3, $x4, $x5, $chars;
	global $schritte;
	$max = 0; // hier eintragen das letzte ergebnis
	$peak = '';
	global $c1, $key_c1;
	global $c2, $key_c2;
	global $c3, $key_c3;
	global $c4, $key_c4;
	global $c5, $key_c5;
	while (1) {
		// $x? = key
		// $z? = decrypted

		$x4_bak = $x4;
		$x5_bak = $x5;

		if ($action == 'c4_c5') {
			$r = rand(4,5);
			if ($r == 4) $x4 = randomswap($x4, $schritte, true);
			if ($r == 5) $x5 = randomswap($x5, $schritte);

			$z4 = do_replace($key_c4, $x4, $c4);
			$z5 = do_replace($key_c5, $x5, $c5);

			$x = "K4=$x4; K5=$x5";

			$z = mix5('', '', '- - - - - - - - - - - - - - - - - - - -', $z4, $z5);
		} else if ($action == 'c4') {
			$x4 = randomswap($x4, $schritte, true);
			$z4 = do_replace($key_c4, $x4, $c4);
			$x = "K4=$x4";
			$z = mix5('', '', '- - - - - - - - - - - - - - - - - - - -', $z4, '');
		} else if ($action == 'c5') {
			$x5 = randomswap($x5, $schritte);
			$z5 = do_replace($key_c5, $x5, $c5);
			$x = "K5=$x5";
			$z = mix5('', '', '- - - - - - - - - - - - - - - - - - - -', '', $z5);
		}

		$p = p_n(NEIGHBOR_LVL, $z, true, true);

		if ($p > $max) {
			if ($p > $max) $max = $p;

			ob_start();
			echo date('d.m.Y H:i:s').' - ';
			$zz = strtolower($z);
			echo "($x) $zz\n";

			for ($ii=5; $ii>=1; $ii--) {
				if (NEIGHBOR_LVL == $ii) ${'p'.$ii} = $p; else ${'p'.$ii} = p_n($ii, $z, true, true);
				echo "\t--> (P$ii) ".${'p'.$ii}.((NEIGHBOR_LVL == $ii) ? ' [sort]' : '')."\n";
			}
			$peak = ob_get_contents();
			ob_end_clean();
#			echo $peak;
			$schritte = 1;
		} else {
			$x4 = $x4_bak;
			$x5 = $x5_bak;
			$schritte += 1;

			if ($schritte > SCHRITTE_MAX) {
				$schritte = 1;
				$max = 0;

				return $peak;
			}
		}
	}
}