view release on metacpan or  search on metacpan

Aut.pm  view on Meta::CPAN

    $self->{"ui"}->message(_T("Generating keys, this will take some time...")."($bits bits)");
    my $rsa = new Crypt::RSA;
    my ($public,$private) =$rsa->keygen(
					Identity => 'Aut module',
					Size => $bits,
					Password => "",
					Verbosity => 0
					) or die $rsa->errstr();


    my $private_str=private_key_to_string($private);
    $private_str="private,".$private_str;

    my $cipher=new Aut::Crypt($pass);
    $private_str=$cipher->encrypt($private_str);

    my $public_str=public_key_to_string($public);

    $public_str=$self->{"base64"}->encode($public_str);
    $private_str=$self->{"base64"}->encode($private_str);

Aut/Backend/Conf.pm  view on Meta::CPAN

=over 1

This method instantiates a new Aut::Backend::Conf object with
given L<Conf::Frontend> object. 

=back

=head2 Querying

=head3 C<get_keys() --E<gt> (list public_key:string private_key:string)>

=over 1

This function returns the currently stored RSA KeyPair in the backend,
or C<undef> if they do not exist.

=back

=head3 C<has_accounts() --E<gt> boolean>