#!/usr/bin/php
<?php

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

$schritte = 1;
$max = 0; // hier eintragen das letzte ergebnis
$peak = '';

while (1) {
	// $x? = key
	// $z? = decrypted

	$x1_bak = $x1;
	$x2_bak = $x2;
	$x3_bak = $x3;
	$x4_bak = $x4;
	$x5_bak = $x5;

	$r = rand(1,5);
	if ($r == 1) $x1 = randomswap($x1, $schritte);
	if ($r == 2) $x2 = randomswap($x2, $schritte);
	if ($r == 3) $x3 = randomswap($x3, $schritte);
	if ($r == 4) $x4 = randomswap($x4, $schritte, true);
	if ($r == 5) $x5 = randomswap($x5, $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);

	$x = "K1=$x1; K2=$x2; K3=$x3; K4=$x4; K5=$x5";

	$z = mix5($z1, $z2, $z3, $z4, $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 {
#		echo "Nein: $p\n";
		$x1 = $x1_bak;
		$x2 = $x2_bak;
		$x3 = $x3_bak;
		$x4 = $x4_bak;
		$x5 = $x5_bak;
		$schritte += 1;

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

			$h = fopen('peaks_'.NEIGHBOR_LVL.'_'.SCHRITTE_MAX, 'a');
			fwrite($h, $peak);
			fclose($h);

			echo 'Getting new key: ';

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

			echo "K1=$x1; K2=$x2; K3=$x3; K4=$x4; K5=$x5\n";
		}
	}
}