Вторник
17.10.2017
07:01


Форма входа

Приветствую Вас Гость | RSS
Borland Delphi 7
Главная Регистрация Вход
Главная » 2010 » Декабрь » 1 » Алгоритм шифрования цезарь
Алгоритм шифрования цезарь
14:27
Шифрование алгоритмом цезарь:
Описание переменных
var i,o,ofset: integer;
str:string;
x:char;



Алгоритм шифрования:
try
final.Caption:='';
str:=eText.Lines.Text;
ofset:=strtoInt(eoffset.Text);
for i:=1 to length(str) do
begin
o:=ord(str[i])+ofset;
if o >= 256 then dec(o, 256);

x:=chr(o);
final.Caption:=final.Caption+x;
end;
except MessageDlg('Внимание! Вы не правильно ввели текст или смещение',mtWarning ,[mbOK ],1);
end;




Дешифрация:
Описание переменных:
i,o,k:integer;
str:string;
y:char;




Алгоритм:
try
str:=final.Caption;
k:=strtoInt(eoffset.Text);
final.Caption:=' DeCrypt=';
for i:=1 to length(str) do
begin
o:=ord(str[i])-k;
if o < 0 then Inc(o, 256);
y:=chr(o);
final.Caption:=final.Caption+y;
end;
except MessageDlg('Сначала зашифруйте текст!!!',mtWarning ,[mbOK ],1);
end;
Категория: Статьи участников клуба | Просмотров: 3305 | Добавил: delphi | Рейтинг: 0.0/0 |
Всего комментариев: 0
Имя *:
Email *:
Код *:
Меню сайта

Разделы новостей
Программные обеспечения [6]
Учебники и справочники Delphi [15]
Лабораторные работы [2]
Статьи участников клуба [36]
Советы и трюки [1]

Календарь новостей
«  Декабрь 2010  »
ПнВтСрЧтПтСбВс
  12345
6789101112
13141516171819
20212223242526
2728293031

Поиск

Друзья сайта

Мини-чат

Наш опрос
Оцените мой сайт
Всего ответов: 71

Статистика

Copyright MyCorp © 2017