2018-03-22 15:51:09 +01:00
|
|
|
package Crypt::Cipher::Khazad;
|
|
|
|
|
|
|
|
### BEWARE - GENERATED FILE, DO NOT EDIT MANUALLY!
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
2018-03-22 15:54:03 +01:00
|
|
|
our $VERSION = '0.058_002';
|
2018-03-22 15:51:09 +01:00
|
|
|
|
2018-03-22 15:54:03 +01:00
|
|
|
use base qw(Crypt::Cipher);
|
2018-03-22 15:51:09 +01:00
|
|
|
|
2018-03-22 15:54:03 +01:00
|
|
|
sub blocksize { Crypt::Cipher::blocksize('Khazad') }
|
|
|
|
sub keysize { Crypt::Cipher::keysize('Khazad') }
|
|
|
|
sub max_keysize { Crypt::Cipher::max_keysize('Khazad') }
|
|
|
|
sub min_keysize { Crypt::Cipher::min_keysize('Khazad') }
|
|
|
|
sub default_rounds { Crypt::Cipher::default_rounds('Khazad') }
|
2018-03-22 15:51:09 +01:00
|
|
|
|
|
|
|
1;
|
|
|
|
|
|
|
|
=pod
|
|
|
|
|
|
|
|
=head1 NAME
|
|
|
|
|
2018-03-22 15:54:03 +01:00
|
|
|
Crypt::Cipher::Khazad - Symmetric cipher Khazad, key size: 128 bits (Crypt::CBC compliant)
|
2018-03-22 15:51:09 +01:00
|
|
|
|
|
|
|
=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('Khazad');
|
|
|
|
my $ciphertext = $cbc->encrypt("secret data", $key, $iv);
|
|
|
|
|
2018-03-22 15:54:03 +01:00
|
|
|
### example 2 (slower)
|
2018-03-22 15:51:09 +01:00
|
|
|
use Crypt::CBC;
|
|
|
|
use Crypt::Cipher::Khazad;
|
|
|
|
|
|
|
|
my $key = '...'; # length has to be valid key size for this cipher
|
|
|
|
my $iv = '...'; # 16 bytes
|
|
|
|
my $cbc = Crypt::CBC->new( -cipher=>'Cipher::Khazad', -key=>$key, -iv=>$iv );
|
|
|
|
my $ciphertext = $cbc->encrypt("secret data");
|
|
|
|
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
|
|
|
|
This module implements the Khazad 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::Khazad->new($key);
|
|
|
|
#or
|
|
|
|
$c = Crypt::Cipher::Khazad->new($key, $rounds);
|
|
|
|
|
|
|
|
=head2 encrypt
|
|
|
|
|
|
|
|
$ciphertext = $c->encrypt($plaintext);
|
|
|
|
|
|
|
|
=head2 decrypt
|
|
|
|
|
|
|
|
$plaintext = $c->decrypt($ciphertext);
|
|
|
|
|
|
|
|
=head2 keysize
|
|
|
|
|
|
|
|
$c->keysize;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad->keysize;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad::keysize;
|
|
|
|
|
|
|
|
=head2 blocksize
|
|
|
|
|
|
|
|
$c->blocksize;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad->blocksize;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad::blocksize;
|
|
|
|
|
|
|
|
=head2 max_keysize
|
|
|
|
|
|
|
|
$c->max_keysize;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad->max_keysize;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad::max_keysize;
|
|
|
|
|
|
|
|
=head2 min_keysize
|
|
|
|
|
|
|
|
$c->min_keysize;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad->min_keysize;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad::min_keysize;
|
|
|
|
|
|
|
|
=head2 default_rounds
|
|
|
|
|
|
|
|
$c->default_rounds;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad->default_rounds;
|
|
|
|
#or
|
|
|
|
Crypt::Cipher::Khazad::default_rounds;
|
|
|
|
|
|
|
|
=head1 SEE ALSO
|
|
|
|
|
|
|
|
=over
|
|
|
|
|
2018-03-22 15:54:03 +01:00
|
|
|
=item * L<CryptX|CryptX>, L<Crypt::Cipher>
|
2018-03-22 15:51:09 +01:00
|
|
|
|
2018-03-22 15:54:03 +01:00
|
|
|
=item * L<https://en.wikipedia.org/wiki/KHAZAD>
|
2018-03-22 15:51:09 +01:00
|
|
|
|
|
|
|
=back
|
|
|
|
|
|
|
|
=cut
|