/usr/share/php/Horde/Crypt/Blowfish/Php/Cbc.php is in php-horde-crypt-blowfish 1.1.1-1ubuntu1.
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 | <?php
/**
* Copyright 2005-2008 Matthew Fonda <mfonda@php.net>
* Copyright 2008 Philippe Jausions <jausions@php.net>
* Copyright 2012-2016 Horde LLC (http://www.horde.org/)
*
* See the enclosed file COPYING for license information (LGPL). If you
* did not receive this file, see http://www.horde.org/licenses/lgpl21.
*
* @category Horde
* @copyright 2005-2008 Matthew Fonda
* @copyright 2008 Philippe Jausions
* @copyright 2012-2016 Horde LLC
* @license http://www.horde.org/licenses/lgpl21 LGPL 2.1
* @package Crypt_Blowfish
*/
/**
* PHP implementation of the Blowfish algorithm in CBC mode.
*
* @author Matthew Fonda <mfonda@php.net>
* @author Philippe Jausions <jausions@php.net>
* @author Michael Slusarz <slusarz@horde.org>
* @category Horde
* @copyright 2005-2008 Matthew Fonda
* @copyright 2008 Philippe Jausions
* @copyright 2012-2016 Horde LLC
* @license http://www.horde.org/licenses/lgpl21 LGPL 2.1
* @package Crypt_Blowfish
*/
class Horde_Crypt_Blowfish_Php_Cbc extends Horde_Crypt_Blowfish_Php_Base
{
/**
*/
public function encrypt($text, $iv)
{
$cipherText = '';
$len = strlen($text);
list(, $Xl, $Xr) = unpack('N2', substr($text, 0, 8) ^ $iv);
$this->_encipher($Xl, $Xr);
$cipherText .= pack('N2', $Xl, $Xr);
for ($i = 8; $i < $len; $i += 8) {
list(, $Xl, $Xr) = unpack('N2', substr($text, $i, 8) ^ substr($cipherText, $i - 8, 8));
$this->_encipher($Xl, $Xr);
$cipherText .= pack('N2', $Xl, $Xr);
}
return $cipherText;
}
/**
*/
public function decrypt($text, $iv)
{
$plainText = '';
$len = strlen($text);
list(, $Xl, $Xr) = unpack('N2', substr($text, 0, 8));
$this->_decipher($Xl, $Xr);
$plainText .= (pack('N2', $Xl, $Xr) ^ $iv);
for ($i = 8; $i < $len; $i += 8) {
list(, $Xl, $Xr) = unpack('N2', substr($text, $i, 8));
$this->_decipher($Xl, $Xr);
$plainText .= (pack('N2', $Xl, $Xr) ^ substr($text, $i - 8, 8));
}
return $plainText;
}
}
|