док розробки, виробництва, реалізації та використання засобів криптографічного захисту інформації з обмеженим доступом, яка не містить відомостей, що становлять державну таємницю»//Російська газета. 2000. № 18.
. Применко Е. А., Винокуров А. А. Порівняння російського стандарту шифрування алгоритму ГОСТ 28147-89 і алгоритму Rijndael, обраного в якості нового стандарту шифрування США//Системи безпеки. 2001. № 1. с. 79-82.
. Релігії світу. Довідник.- Пер. з англ .: М .: Белфаксіздатгрупп, 1994.
. Романець Ю. В., Тимофєєв П. А., Шаньгина В. Ф. Захист інформації в комп'ютерних системах та мережах. 2-е видання - М: Радіо і зв'язок, 2001 - 376 с.
. Ростовцев А. Г., Маховенко Є. Б. Два підходи до аналізу блокових шифрів//# justify gt ;. Ростовцев А. Г., Маховенко О. Б., Філіппов А. С, Чечулин А. А. Про стійкість ГОСТ 28147-89//# justify gt ;. Соколов А. В., Шаньгина В. Ф. Захист інформації в розподілених корпоративних мережах та системах.- М .: ДМК Пресс, 2002. 656 с.
. Фейстел X. Криптографія і комп'ютерна безпека.- Пер. з англ .: А. Винокуров - # justify gt ;. Шеннон К. Теорія зв'язку в секретних системах.- Пер. з англ .: В. Ф. Писаренко.- # Laquo; justify gt ;. Шнайер Б. Курс самопідготовки з криптоаналіз блокових шифрів.- Пер. з англ: Бибін С. С. - # justify gt ;. Adams С. RFC 2144: The CAST - 128 Encryption Algorithm//Entrust Technologies, May 1997 - # justify gt ;. Adams C, Gilchrist J. RFC 2612: The CAST - 256 Encryption Algorithm//Entrust Technologies, June 1999 - # justify gt ;. Advanced Encryption Standard (AES). Questions and Answers//# justify gt ;. AES Round 1 Information//# justify gt ;. Anderson R., Biham E. Two Practical and Provably Secure Block Ciphers: BEAR and LION//# justify gt ;. Anderson R., Biham E., Knudsen L. Serpent: A Proposal for the Advanced Encryption Standard//# justify gt ;. Aoki K., Ichikawa Т., Kanda M., Matsui M., Moriai S., Nakajima J., Tokita T. Camellia: A 128-Bit Block Cipher Suitable for Multiple Platforms//# justify gt ;. Baldwin R., Rivest R. RFC +2040: The RC5, RC5-CBC, RC5-CBC-Pad, and RC5-CTS Algorithms//# justify gt ;. Bar-El H., Choukri H., Naccache D., Tunstall M., Whelan C. The Sorcerer's Apprentice Guide to Fault Attacks//# justify gt ;. Barkan E., Biham E., Keller N. Instant Ciphertext-Only Cryptanalysis of GSM Encrypted Communication//# justify gt ;. Barreto PSLM, Rijmen V. The Anubis Block Cipher//# justify gt; Програма. Вихідний текст програми
Main ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, XPMan, StdCtrls, DCPrijndael, DCPcrypt2, DCPblockciphers;=class (TForm): TXPManifest ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TLabel ;: TLabel ;: TLabel ;: TButton ;: TEdit ;: TEdit ;: TButton ;: TButton ;: TComboBox ;: TOpenDialog ;: TSaveDialog; N2Click (Sender: TObject); N1Click (Sender: TObject ); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button1Click (Sender: TObject); ComboBox1Change (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;
implementationShifrMessage;
{$ R * .dfm} TForm1.N2Click (Sender: TObject);
begin.Close ;;
procedure TForm1.N1Click (Sender: TObject);
begin.ShowModal ;;
procedure TForm1.Button4Click (Sender: TObject);
beginOpenDialog1.Execute then.Text:=OpenDialog1.FileName ;; (Edit1.Text lt; gt; ) and (Edit2.Text lt; gt; ) then.Enabled: =True ;;
procedure TForm1.Button5Click (Sender: TObject);
beginSaveDialog1.Execute then.Text:=SaveDialog1.FileName ;; Edit1.Text=Edit2.Text then.Text:= raquo ;; ( Імена вихідного файлу та файлу-результату ідентичні! , mtError, [mbOK], 0) ;; (Edit1.Text lt; gt; ) and (Edit2.Text lt; gt; ) then.Enabled:=True ;;
procedure TForm1.Button1Click (Sender: TObject);
var: TDCP_rijndael ;: string ;, Dest: TFileStream;:= raquo ;; Button1.Caption= Зашифрувати then:=TFileStream.Create (Edit1.Text, fmOpenRead);:=TFileStream.Create (Edit2.Text, fmCreate);:=TDCP_rijndael.Create (Self) ;. Init (KeyStr, sizeof (KeyStr) * 8, nil) ;//ініціалізація.EncryptStream (Source, Dest, Source.Size);// Шіфруем.Burn; .Free; .Free; .Free; ( Файл успешно зашифрован , mtInformation, [mbOK], 0); ( Помилка вводу/виводу , mtError, [mbOK], 0); ;:=TFileStream.Create (Edit1.Text, fmOpenRead);:=TFileStream.Create (Edit2.Text, fmCreate);:=TDCP_rijndael.Create (Self) ;. Init (KeyStr, sizeof (KeyStr) * 8, nil) ;//ініціалізація.DecryptStream (Source, Dest, Source.Size);// Расшіфровиваем.Burn; .Fre...
