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

This program is free software, you can redistribute it and/or modify it under the same terms as Perl 5.10.