function CryptString(Str:String):String;
var i,clen : Integer;
begin
clen := Length(csCryptHeader);
SetLength(Result, Length(Str)+clen);
Move(csCryptHeader[1], Result[1], clen);
For i := 1 to Length(Str) do
begin
if i mod 2 = 0 then
Result[i+clen] := Chr(Ord(Str[i]) xor csCryptFirst)
else
Result[i+clen] := Chr(Ord(Str[i]) xor csCryptSecond);
end;
end;
function UnCryptString(Str:String):String;
var i, clen : Integer;
begin
clen := Length(csCryptHeader);
SetLength(Result, Length(Str)-clen);
if Copy(Str, 1, clen) < > csCryptHeader then
raise ECryptError.Create('UnCryptString failed');
For i := 1 to Length(Str)-clen do
begin
if (i) mod 2 = 0 then
Result[i] := Chr(Ord(Str[i+clen]) xor csCryptFirst)
else
Result[i] := Chr(Ord(Str[i+clen]) xor csCryptSecond);
end;
end;
Опубликовал Kest
October 29 2008 14:00:02 ·
2 Комментариев ·
13695 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
алишер May 02 2012 09:45:35
добрые люди помогите написать программу на делфи 7:
Шифрование текста
Задается ключ (слово). Исходный текст делится на блоки по количеству букв в ключе. Каждая буква блока заменяется на букву, отстоящую от нее на n позиций в этом же алфавите (где n – порядковый номер соответствующей буквы ключа в алфавите). Если в результате смещения достигнут конец алфавита, то осуществляется переход на начало.
Или хотя бы посоветуйте где найти нужный материал
алишер May 02 2012 09:46:32
почта: kadyrov.1992@mail.ru
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
