RNG_BytesWithPrompt

Generates a random set of byte data with a prompt to enter random keystrokes.

VB6/VBA

Debug.Print "Testing RNG_BytesWithPrompt ..."
Dim abData() As Byte
Dim nDataLen As Long

' Allocate byte array for 16 bytes
nDataLen = 16
ReDim abData(nDataLen - 1)

' Default prompt with default 112-bit security strength
Call RNG_BytesWithPrompt(abData(0), nDataLen, "", 0)
Debug.Print cnvHexStrFromBytes(abData)

' User-selected prompt with 128-bit security strength
Call RNG_BytesWithPrompt(abData(0), nDataLen, "Our own prompt: type until done...", PKI_RNG_STRENGTH_128)
Debug.Print cnvHexStrFromBytes(abData)

Output

Testing RNG_BytesWithPrompt ...
5CD848B8C19332DEC058FF42BE711B7E
3F14BE86284AA8DF4BB47E3A33FD45EC

VB.NET

Console.WriteLine("Testing RNG_BytesWithPrompt ...")
Dim abData() As Byte
Dim nDataLen As Integer

' Allocate byte array for 16 bytes
nDataLen = 16

' Default prompt with default 112-bit security strength
abData = Rng.BytesWithPrompt(nDataLen)
Console.WriteLine(Cnv.ToHex(abData))

' User-selected prompt with 128-bit security strength
abData = Rng.BytesWithPrompt(nDataLen, "Our own prompt: type until done...", Rng.Strength.Bits_128)
Console.WriteLine(Cnv.ToHex(abData))

[Contents]