HOME

5h-3LL 1.0
DIR: /srv/http/vyvoj.adent.cz/vyvoj/sifry/php
/srv/http/vyvoj.adent.cz/vyvoj/sifry/php/
Current File : /srv/http/vyvoj.adent.cz/vyvoj/sifry/php/lib_decipher.php
<?php
// 	
// 	PREHAZOVANI PORADI
// 	==================
//	function decipher_backwards($ciphered)
// 	function decipher_last_first_letters($ciphered)
// 	function decipher_first_last_letters($ciphered)

// 	SUBSTITUCE A POSUNY
// 	===================
//	function decipher_ROT13($ciphered, $rot = 13)
//	function decipher_Atbas($ciphered)

// 	TABULKY
// 	=======
// 	decipher_chess($ciphered, $rows, $cols)

// 	KODY
// 	====
// 	function decipher_Morse($ciphered)
// 	function decipher_Mobile($ciphered, $separator = "-")

// 	POMOCNE
// 	=======
//  toASCIIcapitals($string, $toUPPER=FALSE)

function decipher_backwards($ciphered) {
//
// 	TEXT POZADU
//

	// Definice
	$deciphered = "" ;

	// Desifrovani
	//
	for ($i=mb_strlen($ciphered)-1; $i>=0; $i--) { 
		$deciphered .= mb_substr($ciphered, $i, 1) ;
	} ; 
	return $deciphered ;
} ;

function decipher_last_first_letters($ciphered) {
//
// 	POSLEDNI PISMENO - PRVNI PISMENO - PREDPOSLEDNI...
//

	// Definice
	$deciphered = "" ;

	// Desifrovani
	//
	$ii = mb_strlen($ciphered);
	$posledni_licha = false;
	for ($i=1; $i<=($ii + 1)/2; $i++) {
		$deciphered .= mb_substr($ciphered, $ii - $i, 1) ;
		if (($ii % 2 == 1) && ($i == ($ii+1) / 2)) $posledni_licha = true  ;
		if (!$posledni_licha) $deciphered .= mb_substr($ciphered, $i-1, 1) ;
	} ;

	return $deciphered ;
} ;

function decipher_first_last_letters($ciphered) {
//
// 	PRVNI PISMENO - POSLEDNI PISMENO - DRUHE...
//

	// Definice
	$deciphered = "" ;

	// Desifrovani
	//
	$ii = mb_strlen($ciphered);
	$posledni_licha = false;
	for ($i=1; $i<=($ii + 1)/2; $i++) {
		$deciphered .= mb_substr($ciphered, $i-1, 1) ;
		if (($ii % 2 == 1) && ($i == ($ii+1) / 2)) $posledni_licha = true  ;
		if (!$posledni_licha) $deciphered .= mb_substr($ciphered, $ii - $i, 1) ;
	} ;

	return $deciphered ;
} ;

function decipher_ROT13($ciphered, $rot=13) {
//
// 	ROT13 A JINE POSUNY
//

	// Definice
	$deciphered = "" ;

	// Desifrovani
	//
	for ($i=0; $i<mb_strlen($ciphered); $i++) {
		$kousek = mb_substr ($ciphered, $i, 1) ;
		if ((ord($kousek) >= 65) && (ord($kousek) <= 90)) $abcstart = 65 ;
		if ((ord($kousek) >= 97) && (ord($kousek) <= 122)) $abcstart = 97 ;

		if ( ((ord($kousek) >= 65) && (ord($kousek) <= 90)) || ((ord($kousek) >= 97) && (ord($kousek) <= 122)) ) {
			$tmp_poradi = ( (ord($kousek)-$abcstart) + $rot ) % 26 ;
			$kousek = chr($abcstart + $tmp_poradi) ; 
		} ; 
		$deciphered .= $kousek ;
	} ; 
	return $deciphered ;
} ;

function decipher_Atbas($ciphered) {
//
// 	ATBAS
//

	// Definice
	$deciphered = "" ;

	// Desifrovani
	//
	for ($i=0; $i<mb_strlen($ciphered); $i++) {
		$kousek = mb_substr ($ciphered, $i, 1) ;
		if ((ord($kousek) >= 65) && (ord($kousek) <= 90)) $abcstart = 65 ;
		if ((ord($kousek) >= 97) && (ord($kousek) <= 122)) $abcstart = 97 ;

		if ( ((ord($kousek) >= 65) && (ord($kousek) <= 90)) || ((ord($kousek) >= 97) && (ord($kousek) <= 122)) ) {
			$tmp_poradi = ( 25 - (ord($kousek)-$abcstart)  ) ;
			$kousek = chr($abcstart + $tmp_poradi) ; 
		} ; 
		$deciphered .= $kousek ;
	} ; 
	return $deciphered ;
} ;

function decipher_chess($ciphered, $rows, $cols) {
//
// 	SACHOVA SIFRA - TABULKA
//
// 	$rows = cisla, $cols = pismena

	// Definice
	//
	$deciphered = "" ;
	$sifr_tab = array() ;

	for ($i=1; $i<=$rows; $i++) {
		for ($j=1; $j<=$cols; $j++) {
			$tmp_poradi = ($i + ($j-1)*$rows) % 26 ; if ($tmp_poradi==0) $tmp_poradi = 26 ;
			$sifr_tab[chr(64 + $j)][$i] = chr(64 + $tmp_poradi) ;
			// echo "Poradi - ".$tmp_poradi." || Tabulka [".chr(64 + $j)."][".$i."] = ".chr(64 + $tmp_poradi) ."<br />" ;
		} ;
	} ;
	for ($i=1; $i<=$rows; $i++) {
		for ($j=1; $j<=$cols; $j++) {
			$tmp_poradi = ($i + ($j-1)*$rows) % 26 ; if ($tmp_poradi==0) $tmp_poradi = 26 ;
			$sifr_tab[chr(96 + $j)][$i] = chr(96 + $tmp_poradi) ;
			// echo "Poradi - ".$tmp_poradi." || Tabulka [".chr(96 + $j)."][".$i."] = ".chr(96 + $tmp_poradi) ."<br />" ;
		} ;
	} ;

	// Desifrovani
	//
	while ($ciphered != "" ) {
		$kousek = mb_substr ($ciphered, 0, strpos($ciphered, ";")) ;

		if (mb_strlen($kousek)>1) {
			$kousek = trim($kousek) ;	
			$kousek1 = mb_substr($kousek, 0, 1) ;
			$kousek2 = mb_substr($kousek, 1, 1 + mb_strlen($kousek) - 2) ;
			if ((ord($kousek1) >= 65) && (ord($kousek1) <= 90)) $abcstart = 65 ;
			if ((ord($kousek1) >= 97) && (ord($kousek1) <= 122)) $abcstart = 97 ;
			$kousek = $sifr_tab[$kousek1][$kousek2] ;
		} ;
		$ciphered = mb_substr($ciphered, mb_strpos($ciphered, ";") + 1, mb_strlen ($ciphered)) ;
		$deciphered .= $kousek ;
	} ; 
	return $deciphered ;
} ;

function decipher_chess2($ciphered, $rows, $cols, $separator=";") {
//
// 	SACHOVA SIFRA - TABULKA
//
// 	$rows = cisla, $cols = pismena

	// Definice
	//
	$deciphered = $ciphered ;
	$char_ciphered = "";
	$char_deciphered = "";
	$sifr_tab = array() ;

	for ($i=1; $i<=$rows; $i++) {
		for ($j=1; $j<=$cols; $j++) {
			$tmp_poradi = ($i + ($j-1)*$rows) % 26 ; if ($tmp_poradi==0) $tmp_poradi = 26 ;
			$sifr_tab[chr(64 + $j)][$i] = chr(64 + $tmp_poradi) ;
			// echo "Poradi - ".$tmp_poradi." || Tabulka [".chr(64 + $j)."][".$i."] = ".chr(64 + $tmp_poradi) ."<br />" ;
		} ;
	} ;
	for ($i=1; $i<=$rows; $i++) {
		for ($j=1; $j<=$cols; $j++) {
			$tmp_poradi = ($i + ($j-1)*$rows) % 26 ; if ($tmp_poradi==0) $tmp_poradi = 26 ;
			$sifr_tab[chr(96 + $j)][$i] = chr(96 + $tmp_poradi) ;
			// echo "Poradi - ".$tmp_poradi." || Tabulka [".chr(96 + $j)."][".$i."] = ".chr(96 + $tmp_poradi) ."<br />" ;
		} ;
	} ;

	// Desifrovani
	//
	for ($i=$rows; $i>=1; $i--) {
		for ($j=1; $j<=$cols; $j++) {
			$char_ciphered = chr(64+$j).$i;
			$char_deciphered = $sifr_tab[chr(64 + $j)][$i];
			$deciphered = str_replace($char_ciphered,$char_deciphered,$deciphered,$count);

			$char_ciphered = chr(96+$j).$i;
			$char_deciphered = $sifr_tab[chr(96 + $j)][$i];
			$deciphered = str_replace($char_ciphered,$char_deciphered,$deciphered,$count);
		} ;
	} ;
	$deciphered = str_replace($separator,"",$deciphered);

	return $deciphered ;
} ;

function cipher_chess($deciphered, $rows, $cols, $separator=";") {
//
// 	SACHOVA SIFRA - TABULKA
//
// 	$rows = cisla, $cols = pismena

	// Definice
	//
	$deciphered = toASCIIcapitals($deciphered);
	$ciphered = "" ;
	$char_ciphered = "";
	$char_deciphered = "";
	$sifr_tab = array() ;
	$cipher_array = array();

	for ($i=1; $i<=$rows; $i++) { // vytvoření dešifrovací tabulky pro velká písmena
		for ($j=1; $j<=$cols; $j++) {
			$tmp_poradi = ($i + ($j-1)*$rows) % 26 ; if ($tmp_poradi==0) $tmp_poradi = 26 ;
			$sifr_tab[chr(64 + $j)][$i] = chr(64 + $tmp_poradi) ;
		} ;
	} ;
	for ($i=1; $i<=$rows; $i++) { // vytvoření dešifrovací tabulky pro malá písmena
		for ($j=1; $j<=$cols; $j++) {
			$tmp_poradi = ($i + ($j-1)*$rows) % 26 ; if ($tmp_poradi==0) $tmp_poradi = 26 ;
			$sifr_tab[chr(96 + $j)][$i] = chr(96 + $tmp_poradi) ;
		} ;
	} ;
	for ($i=$rows; $i>=1; $i--) { // vytvoření zpětného šifrovacího pole (do $cipher_array['A'] se uloží všechny možné kódy pro písmeno A atd.
		for ($j=1; $j<=$cols; $j++) {
			$char_ciphered = chr(64+$j).$i;
			$char_deciphered = $sifr_tab[chr(64 + $j)][$i];
			$cipher_array[$char_deciphered][] = $char_ciphered;
			
			$char_ciphered = chr(96+$j).$i;
			$char_deciphered = $sifr_tab[chr(96 + $j)][$i];
			$cipher_array[$char_deciphered][] = $char_ciphered;
		} ;
	} ;

	// Zasifrovani
	//
 	$deciphered_string_len = mb_strlen($deciphered);
	for ($i=0;$i<$deciphered_string_len;$i++) {
		$char_to_cipher = substr($deciphered,$i,1);
		if (isset($cipher_array[$char_to_cipher])) { // čárky, mezery a další znaky se nepřevádějí
			$value_to_choose = $cipher_array[$char_to_cipher];
			$char_ciphered = $cipher_array[$char_to_cipher][rand(0,count($value_to_choose)-1)];
			$ciphered .= $char_ciphered ;
		} else {
			$ciphered .= $char_to_cipher;
		} ;
		$ciphered .= $separator;
	} ;
	return $ciphered ;
} ;

function decipher_Morse($ciphered, $mode="normal") {
//
// 	MORSE
//

	// Definice
	$deciphered = "" ;

	$MorseCode = array (
		array ("0", "-----/") ,
		array ("1", ".----/") ,
		array ("2", "..---/") ,
		array ("3", "...--/") ,
		array ("4", "....-/") ,
		array ("5", "...../") ,
		array ("6", "-..../") ,
		array ("7", "--.../") ,
		array ("8", "---../") ,
		array ("9", "----./") ,

		array ("b", "-.../") ,
		array ("c", "-.-./") ,
		array ("f", "..-./") ,
		array ("h", "..../") ,
		array ("ch", "----/") ,
		array ("j", ".---/") ,
		array ("l", ".-../") ,
		array ("p", ".--./") ,
		array ("q", "--.-/") ,
		array ("v", "...-/") ,
		array ("x", "-..-/") ,
		array ("y", "-.--/") ,
		array ("z", "--../") ,

		array ("d", "-../") ,
		array ("g", "--./") ,
		array ("k", "-.-/") ,
		array ("o", "---/") ,
		array ("r", ".-./") ,
		array ("s", ".../") ,
		array ("u", "..-/") ,
		array ("w", ".--/") ,

		array ("a", ".-/") ,
		array ("i", "../") ,
		array ("m", "--/") ,
		array ("n", "-./") ,
		
		array ("e", "./") ,
		array ("t", "-/")
	) ;

	$deciphered = "/".str_ireplace("/","//",$ciphered); 
	$deciphered = str_ireplace("\n","",$deciphered); 
	$deciphered = str_ireplace("\r","",$deciphered); 
	$deciphered = str_ireplace("\t","",$deciphered); 
	$deciphered = str_ireplace("\0","",$deciphered); 
	$deciphered = str_ireplace("\x0B","",$deciphered); 
	$deciphered = str_ireplace(" ","",$deciphered); 

	$num_row = count($MorseCode);

	$decipheredReversed = "" ;
	$decipheredSwitched = "" ;
	$decipheredSwitchedReversed = "" ;

	if ($mode=="reversed") for ($row = 0; $row < $num_row; $row++) { 
		$tempchange = "" ;
		for ($i=strlen($MorseCode[$row][1])-2; $i >= 0; $i--) { $tempchange .= substr($MorseCode[$row][1], $i, 1) ; } ;
		$MorseCode[$row][1] = $tempchange."/" ; 
	} ;
	if ($mode=="switched") for ($row = 0; $row < $num_row; $row++) { 
		$tempchange = "" ;
		for ($i=0; $i <= strlen($MorseCode[$row][1])-2; $i++) { 
			$tempchar=substr($MorseCode[$row][1], $i, 1) ;
			if ($tempchar==".") { $tempchange.="-" ; } else { $tempchange.="." ; } ; 
		} ;
		$MorseCode[$row][1] = $tempchange."/" ; 
	} ;
	if ($mode=="switchedreversed") for ($row = 0; $row < $num_row; $row++) { 
		$tempchange = "" ;
		for ($i=0; $i <= strlen($MorseCode[$row][1])-2; $i++) { 
			$tempchar=substr($MorseCode[$row][1], $i, 1) ;
			if ($tempchar==".") { $tempchange.="-" ; } else { $tempchange.="." ; } ; 
		} ;
		$tempchange2 = "" ;
		for ($i=strlen($tempchange)-1; $i >= 0; $i--) { $tempchange2 .= substr($tempchange, $i, 1) ; } ;
		$MorseCode[$row][1] = $tempchange2."/" ; 
	} ;
	
	// Desifrovani
	//
	for ($row = 0; $row < $num_row; $row++) { $deciphered = str_ireplace("/".$MorseCode[$row][1],$MorseCode[$row][0],$deciphered); } ;
	$deciphered = str_ireplace("//","/",$deciphered); 
	return $deciphered ;
} ;

function decipher_Mobile($ciphered, $separator = "-") {
//
// 	MOBILE
//

	// Definice
	$deciphered = "" ;

	$MobilCode = array (
		array ("z", "9-9-9-9") ,
		array ("y", "9-9-9") ,
		array ("x", "9-9") ,
		array ("w", "9") ,

		array ("v", "8-8-8") ,
		array ("u", "8-8") ,
		array ("t", "8") ,

		array ("s", "7-7-7-7") ,
		array ("r", "7-7-7") ,
		array ("q", "7-7") ,
		array ("p", "7") ,
		
		array ("o", "6-6-6") ,
		array ("n", "6-6") ,
		array ("m", "6") ,
		
		array ("l", "5-5-5") ,
		array ("k", "5-5") ,
		array ("j", "5") ,
		
		array ("i", "4-4-4") ,
		array ("h", "4-4") ,
		array ("g", "4") ,
		
		array ("f", "3-3-3") ,
		array ("e", "3-3") ,
		array ("d", "3") ,

		array ("c", "2-2-2") ,
		array ("b", "2-2") ,
		array ("a", "2") ,
		
		array ("", " ") ,
		array (" ", "1") ,
	) ;
	$deciphered = $ciphered ;
	//$deciphered = "/".str_ireplace("/","//",$ciphered); 
	//$deciphered = str_ireplace("\n","",$deciphered); 
	//$deciphered = str_ireplace("\r","",$deciphered); 
	//$deciphered = str_ireplace("\t","",$deciphered); 
	//$deciphered = str_ireplace("\0","",$deciphered); 
	//$deciphered = str_ireplace("\x0B","",$deciphered); 

	$num_row = count($MobilCode);

	// nahrada separatoru
	if ($separator != "-") { 
		for ($row = 0; $row < $num_row; $row++) { 
			$MobilCode[$row][1] = str_replace("-", $separator, $MobilCode[$row][1]); } ; } ;

	// desifruj
	for ($row = 0; $row < $num_row; $row++) { $deciphered = str_ireplace($MobilCode[$row][1],$MobilCode[$row][0],$deciphered); } ;

	return $deciphered ;
} ;

function toASCIIcapitals($string, $toUPPER=FALSE) {
	// Definice
	//
	// i pro multi-byte (napr. UTF-8)
	$prevodni_tabulka = Array(
	  'ä'=>'a', 'Ä'=>'A', 'á'=>'a', 'Á'=>'A', 'à'=>'a', 'À'=>'A', 'ã'=>'a', 'Ã'=>'A', 'â'=>'a', 'Â'=>'A',
	  'č'=>'c', 'Č'=>'C', 'ć'=>'c', 'Ć'=>'C',
	  'ď'=>'d', 'Ď'=>'D',
	  'ě'=>'e', 'Ě'=>'E', 'é'=>'e', 'É'=>'E', 'ë'=>'e', 'Ë'=>'E', 'è'=>'e', 'È'=>'E', 'ê'=>'e', 'Ê'=>'E',
	  'í'=>'i', 'Í'=>'I', 'ï'=>'i', 'Ï'=>'I', 'ì'=>'i', 'Ì'=>'I', 'î'=>'i', 'Î'=>'I',
	  'ľ'=>'l', 'Ľ'=>'L', 'ĺ'=>'l', 'Ĺ'=>'L',
	  'ń'=>'n', 'Ń'=>'N', 'ň'=>'n', 'Ň'=>'N', 'ñ'=>'n', 'Ñ'=>'N',
	  'ó'=>'o', 'Ó'=>'O', 'ö'=>'o', 'Ö'=>'O', 'ô'=>'o', 'Ô'=>'O', 'ò'=>'o', 'Ò'=>'O', 'õ'=>'o', 'Õ'=>'O', 'ő'=>'o', 'Ő'=>'O',
	  'ř'=>'r', 'Ř'=>'R', 'ŕ'=>'r', 'Ŕ'=>'R',
	  'š'=>'s', 'Š'=>'S', 'ś'=>'s', 'Ś'=>'S',
	  'ť'=>'t', 'Ť'=>'T', 
	  'ú'=>'u', 'Ú'=>'U', 'ů'=>'u', 'Ů'=>'U', 'ü'=>'u', 'Ü'=>'U', 'ù'=>'u', 'Ù'=>'U', 'ũ'=>'u', 'Ũ'=>'U', 'û'=>'u', 'Û'=>'U',
	  'ý'=>'y', 'Ý'=>'Y',
	  'ž'=>'z', 'Ž'=>'Z', 'ź'=>'z', 'Ź'=>'Z'
	);
	$output = "";
	
	// Zpracování
	//
	$output = strtr($string, $prevodni_tabulka) ;
	if ($toUPPER) { $output = mb_strtoupper($output) ; } ;
	return $output ;
} ; 
?>