Установила в форму компонент Button 1-3 Рисунок 1 алгоритм шифрование виженер делитель procedure TForm1.Button3Click(Sender: TObject); const A : array[0..15] of char = (0,1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F); var i : integer; begin Form1.Caption := ; for i := 0 to 15 do Form1.Caption := Form1.Caption A[i] ; end; Создать алфавит, как массив символов, возможно путем использования функции Succ, поэтому я указала ее как начальный параметр первый символ. procedure TForm1.Button1Click(Sender: TObject); var A : array[1..32] of char; i: integer; begin {Строем алфавит} i := 1; A[i] := А; Repeat inc(i,1); A[i] := Succ(A[i-1]); until i >= 32; Form1.Caption := ; for i := 1 to 32 do Form1.Caption := Form1.Caption A[i] ; end; Создать обратный алфавит, как массив символов, возможно путем использования функции Pred, указав при этом как начальный параметр последний символ, что мы собственно и сделали. procedure TForm1.Button2Click(Sender: TObject); var A : array[1..32] of char; i: integer; begin i := 1; A[i] := Я; Repeat inc(i,1); A[i] := Pred(A[i-1]); until i >= 32; Form1.Caption := ; for i := 1 to 32 do // в цикле от 1 до 32 Form1.Caption := Form1.Caption A[i] ; end; 2. Декларирование функции { Private declarations } function VCR(PSW,TXT:string; CRT: boolean):string; function CZR(PSW,TXT:string; CRT: boolean):string; Тело функции function TForm1.CZR(PSW,TXT:string; CRT: boolean):string; var i, NS:integer; TMP:string; begin tmp:=; NS:=1; for i:=1 to length(TXT) do begin if CRT = true then TMP := TMP Chr((Ord(TXT[i]) Ord(PSW[NS])) mod 256) else TMP := TMP Chr((Ord(TXT[i]) - Ord(PSW[NS])) mod 256); NS := NS 1; if NS > length(PSW) then NS:=1; end; Result:=TMP; end; Команда шифрования procedure TForm1.Button3Click(Sender: TObject); begin Memo2.Text := CZR(Edit1.Text,Memo1.Text, true); end; Команда дешифрования procedure TForm1.Button4Click(Sender: TObject); begin Memo3.Text := CZR(Edit1.Text,Memo2.Text,false); end; При проверке работы функции (зашифровала и расшифровала текст, изменяя пароль) ошибок не обнаружилось.
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
