Защита данных от несанкционированного доступа

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферати, реферат на тему
| Добавил(а) на сайт: Ермилов.

Inc(CurDir[0]);

CurDir[Length(CurDir)]:= '';

end;

GetCurDir:= CurDir;

end;

{Процедура инициализации окна работы с файлами}

procedure TMyApp.FileOpen(WildCard: PathStr);

var

FileName: FNameStr;

begin

FileName:= '*.*';

if ExecuteDialog(New(PMyFileDialog, Init(

WildCard, 'Открыть файл', 'Имя', fdOpenButton,

100)), @FileName) cmCancel then FName:=FileName;

{открыть файл, потом...}

end;

{****************************************************************************}

{*----------============= К Р И П Т О Г Р А Ф И Я ================----------*}

{****************************************************************************}

{Шифрование файлов}

procedure Shifr(InputFileName: string);

const

A = 5; {Константы для}

C = 27; {генератора}

M = 65536; {псевдослучайных чисел, далее - ПСЧ}

Рекомендуем скачать другие рефераты по теме: баллов, культура шпори.

Claw.ru | Рефераты по информатике, программированию | Защита данных от несанкционированного доступа