Реферат Розробка програми "Шифр Цезаря"

e_d = 'e' then new_file_name: = 'Encrypted_' + ExtractFileName (form1.Edit1.Text); e_d = 'd' then new_file_name: = 'Decrypted_' + ExtractFileName (form1.Edit1.Text); (f_dest, new_file_name); (f_src); (f_dest); not EOF (f_src) do (f_src, ch);: = false;: = pos (ch, s ); i> 0 thene_d = 'e' then (i +6) <= 66 then write (f_dest, s [i +6]) write (f_dest, s [i-60]); e_d = 'd' then (i-6)> = 1 then write (f_dest, s [i-6]) write (f_dest, s [i +60]); write (f_dest, ch);; (f_src); (f_dest); . StatusBar1.Panels.Items [0]. Text: = 'Файл збережений під ім'ям:' + new_file_name;. Memo_dest.Lines.LoadFromFile (new_file_name);

end;;

// Виклик діалогу відкриття файлів по кнопці

procedure TForm1.Bt_open_fileClick (Sender: TObject); opendialog1.Execute and fileexists (opendialog1.FileName) then.Text: = opendialog1.FileName;. Memo_src.Lines.LoadFromFile (form1.Edit1.Text) ;

end;;

// Виклик процедури шифрування натисненням кнопки "Зашифрувати"

procedure TForm1.Bt_EncriptClick (Sender: TObject); _de_crypt ('e');

end;

// Виклик процедури дешифрування натисканням кнопки "Розшифрувати"

procedure TForm1.Bt_DecryptClick (Sender: TObject); _de_crypt ('d');

end;

// Виклик діалогу відкриття файлу з головного меню

procedure TForm1.N2Click (Sender: TObject);. Bt_open_file.Click;

end;

// Виклик процедури шифрування з головного меню

procedure TForm1.N5Click (Sender: TObject); _de_crypt ('e');

end;

// Виклик процедури дешифрування з головного меню

procedure TForm1.N6Click (Sender: TObject); _de_crypt ('d');;

// Вихід з программиTForm1.N3Click (Sender: TObject);. Close;;

// Виклик вікна "Про програму" TForm1.N8Click (Sender: TObject);. ShowModal;;.

Модуль about.pasAbout; Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,, ExtCtrls; = class (TForm): TPanel;: TImage;: TLabel;: TLabel;: TLabel; : TLabel;: TButton; OKButtonClick (Sender: TObject);

{Private declarations}

{Public declarations};: TAboutBox;

{$ R *. dfm} TAboutBox.OKButtonClick (Sender: TObject);. Close;;.

2.3 Тестування програми

Програма тестувалася в ОС Windows XP і Windows 7 (Seven). При тестуванні програми були використані текстові файли з різними наборами символів. br/>

.4 Впровадження

Для запуску програми потрібно зап...