home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Public.pm < prev    next >
Encoding:
Perl POD Document  |  2003-01-08  |  3.2 KB  |  165 lines
  1. #!/usr/bin/perl -sw
  2. ##
  3. ## Crypt::RSA::Key::Public
  4. ##
  5. ## Copyright (c) 2001, Vipul Ved Prakash.  All rights reserved.
  6. ## This code is free software; you can redistribute it and/or modify
  7. ## it under the same terms as Perl itself.
  8. ##
  9. ## $Id: Public.pm,v 1.8 2001/09/25 14:11:23 vipul Exp $
  10.  
  11. package Crypt::RSA::Key::Public;
  12. use lib qw(lib);
  13. use strict; 
  14. use vars qw($AUTOLOAD);
  15. use Crypt::RSA;
  16. use Carp;
  17. use Data::Dumper;
  18. use Crypt::RSA::Errorhandler;
  19. use Math::Pari qw(PARI pari2pv);
  20. use vars qw(@ISA);
  21. @ISA = qw(Crypt::RSA::Errorhandler);
  22.  
  23. sub new { 
  24.  
  25.     my ($class, %params) = @_; 
  26.     my $self    = { Version => $Crypt::RSA::Key::VERSION };
  27.     if ($params{Filename}) { 
  28.         bless $self, $class;
  29.         $self = $self->read (%params);
  30.         return bless $self, $class; 
  31.     } else { 
  32.         return bless $self, $class;
  33.     } 
  34.  
  35. } 
  36.  
  37.  
  38. sub AUTOLOAD { 
  39.     my ($self, $value) = @_;
  40.     my $key = $AUTOLOAD; $key =~ s/.*:://;
  41.     if ($key =~ /^n|e$/) { 
  42.         if (ref $value eq 'Math::Pari') { 
  43.             $self->{$key} = pari2pv($value)
  44.         } elsif ($value && !(ref $value)) { 
  45.             if ($value =~ /^0x/) { 
  46.                 $self->{$key} = pari2pv(Math::Pari::_hex_cvt($value));
  47.             } else { $self->{$key} = $value } 
  48.         }
  49.         my $return  = $self->{$key} || "";
  50.         $return = PARI("$return") if $return =~ /^\d+$/;
  51.         return $return;
  52.     } elsif ($key =~ /^Identity$/) { 
  53.         $self->{$key} = $value if $value;
  54.         return $self->{$key};
  55.     }
  56.         
  57. } 
  58.  
  59.  
  60. sub DESTROY { 
  61.  
  62.     my $self = shift; 
  63.     undef $self;
  64.  
  65. }
  66.  
  67.  
  68. sub check { 
  69.  
  70.     my $self = shift;
  71.     return $self->error ("Incomplete key.") unless $self->n && $self->e;
  72.     return 1;
  73.  
  74. }
  75.  
  76.  
  77. sub write { 
  78.  
  79.     my ($self, %params) = @_; 
  80.     $self->hide();
  81.     my $string = $self->serialize (%params); 
  82.     open DISK, ">$params{Filename}" || 
  83.         croak "Can't open $params{Filename} for writing.";
  84.     print DISK $string;
  85.     close DISK;
  86.  
  87. } 
  88.  
  89.  
  90. sub read { 
  91.     my ($self, %params) = @_;
  92.     open DISK, $params{Filename} or
  93.         croak "Can't open $params{Filename} to read.";
  94.     my @key = <DISK>; 
  95.     close DISK;
  96.     $self = $self->deserialize (String => \@key);
  97.     return $self;
  98. }
  99.  
  100.  
  101. sub serialize { 
  102.  
  103.     my ($self, %params) = @_;
  104.     return Dumper $self; 
  105.  
  106. } 
  107.  
  108.  
  109. sub deserialize { 
  110.  
  111.     my ($self, %params) = @_; 
  112.     my $string = join'', @{$params{String}}; 
  113.     $string =~ s/\$VAR1 =//;
  114.     $self = eval $string;
  115.     return $self;
  116.  
  117. }
  118.  
  119.     
  120. 1;
  121.  
  122. =head1 NAME
  123.  
  124. Crypt::RSA::Key::Public -- RSA Public Key Management.
  125.  
  126. =head1 SYNOPSIS
  127.  
  128.     $key = new Crypt::RSA::Key::Public; 
  129.     $key->write ( Filename => 'rsakeys/banquo.public' );
  130.  
  131.     $akey = new Crypt::RSA::Key::Public (
  132.                 Filename => 'rsakeys/banquo.public' 
  133.             );
  134.  
  135.  
  136. =head1 DESCRIPTION
  137.  
  138. Crypt::RSA::Key::Public provides basic key management functionality for
  139. Crypt::RSA public keys. Following methods are available:
  140.  
  141. =over 4
  142.  
  143. =item B<new()>
  144.  
  145. The constructor. Reads the public key from a disk file when called with a
  146. C<Filename> argument.
  147.  
  148. =item B<write()>
  149.  
  150. Writes a public key to disk when called with a C<Filename> argument.
  151.  
  152. =over
  153.  
  154. =head1 AUTHOR
  155.  
  156. Vipul Ved Prakash, E<lt>mail@vipul.netE<gt>
  157.  
  158. =head1 SEE ALSO
  159.  
  160. Crypt::RSA::Key(3), Crypt::RSA::Key::Private(3)
  161.  
  162. =cut
  163.  
  164.  
  165.