File Coverage

blib/lib/Crypt/Cipher/XTEA.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 5 5 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Crypt::Cipher::XTEA;
2              
3             ### BEWARE - GENERATED FILE, DO NOT EDIT MANUALLY!
4              
5 3     3   53116 use strict;
  3         13  
  3         75  
6 3     3   12 use warnings;
  3         5  
  3         107  
7             our $VERSION = '0.080';
8              
9 3     3   13 use base qw(Crypt::Cipher);
  3         5  
  3         724  
10              
11 2     2 1 110 sub blocksize { Crypt::Cipher::blocksize('XTEA') }
12 2     2 1 7 sub keysize { Crypt::Cipher::keysize('XTEA') }
13 2     2 1 11 sub max_keysize { Crypt::Cipher::max_keysize('XTEA') }
14 2     2 1 11 sub min_keysize { Crypt::Cipher::min_keysize('XTEA') }
15 2     2 1 10 sub default_rounds { Crypt::Cipher::default_rounds('XTEA') }
16              
17             1;
18              
19             =pod
20              
21             =head1 NAME
22              
23             Crypt::Cipher::XTEA - Symmetric cipher XTEA, key size: 128 bits
24              
25             =head1 SYNOPSIS
26              
27             ### example 1
28             use Crypt::Mode::CBC;
29              
30             my $key = '...'; # length has to be valid key size for this cipher
31             my $iv = '...'; # 16 bytes
32             my $cbc = Crypt::Mode::CBC->new('XTEA');
33             my $ciphertext = $cbc->encrypt("secret data", $key, $iv);
34              
35             ### example 2 (slower)
36             use Crypt::CBC;
37             use Crypt::Cipher::XTEA;
38              
39             my $key = '...'; # length has to be valid key size for this cipher
40             my $iv = '...'; # 16 bytes
41             my $cbc = Crypt::CBC->new( -cipher=>'Cipher::XTEA', -key=>$key, -iv=>$iv );
42             my $ciphertext = $cbc->encrypt("secret data");
43              
44             =head1 DESCRIPTION
45              
46             This module implements the XTEA cipher. Provided interface is compliant with L module.
47              
48             B This module implements just elementary "one-block-(en|de)cryption" operation - if you want to
49             encrypt/decrypt generic data you have to use some of the cipher block modes - check for example
50             L, L or L (which will be slower).
51              
52             =head1 METHODS
53              
54             =head2 new
55              
56             $c = Crypt::Cipher::XTEA->new($key);
57             #or
58             $c = Crypt::Cipher::XTEA->new($key, $rounds);
59              
60             =head2 encrypt
61              
62             $ciphertext = $c->encrypt($plaintext);
63              
64             =head2 decrypt
65              
66             $plaintext = $c->decrypt($ciphertext);
67              
68             =head2 keysize
69              
70             $c->keysize;
71             #or
72             Crypt::Cipher::XTEA->keysize;
73             #or
74             Crypt::Cipher::XTEA::keysize;
75              
76             =head2 blocksize
77              
78             $c->blocksize;
79             #or
80             Crypt::Cipher::XTEA->blocksize;
81             #or
82             Crypt::Cipher::XTEA::blocksize;
83              
84             =head2 max_keysize
85              
86             $c->max_keysize;
87             #or
88             Crypt::Cipher::XTEA->max_keysize;
89             #or
90             Crypt::Cipher::XTEA::max_keysize;
91              
92             =head2 min_keysize
93              
94             $c->min_keysize;
95             #or
96             Crypt::Cipher::XTEA->min_keysize;
97             #or
98             Crypt::Cipher::XTEA::min_keysize;
99              
100             =head2 default_rounds
101              
102             $c->default_rounds;
103             #or
104             Crypt::Cipher::XTEA->default_rounds;
105             #or
106             Crypt::Cipher::XTEA::default_rounds;
107              
108             =head1 SEE ALSO
109              
110             =over
111              
112             =item * L, L
113              
114             =item * L
115              
116             =back
117              
118             =cut