Работа по криптологии

Автор: Пользователь скрыл имя, 16 Мая 2012 в 12:15, лабораторная работа

Описание работы

Система Цезаря – это моноалфавитная подстановка (т.к. каждой букве открытого текста ставится в соответствие одна буква шифртекста), преобразующая открытый текст в криптограмму . При использовании для шифрования подстановки символ открытого текста заменяется символом шифрованного текста.

Работа содержит 1 файл

ЛАБОРАТОРНАЯ РАБОТА№1.doc

— 400.00 Кб (Скачать)

for i:=0 to memo1.Lines.Count do

memo2.Lines.Add(catbash(memo1.Lines[i]));

end; 

procedure TForm1.ECezarExecute(Sender: TObject);

var i:integer;key:byte;

begin

key:=strtoint(inputbox('Шифр Цезаря','Введите значение ключа - только целое число','3'));

for i:=0 to memo1.Lines.Count do

memo2.Lines.Add(cEcezar(memo1.Lines[i],key)); 

end; 

procedure TForm1.DCezarExecute(Sender: TObject);

var i:integer;key:byte;

begin

key:=strtoint(inputbox('Шифр Цезаря','Введите значение ключа - только целое число','3'));

for i:=0 to memo1.Lines.Count do

memo2.Lines.Add(cDcezar(memo1.Lines[i],key));

end; 

procedure TForm1.clearExecute(Sender: TObject);

begin

memo2.Clear;

end; 

procedure TForm1.changeExecute(Sender: TObject);

begin

memo1.Lines:=memo2.Lines;

memo2.Clear;

end;

  1. Опишите подпрограммы для каждой из кнопок BitBtn:
 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if clr.Checked then memo2.clear;

if combobox1.ItemIndex=0 then atbash.Execute

else if action.ItemIndex=0 then ECezar.Execute

else DCezar.Execute;

end; 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

memo1.Clear;

end; 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

memo2.Clear;

end; 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

change.Execute;

end; 

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

close;

end; 

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

if Opendialog1.Execute then

memo1.Lines.LoadFromFile(opendialog1.FileName);

end; 

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

if Savedialog1.Execute then

memo2.Lines.SaveToFile(savedialog1.FileName);

end;

  1. Запустите проект.

Информация о работе Работа по криптологии