libcryptx-perl/lib/Crypt/PRNG/Fortuna.pm

161 lines
3.5 KiB
Perl
Raw Normal View History

2018-03-22 15:51:09 +01:00
package Crypt::PRNG::Fortuna;
use strict;
use warnings;
our $VERSION = '0.048';
use base qw(Crypt::PRNG Exporter);
our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();
use CryptX;
use base 'Crypt::PRNG';
{
### stolen from Bytes::Random::Secure
my $RNG_object = undef;
my $fetch_RNG = sub { # Lazily, instantiate the RNG object, but only once.
$RNG_object = Crypt::PRNG::Fortuna->new unless defined $RNG_object && ref($RNG_object) ne 'SCALAR';
return $RNG_object;
};
sub rand { return $fetch_RNG->()->double(@_) }
sub irand { return $fetch_RNG->()->int32(@_) }
sub random_bytes { return $fetch_RNG->()->bytes(@_) }
sub random_bytes_hex { return $fetch_RNG->()->bytes_hex(@_) }
sub random_bytes_b64 { return $fetch_RNG->()->bytes_b64(@_) }
sub random_bytes_b64u { return $fetch_RNG->()->bytes_b64u(@_) }
sub random_string_from { return $fetch_RNG->()->string_from(@_) }
sub random_string { return $fetch_RNG->()->string(@_) }
}
1;
=pod
=head1 NAME
Crypt::PRNG::Fortuna - Cryptographically secure PRNG based on Fortuna algorithm
=head1 SYNOPSIS
### Functional interface:
use Crypt::PRNG::Fortuna qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u
random_string random_string_from rand irand);
$octets = random_bytes(45);
$hex_string = random_bytes_hex(45);
$base64_string = random_bytes_b64(45);
$base64url_string = random_bytes_b64u(45);
$alphanumeric_string = random_string(30);
$string = random_string_from('ACGT', 64);
$floating_point_number_0_to_1 = rand;
$floating_point_number_0_to_88 = rand(88);
$unsigned_32bit_int = irand;
### OO interface:
use Crypt::PRNG::Fortuna;
$prng = Crypt::PRNG::Fortuna->new;
#or
$prng = Crypt::PRNG::Fortuna->new("some data used for seeding PRNG");
$octets = $prng->bytes(45);
$hex_string = $prng->bytes_hex(45);
$base64_string = $prng->bytes_b64(45);
$base64url_string = $prng->bytes_b64u(45);
$alphanumeric_string = $prng->string(30);
$string = $prng->string_from('ACGT', 64);
$floating_point_number_0_to_1 = rand;
$floating_point_number_0_to_88 = rand(88);
$unsigned_32bit_int = irand;
=head1 DESCRIPTION
Provides an interface to the Fortuna based pseudo random number generator
All methods and functions are the same as for L<Crypt::PRNG>.
=head1 FUNCTIONS
=head2 random_bytes
See L<Crypt::PRNG/random_bytes>.
=head2 random_bytes_hex
See L<Crypt::PRNG/random_bytes_hex>.
=head2 random_bytes_b64
See L<Crypt::PRNG/random_bytes_b64>.
=head2 random_bytes_b64u
See L<Crypt::PRNG/random_bytes_b64u>.
=head2 random_string
See L<Crypt::PRNG/random_string>.
=head2 random_string_from
See L<Crypt::PRNG/random_string_from>.
=head2 rand
See L<Crypt::PRNG/rand>.
=head2 irand
See L<Crypt::PRNG/irand>.
=head1 METHODS
=head2 new
See L<Crypt::PRNG/new>.
=head2 bytes
See L<Crypt::PRNG/bytes>.
=head2 bytes_hex
See L<Crypt::PRNG/bytes_hex>.
=head2 bytes_b64
See L<Crypt::PRNG/bytes_b64>.
=head2 bytes_b64u
See L<Crypt::PRNG/bytes_b64u>.
=head2 string
See L<Crypt::PRNG/string>.
=head2 string_from
See L<Crypt::PRNG/string_from>.
=head2 double
See L<Crypt::PRNG/double>.
=head2 int32
See L<Crypt::PRNG/int32>.
=head1 SEE ALSO
=over
=item * L<Crypt::PRNG>
=item * L<https://en.wikipedia.org/wiki/Fortuna_%28PRNG%29|https://en.wikipedia.org/wiki/Fortuna_%28PRNG%29>
=back