क्या डेल्फी के लिए कोई क्रिप्टोग्राफिक रूप से सुरक्षित पीआरएनजी पुस्तकालय हैं?

Question

क्या कोई डेल्फी (Win32) के लिए क्रिप्टोग्राफ़िक-सुरक्षित छद्म यादृच्छिक संख्या जेनरेटर लाइब्रेरी की सिफारिश कर सकता है?

नि: शुल्क या वाणिज्यिक हो सकता है, लेकिन आदर्श रूप से एक सक्रिय परियोजना होगी। मैं इसे स्रोत कोड शामिल करना चाहता हूं।

Answer 1

आप 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; 

उदाहरण:

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

ओपनएसएसएल एक संभावना होगी। स्रोत उपलब्ध है हालांकि मुझे पता नहीं है कि डेल्फी संस्करण उपलब्ध है या नहीं। इसमें cryptographically secure prng शामिल है। यह एक सक्रिय परियोजना है, लेकिन जो भी आप खोज रहे हैं उसके लिए यह अधिक हो सकता है।

Answer 3

आप मौजूदा Win32 CryptGenRandom() API का उपयोग कर सकते हैं।

Answer 4

Delphi Encryption Compendium (जो प्रसिद्ध-ish है जर्मन भाषी डेल्फी समुदाय में, लेकिन कहीं और - संभवतः चूंकि इसे आधिकारिक तौर पर प्रचारित नहीं किया जाता है) में क्रिप्टोग्राफ़िक रूप से सुरक्षित Yarrow RNG शामिल है।

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

मैं भी OpenSSL libraries सुझाव देने के लिए जा रहा था:

बस इकाई DECRandom (और शायद DECUtils) और इस तरह इसका इस्तेमाल (इस उदाहरण IInteger का उपयोग करता है, लेकिन यह अनिवार्य नहीं है) शामिल हैं। और आपको एन्क्रिप्शन, एसएसएल, हैशिंग इत्यादि भी शामिल हैं।
इंडी ने कई शीर्षकों को परिवर्तित कर दिया है और इसमें आरएND_स्क्रीन शामिल है - लेकिन यूआई के बिना प्रोग्रामों पर इसका उपयोग नहीं किया जा सकता है। दुर्भाग्य से यह अधिकांश RAND_ * वाले लोगों को याद करता है - लेकिन वे आयात और उपयोग करने में बहुत आसान हैं।
जैसे:

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'; 

तो कोड में

:

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; 

वही बीज मुद्दों के रूप में अभी भी विचार-विमर्श किया ज़ाहिर है, लागू होते हैं।

Answer 6

आईएसएएसी (संकेत, शिफ्ट, संचय, जोड़ें, और गणना), एक तेज पीआरएनजी और क्रिप्टोग्राफिक रूप से सुरक्षित (burtleburtle.net/bob/rand/isaacafa.html) देखें। शायद आईएसएएसी प्रसिद्ध मेर्सन ट्विस्टर पीआरएनजी जितनी तेजी से है।

वोल्फगैंग Ehrhardt इसहाक के लिए Pascal/Delphi बंदरगाह किया और http://www.wolfgang-ehrhardt.de/misc_en.html#prng (स्वतंत्र और उपलब्ध स्रोत) पर उपलब्ध है गया है। लेखक की साइट पर दिए गए एक अन्य डेल्फी बंदरगाह का एक लिंक भी है, लेकिन मैं "वुल्फगैंग एहरहार्ट" संस्करण के साथ जाऊंगा। मैं कई वर्षों से अपनी साइट (http://www.wolfgang-ehrhardt.de/index.html) जानता हूं, और तब से वह पास्कल/डेल्फी दिनचर्या के साथ अद्यतन कर रहा है। निश्चित रूप से इस पर एक विशेषज्ञ होना चाहिए!