LockBox3 Генерирует одинаковые пары ключей RSA

Недавно я решил наткнуться на набор криптографических компонентов LockBox3 и следовать простой документации о том, как сгенерировать пару ключей RSA, используя следующую ссылку:

http://lockbox.seanbdurkin.id.au/Generate+an+RSA+key

(Официальная документация)

Когда я применяю процесс, я могу генерировать как открытые, так и закрытые ключи и экспортировать их в файл.

Но когда я решаю сгенерировать новые пары ключей, используя тот же код, это все тот же открытый и закрытый ключ (точно такой же)

Обычно этого не должно быть, мы должны иметь возможность генерировать неограниченное количество различных пар ключей на случай утечки закрытого ключа по каким-либо причинам.

Есть ли какие-либо другие шаги для создания новых пар ключей или это ошибка?

Я использую Delphi XE6 и запускаю компоненты Lockbox 3 (последние доступны на SourceForge)

заранее спасибо


rsa key cryptography delphi lockbox-3
person XianPingWan    schedule 25.10.2015    source источник
comment
Не используйте блокировку для создания криптографических ключей. Период. Код в uTPLb_Random явно небезопасен.   -  person CodesInChaos    schedule 26.10.2015
comment
@CodesInChaos: Можно конкретику? Что в uTPLb_Random небезопасно?   -  person Sean B. Durkin    schedule 10.03.2016

Ответы (2)


arrow_upward
2
arrow_downward

Рандомизируйте свое семя перед генерацией. Для достижения наилучших результатов не используйте встроенную процедуру рандомизации.

person Sean B. Durkin    schedule 25.10.2015

arrow_upward
0
arrow_downward

Произошла опечатка в uTPLb_Random модуле, в TRandomStream.Randomize методе. Теперь это исправлено (см. uTPLb_Random.pas на GitHub< /а>).

procedure TRandomStream.Randomize();
{$IFDEF SMWINDOWS} //Should be MSWINDOWS
var
  hProv: THandle;
  dwProvType, dwFlags: DWORD;
  Provider1: string;
  hasOpenHandle: boolean;
{$ENDIF}
begin
{$IFDEF SMWINDOWS} //Should be MSWINDOWS
  Provider1 := Provider;
  dwProvType := PROV_RSA_FULL;
  dwFlags := CRYPT_SILENT;
  hasOpenHandle := CryptAcquireContext(hProv, nil, PChar(Provider), dwProvType, dwFlags);
  try
    if (not hasOpenHandle) or (not CryptGenRandom(hProv, SizeOf(FValue), @FValue)) then
  FValue := TimeStampClock();
  finally
    if hasOpenHandle then
      CryptReleaseContext(hProv, 0);
  end;
  Crunch();
{$ENDIF}
end;

После исправления каждый раз генерирует разные ключи.

person Paul    schedule 17.07.2019