#!/usr/bin/php
<?php

# error_reporting(E_ALL | E_NOTICE | E_DEPRECATED | E_STRICT);

# TODO
	# randomswap nur eine gewisse dinanz, da ausgangskey ja nach häufigkeitswahrscheinlichkeit verteilt wure
	# OK: nur c4-c5 betrachten, um den prozess zu beschleunigen (108)
	# OK: bug in randomswap fixen
	# exten word im dictionary nachschauen


include __DIR__ . '/markov_score.inc.phps';
include __DIR__ . '/markov_score3.inc.phps';
include __DIR__ . '/func.inc.phps';

$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 = 'SCGHABEFIJKLMNPQTWX'; // 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);

$max = 0; // hier eintragen das letzte ergebnis

$schritte = 1;

$xary = array();

// Mapping an Eng-Wahrscheinlichkeitstabelle
$x1 = 'LDORSYVNPBTMAUCFGEIHWJKQXZ';
$x2 = 'TYPFMUAOISGHDLRWEBCNJKQVXZ';
$x3 = 'LHMRGBOEINUWPYCASFDTJKQVXZ';
$x4 = 'EXTNDOPFSAHLYMRUWBCGIJKQVZ'; // TN geraten
$x5 = 'OLTCFPGESDYHANWRMIUBJKQVXZ';

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


for ($aa = 1; $aa <= 5; $aa++) {
for ($tra = 0; $tra <= 25; $tra++) {

if (($aa == 1) && ($tra > 0)) $x1 = transponiere($x1, 1);
if (($aa == 2) && ($tra > 0)) $x2 = transponiere($x2, 1);
if (($aa == 3) && ($tra > 0)) $x3 = transponiere($x3, 1);
if (($aa == 4) && ($tra > 0)) $x4 = transponiere($x4, 1);
if (($aa == 5) && ($tra > 0)) $x5 = transponiere($x5, 1);

        $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);
#	$z = mix5('', '', '- - - - - - - - - - - - - - - - - - - -', $z4, $z5);

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

#	if (($p >= $max) || ($p >= 0.25)) { # Ein echter Text hat 0.27
	if ($p >= $max) {
		if ($p > $max) $max = $p;
		$p3 = p3($z, true, true);


		$c1a = explode(' ', $z1);
		$c2a = explode(' ', $z2);
		$c3a = explode(' ', $z3);
		$c4a = explode(' ', $z4);
		$c5a = explode(' ', $z5);

		echo date('d.m.Y H:i:s')."\nP2=$p; P3=$p3\n$x\n";
		for ($i=0; true; $i++) {
			if ((!isset($c1a[$i])) && (!isset($c2a[$i])) && (!isset($c3a[$i])) && (!isset($c4a[$i])) && (!isset($c5a[$i]))) break;
			echo "$c1a[$i] $c2a[$i] $c3a[$i] $c4a[$i] $c5a[$i]\n";
		}
		echo "Schritte: $schritte\n";
		$schritte = 1;
	} else {
#		echo "Nein: $p\n";

		if ($schritte >= 100) {
			$x1_bak = randomkey(1);
			$x2_bak = randomkey(2);
			$x3_bak = randomkey(3);
			$x4_bak = randomkey(4);
			$x5_bak = randomkey(5);
			$schritte = 1;
#			echo date('d.m.Y H:i:s').": TRY AGAIN FROM A RANDOM POINT\n";
		}

		$x1 = $x1_bak;
		$x2 = $x2_bak;
		$x3 = $x3_bak;
		$x4 = $x4_bak;
		$x5 = $x5_bak;
		$schritte += 0.001; // TODO: const
	}
}}
}

function randomswap($x, $column, $schritte=1) {
	global ${"key_c$column"};
	$orig_key = ${"key_c$column"};

	$min = ($column == 4) ? 2 : 0;
	$max = strlen($orig_key)-1;
	for ($j=0; $j<floor($schritte); $j++) {
		$chosenpos = rand($min, $max);

		if ($column == 4) {
			if (($chosenpos == 2) || ($chosenpos == 3)) {
				$prev_x = $x;
				do {
					$m = rand(1,5);
					if ($m == 1) {
						$x = swap($x, 2, strpos($x, 'T'));
						$x = swap($x, 3, strpos($x, 'N'));
					} else if ($m == 2) {
						$x = swap($x, 2, strpos($x, 'P'));
						$x = swap($x, 3, strpos($x, 'N'));
					} else if ($m == 3) {
						$x = swap($x, 2, strpos($x, 'P'));
						$x = swap($x, 3, strpos($x, 'C'));
					} else if ($m == 4) {
						$x = swap($x, 2, strpos($x, 'C'));
						$x = swap($x, 3, strpos($x, 'P'));
					} else if ($m == 5) {
						$x = swap($x, 2, strpos($x, 'C'));
						$x = swap($x, 3, strpos($x, 'L'));
					}
				} while ($prev_x == $x);
			} else {
				do {
					$target = rand($min+2, $max);
				} while ($target == $chosenpos);
				$x = swap($x, $chosenpos, $target);
			}
		} else {
			do {
				$target = rand($min, $max);
			} while ($target == $chosenpos);
			$x = swap($x, $chosenpos, $target);
		}
	}

	return $x;
}

function transponiere($key, $steps) {
	for ($i=0; $i<strlen($key); $i++) {
		$o = ord($key[$i]);

		if (($o >= ord('a')) && ($o <= ord('z'))) {
			$o = ($o-ord('a')+$steps) % 26;
			$key[$i] = chr($o+ord('a'));
		}

		if (($o >= ord('A')) && ($o <= ord('Z'))) {
			$o = ($o-ord('A')+$steps) % 26;
			$key[$i] = chr($o+ord('A'));
		}
	}
	return $key;
}

function swap($x, $r1, $r2) {
	$tmp = $x[$r1];
	$x[$r1] = $x[$r2];
	$x[$r2] = $tmp;
	return $x;
}