Защита данных от несанкционированного доступа
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение на тему, контрольная работа 6
Добавил(а) на сайт: Vonifat.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата
{Шифровать с помощью ПСЧ}
Code:=Mas[i];
T[i] := (A * T[i-1] + C) mod M;
Code:=T[i] xor Code;
Mas[i] := Code; end;
for i:=1 to 8 do { Конечная перестановка } for j:=1 to 8 do case i of
1: MasEnd[8*(j-1)+i] := Mas[41-j];
2: MasEnd[8*(j-1)+i] := Mas[09-j];
3: MasEnd[8*(j-1)+i] := Mas[49-j];
4: MasEnd[8*(j-1)+i] := Mas[17-j];
5: MasEnd[8*(j-1)+i] := Mas[57-j];
6: MasEnd[8*(j-1)+i] := Mas[25-j];
7: MasEnd[8*(j-1)+i] := Mas[65-j];
8: MasEnd[8*(j-1)+i] := Mas[33-j] end; for i:= 1 to 64 do Write(OutF, MasEnd[i]); end; until eof(InpF);
MyMessageBox('Файл '+ InputFileName + ' зашифрован с именем ' +
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;
Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата