Создание программного приложения "Шифрование информации" - Курсовая работа

СОЗДАНИЕ ПРОГРАММНОГО ПРИЛОЖЕНИЯ «Архитектура системного блока» 2.1 Общие сведения 2.2 Функциональное назначение 2.3 Описание логической структуры 2.4 Свойства форм и компонентов 2.5 Руководство системного программиста 2.5.1 Запуск и работа в программе 2.5.2 Редактирование и добавление материала 2.5.3 Работа с программой тестирования 2.6 Руководство пользователя 2.6.1 Запуск и работа в программе Заключение Список литературы Приложение 1 Приложение 2 Приложение 3 Приложение 4 Приложение 5 ВВЕДЕНИЕ В современном мире защита информации - одна из самых актуальных тем в сфере безопасности. Например: защита паролем, с помощью определенного программного обеспечения, шифрование. Шифрование - обратимое преобразование информации в целях сокрытия от неавторизованных ScreenWidth) then begin height := longint(height) * longint(screen.height) div ScreenHeight; width := longint(width) * longint(screen.width) div ScreenWidth; scaleBy(screen.width, ScreenWidth); end; end; procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin Resize := False; end; procedure TForm1.N8Click(Sender: TObject); begin Application.MainForm.Close; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := Application.MessageBox(PChar(Вы действительно хотите выйти из программы ?), Внимание !, MB_YesNo) = id_Yes; end; procedure TForm1.N12Click(Sender: TObject); var ZoomFac: OLEVariant; begin WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.3; ZoomFac := TButton(Sender).Tag; WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, ZoomFac); end; procedure TForm1.N13Click(Sender: TObject); begin WebBrowser1.OleObject.Document.Body.Style.Zoom := 1; end; procedure TForm1.N22Click(Sender: TObject); begin Form4.Show; end; procedure TForm1.N18Click(Sender: TObject); begin Form5.Show; end; procedure TForm1.N20Click(Sender: TObject); begin Form6.Show; end; procedure TForm1.N21Click(Sender: TObject); begin Form7.Show; end; procedure TForm1.N19Click(Sender: TObject); begin Form8.Show; end; procedure TForm1.N5Click(Sender: TObject); begin Form4.Show; end; end. Form 2 unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin Close; end; end. Form 3 unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm3 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); procedure Memo1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form3: TForm3; implementation {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); begin Close; end; Приложение 4 Листинг подпрограммы «Тест» Form 4 unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls; type TForm4 = class(TForm) Memo1: TMemo; RichEdit1: TRichEdit; BitBtn1: TBitBtn; RadioGroup1: TRadioGroup; Label1: TLabel; OpenDialog1: TOpenDialog; procedure FormShow(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; I,kol,j:integer; implementation {$R *.dfm} procedure TForm4.FormShow(Sender: TObject); var AppPath:array[0..255] of char; test : AnsiString; begin GetCurrentDirectory(255,AppPath); //определяем директорию, где расположен исполнимый файл test := AppPath \Доп.