Программирование на паскале

1. Содержание……………………………………………………………………………………………………………………2
2. Постановка задачи…………………………………………………………………………………………………3
3. Формализация задачи……………………………………………………………………………………………3
4. Алгоритм программы
Алгоритм функции FileExists……………………………………………………………………6
Алгоритм процедуры CheckParameters…………………………………………………7
Алгоритм основной программы……………………………………………………………………8
5. Листинг программы
Листинг основной программы………………………………………………………………………13
Листинг модуля………………………………………………………………………………………………………15
6. Отзыв vBulletinо методе шифрования XOR………………………………………17
7. Список литературы…………………………………………………………………………………………………18
2.ПОСТАНОВКА ЗАДАЧИ.
Реализовать алгоритм шифрования XORс открытым ключом.
3.ФОРМАЛИЗАЦИЯ ЗАДАЧИ.
Имя файла, который нужно зашифровать, будем передавать первым параметром при запуске программы. Вторым параметром будет ключ. Сообщение о начале процесса шифрования и его окончания будут выводиться на экран.
Операция XORв Паскале эквивалентна сложению по модулю 2 в математической логике.
Очевидно, что повторная обработка XORвернёт всё в исходное состояние.
Чтение и запись будет осуществляться блоками с помощью процедур BlockReadи BlockWriteсоответственно. Привидём некоторые сведения по данным процедурам.
Процедура BlockRead
Модуль System
Назначение Считывает одну или более записей в переменную
Целевая платформа Защищенный режим, реальный режим, Windows
Описание procedure BlockRеаd(var f: File; var Buff; Count: Word [;Result: Word ])
Примечания. Параметр f представляет собой файловую переменную, Buff (буфер) - любая переменная, Count (счетчик) - выражение длиной в слово и Result (результат) - это также переменная длиной в слово.
Данная процедура считывает из файла File записи, количество которых не превосходит числа, указанного в переменной Count, начиная с первого байта, занятого переменной Buff. Действительное число полных считанных записей (меньшее или равное значению переменной Count) возвращается в необязательном параметре Result. Если этот параметр не задан, то в том случае, когда число прочитанных записей не будет совпадать со значением переменной Count, произойдет ошибка ввода-вывода.Параметр f представляет собой файловую переменную, Buff (буфер) - любая переменная, Count (счетчик) - выражение длиной в слово и Result (результат) - это также переменная длиной в слово. Данная процедура считывает из файла File записи, количество которых не превосходит числа, указанного в переменной Count, начиная с первого байта, занятого переменной Buff. Действительное число полных считанных записей (меньшее или равное значению переменной Count) возвращается в необязательном параметре Result. Если этот параметр не задан, то в том случае, когда число прочитанных записей не будет совпадать со значением переменной Count, произойдет ошибка ввода-вывода. Весь размер переданного блока не превышает числа байт, опрееляемых произведением значения переменной Count и длины записи, указываемой при открытии файла (по умолчанию 128). Если это произведение превышает 65535 (64К байта), то возникает ошибка.
Параметр Result является необязательным. Он работает следующим образом. Если был передан весь блок, то при возврате управления в параметре Result будет содержаться то же значение, что и в переменной Count. В противном случае значение параметра Result будет меньше: до того, как успела завершиться передача, был обнаружен символ конца файла. В этом случае, если размер записи файла превышает единицу, то в параметре Result возвращается число полных прочитанных записей. Таким образом, возможная неполная последняя запись в параметре Result не учитывается.
В результате выполнения процедуры BlockRеаd текущая позиция в файле продвигается на число записей, заданных переменной Result.
При использовании директивы компилятора {$I-} функция IОRеsult будет возвращать 0, если операция завершилась успешно и ненулевой код ошибки в противном случае.
BlockWrite записывает Count записей из Buf в F. Запись это блок байтов, размер которого определен процедурами Rewrite или Reset. Если записи не удается записать на диск, то происходит ощибка периода выполнения. Реакция на ошибку зависит от дерективы $I.
Важно не упустить остаток чтения, если в файле не будет укладываться полный размер блока.

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию