If you're intending to encrypt larger blocks or entire files, please use Crypt::CBC in conjunction with this module.
Print unpack('H16', $ciphertext), '\n' NOTESĭo note that DES only uses 8 byte keys and only works on 8 byte data blocks. My $ciphertext = $cipher->encrypt('plaintex') # NB - 8 bytes This function decrypts $ciphertext and returns the $plaintext where $plaintext and $ciphertext should be of blocksize() bytes. My $plaintext = $cipher->decrypt($ciphertext) decrypt my $cipher = new Crypt::DES $key This function encrypts $plaintext and returns the $ciphertext where $plaintext and $ciphertext should be of blocksize() bytes. My $ciphertext = $cipher->encrypt($plaintext) encrypt my $cipher = new Crypt::DES $key This creates a new Crypt::DES BlockCipher object, using $key, where $key is a key of keysize() bytes. Returns the size (in bytes) of the block cipher. The module implements the Crypt::CBC interface, which has the following methods blocksize =item keysize =item encrypt =item decrypt FUNCTIONS blocksize Crypt::DES - Perl DES encryption module SYNOPSIS use Crypt::DES
