B4X

Example: Crypt2.GenRandomBytesENC method

Shows how to use the GenRandomBytesENC method to generate a specified number of random bytes and return them as a binary encoded string, such as in base64 or hex format. B4X

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

'  Example of a some of the binary encodings supported by Chilkat.

'  Internally uses the Fortuna cryptographically secure random number generation algorithm
'  auto-seeded from a secure source of entropy that depends on the OS.

crypt.EncodingMode = "hex"
Dim s As String = crypt.GenRandomBytesENC(8)
Log("Uppercase Hex: " & s)

crypt.EncodingMode = "hex_lower"
s = crypt.GenRandomBytesENC(8)
Log("Lowercase Hex: " & s)

crypt.EncodingMode = "base64"
s = crypt.GenRandomBytesENC(8)
Log("Base64: " & s)

crypt.EncodingMode = "base64url"
s = crypt.GenRandomBytesENC(8)
Log("Base64Url: " & s)

crypt.EncodingMode = "base58"
s = crypt.GenRandomBytesENC(8)
Log("Base58: " & s)

crypt.EncodingMode = "base32"
s = crypt.GenRandomBytesENC(8)
Log("Base32: " & s)

crypt.EncodingMode = "decList"
s = crypt.GenRandomBytesENC(8)
Log("Decimal List: " & s)

'  Sample Output:

'  Uppercase Hex: 1BA0E87915C3B429
'  Lowercase Hex: 1e1638a1c7996c58
'  Base64: 1lV0I/su5lg=
'  Base64Url: Zq7DU0nukLk
'  Base58: foUVWUjAT6e
'  Base32: LHV5RV4HRCLW2===
'  Decimal List: 168,55,214,82,93,154,191,164