Генерация 96-битного ключа для шифрования с помощью Encrypt()
Falk0ner, вс, 06/07/2008 - 15:35.
Генерация 96-битного ключа для шифрования с помощью Encrypt()
{ **** UBPFD *********** by kladovka.net.ru ****
>>
Генерация 96-битного ключа для шифрования Encrypt()
Зависимости: System
Автор: kronprince, <a href="mailto:kronprince@mail.ru">kronprince@mail.ru</a>, 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;
>>
Генерация 96-битного ключа для шифрования Encrypt()
Зависимости: System
Автор: kronprince, <a href="mailto:kronprince@mail.ru">kronprince@mail.ru</a>, 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);
Encrypt(S, StartKey, MultKey, AddKey);
Отправить комментарий