cvs: pear /Crypt_CBC CBC.php package.xml

cmv Thu Apr 25 10:50:06 2002 EDT Added files: /pear/Crypt_CBC CBC.php package.xml Log: import Crypt_CBC from /php4/pear

Index: pear/Crypt_CBC/CBC.php +++ pear/Crypt_CBC/CBC.php <?php // // +----------------------------------------------------------------------+ // | PHP version 4.0 | // +----------------------------------------------------------------------+ // | Copyright (c) 1997-2002 The PHP Group | // +----------------------------------------------------------------------+ // | This source file is subject to version 2.02 of the PHP license, | // | that is bundled with this package in the file LICENSE, and is | // | available at through the world-wide-web at | // | http://www.php.net/license/2_02.txt. | // | If you did not receive a copy of the PHP license and are unable to | // | obtain it through the world-wide-web, please send a note to | // | license@php.net so we can mail you a copy immediately. | // +----------------------------------------------------------------------+ // | Authors: Colin Viebrock <colin@easydns.com> | // +----------------------------------------------------------------------+ // // $Id: CBC.php,v 1.1 2002/04/25 14:50:06 cmv Exp $ // require_once 'PEAR.php'; /** * Class to emulate Perl's Crypt::CBC module * * Blowfish support is not completely working, mainly because of a bug * discovered in libmcrypt (version 2.4.8 and earlier). If you are running * a later version of libmcrypt > 2.4.8, you can do Blowfish encryption * that is compatable with Perl. However, check the libmcrypt documenation * as to whether you should use 'BLOWFISH' or 'BLOWFISH-COMPAT' when * specifying the cipher. * * If you are using libmcrypt <= 2.4.8, Blowfish encryption will work, * but your data will not be readable by Perl scripts. It will work * "internally" .. i.e. this class will be able to encode/decode the data. * * This class no longer works with libmcrypt 2.2.x versions. * * NOTE: the cipher names in this class may change depending on how * the author of libcrypt decides to name things internally. * * * @version $Revision: 1.1 $ * @author Colin Viebrock <colin@easydns.com> * @access public * @package Crypt */ class Crypt_CBC extends PEAR { /** * supported procedures * @var array */ var $known_ciphers = array ( 'DES' => MCRYPT_DES, 'BLOWFISH' => MCRYPT_BLOWFISH, 'BLOWFISH-COMPAT' => MCRYPT_BLOWFISH_COMPAT, ); /** * used cipher * @var string */ var $cipher; /** * crypt resource, for 2.4.x * @var string */ var $TD; /** * blocksize of cipher * @var string */ var $blocksize; /** * keysize of cipher * @var int */ var $keysize; /** * mangled key * @var string */ var $keyhash; /** * source type of the initialization vector for creation * possible types are MCRYPT_RAND or MCRYPT_DEV_URANDOM or MCRYPT_DEV_RANDOM * @var int */ var $rand_source = MCRYPT_RAND; /** * header * @var string */ var $header_spec = 'RandomIV'; /** * debugging * @var string */ var $_last_clear; /** * debugging * @var string */ var $_last_crypt; /** * Constructor * $key is the key to use for encryption. $cipher can be DES, BLOWFISH or * BLOWFISH-COMPAT * * @param $key encryption key * @param $cipher which algorithm to use, defaults to DES * * @return $return either a PEAR error or true * * @access public * */ function Crypt_CBC ($key, $cipher='DES') { if (!extension_loaded('mcrypt')) { return $this->raiseError('mcrypt module is not compiled into PHP', null, PEAR_ERROR_DIE, null, 'compile PHP using "--with-mcrypt"' ); } if (!function_exists('mcrypt_module_open')) { return $this->raiseError('libmcrypt is 2.2.x', null, PEAR_ERROR_DIE, null, 'this class only works with libmcrypt 2.4.x and later' ); } /* seed randomizer */ srand ((double)microtime()*1000000); /* initialize */ $this->header_spec = 'RandomIV'; /* check for key */ if (!$key) { return $this->raiseError('no key specified'); } /* check for cipher */ $cipher = strtoupper($cipher); if (!isset($this->known_ciphers[$cipher])) { return $this->raiseError('unknown cipher "'.$cipher.'"' ); } $this->cipher = $this->known_ciphers[$cipher]; /* initialize cipher */ $this->blocksize = mcrypt_get_block_size($this->cipher,'cbc'); $this->keysize = mcrypt_get_key_size($this->cipher,'cbc'); $this->TD = mcrypt_module_open ($this->cipher, '', 'ecb', ''); /* mangle key with MD5 */ $this->keyhash = $this->_md5perl($key); while( strlen($this->keyhash) < $this->keysize ) { $this->keyhash .= $this->_md5perl($this->keyhash); } $this->key = substr($this->keyhash, 0, $this->keysize); return true; } /** * Destructor * */ function _Crypt_CBC () { @mcrypt_generic_end($this->TD); @mcrypt_module_close($this->TD); } /** * Encryption method * * @param $clear plaintext * * @return $crypt encrypted text, or PEAR error * * @access public * */ function encrypt($clear) { $this->last_clear = $clear; /* new IV for each message */ $iv = mcrypt_create_iv($this->blocksize, $this->rand_source); /* create the message header */ $crypt = $this->header_spec . $iv; /* pad the cleartext */ $padsize = $this->blocksize - (strlen($clear) % $this->blocksize); $clear .= str_repeat(pack ('C*', $padsize), $padsize); /* do the encryption */ $start = 0; while ( $block = substr($clear, $start, $this->blocksize) ) { $start += $this->blocksize; if (mcrypt_generic_init($this->TD, $this->key, $iv) < 0 ) { return $this->raiseError('mcrypt_generic_init failed' ); } $cblock = mcrypt_generic($this->TD, $iv^$block ); $iv = $cblock; $crypt .= $cblock; } $this->last_crypt = $crypt; return $crypt; } /** * Decryption method * * @param $crypt encrypted text * * @return $clear plaintext, or PEAR error * * @access public * */ function decrypt($crypt) { $this->last_crypt = $crypt; /* get the IV from the message header */ $iv_offset = strlen($this->header_spec); $header = substr($crypt, 0, $iv_offset); $iv = substr ($crypt, $iv_offset, $this->blocksize); if ( $header != $this->header_spec ) { return $this->raiseError('no initialization vector'); } $crypt = substr($crypt, $iv_offset+$this->blocksize); /* decrypt the message */ $start = 0; $clear = ''; while ( $cblock = substr($crypt, $start, $this->blocksize) ) { $start += $this->blocksize; if (mcrypt_generic_init($this->TD, $this->key, $iv) < 0 ) { return $this->raiseError('mcrypt_generic_init failed' ); } $block = $iv ^ mdecrypt_generic($this->TD, $cblock); $iv = $cblock; $clear .= $block; } /* remove the padding from the end of the cleartext */ $padsize = ord(substr($clear, -1)); $clear = substr($clear, 0, -$padsize); $this->last_clear = $clear; return $clear; } /** * Emulate Perl's MD5 function, which returns binary data * * @param $string string to MD5 * * @return $hash binary hash * * @access private * */ function _md5perl($string) { return pack('H*', md5($string)); } } ?> Index: pear/Crypt_CBC/package.xml +++ pear/Crypt_CBC/package.xml <?xml version="1.0" encoding="ISO-8859-1" ?> <!DOCTYPE package SYSTEM "../package.dtd"> <!-- do not use the "Type" attribute here, that one is only for generated package.xml files --> <package version="1.0"> <name>Crypt_CBC</name> <summary>The PEAR::Crypt_CBC class to emulate Perl's Crypt::CBC module</summary> <maintainers> <maintainer> <user>cmv</user> <name>Colin Viebrock</name> <email>cmv@php.net</email> </maintainer> </maintainers> <release> <version>0.1</version> <date>2002-04-25</date> <notes> This is the initial independent release of the Crypt_CBC package. Some of the code probably needs to be PEAR-ified a bit more. </notes> <filelist> <dir name="/" baseinstalldir="Crypt"> <file role="php">CBC.php</file> </dir> </filelist> </release> </package>