1NAME 2 Crypt::TEA - Tiny Encryption Algorithm 3 4SYNOPSIS 5 use Crypt::TEA; 6 7 $cipher = Crypt::TEA->new($key); 8 9 $ciphertext = $cipher->encrypt($plaintext); 10 11 $plaintext = $cipher->decrypt($ciphertext); 12 13DESCRIPTION 14 TEA is a 64-bit symmetric block cipher with a 128-bit key 15 and a variable number of rounds (32 is recommended). It has a 16 low setup time, and depends on a large number of rounds for 17 security, rather than a complex algorithm. It was developed 18 by David J. Wheeler and Roger M. Needham, and is described at 19 https://web-beta.archive.org/web/20131226114205/http://www.ftp.cl.cam.ac.uk:80/ftp/papers/djw-rmn/djw-rmn-tea.html 20 21 This module implements TEA encryption. It supports the Crypt::CBC 22 interface, with the following functions. 23 24 Functions 25 26 blocksize 27 Returns the size (in bytes) of the block (8, in this case). 28 29 keysize 30 Returns the size (in bytes) of the key (16, in this case). 31 32 new($key, $rounds) 33 This creates a new Crypt::TEA object with the specified 34 key. The optional rounds parameter specifies the number of 35 rounds of encryption to perform, and defaults to 32. 36 37 encrypt($data) 38 Encrypts blocksize() bytes of $data and returns the 39 corresponding ciphertext. 40 41 decrypt($data) 42 Decrypts blocksize() bytes of $data and returns the 43 corresponding plaintext. 44 45SEE ALSO 46 https://web-beta.archive.org/web/20030208020932/http://www.vader.brad.ac.uk/tea/tea.shtml 47 48 Crypt::CBC, Crypt::Blowfish, Crypt::DES 49 50ACKNOWLEDGEMENTS 51 Dave Paris 52 For taking the time to discuss and review the initial 53 version of this module, making several useful suggestions, 54 and contributing tests. 55 56 Mike Blazer and Gil Cohen 57 For testing under Windows. 58 59 Tony Cook 60 For making the module work under Activeperl, testing on 61 several platforms, and suggesting that I probe for features 62 via %Config. 63 64AUTHOR 65 Abhijit Menon-Sen <ams@toroid.org> 66 67 Copyright 2001 Abhijit Menon-Sen. All rights reserved. 68 69 This software is distributed under the terms of the Artistic 70 License https://dev.perl.org/licenses/artistic.html 71