1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#!/usr/bin/env perl
use strict;
use warnings;
use Math::Prime::Util::GMP;
use Bytes::Random::XS;
use Bytes::Random;
use Bytes::Random::Secure;
use Math::Random::MTwist;
use Data::Entropy::Algorithms;
use Crypt::PRNG;
use Crypt::Random;
use Benchmark qw/:all/;
print "# 8 random bytes\n";
cmpthese(-5,{
"MPU" => sub { Math::Prime::Util::GMP::random_bytes(8); },
"BRXS" => sub { Bytes::Random::XS::random_bytes(8); },
"BR" => sub { Bytes::Random::random_bytes(8); },
"BRS" => sub { Bytes::Random::Secure::random_bytes(8); },
"MRMT" => sub { Math::Random::MTwist::_randstr(8); },
"DEA" => sub { Data::Entropy::Algorithms::rand_bits(8*8); },
"Crypt::PRNG" => sub { Crypt::PRNG::random_bytes(8); },
"rand" => sub { pack('C*', map { int(rand 256) } 1..8); },
"Crypt::Random" => sub { Crypt::Random::makerandom_octet(Length=>8,Strength=>0); },
});
print "# 256 random bytes\n";
cmpthese(-5,{
"MPU" => sub { Math::Prime::Util::GMP::random_bytes(256); },
"BRXS" => sub { Bytes::Random::XS::random_bytes(256); },
"BR" => sub { Bytes::Random::random_bytes(256); },
"BRS" => sub { Bytes::Random::Secure::random_bytes(256); },
"MRMT" => sub { Math::Random::MTwist::_randstr(256); },
"DEA" => sub { Data::Entropy::Algorithms::rand_bits(8*256); },
"CryptX" => sub { Crypt::PRNG::random_bytes(256); },
"rand" => sub { pack('C*', map { int(rand 256) } 1..256); },
"Crypt::Random" => sub { Crypt::Random::makerandom_octet(Length=>256,Strength=>0); },
});
print "# 16384 random bytes\n";
cmpthese(-5,{
"MPU" => sub { Math::Prime::Util::GMP::random_bytes(16384); },
"BRXS" => sub { Bytes::Random::XS::random_bytes(16384); },
"BR" => sub { Bytes::Random::random_bytes(16384); },
"BRS" => sub { Bytes::Random::Secure::random_bytes(16384); },
"MRMT" => sub { Math::Random::MTwist::_randstr(16384); },
"DEA" => sub { Data::Entropy::Algorithms::rand_bits(8*16384); },
"CryptX" => sub { Crypt::PRNG::random_bytes(16384); },
"rand" => sub { pack('C*', map { int(rand 256) } 1..16384); },
"Crypt::Random" => sub { Crypt::Random::makerandom_octet(Length=>16384,Strength=>0); },
});
|
