Crypt::SSSS - implementation of Shamir's Secret Sharing System.
use Crypt::SSSS; # use (3, 3) scheme my $shares = ssss_distribute( message => "\x06\x1c\x08", k => 3, ); # Save shares for my $share (1 .. 3) { open my $fh, '>', "share${share}.dat"; print $fh $shares->{$share}->binary; close $fh; } # Reconstruct message my $ishares = {}; for my $share (1 .. 3) { open my $fh, '<', "share${share}.dat"; $ishares->{$share} = do { local $/; # slurp! <$fh>; }; close $fh; } print "Original message: ", sprintf '"\x%02x\x%02x\x%02x"', unpack('C*', ssss_reconstruct(p => 257, shares => $ishares));
Implementation of Shamir's Secret Sharing Scheme.
Crypt::SSSS implements the following attributes.
ssss_distribute
my $shares = ssss_distribute( message => $message, k => $k, p => $p, # 257 by default n => $n, # By default equals to k );
Distribute $message to $n shares, so that any $k shares would be enough to reconstruct the secret. $p is a prime number.
$message
$n
$k
$p
Returns hashref of Crypt::SSSS::Message.
ssss_reconstruct
my $secret = ssss_reconstruct( shares => $shares, p => $p, # 257 by default );
Reconstruct message from given $shares. $p is a prime number used to distribute message.
$shares
Sergey Zasenko, undef@cpan.org.
undef@cpan.org
Copyright (C) 2011, 2016, Sergey Zasenko.
This program is free software, you can redistribute it and/or modify it under the same terms as Perl 5.10.
To install Crypt::SSSS, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Crypt::SSSS
CPAN shell
perl -MCPAN -e shell install Crypt::SSSS
For more information on module installation, please visit the detailed CPAN module installation guide.