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

UptoLike

ВУЗ: 

ВлГУ | Владимир

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

Рубрика: 

16
3.4 Возможный вариант организации процедуры для изменения даты и времени
файла:
function SetFileDateTime(FileName: string; NewDateTime: TDateTime): Boolean;
var
Handle: Integer;
FileTime: TFileTime;
LFT: TFileTime;
LST: TSystemTime;
begin
Result := False;
try
DecodeDate(NewDateTime, LST.wYear, LST.wMonth, LST.wDay);
DecodeTime(NewDateTime, LST.wHour, LST.wMinute, LST.wSecond,
LST.wMilliSeconds);
if stemTimeToFileTime(LST, LFT) then Sy
begin
if LocalFileTimeToFileTime(LFT, FileTime) then
begin
Handle := FileOpen(FileName, fmOpenReadWrite);
if SetFileTime(Handle, nil, nil, @FileTime) then
Result := True;
end;
end;
finally
FileClose(Handle);
end;
end;
3.5 Для маскировки действий используйте отвлекающие функции
(мусорный код, например: организация «пустого» цикла с невыполняемыми
переходами на лишние метки).
4. Содержание отчета
Отчет оформляется в форме Zip-архива, содержащего все файлы проекта
(Project1.cfg, Project1.dof, Project1.dpr, Project1.exe, Project1.res, Unit1.dcu, Unit1.dfm,
Unit1.pas). Zip-архив именуется по фамилии студента, номера группы и номера
лабораторной работы. 
                                                                                         16




  3.4 Возможный вариант организации процедуры для изменения даты и времени
файла:

function SetFileDateTime(FileName: string; NewDateTime: TDateTime): Boolean;
 var
   Handle: Integer;
   FileTime: TFileTime;
   LFT: TFileTime;
   LST: TSystemTime;
 begin
   Result := False;
   try
     DecodeDate(NewDateTime, LST.wYear, LST.wMonth, LST.wDay);
     DecodeTime(NewDateTime, LST.wHour, LST.wMinute, LST.wSecond,
LST.wMilliSeconds);
     if SystemTimeToFileTime(LST, LFT) then
     begin
       if LocalFileTimeToFileTime(LFT, FileTime) then
       begin
         Handle := FileOpen(FileName, fmOpenReadWrite);
         if SetFileTime(Handle, nil, nil, @FileTime) then
           Result := True;
       end;
     end;
   finally
     FileClose(Handle);
   end;
 end;

   3.5 Для маскировки действий используйте отвлекающие функции
 (мусорный код, например: организация «пустого» цикла с невыполняемыми
 переходами на лишние метки).

                   4. Содержание отчета

   Отчет оформляется в форме Zip-архива, содержащего все файлы проекта
(Project1.cfg, Project1.dof, Project1.dpr, Project1.exe, Project1.res, Unit1.dcu, Unit1.dfm,
Unit1.pas). Zip-архив именуется по фамилии студента, номера группы и номера
лабораторной работы.

Страницы