2.1 Разработка программы

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Рисунок 3 - Главное окно программы

На главной форме программы располагаются: главное меню, поле ввода для ввода имени открываемого файла, кнопка «Открыть» для выбора открываемого файла через диалог открытия файлов, кнопки «Зашифровать» и «Расшифровать» для вызова процедуры шифрования (дешифрования) открытого файла, два поля TMemo для вывода исходного (открываемого) файла и файла назначения (файла полученного в результате работы процедуры шифрования). В главном меню продублированы все основные действия, вызываемые кнопками на форме, и добавлен пункт вызова окна «О программе». Так же на форме располагаются: стандартный диалог открытия файлов и компонент XP Manifest.

Рисунок 4 - Вторая форма проекта «О программе»

Вторая форма программы «About Box» скопирована со стандартных форм среды разработки. В ней расположена панель TPanel, на которой имеются элементы типа TLabel с текстом и TImage с рисунком логотипа программы. На форме так же имеется кнопка «OK», в событие «ButtonClick» которой добавлен обработчик закрытия окна «О программе». Данное окно показывается модально, то есть его необходимо закрыть для продолжения работы в главной форме программы.

Исполняемый файл программы называется Cesar.exe и для своей работы не требует никаких дополнительных файлов. Файлы проекта расположениы в приложении Б.

2.2 Текст программы

Модуль main.pas:

unit main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, Menus, About;

type

TForm1 = class(TForm)

Bt_open_file: TButton;

OpenDialog1: TOpenDialog;

Edit1: TEdit;

Bt_Encript: TButton;

Memo_src: TMemo;

Bt_Decrypt: TButton;

Memo_dest: TMemo;

StatusBar1: TStatusBar;

Label1: TLabel;

Label2: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

procedure Bt_open_fileClick(Sender: TObject);

procedure Bt_EncriptClick(Sender: TObject);

procedure Bt_DecryptClick(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

// Процедура шифрования и расшифровки файлов

procedure en_de_crypt(e_d : char);

var

f_src, f_dest : textfile;

ch : char;

i : byte;

find : boolean;

new_file_name : string;

const s : string[66] = 'АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЬьЫыЪъЭэЮюЯя';

begin

if not fileexists(form1.Edit1.Text) then

ShowMessage('Файл не выбран или не существует')

else

begin

assignfile(f_src, form1.Edit1.Text);

if e_d = 'e' then new_file_name := 'Encrypted_' + ExtractFileName(form1.Edit1.Text);

if e_d = 'd' then new_file_name := 'Decrypted_' + ExtractFileName(form1.Edit1.Text);

assignfile(f_dest, new_file_name);

reset(f_src);

rewrite(f_dest);

while not EOF(f_src) do

begin

read(f_src, ch);

find := false;

i := pos(ch, s);

if i > 0 then

begin

if e_d = 'e' then

if (i+6) <= 66 then write(f_dest, s[i+6])

else write(f_dest, s[i-60]);

if e_d = 'd' then

if (i-6) >= 1 then write(f_dest, s[i-6])

else write(f_dest, s[i+60]);

end

else write(f_dest, ch);

end;

CloseFile(f_src);

CloseFile(f_dest);

form1.StatusBar1.Panels.Items[0].Text := 'Файл сохранен под именем: ' + new_file_name;

form1.Memo_dest.Lines.LoadFromFile(new_file_name);

end;

end;

// Вызов диалога открытия файлов по кнопке

procedure TForm1.Bt_open_fileClick(Sender: TObject);

begin

if opendialog1.Execute and fileexists(opendialog1.FileName) then

begin

edit1.Text:=opendialog1.FileName;

form1.Memo_src.Lines.LoadFromFile(form1.Edit1.Text);

end;

end;

// Вызов процедуры шифрования нажатием кнопки "Зашифровать"

procedure TForm1.Bt_EncriptClick(Sender: TObject);

begin

en_de_crypt('e');

end;

// Вызов процедуры дешифрования нажатием кнопки "Расшифровать"

procedure TForm1.Bt_DecryptClick(Sender: TObject);

begin

en_de_crypt('d');

end;

// Вызов диалога открытия файла из главного меню

procedure TForm1.N2Click(Sender: TObject);

begin

form1.Bt_open_file.Click;

end;

// Вызов процедуры шифрования из главного меню

procedure TForm1.N5Click(Sender: TObject);

begin

en_de_crypt('e');

end;

// Вызов процедуры дешифрования из главного меню

procedure TForm1.N6Click(Sender: TObject);

begin

en_de_crypt('d');

end;

// Выход из программы

procedure TForm1.N3Click(Sender: TObject);

begin

form1.Close;

end;

// Вызов окна "О программе"

procedure TForm1.N8Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

end.

Модуль about.pas

unit About;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

AboutBox.Close;

end;

end.

2.3 Тестирование программы

Программа тестировалась в ОС Windows XP и Windows 7(Seven). При тестировании программы были использованы текстовые файлы с различными наборами символов.

2.4 Внедрение

Для запуска программы нужно запустить файл Cesar.exe. Откроется окно пользовательского интерфейса (рис. 5). Все действия можно выполнить как из главного меню, так и кнопками на главной форме. При открытии файла на форму в поле memo выводится текст, содержащийся в файле (Рис. 6). При шифровании или дешифровании в строке статуса выводится имя сохраненного файла назначения, преобразованный текст файла выводится во второе поле memo (Рис. 7).

Рисунок 5 - Главное окно программы

Рисунок 6 - Открытие файла с исходным текстом

Рисунок 7 - Шифрование текста

Заключение

В Российской Федерации коммерческая деятельность, связанная с использованием криптографических средств, подлежит обязательному лицензированию. С 22 января 2008 года действует Постановление Правительства РФ от 29 декабря 2007 N 957 «Об утверждении положений о лицензировании отдельных видов деятельности, связанных с шифровальными (криптографическими) средствами», которым приняты Положения о лицензировании деятельности по:

* распространению шифровальных (криптографических) средств;

* техническому обслуживанию шифровальных (криптографических) средств;

* предоставлению услуг в области шифрования информации;

* разработке, производству шифровальных (криптографических) средств, защищенных с использованием шифровальных (криптографических) средств информационных и телекоммуникационных систем.

Следует отметить, что приложения к данному Постановлению содержат жёсткие требования к лицу-соискателю лицензии, включая его образование, квалификацию, стаж, требования к помещению, охране, информационной и эксплуатационной безопасности при разработке и реализации средств. К примеру, требуется «наличие в штате у соискателя следующего квалифицированного персонала: руководитель и (или) лицо, уполномоченное руководить работами по лицензируемой деятельности, имеющие высшее профессиональное образование и (или) профессиональную подготовку в области информационной безопасности, а также стаж работы в этой области не менее 5 лет; инженерно-технические работники, имеющие высшее профессиональное образование или прошедшие переподготовку в области информационной безопасности с получением специализации, необходимой для работы с шифровальными (криптографическими) средствами».

В настоящее время действует также Приказ ФСБ России от 9 февраля 2005 г. N 66 «Об утверждении положения о разработке, производстве, реализации и эксплуатации шифровальных (криптографических) средств защиты информации (положение пкз-2005)», который определяет порядок разработки и эксплуатации криптографических средств.

В частности, согласно приказу, средства криптографии реализуются «юридическим лицом или индивидуальным предпринимателем, имеющим право на осуществление данного вида деятельности, связанного с шифровальными (криптографическими) средствами вместе с правилами пользования ими, согласованными с ФСБ России».

Ранее был издан Указ Президента РФ от 3 апреля 1995 N 334 «О мерах по соблюдению законности в области разработки, производства, реализации и эксплуатации шифровальных средств, а также предоставления услуг в области шифрования информации», постановивший «Запретить использование государственными организациями и предприятиями в информационно-телекоммуникационных системах шифровальных средств, включая криптографические средства обеспечения подлинности информации (электронная подпись), и защищенных технических средств хранения, обработки и передачи информации, не имеющих сертификата Федерального агентства правительственной связи и информации при Президенте Российской Федерации, а также размещение государственных заказов на предприятиях, в организациях, использующих указанные технические и шифровальные средства, не имеющие сертификата Федерального агентства правительственной связи и информации при Президенте Российской Федерации».

Относительно юридических лиц и предпринимателей, желающих разрабатывать либо реализовывать криптосистемы, существуют п. 5Ї11 ст. 17 Федерального Закона от 08.08.2001 N 128-ФЗ «О лицензировании отдельных видов деятельности».

Глоссарий