Все мы знаем, какой пиздец сейчас происходит с Украиной и одной известной вам страной-победительницей-фашизма. Если вы хотите почитать об этом, помочь актуализировать информацию или высказать свое мнение — можете сделать это в статье Война в Украине и в обсуждении.
Криптография/Примеры программных реализаций шифров
Материал из Urbanculture
Версия от 08:49, 7 марта 2013; KMB (обсуждение | вклад) (пока вывалил свою прогу сюда, глядишь со временем эта статья разовьётся в полноценную подборку демонстрациооных программ.)
Этой статье требуется доработка. Вы можете помочь, исправив и дополнив ее.
Сюда следует добавить: проверить оптимальность работы алгоритмов, при необходимости исправить. Написать комментарии к командам, поясняющие работу программы.
Шифр Виженера на 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"; ?>