/usr/lib/perl5/Crypt/Eksblowfish/Blowfish.pm is in libcrypt-eksblowfish-perl 0.009-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 | =head1 NAME
Crypt::Eksblowfish::Blowfish - Blowfish block cipher via Eksblowfish engine
=head1 SYNOPSIS
use Crypt::Eksblowfish::Blowfish;
$block_size = Crypt::Eksblowfish::Blowfish->blocksize;
$key_size = Crypt::Eksblowfish::Blowfish->keysize;
$cipher = Crypt::Eksblowfish::Blowfish->new($key);
$block_size = $cipher->blocksize;
$ciphertext = $cipher->encrypt($plaintext);
$plaintext = $cipher->decrypt($ciphertext);
$p_array = $cipher->p_array;
$s_boxes = $cipher->s_boxes;
if($cipher->is_weak) { ...
=head1 DESCRIPTION
An object of this type encapsulates a keyed instance of the Blowfish
block cipher, ready to encrypt and decrypt.
Blowfish is a symmetric cipher algorithm designed by Bruce Schneier
in 1993. It operates on 64-bit blocks, and takes a variable-length key
from 32 bits (4 octets) to 448 bits (56 octets) in increments of 8 bits
(1 octet).
This implementation of Blowfish uses an encryption engine that was
originally implemented in order to support Eksblowfish, which is a
variant of Blowfish modified to make keying particularly expensive.
See L<Crypt::Eksblowfish> for that variant; this class implements the
original Blowfish.
=cut
package Crypt::Eksblowfish::Blowfish;
{ use 5.006; }
use warnings;
use strict;
our $VERSION = "0.009";
use parent "Crypt::Eksblowfish::Subkeyed";
die "mismatched versions of Crypt::Eksblowfish modules"
unless $Crypt::Eksblowfish::Subkeyed::VERSION eq $VERSION;
=head1 CLASS METHODS
=over
=item Crypt::Eksblowfish::Blowfish->blocksize
Returns 8, indicating the Blowfish block size of 8 octets. This method
may be called on either the class or an instance.
=item Crypt::Eksblowfish::Blowfish->keysize
Returns 0, indicating that the key size is variable. This situation is
handled specially by C<Crypt::CBC>.
=back
=cut
sub keysize { 0 }
=head1 CONSTRUCTOR
=over
=item Crypt::Eksblowfish::Blowfish->new(KEY)
Performs key setup on a new instance of the Blowfish algorithm, returning
the keyed state. The KEY may be any length from 4 octets to 56 octets
inclusive.
You may occasionally come across an alleged Blowfish key that is outside
this length range, and so is rejected by this constructor. Blowfish
can internally process a key of any octet length up to 72 octets, and
some implementations don't enforce the official length restrictions.
If it is necessary for compatibility, a key of out-of-range length can
be processed by L<Crypt::Eksblowfish::Uklblowfish>.
=back
=head1 METHODS
=over
=item $cipher->blocksize
Returns 8, indicating the Blowfish block size of 8 octets. This method
may be called on either the class or an instance.
=item $cipher->encrypt(PLAINTEXT)
PLAINTEXT must be exactly eight octets. The block is encrypted, and
the ciphertext is returned.
=item $cipher->decrypt(CIPHERTEXT)
CIPHERTEXT must be exactly eight octets. The block is decrypted, and
the plaintext is returned.
=item $cipher->p_array
=item $cipher->s_boxes
These methods extract the subkeys from the keyed cipher.
This is not required in ordinary operation. See the superclass
L<Crypt::Eksblowfish::Subkeyed> for details.
=item $cipher->is_weak
This method checks whether the cipher has been keyed with a weak key.
It may be desired to avoid using weak keys. See the superclass
L<Crypt::Eksblowfish::Subkeyed> for details.
=back
=head1 SEE ALSO
L<Crypt::Eksblowfish>,
L<Crypt::Eksblowfish::Subkeyed>,
L<Crypt::Eksblowfish::Uklblowfish>,
L<http://www.schneier.com/blowfish.html>
=head1 AUTHOR
Eksblowfish guts originally by Solar Designer (solar at openwall.com).
Modifications and Perl interface by Andrew Main (Zefram)
<zefram@fysh.org>.
=head1 COPYRIGHT
Copyright (C) 2006, 2007, 2008, 2009, 2010, 2011
Andrew Main (Zefram) <zefram@fysh.org>
The original Eksblowfish code (in the form of crypt()) from which
this module is derived is in the public domain. It may be found at
L<http://www.openwall.com/crypt/>.
=head1 LICENSE
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
1;
|