Help language development. Donate to The Perl Foundation
Pure Perl 6 implementation of RSA public key encryption.
my $crypt = Crypt::RSA.new; my ($public,$private) = $crypt.generate-keys; my $message = 123456789; my $encrypted = $crypt.encrypt($message); my $decrypted = $crypt.decrypt($encrypted); my $message = 123456789; my $signature = $crypt.generate-signature($message); die unless $crypt.verify-signature($message,$signature);
This is a very simplistic implementation of the RSA algorithm for public key encryption.
By default, it relies on Perl 6 built-ins for randomness,
but the constructor takes two optional arguments:
random-prime-generator(UInt $digits)
and random-range-picker(Range $range)
that can be used instead. Any arguments to generate-keys
(such as the number of digits or number of bits) will be passed
on to random-prime-generator
.
use Crypt::Random; use Crypt::Random::Extra; my $crypt = Crypt::RSA.new( random-prime-generator => sub { crypt_random_prime() }, random-range-picker => sub ($range) { my $size = log($range, 10).Int; my $rand = crypt_random_uniform($range.max,$size); return $range[$rand]; } );