Реферат Реалізація криптографічного алгоритму (AES) Rijndael

ntToHex (TempIn [3], 2) + IntToHex (TempIn [4], 2 ) + (TempIn [5], 2) + IntToHex (TempIn [6], 2) + IntToHex (TempIn [7], 2) + (TempIn [8], 2) + IntToHex (TempIn [9], 2) + IntToHex (TempIn [10], 2) + (TempIn [11], 2) + IntToHex (TempIn [12], 2) + IntToHex (TempIn [13], 2) + (TempIn [14], 2) + IntToHex ( TempIn [15], 2);

. EditOut. Text: = IntToHex (TempOut [0], 2) + IntToHex (TempOut [1], 2) + (TempOut [2], 2) + IntToHex (TempOut [3], 2) + IntToHex (TempOut [4], 2 ) + (TempOut [5], 2) + IntToHex (TempOut [6], 2) + IntToHex (TempOut [7], 2) + (TempOut [8], 2) + IntToHex (TempOut [9], 2) + IntToHex (TempOut [10], 2) + (TempOut [11], 2) + IntToHex (TempOut [12], 2) + IntToHex (TempOut [13], 2) + (TempOut [14], 2) + IntToHex ( TempOut [15], 2);

// FmStop;: = Dest. Write (TempOut, SizeOf (TempOut));. Write (TempOut, SizeOf (TempOut));

. MemoOut. Text: = st. DataString; Form1. RadioGroup1. ItemIndex = 1 then: = GetTickCount;. ProcessMessages; (GetTickCount-tick)> StrToInt (Form1.editDelay. Text);; Done 0 then: = Source. Read (TempIn, Count); Done

begin

// Висновок вхідного і вихідного блоків

FmStop. EditIn. Text: = IntToHex (TempIn [0], 2) + IntToHex (TempIn [1], 2) + (TempIn [2], 2) + IntToHex (TempIn [3], 2) + IntToHex (TempIn [4], 2 ) + (TempIn [5], 2) + IntToHex (TempIn [6], 2) + IntToHex (TempIn [7], 2) + (TempIn [8], 2) + IntToHex (TempIn [9], 2) + IntToHex (TempIn [10], 2) + (TempIn [11], 2) + IntToHex (TempIn [12], 2) + IntToHex (TempIn [13], 2) + (TempIn [14], 2) + IntToHex ( TempIn [15], 2);

. EditOut. Text: = IntToHex (TempOut [0], 2) + IntToHex (TempOut [1], 2) + (TempOut [2], 2) + IntToHex (TempOut [3], 2) + IntToHex (TempOut [4], 2 ) + (TempOut [5], 2) + IntToHex (TempOut [6], 2) + IntToHex (TempOut [7], 2) + (TempOut [8], 2) + IntToHex (TempOut [9], 2) + IntToHex (TempOut [10], 2) + (TempOut [11], 2) + IntToHex (TempOut [12], 2) + IntToHex (TempOut [13], 2) + (TempOut [14], 2) + IntToHex ( TempOut [15], 2);

// FmStop;: = Dest. Write (TempOut, SizeOf (TempOut));. Write (TempOut, SizeOf (TempOut));. MemoOut. Text: = st. DataString; Form1. RadioGroup1. ItemIndex = 0 then: = GetTickCount;. ProcessMessages; (GetTickCount-tick)> StrToInt (Form1.editDelay. Text);; Done

// ДешіфрованіеDecryptAESStreamECB (Source: TStream; Count: cardinal; Key: TAESKey128; Dest: TStream);: TAESExpandedKey128; (Key, ExpandedKey);

Назад | сторінка 24 з 27 | Наступна сторінка