Главная » Статьи » Delphi » Статьи Delphi

Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!

Через минуту Вы получите "Гостевой доступ"




Кодировка полиалфавитным шифром Вигeнера - xor кодировка
Кодировка полиалфавитным шифром Вигeнера - xor кодировка

{ **** 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 := 'Привет я РУ';

Категория: Статьи Delphi | Добавил: c1 (2009 Июль 10)
Просмотров: 1048 | Теги: Кодировка полиалфавитным шифром Виг | Рейтинг: 0.0/0

Выразить благодарность - Поделиться с друзьями!

 

Здесь все о технической стороне 1С!

 

Узнай, как правильно администрировать 1С Предприятие
Регистрируйся на бесплатный 7-ми дневный курс сейчас:

Ваш E-Mail в безопасности



Всего комментариев: 0
avatar