ніеCBOpt. Text = "ШифруванняВ» then_Status. Caption: = 'Шифрування ...';;: = TFileStream. Create (Edit1. Text, fmOpenRead);// Откриваемфайлдлячтенія. Caption: = IntToStr (Source. Size div 1024) + 'KB';// Виводразмерафайла;: = Fpath;// Файлназначенія: = TFileStream. Create (DestFile, fmCreate);// Создаемновыйфайлилипереписываемужеимеющийся: = Source. Size;// Визначення розміру джерела. WriteBuffer (Size, SizeOf (Size));// Задаємо розмір буфера призначення
FillChar (Key, SizeOf (Key), 0);// Заполняемключнулямі (PChar (Edit2. Text) ^, Key, Min (SizeOf (Key), Length (Edit2. Text))); // Вначалоключазаписываемпароль: = GetTickCount; (Source, 0, Key, Dest);: = GetTickCount; _Time. Caption: = IntToStr (Stop - Start) + 'ms';;. Free;;. Free;;; CBOpt. Text = В«ДешифруванняВ» then
// Дешіфрованіе_Status. Caption: = 'Дешифрування ...';;: = TFileStream. Create (Edit1. Text, fmOpenRead);// Джерело - зашіфрованнийфайл. ReadBuffer (Size, SizeOf (Size));// Зчитування Size даннихізпотока: = fpath; (Key, SizeOf (Key), 0);// Заполняемключнулямі (PChar (Edit2. Text) ^, Key, Min (SizeOf (Key) , Length (Edit2. Text)));// Вначалоключазаписываемпароль: = Fpath;: = TFileStream. Create (DestFile, fmCreate);// Призначення: = GetTickCount; (Source, Source. Size - Source. Position, Key, Dest);. Size: = Size;: = GetTickCount; _Time. Caption: = IntToStr (Stop - Start) + 'ms';;. Free;;. Free;;;; TForm1. ButtonStopClick (Sender: TObject);: = true;. ShowModal;. ProcessMessages; not Flag;; TForm1.CBOptChange (Sender: TObject); CBOpt. Text = "ШифруванняВ» then. Caption: = 'Шифрувати';. Caption: = 'Імязашіфрованногофайла';. Caption: = 'Дешифрувати';. Caption: = 'Ім'я дешифрувати файлу';;; TForm1. FormActivate (Sender: TObject);: = false;; TForm1. RadioGroup1Click (Sender: TObject); RadioGroup1. ItemIndex = 0 then EditDelay. Enabled: = false else. Enabled: = true;; TForm1.MFExitClick (Sender: TObject);;; TForm1.MFChooseClick (Sender: TObject);. Click;; TForm1. FormCreate (Sender: TObject);. HelpFile: = GetCurrentDir + ' AES.hlp';; TForm1.MHHelpClick (Sender: TObject);. HelpCommand (HELP_CONTENTS, 1);
end;.
Висновок
Серед способів захисту інформації найбільш важливим вважається криптографічний. Він передбачає таке перетворення інформації, при якому вона стає доступною для прочитання лише власникові деякого секретного параметра (ключа). В останні роки область застосування криптографії значно розширилася. Її стали повсякденно використовувати багато організацій, комерційні фірми, приватні особи, ЗМІ. p align="justify"> У цій роботі вивчається алгоритм шифрування даних AES: його історія створення, опис і програмна реалізація.
Список використаної літератури
