view release on metacpan or  search on metacpan

Changes.old  view on Meta::CPAN

 * Consolidate versioning to module version in Crypt::RSA::Version 
   (which is the reason for the version # jump)

 * "use base" instead of @ISA 

 * "use FindBin" instead of the literal "lib" - this is safer.


1.58                                                          Dec 21, 2006

 * We turn on binmode() on filehandles when reading and writing
   keys from disk, so allow safe exchange of SSH private keys
   from Windows and *nix systems. Thanks to Ulisses Gomes
   <ulisses@ibiz.com.br> for pointing this out.

 * Include a copy of the GPL in the distribution. This addresses
   bug #18771. (http://rt.cpan.org/Public/Bug/Display.html?id=18771)

 * Removed warnings from t/15-benchmark.t

1.57                                                          Oct 20, 2005

lib/Crypt/RSA/Key/Private.pm  view on Meta::CPAN

}


sub write {

    my ($self, %params) = @_;
    $self->hide();
    my $string = $self->serialize (%params);
    open(my $disk, '>', $params{Filename}) or
        croak "Can't open $params{Filename} for writing.";
    binmode $disk;
    print $disk $string;
    close $disk;

}


sub read {
    my ($self, %params) = @_;
    open(my $disk, '<', $params{Filename}) or
        croak "Can't open $params{Filename} to read.";
    binmode $disk;
    my @key = <$disk>;
    close $disk;
    $self = $self->deserialize (String => \@key);
    $self->reveal(%params);
    return $self;
}


sub serialize {

lib/Crypt/RSA/Key/Public.pm  view on Meta::CPAN

}


sub write {

    my ($self, %params) = @_;
    $self->hide();
    my $string = $self->serialize (%params);
    open(my $disk, '>', $params{Filename}) or
        croak "Can't open $params{Filename} for writing.";
    binmode $disk;
    print $disk $string;
    close $disk;

}


sub read {
    my ($self, %params) = @_;
    open(my $disk, '<', $params{Filename}) or
        croak "Can't open $params{Filename} to read.";
    binmode $disk;
    my @key = <$disk>;
    close $disk;
    $self = $self->deserialize (String => \@key);
    return $self;
}


sub serialize {

    my ($self, %params) = @_;