Perl

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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $crypt = Chilkat2::Crypt2->new;

# 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');
my $s = $crypt->GenRandomBytesENC(8);
print 'Uppercase Hex: ', $s, "\n";

$crypt->EncodingMode('hex_lower');
$s = $crypt->GenRandomBytesENC(8);
print 'Lowercase Hex: ', $s, "\n";

$crypt->EncodingMode('base64');
$s = $crypt->GenRandomBytesENC(8);
print 'Base64: ', $s, "\n";

$crypt->EncodingMode('base64url');
$s = $crypt->GenRandomBytesENC(8);
print 'Base64Url: ', $s, "\n";

$crypt->EncodingMode('base58');
$s = $crypt->GenRandomBytesENC(8);
print 'Base58: ', $s, "\n";

$crypt->EncodingMode('base32');
$s = $crypt->GenRandomBytesENC(8);
print 'Base32: ', $s, "\n";

$crypt->EncodingMode('decList');
$s = $crypt->GenRandomBytesENC(8);
print 'Decimal List: ', $s, "\n";

# 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