Защита информации в ПЭВМ. Шифр Плейфера — страница 10

<> 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) ШИФР ПЛЭЙФЕРА МАЛЬЧИК НА КУХНЕ УКСУС НАШЕЛ. С ЧАЙНОЙ ЧАШКОЙ К ДЕДУ ПРИШЕЛ. ДЕДУШКА, МИЛЕНЬКИЙ, СДЕЛАЙ

ГЛОТОК... СТАРЕНЬКИЙ ДЕДУШКА НА ПОЛ ПОТЕК. СПИСОК ЛИТЕРАТУРЫ 1.    Защита информации в персональных ЭВМ/ А.В.Спесивцев, В.А.Вегнер, А.Ю.Крутяков и др. - М.: Радио и связь, МП 'Веста',1993. 2.    3ащита программного обеспечения: Перевод с английского./ Под редакцией Д.Гроувера. - М.: Мир 1992. 3.    Рощин Б.В.Элементы криптозащиты информации: Учебное пособие. - М.: Издательство МАИ, 1995. 4.    А.В.Петраков. Защита и охрана

личности, собственности, информации: Справное пособие. - М.: Радио и связь, 1997.