Генерация 96-битного ключа для шифрования с помощью Encrypt()

Материал из DRKB



{ **** UBPFD *********** by kladovka.net.ru ****
>> Генерация 96-битного ключа для шифрования с помощью Encrypt()

Генерация 96-битного ключа для шифрования Encrypt()

Зависимости: System
Автор:       kronprince, kronprince@mail.ru, ICQ:119018798, Полтава
Copyright:   © kronprince - собственная разработка
Дата:        23 июня 2003 г.
********************************************** }

// Генерация 96-битного ключа для шифрования Encrypt()
procedure GenerateKey96(var StartKey, MultKey, AddKey: Integer);
var
  i: Integer;
  a: array[1..12]of Byte;

  procedure FillKey(var VarKey: Integer; index: Integer);
  var
    j: Integer;
  begin
    for j := 0 to SizeOf(VarKey)-1 do
      VarKey := VarKey or a[index + j] shl (8 * j);
  end;

begin
  System.Randomize();
  // Это непосредственно типа случайная генерация :)
  for i := Low(a) to High(a) do
    a[i] := System.Random(High(byte));
  // А тут распихивание по ключевым полям с соответствующей стартовой позиции
  FillKey(StartKey, 1);
  FillKey(MultKey, 5);
  FillKey(AddKey, 9);
end;


Пример использования:

GenerateKey96(StartKey, MultKey, AddKey);
Encrypt(S, StartKey, MultKey, AddKey);


Author: kronprince
ID: 03993