function alfabetAnalyse($codtxt, $alfa) { global $AP, $ks_hilf; $alfahier = @hauf($codtxt); for ($t = 0; $t < sizeof($alfahier); $t++) { $p[] = 100 * prob($alfahier[$t], strlen($codtxt)); } $alfahier = $p; $VX = varianz($AP[de]); $SX = sqrt(varianz($AP[de])); $VY = varianz($alfahier); $SY = sqrt(varianz($alfahier)); $cov = covarianz($AP[de], $alfahier); $r = @abs($cov / sqrt($VX * $VY)); for ($t = 0; $t < sizeof($alfa); $t++) { $ba1 .= "<img src={$ks_hilf['pfad']}/image/letter" . $t . ".gif border=0><img src={$ks_hilf['pfad']}/image/bar0.jpg width=3 border=0>"; $ba2 .= "<img src={$ks_hilf['pfad']}/image/letter" . ($t + $rotv) % sizeof($alfa) . ".gif border=0><img src={$ks_hilf['pfad']}/image/bar0.jpg width=3 border=0>"; } $lang_normalalphabet = JTEXT::_('NORMALALPHABET'); $lang_STATISTICALDATA = JTEXT::_('STATISTICALDATA'); $lang_VARIANCE = JTEXT::_('VARIANCE'); $lang_DEFAULTABWEICHUNG = JTEXT::_('DEFAULTABWEICHUNG'); $lang_CURRENTALPHABET = JTEXT::_('CURRENTALPHABET'); $lang_SIGNS = JTEXT::_('SIGNS'); $lang_ENTROPY = JTEXT::_('ENTROPY'); $out .= '<table border=0><tr><td> <b>' . $lang_normalalphabet . '</b><br>' . $lang_STATISTICALDATA . ':<br>' . '<br>' . $lang_VARIANCE . ': ' . round($VX, 5) . '<br>' . $lang_DEFAULTABWEICHUNG . ': ' . round($SX, 5) . '</td><td valign=middle>' . showakt($AP[de], 50, 1, 5, 3, 0) . '<center><div class=text7 >' . $ba1 . '</div></center>' . '</td></tr>' . '<tr><td>' . '<br><b>' . $lang_CURRENTALPHABET . '</b><br>' . $lang_STATISTICALDATA . ':<br>' . '<br>' . $lang_VARIANCE . ': ' . round($VY, 5) . '<br>' . $lang_DEFAULTABWEICHUNG . ': ' . round($SY, 5) . '<br>' . '</td><td valign=middle><br>' . showakt($alfahier, 50, 1, 5, 3, 0) . '<center><div class=text7 >' . $ba2 . '</div></center>' . '</td></tr><tr><td>' . '<br>' . $lang_SIGNS . ': ' . strlen($codtxt) . '<br>' . $lang_ENTROPY . ': ' . round(entropie($codtxt), 5) . '</td></tr></table>'; return $out; }
function alfabetAnalyse($codtxt, $alfa) { global $AP, $ks_hilf; $alfahier = @hauf($codtxt); for ($t = 0; $t < sizeof($alfahier); $t++) { $p[] = 100 * prob($alfahier[$t], strlen($codtxt)); } $alfahier = $p; $VX = varianz($AP[de]); $SX = sqrt(varianz($AP[de])); $VY = varianz($alfahier); $SY = sqrt(varianz($alfahier)); $cov = covarianz($AP[de], $alfahier); $r = @abs($cov / sqrt($VX * $VY)); for ($t = 0; $t < sizeof($alfa); $t++) { $ba1 .= "<img src={$ks_hilf['pfad']}/image/letter" . $t . ".gif border=0><img src={$ks_hilf['pfad']}/image/bar0.jpg width=3 border=0>"; $ba2 .= "<img src={$ks_hilf['pfad']}/image/letter" . ($t + $rotv) % sizeof($alfa) . ".gif border=0><img src={$ks_hilf['pfad']}/image/bar0.jpg width=3 border=0>"; } $out .= '<table border=0><tr><td> <b>Normales Alfabet</b><br>Statistische Daten:<br>' . '<br>Varianz: ' . round($VX, 5) . '<br>StdAbw: ' . round($SX, 5) . '</td><td valign=middle>' . showakt($AP[de], 50, 1, 5, 3, 0) . '<center><div class=text7 >' . $ba1 . '</div></center>' . '</td></tr>' . '<tr><td>' . '<br><b>vorliegendes Alfabet</b><br>Statistische Daten:<br>' . '<br>Varianz: ' . round($VY, 5) . '<br>StdAbw: ' . round($SY, 5) . '<br>' . '</td><td valign=middle><br>' . showakt($alfahier, 50, 1, 5, 3, 0) . '<center><div class=text7 >' . $ba2 . '</div></center>' . '</td></tr><tr><td>' . '<br>Zeichen: ' . strlen($codtxt) . '<br>Entropie: ' . round(entropie($codtxt), 5) . '<br>KI-Index: ' . round(koinzidenzIndex($codtxt), 5) . '</td><td>' . '<br>GV-Maß1: ' . round(gvmass($codtxt, $alfahier), 5) . '<br>GV-Maß2: ' . round(gvmass2($codtxt, $alfahier), 5) . '</td></tr></table><div class=text10><br>Kovarianz: ' . round($cov, 5) . '<br>KorrKoeff: ' . round($r, 5) . '</div>'; return $out; }
if (sizeof($arr) > 100) { $width = 2; $spac = 1; } if (sizeof($arr) > 200) { $width = 2; $spac = 0; } if (sizeof($arr) > 400) { $width = 1; $spac = 0; } if ($pos1) { $arr = @array_slice($arr, 1); } $out = showakt($arr, 50, $parts, $width, $spac, 0); if ($zaehl) { if (!$schw1) { $schw1 = 1.2; } if (!$schw2) { $schw2 = 1; } $arr2 = filterakt($arr); $zahl = keylen($arr2); $lang_maxima = JTEXT::_('MAXIMA'); $lang_maximum = JTEXT::_('MAXIMUM'); $lang_minimum = JTEXT::_('MINIMUM'); $lang_useless = JTEXT::_('USELESS'); $lang_vigenere = JTEXT::_('VIGENERE'); $lang_strom = JTEXT::_('STROM');
$width = 2; $spac = 1; } if (sizeof($arr) > 200) { $width = 2; $spac = 0; } if (sizeof($arr) > 400) { $width = 1; $spac = 0; } $inhalt .= '<br>'; $inhalt .= showakt($arr, 50, 1, $width, $spac, 1); $inhalt .= '<br>'; $arr2 = filterakt($arr); $inhalt .= showakt($arr2, 10, 1, $width, $spac, 1); $zahl = keylen($arr2); $inhalt .= '{-keylength-}: '; if ($zahl) { $inhalt .= $zahl; } else { $inhalt .= '{-unknown-}'; } $inhalt .= '!'; $sich = round($zahl * 26 * 10 / strlen($codtxt), 0); if ($sich > 1) { $inhalt .= '<br>{-unsafe-}'; } $inhalt .= ''; $passw = findpw($parttxt, $zahl); $inhalt .= '<br>{-keyword-}: "' . $passw . '"!';
$width = 3; $spac = 2; } if (sizeof($arr) > 100) { $width = 2; $spac = 1; } if (sizeof($arr) > 200) { $width = 2; $spac = 0; } if (sizeof($arr) > 400) { $width = 1; $spac = 0; } $inhalt .= showakt($arr, 50, 2, $width, $spac, 1); $tmp = array_slice($arr, 1, sizeof($arr)); $zahl = array_search(max($tmp), $tmp) + 1; $inhalt .= '{-keylength-}: '; if ($zahl) { $inhalt .= $zahl; } else { $inhalt .= '{-unknown-}'; } $inhalt .= '!'; $sich = round($zahl * 26 * 10 / strlen($codtxt), 0); if ($sich > 1) { $inhalt .= '<br>{-unsafe-}<br>'; } $passw = findpw_ak($parttxt, $zahl); $inhalt .= '<br><br>{-keyword-}: "' . $passw . '"!';