This is a pure Perl implementation of the CAST5 block cipher.