Current Path : /proc/self/root/proc/2/root/proc/2/root/usr/OAuth-Lite-1.32/examples/ |
Current File : //proc/self/root/proc/2/root/proc/2/root/usr/OAuth-Lite-1.32/examples/generate_rsa_keys.pl |
#!/usr/bin/perl use strict; use warnings; use Crypt::OpenSSL::RSA; use Perl6::Say; my $rsa = Crypt::OpenSSL::RSA->generate_key(1024); say $rsa->get_public_key_string(); say $rsa->get_private_key_string();