8361     "

  8362 !

  8363 

  8364 primRtlGenRandomInto:buffer

  8365     "fill a given buffer with random bytes from the RtlGenRandom function"

  8366 

  8367 %{

  8368 //    BOOLEAN RtlGenRandom(

  8369 //      __out  PVOID RandomBuffer,

  8370 //      __in   ULONG RandomBufferLength

  8371 //    );

  8372     static BOOL (__stdcall *P_RtlGenRandom)(PVOID , ULONG) = 0;

  8373     unsigned char *__buffer;

  8374     int __bufferSize;

  8375 

  8376     if (__isString(buffer)) {

  8377         __buffer = __stringVal(buffer);

  8378         __bufferSize = __stringSize(buffer);

  8379     } else {

  8380         if (__isByteArray(buffer)) {

  8381             __buffer = __byteArrayVal(buffer);

  8382             __bufferSize = __byteArraySize(buffer);

  8383         } else {

  8384             goto error;

  8385         }

  8386     }

  8387 

  8388     if (P_RtlGenRandom == 0) {

  8389         HINSTANCE hAdvapi32 = LoadLibrary("advapi32.dll");

  8390         // console_printf("hAdvapi32: %x\n", hAdvapi32);

  8391         console_printf("hAdvapi32: %x\n", hAdvapi32);

  8392         if (hAdvapi32) {

  8393             P_RtlGenRandom = (BOOL (__stdcall *)(PVOID , ULONG))

  8394                                 GetProcAddress(hAdvapi32, "SystemFunction036");

  8395             console_printf("P_RtlGenRandom: %x\n", P_RtlGenRandom);

  8396             if (P_RtlGenRandom == 0) {

  8397                 goto error;

  8398             }

  8399         }

  8400     }

  8401     if ((*P_RtlGenRandom)(__buffer, __bufferSize)) {

  8402         RETURN (buffer);

  8403     }

  8404 error: ;

  8405 %}.

  8406     self primitiveFailed.

  8407     ^ nil

  8408 

  8409     "

  8410      Win32OperatingSystem 

  8411         primRtlGenRandomInto:(ByteArray new:4)