Дипломная работа: Защита данных от несанкционированного доступа

OutputFileName, nil, mfInformation+mfOkButton);

Close(InpF);

if OptFile = 1 then Erase(InpF);

Close(OutF);

end

else MyMessageBox('Файл '+ InputFileName + ' несуществует!',

nil, mfInformation+mfOkButton);

end

else MyMessageBox(' Ошибкавводапароля!!!', nil,

mfError+mfOkButton);

end

else MyMessageBox(' Файлневыбран!!!', nil, mfError+mfOkButton);

end;

procedure DeShifr(InputFileName: String);

const

A = 5;

C = 27;

M = 65536;

var

InpF, OutF : file of word;

Password, OutputFileName : string;

Password1 : string;

Exten : string[3];

SCode, Temp, Ext, TByte, Code: word;

I, J, K : byte;

Position : LongInt;

NowPos : real;

TPassword : array [1..255] of word;

MasByte, Mas, MasEnd, PS : array [1..64] of word;

К-во Просмотров: 1062
Бесплатно скачать Дипломная работа: Защита данных от несанкционированного доступа