Вход Регистрация
Файл: oc-includes/phpseclib/Crypt/RC2.php
Строк: 497
<?php

/**
 * Pure-PHP implementation of RC2.
 *
 * Uses mcrypt, if available, and an internal implementation, otherwise.
 *
 * PHP versions 4 and 5
 *
 * Useful resources are as follows:
 *
 *  - {@link http://tools.ietf.org/html/rfc2268}
 *
 * Here's a short example of how to use this library:
 * <code>
 * <?php
 *    include 'Crypt/RC2.php';
 *
 *    $rc2 = new Crypt_RC2();
 *
 *    $rc2->setKey('abcdefgh');
 *
 *    $plaintext = str_repeat('a', 1024);
 *
 *    echo $rc2->decrypt($rc2->encrypt($plaintext));
 * ?>
 * </code>
 *
 * LICENSE: Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 *
 * @category Crypt
 * @package  Crypt_RC2
 * @author   Patrick Monnerat <pm@datasphere.ch>
 * @license  http://www.opensource.org/licenses/mit-license.html  MIT License
 * @link     http://phpseclib.sourceforge.net
 */

/**
 * Include Crypt_Base
 *
 * Base cipher class
 */
if (!class_exists('Crypt_Base')) {
    include_once 
'Base.php';
}

/**#@+
 * @access public
 * @see Crypt_RC2::encrypt()
 * @see Crypt_RC2::decrypt()
 */
/**
 * Encrypt / decrypt using the Counter mode.
 *
 * Set to -1 since that's what Crypt/Random.php uses to index the CTR mode.
 *
 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Counter_.28CTR.29
 */
define('CRYPT_RC2_MODE_CTR'CRYPT_MODE_CTR);
/**
 * Encrypt / decrypt using the Electronic Code Book mode.
 *
 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Electronic_codebook_.28ECB.29
 */
define('CRYPT_RC2_MODE_ECB'CRYPT_MODE_ECB);
/**
 * Encrypt / decrypt using the Code Book Chaining mode.
 *
 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Cipher-block_chaining_.28CBC.29
 */
define('CRYPT_RC2_MODE_CBC'CRYPT_MODE_CBC);
/**
 * Encrypt / decrypt using the Cipher Feedback mode.
 *
 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Cipher_feedback_.28CFB.29
 */
define('CRYPT_RC2_MODE_CFB'CRYPT_MODE_CFB);
/**
 * Encrypt / decrypt using the Cipher Feedback mode.
 *
 * @link http://en.wikipedia.org/wiki/Block_cipher_modes_of_operation#Output_feedback_.28OFB.29
 */
define('CRYPT_RC2_MODE_OFB'CRYPT_MODE_OFB);
/**#@-*/

/**
 * Pure-PHP implementation of RC2.
 *
 * @package Crypt_RC2
 * @access  public
 */
class Crypt_RC2 extends Crypt_Base
{
    
/**
     * Block Length of the cipher
     *
     * @see Crypt_Base::block_size
     * @var Integer
     * @access private
     */
    
var $block_size 8;

    
/**
     * The Key
     *
     * @see Crypt_Base::key
     * @see setKey()
     * @var String
     * @access private
     */
    
var $key;

    
/**
     * The Original (unpadded) Key
     *
     * @see Crypt_Base::key
     * @see setKey()
     * @see encrypt()
     * @see decrypt()
     * @var String
     * @access private
     */
    
var $orig_key;

    
/**
     * The default password key_size used by setPassword()
     *
     * @see Crypt_Base::password_key_size
     * @see Crypt_Base::setPassword()
     * @var Integer
     * @access private
     */
    
var $password_key_size 16// = 128 bits

    /**
     * The namespace used by the cipher for its constants.
     *
     * @see Crypt_Base::const_namespace
     * @var String
     * @access private
     */
    
var $const_namespace 'RC2';

    
/**
     * The mcrypt specific name of the cipher
     *
     * @see Crypt_Base::cipher_name_mcrypt
     * @var String
     * @access private
     */
    
var $cipher_name_mcrypt 'rc2';

    
/**
     * Optimizing value while CFB-encrypting
     *
     * @see Crypt_Base::cfb_init_len
     * @var Integer
     * @access private
     */
    
var $cfb_init_len 500;

    
/**
     * The key length in bits.
     *
     * @see Crypt_RC2::setKeyLength()
     * @see Crypt_RC2::setKey()
     * @var Integer
     * @access private
     * @internal Should be in range [1..1024].
     * @internal Changing this value after setting the key has no effect.
     */
    
var $default_key_length 1024;

    
/**
     * The key length in bits.
     *
     * @see Crypt_RC2::isValidEnine()
     * @see Crypt_RC2::setKey()
     * @var Integer
     * @access private
     * @internal Should be in range [1..1024].
     */
    
var $current_key_length;

    
/**
     * The Key Schedule
     *
     * @see Crypt_RC2::_setupKey()
     * @var Array
     * @access private
     */
    
var $keys;

    
/**
     * Key expansion randomization table.
     * Twice the same 256-value sequence to save a modulus in key expansion.
     *
     * @see Crypt_RC2::setKey()
     * @var Array
     * @access private
     */
    
var $pitable = array(
        
0xD90x780xF90xC40x190xDD0xB50xED,
        
0x280xE90xFD0x790x4A0xA00xD80x9D,
        
0xC60x7E0x370x830x2B0x760x530x8E,
        
0x620x4C0x640x880x440x8B0xFB0xA2,
        
0x170x9A0x590xF50x870xB30x4F0x13,
        
0x610x450x6D0x8D0x090x810x7D0x32,
        
0xBD0x8F0x400xEB0x860xB70x7B0x0B,
        
0xF00x950x210x220x5C0x6B0x4E0x82,
        
0x540xD60x650x930xCE0x600xB20x1C,
        
0x730x560xC00x140xA70x8C0xF10xDC,
        
0x120x750xCA0x1F0x3B0xBE0xE40xD1,
        
0x420x3D0xD40x300xA30x3C0xB60x26,
        
0x6F0xBF0x0E0xDA0x460x690x070x57,
        
0x270xF20x1D0x9B0xBC0x940x430x03,
        
0xF80x110xC70xF60x900xEF0x3E0xE7,
        
0x060xC30xD50x2F0xC80x660x1E0xD7,
        
0x080xE80xEA0xDE0x800x520xEE0xF7,
        
0x840xAA0x720xAC0x350x4D0x6A0x2A,
        
0x960x1A0xD20x710x5A0x150x490x74,
        
0x4B0x9F0xD00x5E0x040x180xA40xEC,
        
0xC20xE00x410x6E0x0F0x510xCB0xCC,
        
0x240x910xAF0x500xA10xF40x700x39,
        
0x990x7C0x3A0x850x230xB80xB40x7A,
        
0xFC0x020x360x5B0x250x550x970x31,
        
0x2D0x5D0xFA0x980xE30x8A0x920xAE,
        
0x050xDF0x290x100x670x6C0xBA0xC9,
        
0xD30x000xE60xCF0xE10x9E0xA80x2C,
        
0x630x160x010x3F0x580xE20x890xA9,
        
0x0D0x380x340x1B0xAB0x330xFF0xB0,
        
0xBB0x480x0C0x5F0xB90xB10xCD0x2E,
        
0xC50xF30xDB0x470xE50xA50x9C0x77,
        
0x0A0xA60x200x680xFE0x7F0xC10xAD,
        
0xD90x780xF90xC40x190xDD0xB50xED,
        
0x280xE90xFD0x790x4A0xA00xD80x9D,
        
0xC60x7E0x370x830x2B0x760x530x8E,
        
0x620x4C0x640x880x440x8B0xFB0xA2,
        
0x170x9A0x590xF50x870xB30x4F0x13,
        
0x610x450x6D0x8D0x090x810x7D0x32,
        
0xBD0x8F0x400xEB0x860xB70x7B0x0B,
        
0xF00x950x210x220x5C0x6B0x4E0x82,
        
0x540xD60x650x930xCE0x600xB20x1C,
        
0x730x560xC00x140xA70x8C0xF10xDC,
        
0x120x750xCA0x1F0x3B0xBE0xE40xD1,
        
0x420x3D0xD40x300xA30x3C0xB60x26,
        
0x6F0xBF0x0E0xDA0x460x690x070x57,
        
0x270xF20x1D0x9B0xBC0x940x430x03,
        
0xF80x110xC70xF60x900xEF0x3E0xE7,
        
0x060xC30xD50x2F0xC80x660x1E0xD7,
        
0x080xE80xEA0xDE0x800x520xEE0xF7,
        
0x840xAA0x720xAC0x350x4D0x6A0x2A,
        
0x960x1A0xD20x710x5A0x150x490x74,
        
0x4B0x9F0xD00x5E0x040x180xA40xEC,
        
0xC20xE00x410x6E0x0F0x510xCB0xCC,
        
0x240x910xAF0x500xA10xF40x700x39,
        
0x990x7C0x3A0x850x230xB80xB40x7A,
        
0xFC0x020x360x5B0x250x550x970x31,
        
0x2D0x5D0xFA0x980xE30x8A0x920xAE,
        
0x050xDF0x290x100x670x6C0xBA0xC9,
        
0xD30x000xE60xCF0xE10x9E0xA80x2C,
        
0x630x160x010x3F0x580xE20x890xA9,
        
0x0D0x380x340x1B0xAB0x330xFF0xB0,
        
0xBB0x480x0C0x5F0xB90xB10xCD0x2E,
        
0xC50xF30xDB0x470xE50xA50x9C0x77,
        
0x0A0xA60x200x680xFE0x7F0xC10xAD
    
);

    
/**
     * Inverse key expansion randomization table.
     *
     * @see Crypt_RC2::setKey()
     * @var Array
     * @access private
     */
    
var $invpitable = array(
        
0xD10xDA0xB90x6F0x9C0xC80x780x66,
        
0x800x2C0xF80x370xEA0xE00x620xA4,
        
0xCB0x710x500x270x4B0x950xD90x20,
        
0x9D0x040x910xE30x470x6A0x7E0x53,
        
0xFA0x3A0x3B0xB40xA80xBC0x5F0x68,
        
0x080xCA0x8F0x140xD70xC00xEF0x7B,
        
0x5B0xBF0x2F0xE50xE20x8C0xBA0x12,
        
0xE10xAF0xB20x540x5D0x590x760xDB,
        
0x320xA20x580x6E0x1C0x290x640xF3,
        
0xE90x960x0C0x980x190x8D0x3E0x26,
        
0xAB0xA50x850x160x400xBD0x490x67,
        
0xDC0x220x940xBB0x3C0xC10x9B0xEB,
        
0x450x280x180xD80x1A0x420x7D0xCC,
        
0xFB0x650x8E0x3D0xCD0x2A0xA30x60,
        
0xAE0x930x8A0x480x970x510x150xF7,
        
0x010x0B0xB70x360xB10x2E0x110xFD,
        
0x840x2D0x3F0x130x880xB30x340x24,
        
0x1B0xDE0xC50x1D0x4D0x2B0x170x31,
        
0x740xA90xC60x430x6D0x390x900xBE,
        
0xC30xB00x210x6B0xF60x0F0xD50x99,
        
0x0D0xAC0x1F0x5C0x9E0xF50xF90x4C,
        
0xD60xDF0x890xE40x8B0xFF0xC70xAA,
        
0xE70xED0x460x250xB60x060x5E0x35,
        
0xB50xEC0xCE0xE80x6C0x300x550x61,
        
0x4A0xFE0xA00x790x030xF00x100x72,
        
0x7C0xCF0x520xA60xA70xEE0x440xD3,
        
0x9A0x570x920xD00x5A0x7A0x410x7F,
        
0x0E0x000x630xF20x4F0x050x830xC9,
        
0xA10xD40xDD0xC40x560xF40xD20x77,
        
0x810x090x820x330x9F0x070x860x75,
        
0x380x4E0x690xF10xAD0x230x730x87,
        
0x700x020xC20x1E0xB80x0A0xFC0xE6
    
);

    
/**
     * Default Constructor.
     *
     * Determines whether or not the mcrypt extension should be used.
     *
     * $mode could be:
     *
     * - CRYPT_RC2_MODE_ECB
     *
     * - CRYPT_RC2_MODE_CBC
     *
     * - CRYPT_RC2_MODE_CTR
     *
     * - CRYPT_RC2_MODE_CFB
     *
     * - CRYPT_RC2_MODE_OFB
     *
     * If not explicitly set, CRYPT_RC2_MODE_CBC will be used.
     *
     * @see Crypt_Base::Crypt_Base()
     * @param optional Integer $mode
     * @access public
     */
    
function Crypt_RC2($mode CRYPT_RC2_MODE_CBC)
    {
        
parent::Crypt_Base($mode);
    }

    
/**
     * Test for engine validity
     *
     * This is mainly just a wrapper to set things up for Crypt_Base::isValidEngine()
     *
     * @see Crypt_Base::Crypt_Base()
     * @param Integer $engine
     * @access public
     * @return Boolean
     */
    
function isValidEngine($engine)
    {
        switch (
$engine) {
            case 
CRYPT_ENGINE_OPENSSL:
                if (
$this->current_key_length != 128 || strlen($this->orig_key) != 16) {
                    return 
false;
                }
                
$this->cipher_name_openssl_ecb 'rc2-ecb';
                
$this->cipher_name_openssl 'rc2-' $this->_openssl_translate_mode();
        }

        return 
parent::isValidEngine($engine);
    }

    
/**
     * Sets the key length
     *
     * Valid key lengths are 1 to 1024.
     * Calling this function after setting the key has no effect until the next
     *  Crypt_RC2::setKey() call.
     *
     * @access public
     * @param Integer $length in bits
     */
    
function setKeyLength($length)
    {
        if (
$length >= && $length <= 1024) {
            
$this->default_key_length $length;
        }
    }

    
/**
     * Sets the key.
     *
     * Keys can be of any length. RC2, itself, uses 1 to 1024 bit keys (eg.
     * strlen($key) <= 128), however, we only use the first 128 bytes if $key
     * has more then 128 bytes in it, and set $key to a single null byte if
     * it is empty.
     *
     * If the key is not explicitly set, it'll be assumed to be a single
     * null byte.
     *
     * @see Crypt_Base::setKey()
     * @access public
     * @param String $key
     * @param Integer $t1 optional Effective key length in bits.
     */
    
function setKey($key$t1 0)
    {
        
$this->orig_key $key;

        if (
$t1 <= 0) {
            
$t1 $this->default_key_length;
        } elseif (
$t1 1024) {
            
$t1 1024;
        }
        
$this->current_key_length $t1;
        
// Key byte count should be 1..128.
        
$key strlen($key) ? substr($key0128) : "x00";
        
$t strlen($key);

        
// The mcrypt RC2 implementation only supports effective key length
        // of 1024 bits. It is however possible to handle effective key
        // lengths in range 1..1024 by expanding the key and applying
        // inverse pitable mapping to the first byte before submitting it
        // to mcrypt.

        // Key expansion.
        
$l array_values(unpack('C*'$key));
        
$t8 = ($t1 7) >> 3;
        
$tm 0xFF >> ($t8 $t1);

        
// Expand key.
        
$pitable $this->pitable;
        for (
$i $t$i 128$i++) {
            
$l[$i] = $pitable[$l[$i 1] + $l[$i $t]];
        }
        
$i 128 $t8;
        
$l[$i] = $pitable[$l[$i] & $tm];
        while (
$i--) {
            
$l[$i] = $pitable[$l[$i 1] ^ $l[$i $t8]];
        }

        
// Prepare the key for mcrypt.
        
$l[0] = $this->invpitable[$l[0]];
        
array_unshift($l'C*');
        
parent::setKey(call_user_func_array('pack'$l));
    }

    
/**
     * Encrypts a message.
     *
     * Mostly a wrapper for Crypt_Base::encrypt, with some additional OpenSSL handling code
     *
     * @see decrypt()
     * @access public
     * @param String $plaintext
     * @return String $ciphertext
     */
    
function encrypt($plaintext)
    {
        if (
$this->engine == CRYPT_ENGINE_OPENSSL) {
            
$temp $this->key;
            
$this->key $this->orig_key;
            
$result parent::encrypt($plaintext);
            
$this->key $temp;
            return 
$result;
        }

        return 
parent::encrypt($plaintext);
    }

    
/**
     * Decrypts a message.
     *
     * Mostly a wrapper for Crypt_Base::decrypt, with some additional OpenSSL handling code
     *
     * @see encrypt()
     * @access public
     * @param String $ciphertext
     * @return String $plaintext
     */
    
function decrypt($ciphertext)
    {
        if (
$this->engine == CRYPT_ENGINE_OPENSSL) {
            
$temp $this->key;
            
$this->key $this->orig_key;
            
$result parent::decrypt($ciphertext);
            
$this->key $temp;
            return 
$result;
        }

        return 
parent::encrypt($ciphertext);
    }

    
/**
     * Encrypts a block
     *
     * @see Crypt_Base::_encryptBlock()
     * @see Crypt_Base::encrypt()
     * @access private
     * @param String $in
     * @return String
     */
    
function _encryptBlock($in)
    {
        list(
$r0$r1$r2$r3) = array_values(unpack('v*'$in));
        
$keys $this->keys;
        
$limit 20;
        
$actions = array($limit => 4444 => 64);
        
$j 0;

        for (;;) {
            
// Mixing round.
            
$r0 = (($r0 $keys[$j++] + ((($r1 $r2) & $r3) ^ $r1)) & 0xFFFF) << 1;
            
$r0 |= $r0 >> 16;
            
$r1 = (($r1 $keys[$j++] + ((($r2 $r3) & $r0) ^ $r2)) & 0xFFFF) << 2;
            
$r1 |= $r1 >> 16;
            
$r2 = (($r2 $keys[$j++] + ((($r3 $r0) & $r1) ^ $r3)) & 0xFFFF) << 3;
            
$r2 |= $r2 >> 16;
            
$r3 = (($r3 $keys[$j++] + ((($r0 $r1) & $r2) ^ $r0)) & 0xFFFF) << 5;
            
$r3 |= $r3 >> 16;

            if (
$j === $limit) {
                if (
$limit === 64) {
                    break;
                }

                
// Mashing round.
                
$r0 += $keys[$r3 0x3F];
                
$r1 += $keys[$r0 0x3F];
                
$r2 += $keys[$r1 0x3F];
                
$r3 += $keys[$r2 0x3F];
                
$limit $actions[$limit];
            }
        }

        return 
pack('vvvv'$r0$r1$r2$r3);
    }

    
/**
     * Decrypts a block
     *
     * @see Crypt_Base::_decryptBlock()
     * @see Crypt_Base::decrypt()
     * @access private
     * @param String $in
     * @return String
     */
    
function _decryptBlock($in)
    {
        list(
$r0$r1$r2$r3) = array_values(unpack('v*'$in));
        
$keys $this->keys;
        
$limit 44;
        
$actions = array($limit => 2020 => 0);
        
$j 64;

        for (;;) {
            
// R-mixing round.
            
$r3 = ($r3 | ($r3 << 16)) >> 5;
            
$r3 = ($r3 $keys[--$j] - ((($r0 $r1) & $r2) ^ $r0)) & 0xFFFF;
            
$r2 = ($r2 | ($r2 << 16)) >> 3;
            
$r2 = ($r2 $keys[--$j] - ((($r3 $r0) & $r1) ^ $r3)) & 0xFFFF;
            
$r1 = ($r1 | ($r1 << 16)) >> 2;
            
$r1 = ($r1 $keys[--$j] - ((($r2 $r3) & $r0) ^ $r2)) & 0xFFFF;
            
$r0 = ($r0 | ($r0 << 16)) >> 1;
            
$r0 = ($r0 $keys[--$j] - ((($r1 $r2) & $r3) ^ $r1)) & 0xFFFF;

            if (
$j === $limit) {
                if (
$limit === 0) {
                    break;
                }

                
// R-mashing round.
                
$r3 = ($r3 $keys[$r2 0x3F]) & 0xFFFF;
                
$r2 = ($r2 $keys[$r1 0x3F]) & 0xFFFF;
                
$r1 = ($r1 $keys[$r0 0x3F]) & 0xFFFF;
                
$r0 = ($r0 $keys[$r3 0x3F]) & 0xFFFF;
                
$limit $actions[$limit];
            }
        }

        return 
pack('vvvv'$r0$r1$r2$r3);
    }

    
/**
     * Setup the CRYPT_ENGINE_MCRYPT $engine
     *
     * @see Crypt_Base::_setupMcrypt()
     * @access private
     */
    
function _setupMcrypt()
    {
        if (!isset(
$this->key)) {
            
$this->setKey('');
        }

        
parent::_setupMcrypt();
    }

    
/**
     * Creates the key schedule
     *
     * @see Crypt_Base::_setupKey()
     * @access private
     */
    
function _setupKey()
    {
        if (!isset(
$this->key)) {
            
$this->setKey('');
        }

        
// Key has already been expanded in Crypt_RC2::setKey():
        // Only the first value must be altered.
        
$l unpack('Ca/Cb/v*'$this->key);
        
array_unshift($l$this->pitable[$l['a']] | ($l['b'] << 8));
        unset(
$l['a']);
        unset(
$l['b']);
        
$this->keys $l;
    }

    
/**
     * Setup the performance-optimized function for de/encrypt()
     *
     * @see Crypt_Base::_setupInlineCrypt()
     * @access private
     */
    
function _setupInlineCrypt()
    {
        
$lambda_functions = &Crypt_RC2::_getLambdaFunctions();

        
// The first 10 generated $lambda_functions will use the $keys hardcoded as integers
        // for the mixing rounds, for better inline crypt performance [~20% faster].
        // But for memory reason we have to limit those ultra-optimized $lambda_functions to an amount of 10.
        // (Currently, for Crypt_RC2, one generated $lambda_function cost on php5.5@32bit ~60kb unfreeable mem and ~100kb on php5.5@64bit)
        
$gen_hi_opt_code = (bool)( count($lambda_functions) < 10 );

        
// Generation of a uniqe hash for our generated code
        
$code_hash "Crypt_RC2, {$this->mode}";
        if (
$gen_hi_opt_code) {
            
$code_hash str_pad($code_hash32) . $this->_hashInlineCryptFunction($this->key);
        }

        
// Is there a re-usable $lambda_functions in there?
        // If not, we have to create it.
        
if (!isset($lambda_functions[$code_hash])) {
            
// Init code for both, encrypt and decrypt.
            
$init_crypt '$keys = $self->keys;';

            switch (
true) {
                case 
$gen_hi_opt_code:
                    
$keys $this->keys;
                default:
                    
$keys = array();
                    foreach (
$this->keys as $k => $v) {
                        
$keys[$k] = '$keys[' $k ']';
                    }
            }

            
// $in is the current 8 bytes block which has to be en/decrypt
            
$encrypt_block $decrypt_block '
                $in = unpack("v4", $in);
                $r0 = $in[1];
                $r1 = $in[2];
                $r2 = $in[3];
                $r3 = $in[4];
            '
;

            
// Create code for encryption.
            
$limit 20;
            
$actions = array($limit => 4444 => 64);
            
$j 0;

            for (;;) {
                
// Mixing round.
                
$encrypt_block .= '
                    $r0 = (($r0 + ' 
$keys[$j++] . ' +
                           ((($r1 ^ $r2) & $r3) ^ $r1)) & 0xFFFF) << 1;
                    $r0 |= $r0 >> 16;
                    $r1 = (($r1 + ' 
$keys[$j++] . ' +
                           ((($r2 ^ $r3) & $r0) ^ $r2)) & 0xFFFF) << 2;
                    $r1 |= $r1 >> 16;
                    $r2 = (($r2 + ' 
$keys[$j++] . ' +
                           ((($r3 ^ $r0) & $r1) ^ $r3)) & 0xFFFF) << 3;
                    $r2 |= $r2 >> 16;
                    $r3 = (($r3 + ' 
$keys[$j++] . ' +
                           ((($r0 ^ $r1) & $r2) ^ $r0)) & 0xFFFF) << 5;
                    $r3 |= $r3 >> 16;'
;

                if (
$j === $limit) {
                    if (
$limit === 64) {
                        break;
                    }

                    
// Mashing round.
                    
$encrypt_block .= '
                        $r0 += $keys[$r3 & 0x3F];
                        $r1 += $keys[$r0 & 0x3F];
                        $r2 += $keys[$r1 & 0x3F];
                        $r3 += $keys[$r2 & 0x3F];'
;
                    
$limit $actions[$limit];
                }
            }

            
$encrypt_block .= '$in = pack("v4", $r0, $r1, $r2, $r3);';

            
// Create code for decryption.
            
$limit 44;
            
$actions = array($limit => 2020 => 0);
            
$j 64;

            for (;;) {
                
// R-mixing round.
                
$decrypt_block .= '
                    $r3 = ($r3 | ($r3 << 16)) >> 5;
                    $r3 = ($r3 - ' 
$keys[--$j] . ' -
                           ((($r0 ^ $r1) & $r2) ^ $r0)) & 0xFFFF;
                    $r2 = ($r2 | ($r2 << 16)) >> 3;
                    $r2 = ($r2 - ' 
$keys[--$j] . ' -
                           ((($r3 ^ $r0) & $r1) ^ $r3)) & 0xFFFF;
                    $r1 = ($r1 | ($r1 << 16)) >> 2;
                    $r1 = ($r1 - ' 
$keys[--$j] . ' -
                           ((($r2 ^ $r3) & $r0) ^ $r2)) & 0xFFFF;
                    $r0 = ($r0 | ($r0 << 16)) >> 1;
                    $r0 = ($r0 - ' 
$keys[--$j] . ' -
                           ((($r1 ^ $r2) & $r3) ^ $r1)) & 0xFFFF;'
;

                if (
$j === $limit) {
                    if (
$limit === 0) {
                        break;
                    }

                    
// R-mashing round.
                    
$decrypt_block .= '
                        $r3 = ($r3 - $keys[$r2 & 0x3F]) & 0xFFFF;
                        $r2 = ($r2 - $keys[$r1 & 0x3F]) & 0xFFFF;
                        $r1 = ($r1 - $keys[$r0 & 0x3F]) & 0xFFFF;
                        $r0 = ($r0 - $keys[$r3 & 0x3F]) & 0xFFFF;'
;
                    
$limit $actions[$limit];
                }
            }

            
$decrypt_block .= '$in = pack("v4", $r0, $r1, $r2, $r3);';

            
// Creates the inline-crypt function
            
$lambda_functions[$code_hash] = $this->_createInlineCryptFunction(
                array(
                   
'init_crypt'    => $init_crypt,
                   
'encrypt_block' => $encrypt_block,
                   
'decrypt_block' => $decrypt_block
                
)
            );
        }

        
// Set the inline-crypt function as callback in: $this->inline_crypt
        
$this->inline_crypt $lambda_functions[$code_hash];
    }
}
Онлайн: 2
Реклама