Codebase list libcryptx-perl / upstream/0.070 lib / Crypt / Cipher / RC2.pm
upstream/0.070

Tree @upstream/0.070 (Download .tar.gz)

RC2.pm @upstream/0.070 — raw · history · blame 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
package Crypt::Cipher::RC2;

### BEWARE - GENERATED FILE, DO NOT EDIT MANUALLY!

use strict;
use warnings;
our $VERSION = '0.070';

use base qw(Crypt::Cipher);

sub blocksize      { Crypt::Cipher::blocksize('RC2')      }
sub keysize        { Crypt::Cipher::keysize('RC2')        }
sub max_keysize    { Crypt::Cipher::max_keysize('RC2')    }
sub min_keysize    { Crypt::Cipher::min_keysize('RC2')    }
sub default_rounds { Crypt::Cipher::default_rounds('RC2') }

1;

=pod

=head1 NAME

Crypt::Cipher::RC2 - Symmetric cipher RC2, key size: 40-1024 bits

=head1 SYNOPSIS

  ### example 1
  use Crypt::Mode::CBC;

  my $key = '...'; # length has to be valid key size for this cipher
  my $iv = '...';  # 16 bytes
  my $cbc = Crypt::Mode::CBC->new('RC2');
  my $ciphertext = $cbc->encrypt("secret data", $key, $iv);

  ### example 2 (slower)
  use Crypt::CBC;
  use Crypt::Cipher::RC2;

  my $key = '...'; # length has to be valid key size for this cipher
  my $iv = '...';  # 16 bytes
  my $cbc = Crypt::CBC->new( -cipher=>'Cipher::RC2', -key=>$key, -iv=>$iv );
  my $ciphertext = $cbc->encrypt("secret data");

=head1 DESCRIPTION

This module implements the RC2 cipher. Provided interface is compliant with L<Crypt::CBC|Crypt::CBC> module.

B<BEWARE:> This module implements just elementary "one-block-(en|de)cryption" operation - if you want to
encrypt/decrypt generic data you have to use some of the cipher block modes - check for example
L<Crypt::Mode::CBC|Crypt::Mode::CBC>, L<Crypt::Mode::CTR|Crypt::Mode::CTR> or L<Crypt::CBC|Crypt::CBC> (which will be slower).

=head1 METHODS

=head2 new

 $c = Crypt::Cipher::RC2->new($key);
 #or
 $c = Crypt::Cipher::RC2->new($key, $rounds);

=head2 encrypt

 $ciphertext = $c->encrypt($plaintext);

=head2 decrypt

 $plaintext = $c->decrypt($ciphertext);

=head2 keysize

  $c->keysize;
  #or
  Crypt::Cipher::RC2->keysize;
  #or
  Crypt::Cipher::RC2::keysize;

=head2 blocksize

  $c->blocksize;
  #or
  Crypt::Cipher::RC2->blocksize;
  #or
  Crypt::Cipher::RC2::blocksize;

=head2 max_keysize

  $c->max_keysize;
  #or
  Crypt::Cipher::RC2->max_keysize;
  #or
  Crypt::Cipher::RC2::max_keysize;

=head2 min_keysize

  $c->min_keysize;
  #or
  Crypt::Cipher::RC2->min_keysize;
  #or
  Crypt::Cipher::RC2::min_keysize;

=head2 default_rounds

  $c->default_rounds;
  #or
  Crypt::Cipher::RC2->default_rounds;
  #or
  Crypt::Cipher::RC2::default_rounds;

=head1 SEE ALSO

=over

=item * L<CryptX|CryptX>, L<Crypt::Cipher>

=item * L<https://en.wikipedia.org/wiki/RC2>

=back

=cut