NAME Crypt::SSSS - implementation of Shamir's Secret Sharing System. SYNOPSIS 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)); DESCRIPTION Implementation of Shamir's Secret Sharing Scheme. ATTRIBUTES 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. 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. AUTHOR Sergey Zasenko, "undef@cpan.org". CREDITS Mohammad S Anwar (MANWAR) COPYRIGHT AND LICENSE 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.