При создании форм приложения был использован класс — TForm.
На формах располагаются следующие компоненты:
TButton;
TLabel;
TEdit.
Button используется для реализации в программе команд с помощью обработчика события OnClick этого компонента. Один и тот же обработчик может обрабатывать события нескольких компонентов TButton (да и не только TButton, но и даже компонентов других типов). Для определения того, событие какого именно компонента нужно обрабатывать, используется встроенная переменная Sender типа TObject, обозначающая объект, вызвавший данное событие.
Delphi компонент Label предназначен для отображения статического текста, то есть надписей и меток на форме, которые не меняются в течение всего времени работы программы. Конечно, текст надписи, отображаемый компонентом Label можно изменить, но не непосредственно, а только программно. Свойством компонента Label, которое используется для задания отображаемого текста, является Caption.
Компонент Delphi Edit представляет собой однострочное текстовое поле, служащее для ввода данных пользователем. Основным свойством компонента Delphi Edit, передающим введённую информацию, является свойство Edit1. Text типа String. При изучении работы с Delphi Edit советую посетить страничку работа со строками Delphi, так как там описываются функции Delphi для работы с данными, представленными в текстовой форме.
Описание разработанных процедур и функций
Рассмотрим раздел «Оптимальное решение», который включает в себя следующие процедуры:
Function ConToBin выполняет преобразование в бинарный вид.
Function ConToInt выполняет преобразование в числовой вид.
Function MakePerest1, Function MakePerest2 выполняют начальную и конечную перестановку соответственно.
Function GetHighPart, Function GetLowPart выполняют получение первых и последних 32 бит соответственно.
Function MakeXOR операция исключающая ИЛИ.
Function ShiftLeft — функция сдвига битов Рrocedure MakeSubKeys — процедура для использования подключей.
Function StrToBin, Function BinToStr — фукнция для преобразования текста в бинарный вид, и из бинарного в текстовый.
Function CodeDESфункция реализующая сам алгоритм.
procedure TForm1. cmdCodeClick (Sender: TObject);- кнопка для реализации шифрования.
Код программы представлен в приложении Б.
