Автор: Пользователь скрыл имя, 16 Мая 2012 в 12:15, лабораторная работа
Система Цезаря – это моноалфавитная подстановка (т.к. каждой букве открытого текста ставится в соответствие одна буква шифртекста), преобразующая открытый текст в криптограмму . При использовании для шифрования подстановки символ открытого текста заменяется символом шифрованного текста.
for i:=0 to memo1.Lines.Count do
memo2.Lines.Add(catbash(memo1.
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.
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.
end;
procedure TForm1.clearExecute(Sender: TObject);
begin
memo2.Clear;
end;
procedure TForm1.changeExecute(Sender: TObject);
begin
memo1.Lines:=memo2.Lines;
memo2.Clear;
end;
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(
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
if Savedialog1.Execute then
memo2.Lines.SaveToFile(
end;