Читаем Delphi. Трюки и эффекты полностью

type

TRusDstAlphabet = array [Char] of Char;

TfmSubstitution = class(TForm)

mmDecryptMessage: TMemo;

mmEncryptMessage: TMemo;

lbDecryptMessage: TLabel;

lbEncryptMessage: TLabel;

btnEncryptMessage: TButton;

btnDecpyptMessage: TButton;

btnGenRearrangement: TButton;

vleSubst: TValueListEditor;

procedure FormCreate(Sender: TObject);

procedure btnGenRearrangementClick(Sender: TObject);

procedure btnEncryptMessageClick(Sender: TObject);

procedure btnDecpyptMessageClick(Sender: TObject);

private

{ Private declarations }

RusDstAlphabet: TRusDstAlphabet;

procedure GenRearrangment;

function ValidateRearrangement: Boolean;

function UpCaseRus(Ch: Char): Char;

function LowCaseRus(Ch: Char): Char;

procedure RecalcAlphabet(nKey: Integer);

function EncryptDecryptString(strMsg: String): String;

public

{ Public declarations }

end;

Каждую задачу следует рассматривать детально и выделять необходимые подзадачи, решение которых позволит облегчить и упростить общее решение. Помимо ряда стандартных обработчиков событий, мы добавили несколько собственных методов для лучшей структуризации кода и повышения его читабельности, что является немаловажным фактором при разработке приложений. Рассмотрим каждый метод и поясним их работу.

В нашем приложении для удобства и простоты работы будет реализована возможность задания случайной автоматической перестановки. Первым рассматриваемым методом является функция, реализующая алгоритм генерации случайной перестановки заданной длины из букв русского алфавита. Принцип ее работы заключается в следующем. Сначала считается, что в перестановке нет ни единого символа, о чем свидетельствует установка всех элементов массива WasGen в значение False. Далее в цикле случайным образом генерируются буквы русского алфавита. На очередном шаге цикла буква генерируется до тех пор, пока она будет присутствовать среди уже сгенерированных. Как только такая буква получена, то соответствующий элемент массива WasGen устанавливается в значение True, которое свидетельствует о том, что буква больше не может быть сгенерирована. Мы также не забываем добавить ее в перестановку. Код, соответствующий данному описанию, приведен в листинге 12.2.

...

Реализация метода генерации случайной перестановки

procedure TfmSubstitution.GenRearrangment;

var

Ch, c: char;

//нужен для определения, встречался ли символ ранее

WasGen: array [Char] of Boolean;

begin

//заполняем массив значением False

FillChar(WasGen, SizeOf(WasGen), False);

for Ch := \'А\' to \'Я\' do

begin

//генерируем случайный символ до тех пор, пока

//не будет получен еще не сгенерированный

repeat

c := Chr(Ord(\'А\') + random(32));

until not WasGen[c];

//помечаем, что символ сгенерирован

WasGen[c] := True;

vleSubst.Values[Ch] := c;

end;

end;