<?php

/*

ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ
                                                                                   X               E
                                                                                   X   TN          E
                                                                                   X   PN          E
                                                                                   X   PC          E
                                                                                   X   CP          E
                                                                                   X   CL          E

*/

$c1 = 'XGQIP RGWZY PUFWO MNBMW XBQTF MRGWG EWMXR MYIVE RPTMP IXYFK WRPWS RFIPW MXEJF PSBPF XREYF XTWZI';
$c2 = 'ZWWLJ WLLAY TKKAO JWJUZ YYUJJ QWLLA AQJTX OKDPU JSAOH KSAQO ZAKJQ LWWVU ZLQHK IZOWS EWTSB WZIKA';
$c3 = 'YKOLC DHUYL UJRBJ MXXJV JNJVL DDHUY XLCKY NJFUJ EYHUX LYASV BBKMK DDUJJ CKYHB SAAJV JMWBS AJHVY';
$c4 = 'IFLJH IPIQG SLJHA MMKXB TIFLJ MSLSH SCGSH WBQBH MKBJW SELNS SHMMI ANTJM XJBKB AMTJM KMTBL NSKCC';
$c5 = 'UFXFL HLRLJ CRMLG KMRRC FUFXF RRMLD ZLWCO SGXLZ ZXFUX MSOLC DLLRR PLMSO FXQGW TCQSQ SDCQF';

$we = 'etaoinshrdlcumwfgypbvkjxqz'; // Wikipedia
$w1 = 'WPRFXMIYGEBTSQZUVJNOKHDLAC'; // Gemessen. [FRXM], [YGE]
$w2 = 'WAJKLZOQUSTYIHVEPBDXMCFGNR'; // Gemessen. [AJ], [KL], [OQ], [US]
$w3 = 'JYUHKLVBDXASMCNWEROFZTPQIG'; // Gemessen. [HKLVBD], [XA]
$w4 = 'MSJBHLIKTANCWQXFGPEZYDORUV'; // Gemessen. [JB], [HL], [IK], [ANC]
$w5 = 'LFRCXSMQUODGZWTHKPJBYAENIV'; // Gemessen. [FR], [CX], [SM], [UODGZ], [...]

// Permutationsversuche

$w1 = exchange($w1, 'F', 'R'); // XM
#$w1 = exchange($w1, 'Y', 'G'); // E

$w2 = exchange($w2, 'A', 'J');
$w2 = exchange($w2, 'K', 'L');
#$w2 = exchange($w2, 'O', 'Q');
$w2 = exchange($w2, 'U', 'S');

#$w3 = exchange($w2, 'H', 'K'); // LVBD
$w3 = exchange($w3, 'X', 'A');

$w4 = exchange($w4, 'J', 'B');
#$w4 = exchange($w4, 'H', 'L');
$w4 = exchange($w4, 'I', 'K');
$w4 = exchange($w4, 'A', 'C'); // N

$w5 = exchange($w5, 'F', 'R');
$w5 = exchange($w5, 'C', 'X');
$w5 = exchange($w5, 'S', 'M');

// Aus den Erkenntnissen

$w4 = solute($w4, 'C', 'X');
$w4 = solute($w4, 'S', 'E');

#$w4 = solute($w4, 'G', 'T'); $w4 = solute($w4, 'H', 'N'); // SCGSH = EXTEN
#$w4 = solute($w4, 'G', 'P'); $w4 = solute($w4, 'H', 'N'); // SCGSH = EXPEN
$w4 = solute($w4, 'G', 'P'); $w4 = solute($w4, 'H', 'C'); // SCGSH = EXPEC
#$w4 = solute($w4, 'G', 'C'); $w4 = solute($w4, 'H', 'P'); // SCGSH = EXCEP
#$w4 = solute($w4, 'G', 'C'); $w4 = solute($w4, 'H', 'L'); // SCGSH = EXCEL

// Vermutungen

$w1 = correct($w1, 'R', 'A'); // I am ...

// ---------------------------

function correct($w, $cur, $better) {
	global $we;

	$a = strpos(strtoupper($we), $cur);
	$b = strpos(strtoupper($we), $better);

	if ($a === false) return false;
	if ($b === false) return false;

	return exchange($w, $w[$a], $w[$b]);
}

function solute($w, $ciphertext, $cleartext) {
	global $we;

	$b = strpos(strtoupper($we), $cleartext);

	if ($b === false) return false;

	return exchange($w, $ciphertext, $w[$b]);
}

function exchange($w, $chara, $charb) {
        $a = strpos($w, $chara);
        $b = strpos($w, $charb);

        if ($a === false) return false;
        if ($b === false) return false;

        $tmp = $w[$a];
        $w[$a] = $w[$b];
        $w[$b] = $tmp;

        return $w;
}

/*

$w4 = 'SMJBHLIKTANWQXFGPEZYDORCUV'; // C->X (aufrück), S->E (wechseln)

// Vermutung: foebloot --> for blood

//     etaoinshrdlcumwfgypbvkjxqz
$w1 = 'GPRFXMIYWEBTSQZUVJNOKHDLAC';
$w2 = 'WSJKLZOQUATYIHVEPBDXMCFGNR';

// Vermutung: suffea -> suffer

//     etaoinshrdlcumwfgypbvkjxqz
$w5 = 'LFUCXSMQRODGZWTHKPJBYAENIV';

// Vermutung: heen --> seen

//     etaoinshrdlcumwfgypbvkjxqz
$w3 = 'JYUHKLBVDXASMCNWEROFZTPQIG';

// Vermutung: wnat --> what

//     etaoinshrdlcumwfgypbvkjxqz
$w4 = 'SMJBHKILTANWQXFGPEZYDORCUV';

*/

# ---

$wae = explodechars($we);
$wa1 = explodechars($w1);
$wa2 = explodechars($w2);
$wa3 = explodechars($w3);
$wa4 = explodechars($w4);
$wa5 = explodechars($w5);

$k1 = str_replace($wa1, $wae, $c1);
$k2 = str_replace($wa2, $wae, $c2);
$k3 = str_replace($wa3, $wae, $c3);
$k4 = str_replace($wa4, $wae, $c4);
$k5 = str_replace($wa5, $wae, $c5);

# Merge

$c1a = explode(' ', $k1);
$c2a = explode(' ', $k2);
$c3a = explode(' ', $k3);
$c4a = explode(' ', $k4);
$c5a = explode(' ', $k5);

$col1 = 'red';
$col2 = 'green';
$col3 = 'blue';
$col4 = 'brown';
$col5 = 'purple';

$res = '';
for ($i=0; true; $i++) {
	$resbak = $res;
	if (isset($c1a[$i])) { $res .= "<font color=\"$col1\">".$c1a[$i]."</font>"; $origin .= str_repeat("1", strlen($c1a[$i])); }
	if (isset($c2a[$i])) { $res .= "<font color=\"$col2\">".$c2a[$i]."</font>"; $origin .= str_repeat("2", strlen($c2a[$i])); }
	if (isset($c3a[$i])) { $res .= "<font color=\"$col3\">".$c3a[$i]."</font>"; $origin .= str_repeat("3", strlen($c3a[$i])); }
	if (isset($c4a[$i])) { $res .= "<font color=\"$col4\">".$c4a[$i]."</font>"; $origin .= str_repeat("4", strlen($c4a[$i])); }
	if (isset($c5a[$i])) { $res .= "<font color=\"$col5\">".$c5a[$i]."</font><br>"; $origin .= str_repeat("5", strlen($c5a[$i])); }
	if ($res == $resbak) break;
}

echo "<font size=\"+1\"><code>\n";
echo $res."\n";
#echo $origin;
echo "</code></font>\n";

# ---

function explodechars($x) {
	$res = array();
	for ($i=0; $i<strlen($x); $i++) {
		$res[] = substr($x, $i, 1); 
	}
	return $res;
}

?>