Czy istnieją jakieś kryptograficznie bezpieczne biblioteki PRNG dla Delphi?

Question

Czy ktoś może polecić bezpieczną kryptograficznie bibliotekę generatorów liczb pseudolosowych dla Delphi (Win32)?

Może być bezpłatny lub komercyjny, ale najlepiej będzie aktywny. Chciałbym, żeby zawierał kod źródłowy.

Answer 1

Można użyć Windows CryptoAPI:

uses Wcrypt2; 

function GenerateRandom(Len: Cardinal): TBytes; 
var 
    hProv : HCRYPTPROV; 
begin 
    if not CryptAcquireContext(@hProv, 
          nil, 
          MS_ENHANCED_PROV, 
          PROV_RSA_FULL, 
          CRYPT_VERIFYCONTEXT) then 
    CryptAcquireContext(@hProv, 
         nil, 
         MS_ENHANCED_PROV, 
         PROV_RSA_FULL, 
         CRYPT_NEWKEYSET + CRYPT_VERIFYCONTEXT); 

    if hProv > 0 then 
    try 
    SetLength(Result,Len); 
    CryptGenRandom(hProv,Len,@Result[0]); 
    finally 
    CryptReleaseContext(hProv,0); 
    end; 
end; 

przykładem zastosowania powyższy kod:

function BytesToHex(const Bytes: TBytes): string; 
var 
    i : integer; 
begin 
    for i := 0 to Length(Bytes)-1 do 
    Result := Result + IntToHex(Bytes[i],2); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ShowMessage(BytesToHex(GenerateRandom(16))); 
end; 

Answer 2

OpenSSL byłby możliwy. Źródło jest dostępne, chociaż nie jestem świadomy, czy dostępna jest wersja Delphi. Zawiera cryptographically secure prng. Jest to aktywny projekt, ale może być przesadą dla tego, czego szukasz.

Answer 3

Można użyć istniejącego API Win32 CryptGenRandom().

Answer 4

Delphi Encryption Compendium (który słynie-owski w mówiąc społeczności Delphi niemieckim, ale nigdzie indziej - prawdopodobnie od oficjalnego promowania) zawiera kryptograficznie bezpieczne Yarrow RNG.

Właśnie to urządzenie DECRandom (a może DECUtils) i używać go w ten sposób (w tym przykładzie użyto IInteger ale nie jest to obowiązkowe):

function generateRandomNumber: IInteger; 
var 
    A: IInteger; 
begin 
    NRnd(A, 512); // generate 512 Bit random number, 2^512 <= A < 2^513 
    Result := A; 
end; 

initialization 
    // Method 1: uses system timer to initialize the RNG (seed) 
    RandomSeed; 
    // Method 2: use own seed 
    randomSeed(Data, SizeOf(Data)); 

Answer 5

Byłem też zamiar zaproponować OpenSSL libraries. A także uwzględniasz szyfrowanie, SSL, mieszanie.
Indy przekonwertował wiele nagłówków i zawiera RAND_screen - ale to nie może/nie powinno być używane, oczywiście, w programach bez interfejsu użytkownika. Niestety brakuje większości RAND_ * - ale są one bardzo łatwe do zaimportowania i użycia.
np

function RAND_load_file(const filename: PAnsiChar; max_bytes: longint): integer; cdecl; external 'libeay32.dll'; 
function RAND_bytes(buf: PByte; num: integer): integer; cdecl; external 'libeay32.dll'; 
function RAND_pseudo_bytes(buf: PByte; num: integer): integer; cdecl; external 'libeay32.dll'; 

następnie w kodzie:

RAND_load_file(PAnsiChar(AnsiString('name-of-seed-file')), 512); 
    //or 
    //RAND_screen; 
    ... 
    ... 
    const 
    PKCS5_SALT_LEN = 8; 
    var 
    salt: TBytes; 
    begin 
    SetLength(salt, PKCS5_SALT_LEN); 
    RAND_pseudo_bytes(@salt[0], PKCS5_SALT_LEN); 
    ... 
    end; 

Te same kwestie omawiane nasion nadal obowiązują, oczywiście.

Answer 6

Sprawdź ISAAC (Indirect, Shift, Accumulate, Add i Count), szybki PRNG, a także kryptograficznie bezpieczne (burtleburtle.net/bob/rand/isaacafa.html). Prawdopodobnie ISAAC jest tak szybki jak słynny Mersenne Twister PRNG.

Wolfgang Ehrhardt zrobił port Pascal/Delphi for Izaak i jest dostępny w http://www.wolfgang-ehrhardt.de/misc_en.html#prng (bezpłatne i dostępne źródła). Istnieje również link do innego portu delphi na stronie autora, ale chciałbym iść z wersją "Wolfgang Ehrhardt". Znam jego stronę (http://www.wolfgang-ehrhardt.de/index.html) od wielu lat i od tego czasu aktualizuje on procedury pascal/delphi. Na pewno powinien to być ekspert!