Лабораторная работа № 9-10
Разработка алгоритмов шифрования методом перестановки
Цель работы: Освоить на практике реализацию методов перестановки при
шифровании информации.
Ход работы: Шифр Цезаря, Шифр Атбаш, Дешифрование
procedure TForm1.btn5Click(Sender: TObject);
var i, l, c, h, j, y: integer;
z:Integer;
t, k, g, v, p: string;
begin
z:=0;
t:=Edt5.Text;
k:=Edt6.Text;
l:=length(t);
h:=strtoint(k);
if (h < 1) or (h > 32)then
begin
Edt6.font.color:=$0000FF;
Edt6.Text:='Ошибка! Неверно введен сдвиг!';
z:=1;
end
else
begin
for i:=1 to l do
begin
y:=ord(t[i])+h;
case t[i] of 'а'..'я': begin
