Реализация алгоритмов шифрования на Delphi / Тарабарcкая грамота / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, XPMan;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
BitBtn1: TBitBtn;
XPManifest1: TXPManifest;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function Cipher(const Sym:char):char;
begin
case Sym of
'б': Result:='щ';
'в': Result:='ш';
'г': Result:='ч';
'д': Result:='ц';
'ж': Result:='х';
'з': Result:='ф';
'к': Result:='т';
'л': Result:='с';
'м': Result:='р';
'н': Result:='п';
'щ': Result:='б';
'ш': Result:='в';
'ч': Result:='г';
'ц': Result:='д';
'х': Result:='ж';
'ф': Result:='з';
'т': Result:='к';
'с': Result:='л';
'р': Result:='м';
'п': Result:='н';
else Result:=Sym;
end;
end;


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['а'..'я', #32, '.', ',','!','?',#8]) then key:=#0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var str,code:string;
i:integer;
begin
str:=Edit1.Text;
code:='';
for i:=1 to Length(str) do
code:=code+Cipher(str[i]);
Edit2.Text:=code;
end;

procedure TForm1.Button2Click(Sender: TObject);
var str,decode:string;
i:integer;
begin
str:=Edit2.Text;
decode:='';
for i:=1 to Length(str) do
decode:=decode+Cipher(str[i]);
Edit3.Text:=decode;
end;

end.