=(Length (S) div Cl2) +1 ;:=1; (mas, Cl1 + 1, Cl2); j:=0 to Cl2-1 doi:=0 to Cl1-1 doa lt;=Length (S) then (Ord (S [a])=149) then S [a]:=Char (13); (Ord (S [a])=10) then inc (a); [i, j]:=S [a]; (a); [i, j] := raquo ;; (a) ;;:= raquo ;;:= raquo ;; i:=0 to Cl1-1 doj:=0 to Cl2-1 do:=mas [i, j];:= S1 + n; (k) ;;;:=S1;
end;.
. Інструкція користувача
Дана програма «Шифратор-дешифратор» (зовнішній вигляд програми до початку роботи, Додаток 1, Рис. 1) володіє наступними можливостями:
Для роботи з програмою «Шифратор-дешифратор» текст для подальшого шифрування можна вводити вручну, а можна відкрити файл з текстом (Файл - gt; Відкрити, Додаток 1, Рис. 2).
Для шифрування тексту обраного алгоритму натискаємо відповідну кнопку на формі (Додаток 1, Рис. 3), якщо програма виявить, що текст не введений або файл не відкрити вийде попередження (Додаток 1, Рис. 4).
Щоб дешифрувати тексту обраного алгоритму натискаємо відповідну кнопку на формі (Додаток 1, Рис. 5).
Для перегляду інструкції користувача програми, в меню «Файл» вибираємо пункт «Довідка» (Додатково - gt; Довідка, Додаток 1, Рис. 6).
Для перегляду додаткової інформації по програмі (алгоритми шифрування використовувані в даній програмі, дата розробки, дані про розробника), в меню «Додатково» вибираємо пункт «Про програму ...» (Додатково - gt; Про програму ..., Додаток 1, Рис. 7).
У програмі існує можливість перегляду зразкового алгоритму шифрування-дешифрування тексту, для цього натискаємо на формі на назву алгоритму (Додаток 1, Рис. 8).
Для очищення всіх вікон програми є кнопка «Очистити».
Для виходу з програми кнопка «Вихід».
. Вихідний текст програми
компонент шифрування алгоритм
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Menus, ShifText, ExtCtrls, jpeg, Spin, XPMan; Unit2, Unit3;
{$ R * .dfm} TForm1.Button1Click (Sender: TObject);
var s: string;// шифрування текст алгоритмом Цезаря raquo ;;
begin (Memo1.Text lt; gt; ) and (SpinEdit1.Text lt; gt; ) then//якщо поле не порожнє то.Text:=ShifText1.AlgCez (Memo1.Text, SpinEdit1.Text);// пріменаем алгоритм шифрування до тексту;
end else//інакше виводимо повідомлення про помилку;:= Спочатку введіть текст або відкрийте текстовий файл !!! # 13 # 10;
MessageBox (handle, PChar (S), Помилка! , MB_OKor MB_ICONWARNING) ;;; TForm1.N2Click (Sender: TObject); ShifText1.Execute then .Lines.LoadFromFile (ShifText1.FileName) ;;; TForm1.Button3Click (Sender: TObject);
var s: string;// дешифрування тексту алгоритмом Цезаря raquo ;;
begin (Memo2.Text lt; gt; ) and (SpinEdit1.Text lt; gt; ) then.Text:=ShifText1.DeAlgCez (Memo2.Text, SpinEdit1.Text);
end else//інакше виводимо повідомлення про помилку;:= Спочатку введіть текст або відкрийте текстовий файл !!! # 13 # 10;
MessageBox (handle, PChar (S), Помилка! , MB_OK or MB_ICONWARNING) ;;; TForm1.Button4Click (Sender: TObject);
var s: string;// шифрування текст алгоритмом Модифікованого Цезаря raquo ;;
begin (Memo1.Text lt; gt; ) and (SpinEdit1.Text lt; gt; ) then.Text:=ShifText1.AlgVijen (Memo1.Text, SpinEdit1.Text);// пріменаем алгоритм шифрування до тексту;
end else//інакше виводимо повідомлення про помилку;:= Спочатку введіть текст або відкрийте текстовий файл !!! # 13 # 10;
MessageBox (handle, PChar (S), Помилка! , MB_OK or MB_ICONWARNING) ;;; TForm1.Button5Click (Sender: TObject);
var s: string;// дешифрування тексту алгоритмом Модифікованого Цезаря raquo ;;
begin (Memo3.Text lt; gt; ) and (SpinEdit1.Text lt; gt; ) then.Text:=ShifText1.DeAlgVijen (Memo3.Text, SpinEdit1.Text);// пріменаем алгоритм дешифрування до тексту;
end else//інакше виводимо повідомлення про помилку;:= Спочатку введіть текст або відкрийте текстовий файл !!! # 13 # 10;
MessageBox (handle, PChar (S), Помилка! , MB_OK or MB_ICONWARNING) ;;; TForm1.Button6Click (Sender: TObject);
var s: string;// шифрування тексту алгоритмом поневірявся raquo ;;
begin (Memo1.Text lt; gt; ) and (SpinEdit1.Text lt; gt; ) then.Text:=ShifText1.AlgSkit (Memo1.Text, SpinEdit1.Text);// пріменаем алгоритм дешифрування до тексту;
end else//інакше виводимо повідомлення про помилку;:= Спочатку введіть текст або відкрийте текстовий файл !!! # 13 # 10;
MessageBox (handle, PChar (S), Помилка! , MB_OK or MB_ICONWARNING) ;;; TForm1.Button7Click (Sender: TObject);
var s: string;// дешифрування тексту алгоритмом поневірявся raquo ;;
begin (Memo4.Text lt; gt; ) and (SpinEdit1.Text lt; gt; ) then.Text:=ShifText1.DeAlgSkit (Memo4.Text, SpinEdit1.Text);// пріменаем алгоритм дешифрування до тексту;
end else//інакше виводим...
