Шифрование алгоритмом цезарь:
Описание переменных
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;
|
Главная
Каталог файлов
