Аппаратные и программные средства защиты информации. Андрианов В.П. - 15 стр.

UptoLike

Составители: 

15
i := Date;
DateTimeToSystemTime(i, S);
SystemTimeToFileTime(S, F);
LocalFileTimeToFileTime(F, F);
SetFileTime(Handle, @f, @f, @f);
CloseHandle(Handle);
end;
Использование процедуры SetFTime
var f: file;
begin
Assign(f, DirInfo.Name);
Reset(f);
SetFTime(f, Time);
Close(f);
end;
2. Выполнение работы
2.1. Задание на подготовку к работе
1. На своем профиле создать новую папку для хранения разрабатываемого
приложения.
2. Запустить Delphi. Среда программирования создаст «пустой» проект.
3. Записать «пустой» проект в папку на своем профиле (пункт основного меню File-
>Save Project as)
2.2. Лабораторное задание
Задача лабораторной работыорганизовать защиту, основанную на ограничении
количества запусков приложения, причем значение счетчика запусков хранить в
файле, внешние характеристики которого (дата и время создания) остаются
постоянными.
3. Рекомендации при разработке приложения.
3.1 Разработайте тестовую программу, в которой в режиме диалога можно
изменить дату создания выбранного файла
3.2 Для выбора файла используйте стандартные диалоговые компоненты
TEdit, TButton, TOpenDialog.
3.3 Рекомендуемый интерфейс тестовой программы:
                                                                                15

 i := Date;

 DateTimeToSystemTime(i, S);
 SystemTimeToFileTime(S, F);
 LocalFileTimeToFileTime(F, F);
 SetFileTime(Handle, @f, @f, @f);
 CloseHandle(Handle);
end;

Использование процедуры SetFTime

var f: file;
begin
 Assign(f, DirInfo.Name);
 Reset(f);
 SetFTime(f, Time);
 Close(f);
end;
                    2. Выполнение работы

     2.1. Задание на подготовку к работе

   1. На своем профиле создать новую папку для хранения разрабатываемого
приложения.
   2. Запустить Delphi. Среда программирования создаст «пустой» проект.
   3. Записать «пустой» проект в папку на своем профиле (пункт основного меню File-
>Save Project as)

      2.2. Лабораторное задание

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

                  3. Рекомендации при разработке приложения.

   3.1 Разработайте тестовую программу, в которой в режиме диалога можно
изменить дату создания выбранного файла
   3.2 Для выбора файла используйте стандартные диалоговые компоненты
TEdit, TButton, TOpenDialog.
   3.3 Рекомендуемый интерфейс тестовой программы: