![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
![]() |
Кодировка полиалфавитным шифром Вигeнера - xor кодировкаDelphi , Синтаксис , ШифрованиеКодировка полиалфавитным шифром Вигeнера - xor кодировка
Автор: DiVo { **** UBPFD *********** by delphibase.endimus.com **** >> Кодировка полиалфавитным шифром Вигeнера - xor кодировка Кодировка полиалфавитным шифром Вигeнера - xor кодировка одна функция для кодирования и декодирования Input - входная строка. При кодировании это незакодированная строка, при декодировнии это закодированная строка. Key - слово ключ один и тот же в обоих случаях. При совпадении символов во входной строке и строке ключе на выходе получается символ '#0'. Зависимости: Стандартные модули Автор: Ru, DiVo_Ru@rambler.ru, Одесса Copyright: DiVo 2002 creator Ru Дата: 18 ноября 2002 г. ***************************************************** } function VigenerCoDec(Input, Key: pchar): pchar var i, j: integer; tmps, text: string; begin text := Input; for i := 1 to length(text) do begin if i > length(key) then j := i mod length(key) else j := i; tmps := tmps + chr((ord(text[i])) xor (ord(key[j]))); end; result := pchar(tmps); end; Пример использования: Text := edit1.text; K := edit2.text; Edit3.text := VigenerCoDec(Text, K); // Закодировать: Input := 'Привет я РУ'; Key := 'hello'; result := 'ГуднйзHвH++'; // Восстановить: Input := 'ГуднйзHвH++'; Key := 'hello'; result := 'Привет я РУ'; Статья Кодировка полиалфавитным шифром Вигeнера - xor кодировка раздела Синтаксис Шифрование может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Шифрование ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 ![]() |