Current Path : /proc/2/cwd/usr/local/ssl/OAuth-Lite-1.32/examples/

Upload File :

Current File : //proc/2/cwd/usr/local/ssl/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();

Copyright 2K16 - 2K18 Indonesian Hacker Rulez