DOKK / manpages / debian 12 / libcryptx-perl / Crypt::Cipher::XTEA.3pm.en
Crypt::Cipher::XTEA(3pm) User Contributed Perl Documentation Crypt::Cipher::XTEA(3pm)

Crypt::Cipher::XTEA - Symmetric cipher XTEA, key size: 128 bits

  ### 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('XTEA');
  my $ciphertext = $cbc->encrypt("secret data", $key, $iv);
  ### example 2 (slower)
  use Crypt::CBC;
  use Crypt::Cipher::XTEA;
  my $key = '...'; # length has to be valid key size for this cipher
  my $iv = '...';  # 16 bytes
  my $cbc = Crypt::CBC->new( -cipher=>'Cipher::XTEA', -key=>$key, -iv=>$iv );
  my $ciphertext = $cbc->encrypt("secret data");

This module implements the XTEA cipher. Provided interface is compliant with Crypt::CBC module.

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 Crypt::Mode::CBC, Crypt::Mode::CTR or Crypt::CBC (which will be slower).

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

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

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

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

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

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

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

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

  • CryptX, Crypt::Cipher
  • <https://en.wikipedia.org/wiki/XTEA>
2022-10-19 perl v5.36.0