Валерий Борисок - Delphi. Трюки и эффекты

Листинг 12.17.

Шифрование/дешифрование текста сообщения

procedure TfmCryptography.btnEncryptMessageClick(Sender: TObject);

var

i: Integer;

nKey: Integer;

begin

//получаем ключ, с помощью которого будет

//шифроваться сообщение

nKey := GetKey;

//ключ задан верно?

if nKey = –1 then

Begin

MessageDlg(\'Ошибка: ключ задан неверно\', mtError, [mbOk], 0);

Exit;

End;

//получаем алфавит, с помощью которого будет

//происходить шифрование

RecalcAlphabet(nKey);

//предотвращаем перерисовку компонента до тех пор, пока не

//зашифруем все строки сообщения

mmEncryptMessage.Lines.BeginUpdate;

//освобождаем список от любых старых значений

mmEncryptMessage.Clear;

//шифруем сообщение построчно

for i := 0 to mmDecryptMessage.Lines.Count – 1 do

mmEncryptMessage.Lines.Add(

EncryptDecryptString(mmDecryptMessage.Lines[i], nKey));

//заново разрешаем перерисовку компонента

mmEncryptMessage.Lines.EndUpdate;

end;

procedure TfmCryptography.btnDecpyptMessageClick(Sender: TObject);

var

i: Integer;

nKey: Integer;

begin

nKey := GetKey;

if nKey = –1 then

Begin

MessageDlg(\'Ошибка: ключ задан неверно\', mtError, [mbOk], 0);

Exit;

End;

//получаем алфавит, с помощью которого будет происходить

//дешифрование

RecalcAlphabet(SizeOf(TRusSrcAlphabet) – nKey

mod SizeOf(TRusSrcAlphabet));

mmDecryptMessage.Lines.BeginUpdate;

mmDecryptMessage.Clear;

for i := 0 to mmEncryptMessage.Lines.Count – 1 do

mmDecryptMessage.Lines.Add(

EncryptDecryptString(mmEncryptMessage.Lines[i], nKey));

mmDecryptMessage.Lines.EndUpdate;

end;

Листинг 12.18.

Объявление типов и класса нашей формы

type

TRusLetters = set of Char;

TfmEncryptingAutoKey = class(TForm)

mmDecryptMessage: TMemo;

mmEncryptMessage: TMemo;

lbDecryptMessage: TLabel;

lbEncryptMessage: TLabel;

btnEncryptMessage: TButton;

btnDecpyptMessage: TButton;

edKey: TEdit;

lbKey: TLabel;

procedure btnEncryptMessageClick(Sender: TObject);

procedure btnDecpyptMessageClick(Sender: TObject);

private

{ Private declarations }

function GetKey: String;

function EncryptString(strEncryptMsg: String;

var strKey: String): String;

function DecryptString(strDecryptMsg: String;

var strKey: String): String;

procedure EncryptDecrypt(SrcLines, DstLines: TStrings;

bEncrypt: Boolean);

public

{ Public declarations }

end;

const