4. Инструкция пользователя
Данная программа «Шифратор-дешифратор» (внешний вид программы до начала работы, Приложение 1, Рис. 1) обладает следующими возможностями:
Для работы с программой «Шифратор-дешифратор» текст для последующего шифрования можно вводить вручную, а можно открыть файл с текстом (Файл ->Открыть, Приложение 1, Рис. 2).
Для шифрования текста выбранным алгоритмом нажимаем соответствующую кнопку на форме (Приложение 1, Рис. 3), если программа обнаружит, что текст не введен или файл не открыть выйдет предупреждение (Приложение 1, Рис. 4).
Для дешифрования текста выбранным алгоритмом нажимаем соответствующую кнопку на форме (Приложение 1, Рис. 5).
Для просмотра инструкции пользователя программы, в меню «Файл» выбираем пункт «Справка» (Дополнительно ->Справка, Приложение 1, Рис. 6).
Для просмотра дополнительной информации по программе (алгоритмы шифрования используемые в данной программе, дата разработки, данные о разработчике), в меню «Дополнительно» выбираем пункт «О программе…» (Дополнительно ->О программе…, Приложение 1, Рис. 7).
В программе существует возможность просмотра примерного алгоритма шифрования-дешифрования текста, для этого нажимаем на форме на название алгоритма (Приложение 1, Рис. 8).
Для очистки всех окон программы есть кнопка «Очистить».
Для выхода из программы кнопка «Выход».
5. Исходный текст программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ShifText, ExtCtrls, jpeg, Spin, XPMan;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s:string; //шифрования текст алгоритмом "Цезаря";
begin
if (Memo1.Text<>'')and(SpinEdit1.Text<>'') then //если поле не пустое то
begin
Memo2.Text:=ShifText1.AlgCez(Memo1.Text,SpinEdit1.Text); //применаем алгоритм шифрации к тексту;
end else //иначе выводим сообщение об ошибке;
begin
s:='Сначало введите текст или откройте текстовый файл!!!'#13#10;
MessageBox(handle,PChar(S),'Ошибка!',MB_OK or MB_ICONWARNING);
end;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
if ShifText1.Execute then
begin
Memo1.Lines.LoadFromFile(ShifText1.FileName);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var s:string; //дешифрование текста алгоритмом "Цезаря";
begin
if (Memo2.Text<>'')and(SpinEdit1.Text<>'') then
begin
Memo5.Text:=ShifText1.DeAlgCez(Memo2.Text,SpinEdit1.Text);
end else //иначе выводим сообщение об ошибке;
begin
s:='Сначало введите текст или откройте текстовый файл!!!'#13#10;
MessageBox(handle,PChar(S),'Ошибка!',MB_OK or MB_ICONWARNING);
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var s:string; //шифрования текст алгоритмом "Модифицированного Цезаря";
begin
if (Memo1.Text<>'')and(SpinEdit1.Text<>'') then
begin
Memo3.Text:=ShifText1.AlgVijen(Memo1.Text,SpinEdit1.Text); //применаем алгоритм шифрации к тексту;
end else //иначе выводим сообщение об ошибке;
begin
s:='Сначало введите текст или откройте текстовый файл!!!'#13#10;
MessageBox(handle,PChar(S),'Ошибка!',MB_OK or MB_ICONWARNING);
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var s:string; //дешифрование текста алгоритмом "Модифицированного Цезаря";
begin
if (Memo3.Text<>'')and(SpinEdit1.Text<>'') then
begin
Memo6.Text:=ShifText1.DeAlgVijen(Memo3.Text,SpinEdit1.Text); //применаем алгоритм дешифрации к тексту;
end else //иначе выводим сообщение об ошибке;
begin
s:='Сначало введите текст или откройте текстовый файл!!!'#13#10;
MessageBox(handle,PChar(S),'Ошибка!',MB_OK or MB_ICONWARNING);
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
var s:string; //шифрование текста алгоритмом "Скитала";
begin
if (Memo1.Text<>'')and(SpinEdit1.Text<>'') then
begin
Memo4.Text:=ShifText1.AlgSkit(Memo1.Text,SpinEdit1.Text); //применаем алгоритм дешифрации к тексту;
end else //иначе выводим сообщение об ошибке;
begin
s:='Сначало введите текст или откройте текстовый файл!!!'#13#10;
MessageBox(handle,PChar(S),'Ошибка!',MB_OK or MB_ICONWARNING);
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
var s:string; //дешифрование текста алгоритмом "Скитала";
begin
if (Memo4.Text<>'')and(SpinEdit1.Text<>'') then
begin
Memo7.Text:=ShifText1.DeAlgSkit(Memo4.Text,SpinEdit1.Text); //применаем алгоритм дешифрации к тексту;
end else //иначе выводим сообщение об ошибке;
begin
s:='Сначало введите текст или откройте текстовый файл!!!'#13#10;
MessageBox(handle,PChar(S),'Ошибка!',MB_OK or MB_ICONWARNING);
end;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Memo1.Clear; Memo2.Clear; Memo3.Clear; Memo4.Clear; Memo5.Clear; Memo6.Clear; Memo7.Clear;
SpinEdit1.Value:=1; //очистка всех окон и установление в поле ключ значения ‘1’
end;
end.