Dashboard
PHP:
8.1.34
OS:
Linux
User:
uid288609
/
/
usr
/
share
/
doc
/
libbytes-random-secure-perl
/
examples
📤 Upload
📝 New File
📁 New Folder
Close
Editing: random-sha512.pl
use strict; use warnings; use Bytes::Random::Secure qw( random_bytes ); use Digest::SHA qw( sha512_base64 ); my $quantity = 128; # Get a string of 128 random bytes. my $bytes = random_bytes($quantity); # And just for fun, generate a base64 encoding of a sha2-512 digest of the # random byte string. my $digest = sha512_base64( $bytes ); print "$digest\n";
Save
Cancel