Криптография/Примеры программных реализаций шифров

Этой статье требуется доработка. Вы можете помочь, исправив и дополнив ее.
Сюда следует добавить: проверить оптимальность работы алгоритмов, при необходимости исправить. Написать комментарии к командам, поясняющие работу программы.

Шифр Виженера на PHP

Пример реализации полиалфавитного Шифра Виженера на PHP. Для кодирования и дешифровки используется шестнадцатиричный алфавит. Программа позволяет работать с любыми двоичными данными и ключами.

<?php

$text = "This is an example";
$key = strtoupper(bin2hex("Sample key"));

$t0 = array ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
$t1 = array ('1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','0');
$t2 = array ('2','3','4','5','6','7','8','9','A','B','C','D','E','F','0','1');
$t3 = array ('3','4','5','6','7','8','9','A','B','C','D','E','F','0','1','2');
$t4 = array ('4','5','6','7','8','9','A','B','C','D','E','F','0','1','2','3');
$t5 = array ('5','6','7','8','9','A','B','C','D','E','F','0','1','2','3','4');
$t6 = array ('6','7','8','9','A','B','C','D','E','F','0','1','2','3','4','5');
$t7 = array ('7','8','9','A','B','C','D','E','F','0','1','2','3','4','5','6');
$t8 = array ('8','9','A','B','C','D','E','F','0','1','2','3','4','5','6','7');
$t9 = array ('9','A','B','C','D','E','F','0','1','2','3','4','5','6','7','8');
$tA = array ('A','B','C','D','E','F','0','1','2','3','4','5','6','7','8','9');
$tB = array ('B','C','D','E','F','0','1','2','3','4','5','6','7','8','9','A');
$tC = array ('C','D','E','F','0','1','2','3','4','5','6','7','8','9','A','B');
$tD = array ('D','E','F','0','1','2','3','4','5','6','7','8','9','A','B','C');
$tE = array ('E','F','0','1','2','3','4','5','6','7','8','9','A','B','C','D');
$tF = array ('F','0','1','2','3','4','5','6','7','8','9','A','B','C','D','E');

$table = array ('0' => $t0, '1' => $t1, '2' => $t2, '3' => $t3, '4' => $t4, '5' => $t5,
		'6' => $t6, '7' => $t7, '8' => $t8, '9' => $t9, 'A' => $tA, 'B' => $tB,
		'C' => $tC, 'D' => $tD, 'E' => $tE, 'F' => $tF);

$khex = array ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
$kdec = array (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);

// ----------- Crypt -----------------
print "Original text - '$text', ";
$text = strtoupper(bin2hex($text));

$keylen = strlen($key);
$y = -1;
$result='';

for ($x = 0; $x < strlen ($text); $x++) {

    $y++;
    if ($y < $keylen) $ksimb = substr($key, $y, 1); else {
	$y = 0;
	$ksimb = substr($key, 0, 1);
    }

    $simb = substr($text, $x,1);
    print $simb;
    $ksimb = $kdec[array_search($ksimb, $khex)];
    $result = $result.$table[$simb][$ksimb];
}

// ----------- End crypt --------------

print "(HEX)\nCryped text - ".$result."(HEX), Key is '$key';\n";

// ----------- Decrypt ---------------
$dresult='';
$y = -1;

for ($x = 0; $x < strlen($result); $x = $x + 2) {

    $tmp = substr($result, $x, 2);
    $simb1 = substr($result, $x, 1);
    $simb2 = substr($result, $x+1, 1);

    $y++;
    if ($y < $keylen) $ksimb = substr($key, $y, 1); else {
	$y = 0;
	$ksimb = substr($key, 0, 1);
    }

    $ssimb1 = array_search($simb1, $table[$ksimb]);
    
    $y++;
    if ($y < $keylen) $ksimb = substr($key, $y, 1); else {
	$y = 0;
	$ksimb = substr($key, 0, 1);
    }

    $ssimb2 = array_search($simb2, $table[$ksimb]);
    
    $dresult = $dresult.chr($ssimb1 * 16 + $ssimb2);
}
// ----------- End decrypt ------------

print "Decrypted text - '$dresult'\n";

?>