Реферат: Защита информации в ПЭВМ. Шифр Плейфера
DESHIFR_TXT:= Str;
END; {Конец основного блока ПФ DESHIFR_TXT}
{Начало основного блока программы}
BEGIN
ClrScr;
{Выбор шифрование или дешифрование файла}
WriteLn ('Выбери: (S)ШИФРОВАТЬ или (D)ДЕШИФРОВАТЬ ?');
REPEAT
K:= ReadKey;
UNTIL (UpCase(K) = 'S') OR (UpCase(K) = 'D');
{Определение файла ввода}
{$I-}
REPEAT
Write ('Путь к файлу: ');
ReadLn (Name1);
Assign (Var_file1, Name1);
Reset (Var_file1);
UNTIL (IOResult = 0);
{$I+}
{Определение файла вывода}
REPEAT
Write ('Сохранить как: ');
ReadLn (Name2);
UNTIL (Length(Name2) <> 0);
Assign (Var_file2, Name2);
Rewrite(Var_file2);
{Обращение к ПП SHIFR_PLEYFER}
SHIFR_PLEYFER(ALFAVIT, INDEX);
{Цикл перебора строк открытого текста}
WHILE NOT EOF(Var_file1) DO
begin
ReadLn (Var_file1, Str);
{Обращение к ПФ SHIFR_TXT либо ПФ DESHIFR_TXT}
IF UpCase(K) = 'S' THEN Str:= SHIFR_TXT(Str, Alfavit, INDEX) ELSE Str:= DESHIFR_TXT(Str, Alfavit, INDEX);
WriteLn (Var_file2, Str);
end;
Close (Var_file2); {Закрытие файла Name2}
Close (Var_file1); {Закрытие файла Name1}
END. {Конец основного блока программы}
Результаты
{test.txt} - исходный открытый текст.
ШИФР ПЛЭЙФЕРА
МАЛЬЧИК НА КУХНЕ УКСУС НАШЕЛ.
С ЧАЙНОЙ ЧАШКОЙ К ДЕДУ ПРИШЕЛ.
ДЕДУШКА, МИЛЕНЬКИЙ, СДЕЛАЙ ГЛОТОК...
СТАРЕНЬКИЙ ДЕДУШКА НА ПОЛ ПОТЕК.
{test.plf} - зашифрованный файл (test.txt)
РДИЫ,-СТ-И.ХЮВ
БЫСВГСТЪБ,ЮБ,ТШ,Ю,Т,ЕТЮКБЧХЧЙС
КЮНЮ.ВШЧ-ЪЕЧЭНПЛБ НФЧУФ,ЙХДРСПЮЙ
НФЧУДХБСЪБРЦПСКГЪТПЪКЮУЧВС-ЪЬОЛДЛНЮЙЮЙЮЙ
КЮЦСХ.КГЪТ-ЪУЧУИЭНЮББЧ,-П-,-ЛДС,ЮЙ
{test.new} - расшифрованный файл (test.plf)
ШИФР ПЛЭЙФЕРА
МАЛЬЧИК НА КУХНЕ УКСУС НАШЕЛ.
С ЧАЙНОЙ ЧАШКОЙ К ДЕДУ ПРИШЕЛ.
ДЕДУШКА, МИЛЕНЬКИЙ, СДЕЛАЙ ГЛОТОК...
СТАРЕНЬКИЙ ДЕДУШКА НА ПОЛ ПОТЕК.
СПИСОК ЛИТЕРАТУРЫ
Защита информации в персональных ЭВМ/ А.В.Спесивцев, В.А.Вегнер, А.Ю.Крутяков и др. - М.: Радио и связь, МП 'Веста',1993.
3ащита программного обеспечения: Перевод с английского./ Под редакцией Д.Гроувера. - М.: Мир 1992.
Рощин Б.В.Элементы криптозащиты информации: Учебное пособие. - М.: Издательство МАИ, 1995.
А.В.Петраков. Защита и охрана личности, собственности, информации: Справное пособие. - М.: Радио и связь, 1997.
И
Основы программирования на языке Паскаль | |
Как работать с книгой Внимательно прочитайте соответствующий раздел теории (одну главу), разберите все примеры, чтобы вам все было понятно, при этом ... Program Prim11; Var season:(winter,spring,summer,autumn); rez:integer;BEGIN season:=spring; Writeln('результат ord(season)=',ord(season)); case season of winter: writeln('winter') Var str:string[255]; { Var str: string; будет работать так же} function del(stroka:string):string; |
Раздел: Рефераты по информатике, программированию Тип: учебное пособие |
Система математических расчетов MATLAB | |
ГОСУДАРСТВЕННЫЙ ИНЖЕНЕРНЫЙ УНИВЕРСИТЕТ АРМЕНИИ MATLAB УЧЕБНОЕ ПОСОБИЕ Гаспарян Олег Николаевич Д.т.н, с.н.с 2005 СОДЕРЖАНИЕ Система математических ... Два символа деления / (косая черта (по английски - slash)) и \ (обратная косая че-рта (backslash)) используются в двух случаях, когда неизвестная матрица появляется слева или ... Ячейка l массива c_str содержит структуру с двумя полями, где в одном поле хранится стро-ка символов, а во втором - вектор. |
Раздел: Рефераты по информатике, программированию Тип: учебное пособие |
Алгоритмический язык Паскаль | |
МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ ЧЕРЕПОВЕЦКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ ИНСТИТУТ им. А.В. ЛУНАЧАРСКОГО КАФЕДРА ИНФОРМАТИКИ Дипломная ... Синтаксис: str(I: integer; var S: string); procedure UDALENIE_MOD(var ST: |
Раздел: Рефераты по информатике, программированию Тип: дипломная работа |
Редактирование и отладка программ с помощью Pascal | |
АКТЮБИНСКИЙ ПОЛИТЕХНИЧЕСКИЙ КОЛЛЕДЖ ОТЧЕТ ПО УЧЕБНОЙ ПРАКТИКЕ Выполнил: Журмухамедов Марат Проверила: Гайсагалеева Б.М. АКТОБЕ 2010 г. ДНЕВНИК ДАТА ... Матрица матриц. {ord('и')=168, ord('a')=97, 168+97*256=25000} |
Раздел: Рефераты по информатике, программированию Тип: отчет по практике |
Определитель произведения прямоугольных матриц. Теорема Коши-Бине | |
Курсовая работа Выполнила студентка II курса группы ПМИ Решоткина Наталья Николаевна Мурманский Государственный Педагогический Университет Мурманск ... Rows := Rows + Ord(A.Mass[j, k] = 0); {* матрице } OpenDialog.DefaultExt := '*.txt'; //Расширение файлов по умочлчанию |
Раздел: Рефераты по математике Тип: курсовая работа |