securemail: update pgp library
Remove php-gpg, add openpgp-php and phpseclib. Add template file for settings. Add "send test" functionality. Add messages.po
This commit is contained in:
fabrixxm
parent
02b2fe9b10
commit
50f91a338c
|
|
@ -5,9 +5,7 @@ Send notification mails to user encrypted with GPG.
|
||||||
Each user can enable it and submit his public key under Settings-> Addon
|
Each user can enable it and submit his public key under Settings-> Addon
|
||||||
-> "Secure Mail" Settings.
|
-> "Secure Mail" Settings.
|
||||||
|
|
||||||
Use 'php-gpg' library, a pure PHP implementation of GPG/PGP, released
|
Use 'openpgp-php' library, a pure PHP implementation of GPG/PGP.
|
||||||
under GPL. See [project repo](https://github.com/jasonhinkle/php-gpg).
|
See [project repo](https://github.com/singpolyma/openpgp-php).
|
||||||
|
|
||||||
This plugin could have some problems with keys larger than 2048 ([see issue](https://github.com/jasonhinkle/php-gpg/issues/7))
|
|
||||||
|
|
||||||
Need Friendica version > 3.3.2 to work.
|
Need Friendica version > 3.3.2 to work.
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,159 @@
|
||||||
|
{
|
||||||
|
"_readme": [
|
||||||
|
"This file locks the dependencies of your project to a known state",
|
||||||
|
"Read more about it at https://getcomposer.org/doc/01-basic-usage.md#composer-lock-the-lock-file",
|
||||||
|
"This file is @generated automatically"
|
||||||
|
],
|
||||||
|
"content-hash": "d3271ed1002824abbeb24fd6d759b2d8",
|
||||||
|
"packages": [
|
||||||
|
{
|
||||||
|
"name": "phpseclib/phpseclib",
|
||||||
|
"version": "0.3.10",
|
||||||
|
"source": {
|
||||||
|
"type": "git",
|
||||||
|
"url": "https://github.com/phpseclib/phpseclib.git",
|
||||||
|
"reference": "d15bba1edcc7c89e09cc74c5d961317a8b947bf4"
|
||||||
|
},
|
||||||
|
"dist": {
|
||||||
|
"type": "zip",
|
||||||
|
"url": "https://api.github.com/repos/phpseclib/phpseclib/zipball/d15bba1edcc7c89e09cc74c5d961317a8b947bf4",
|
||||||
|
"reference": "d15bba1edcc7c89e09cc74c5d961317a8b947bf4",
|
||||||
|
"shasum": ""
|
||||||
|
},
|
||||||
|
"require": {
|
||||||
|
"php": ">=5.0.0"
|
||||||
|
},
|
||||||
|
"require-dev": {
|
||||||
|
"phing/phing": "~2.7",
|
||||||
|
"phpunit/phpunit": "~4.0",
|
||||||
|
"sami/sami": "~2.0",
|
||||||
|
"squizlabs/php_codesniffer": "~1.5"
|
||||||
|
},
|
||||||
|
"suggest": {
|
||||||
|
"ext-gmp": "Install the GMP (GNU Multiple Precision) extension in order to speed up arbitrary precision integer arithmetic operations.",
|
||||||
|
"ext-mcrypt": "Install the Mcrypt extension in order to speed up a wide variety of cryptographic operations.",
|
||||||
|
"pear-pear/PHP_Compat": "Install PHP_Compat to get phpseclib working on PHP < 4.3.3."
|
||||||
|
},
|
||||||
|
"type": "library",
|
||||||
|
"extra": {
|
||||||
|
"branch-alias": {
|
||||||
|
"dev-master": "0.3-dev"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"autoload": {
|
||||||
|
"psr-0": {
|
||||||
|
"Crypt": "phpseclib/",
|
||||||
|
"File": "phpseclib/",
|
||||||
|
"Math": "phpseclib/",
|
||||||
|
"Net": "phpseclib/",
|
||||||
|
"System": "phpseclib/"
|
||||||
|
},
|
||||||
|
"files": [
|
||||||
|
"phpseclib/Crypt/Random.php"
|
||||||
|
]
|
||||||
|
},
|
||||||
|
"notification-url": "https://packagist.org/downloads/",
|
||||||
|
"include-path": [
|
||||||
|
"phpseclib/"
|
||||||
|
],
|
||||||
|
"license": [
|
||||||
|
"MIT"
|
||||||
|
],
|
||||||
|
"authors": [
|
||||||
|
{
|
||||||
|
"name": "Jim Wigginton",
|
||||||
|
"email": "terrafrost@php.net",
|
||||||
|
"role": "Lead Developer"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"name": "Patrick Monnerat",
|
||||||
|
"email": "pm@datasphere.ch",
|
||||||
|
"role": "Developer"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"name": "Andreas Fischer",
|
||||||
|
"email": "bantu@phpbb.com",
|
||||||
|
"role": "Developer"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"name": "Hans-Jürgen Petrich",
|
||||||
|
"email": "petrich@tronic-media.com",
|
||||||
|
"role": "Developer"
|
||||||
|
}
|
||||||
|
],
|
||||||
|
"description": "PHP Secure Communications Library - Pure-PHP implementations of RSA, AES, SSH2, SFTP, X.509 etc.",
|
||||||
|
"homepage": "http://phpseclib.sourceforge.net",
|
||||||
|
"keywords": [
|
||||||
|
"BigInteger",
|
||||||
|
"aes",
|
||||||
|
"asn.1",
|
||||||
|
"asn1",
|
||||||
|
"blowfish",
|
||||||
|
"crypto",
|
||||||
|
"cryptography",
|
||||||
|
"encryption",
|
||||||
|
"rsa",
|
||||||
|
"security",
|
||||||
|
"sftp",
|
||||||
|
"signature",
|
||||||
|
"signing",
|
||||||
|
"ssh",
|
||||||
|
"twofish",
|
||||||
|
"x.509",
|
||||||
|
"x509"
|
||||||
|
],
|
||||||
|
"time": "2015-01-28T21:50:33+00:00"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"name": "singpolyma/openpgp-php",
|
||||||
|
"version": "0.2.0",
|
||||||
|
"source": {
|
||||||
|
"type": "git",
|
||||||
|
"url": "https://github.com/singpolyma/openpgp-php.git",
|
||||||
|
"reference": "f4fabd04e781a85d925ef794922fb867a0fbe99a"
|
||||||
|
},
|
||||||
|
"dist": {
|
||||||
|
"type": "zip",
|
||||||
|
"url": "https://api.github.com/repos/singpolyma/openpgp-php/zipball/f4fabd04e781a85d925ef794922fb867a0fbe99a",
|
||||||
|
"reference": "f4fabd04e781a85d925ef794922fb867a0fbe99a",
|
||||||
|
"shasum": ""
|
||||||
|
},
|
||||||
|
"require": {
|
||||||
|
"phpseclib/phpseclib": "~0.3"
|
||||||
|
},
|
||||||
|
"require-dev": {
|
||||||
|
"phpunit/phpunit": "~4.0"
|
||||||
|
},
|
||||||
|
"type": "library",
|
||||||
|
"autoload": {
|
||||||
|
"classmap": [
|
||||||
|
"lib/"
|
||||||
|
]
|
||||||
|
},
|
||||||
|
"notification-url": "https://packagist.org/downloads/",
|
||||||
|
"license": [
|
||||||
|
"Unlicense"
|
||||||
|
],
|
||||||
|
"authors": [
|
||||||
|
{
|
||||||
|
"name": "Arto Bendiken",
|
||||||
|
"email": "arto.bendiken@gmail.com"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"name": "Stephen Paul Weber",
|
||||||
|
"email": "singpolyma@singpolyma.net"
|
||||||
|
}
|
||||||
|
],
|
||||||
|
"description": "Pure-PHP implementation of the OpenPGP Message Format (RFC 4880)",
|
||||||
|
"time": "2015-08-14T18:15:15+00:00"
|
||||||
|
}
|
||||||
|
],
|
||||||
|
"packages-dev": [],
|
||||||
|
"aliases": [],
|
||||||
|
"minimum-stability": "stable",
|
||||||
|
"stability-flags": [],
|
||||||
|
"prefer-stable": false,
|
||||||
|
"prefer-lowest": false,
|
||||||
|
"platform": [],
|
||||||
|
"platform-dev": []
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,54 @@
|
||||||
|
# ADDON securemail
|
||||||
|
# Copyright (C)
|
||||||
|
# This file is distributed under the same license as the Friendica securemail addon package.
|
||||||
|
#
|
||||||
|
#
|
||||||
|
#, fuzzy
|
||||||
|
msgid ""
|
||||||
|
msgstr ""
|
||||||
|
"Project-Id-Version: \n"
|
||||||
|
"Report-Msgid-Bugs-To: \n"
|
||||||
|
"POT-Creation-Date: 2017-04-11 21:14+0200\n"
|
||||||
|
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
||||||
|
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
|
||||||
|
"Language-Team: LANGUAGE <LL@li.org>\n"
|
||||||
|
"Language: \n"
|
||||||
|
"MIME-Version: 1.0\n"
|
||||||
|
"Content-Type: text/plain; charset=UTF-8\n"
|
||||||
|
"Content-Transfer-Encoding: 8bit\n"
|
||||||
|
|
||||||
|
#: securemail.php:53
|
||||||
|
msgid "\"Secure Mail\" Settings"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: securemail.php:54
|
||||||
|
msgid "Save Settings"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: securemail.php:55 securemail.php:76
|
||||||
|
msgid "Save and send test"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: securemail.php:56
|
||||||
|
msgid "Enable Secure Mail"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: securemail.php:57
|
||||||
|
msgid "Public key"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: securemail.php:57
|
||||||
|
msgid "Your public PGP key, ascii armored format"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: securemail.php:74
|
||||||
|
msgid "Secure Mail Settings saved."
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: securemail.php:111
|
||||||
|
msgid "Test email sent"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: securemail.php:113
|
||||||
|
msgid "There was an error sending the test email"
|
||||||
|
msgstr ""
|
||||||
|
|
@ -1,39 +0,0 @@
|
||||||
php-gpg
|
|
||||||
=======
|
|
||||||
|
|
||||||
php-gpg is a pure PHP implementation of GPG/PGP (currently supports encryption only). The library does not require PGP/GPG binaries and should run on any platform that supports PHP.
|
|
||||||
|
|
||||||
This library is useful for encrypting data before it is sent over an insecure protocol (for example email). Messages encrypted with this library are compatible and can be decrypted by standard GPG/PGP clients.
|
|
||||||
|
|
||||||
Features/Limitations
|
|
||||||
--------------------
|
|
||||||
|
|
||||||
* Supports RSA, DSA public key length of 2,4,8,16,512,1024,2048 or 4096
|
|
||||||
* Currently supports only encrypt
|
|
||||||
|
|
||||||
Hey You! If you have a good understanding of public key encryption and want to implement signing or decryption your pull request would be welcome.
|
|
||||||
|
|
||||||
Usage
|
|
||||||
-----
|
|
||||||
|
|
||||||
```php
|
|
||||||
require_once 'libs/GPG.php';
|
|
||||||
|
|
||||||
$gpg = new GPG();
|
|
||||||
|
|
||||||
// create an instance of a GPG public key object based on ASCII key
|
|
||||||
$pub_key = new GPG_Public_Key($public_key_ascii);
|
|
||||||
|
|
||||||
// using the key, encrypt your plain text using the public key
|
|
||||||
$encrypted = $gpg->encrypt($pub_key,$plain_text_string);
|
|
||||||
|
|
||||||
echo $encrypted;
|
|
||||||
|
|
||||||
```
|
|
||||||
|
|
||||||
License
|
|
||||||
-------
|
|
||||||
|
|
||||||
GPL http://www.gnu.org/copyleft/gpl.html
|
|
||||||
|
|
||||||
I'd like to release this under a more permissive license, but since PGP & GPG itself are GPL, I think this library is likely bound to the terms of GPL as well.
|
|
||||||
|
|
@ -1,202 +0,0 @@
|
||||||
<?php
|
|
||||||
/** @package php-gpg */
|
|
||||||
|
|
||||||
/** require supporting files */
|
|
||||||
require_once("GPG/Expanded_Key.php");
|
|
||||||
require_once("GPG/Public_Key.php");
|
|
||||||
require_once("GPG/AES.php");
|
|
||||||
require_once("GPG/globals.php");
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Pure PHP implementation of PHP/GPG encryption.
|
|
||||||
* Supports RSA, DSA public key length of 2,4,8,16,512,1024,2048 or 4096
|
|
||||||
* Currently supports only encrypt
|
|
||||||
*
|
|
||||||
* @package php-gpg::Encryption
|
|
||||||
* @link http://www.verysimple.com/
|
|
||||||
* @copyright 1997-2012 VerySimple, Inc.
|
|
||||||
* @license http://www.gnu.org/licenses/gpl.html GPL
|
|
||||||
* @todo implement decryption
|
|
||||||
* @version 1.1
|
|
||||||
*
|
|
||||||
* @example
|
|
||||||
* require_once 'libs/GPG.php';
|
|
||||||
* $gpg = new GPG();
|
|
||||||
* $pub_key = new GPG_Public_Key($public_key_ascii);
|
|
||||||
* $encrypted = $gpg->encrypt($pub_key,$plain_text_string);
|
|
||||||
*/
|
|
||||||
class GPG
|
|
||||||
{
|
|
||||||
|
|
||||||
private $width = 16;
|
|
||||||
private $el = array(3, 5, 9, 17, 513, 1025, 2049, 4097);
|
|
||||||
private $version = "1.4.7";
|
|
||||||
|
|
||||||
private function gpg_encrypt($key, $text) {
|
|
||||||
|
|
||||||
$i = 0;
|
|
||||||
$len = strlen($text);
|
|
||||||
$iblock = array_fill(0, $this->width, 0);
|
|
||||||
$rblock = array_fill(0, $this->width, 0);
|
|
||||||
$ct = array_fill(0, $this->width + 2, 0);
|
|
||||||
|
|
||||||
$cipher = "";
|
|
||||||
|
|
||||||
if($len % $this->width) {
|
|
||||||
for($i = ($len % $this->width); $i < $this->width; $i++) $text .= "\0";
|
|
||||||
}
|
|
||||||
|
|
||||||
$ekey = new Expanded_Key($key);
|
|
||||||
|
|
||||||
for($i = 0; $i < $this->width; $i++) {
|
|
||||||
$iblock[$i] = 0;
|
|
||||||
$rblock[$i] = GPG_Utility::c_random();
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
$iblock = GPG_AES::encrypt($iblock, $ekey);
|
|
||||||
for($i = 0; $i < $this->width; $i++) {
|
|
||||||
$ct[$i] = ($iblock[$i] ^= $rblock[$i]);
|
|
||||||
}
|
|
||||||
|
|
||||||
$iblock = GPG_AES::encrypt($iblock, $ekey);
|
|
||||||
$ct[$this->width] = ($iblock[0] ^ $rblock[$this->width - 2]);
|
|
||||||
$ct[$this->width + 1] = ($iblock[1] ^ $rblock[$this->width - 1]);
|
|
||||||
|
|
||||||
for($i = 0; $i < $this->width + 2; $i++) $cipher .= chr($ct[$i]);
|
|
||||||
|
|
||||||
$iblock = array_slice($ct, 2, $this->width + 2);
|
|
||||||
|
|
||||||
for($n = 0; $n < strlen($text); $n += $this->width) {
|
|
||||||
$iblock = GPG_AES::encrypt($iblock, $ekey);
|
|
||||||
for($i = 0; $i < $this->width; $i++) {
|
|
||||||
$iblock[$i] ^= ord($text[$n + $i]);
|
|
||||||
$cipher .= chr($iblock[$i]);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return substr($cipher, 0, $len + $this->width + 2);
|
|
||||||
}
|
|
||||||
|
|
||||||
private function gpg_header($tag, $len)
|
|
||||||
{
|
|
||||||
$h = "";
|
|
||||||
if ($len < 0x100) {
|
|
||||||
$h .= chr($tag);
|
|
||||||
$h .= chr($len);
|
|
||||||
} else if ($len < 0x10000) {
|
|
||||||
$tag+=1;
|
|
||||||
$h .= chr($tag);
|
|
||||||
$h .= $this->writeNumber($len, 2);
|
|
||||||
} else {
|
|
||||||
$tag+=2;
|
|
||||||
$h .= chr($tag);
|
|
||||||
$h .= $this->writeNumber($len, 4);
|
|
||||||
}
|
|
||||||
return $h;
|
|
||||||
}
|
|
||||||
|
|
||||||
private function writeNumber($n, $bytes)
|
|
||||||
{
|
|
||||||
// credits for this function go to OpenPGP.js
|
|
||||||
$b = '';
|
|
||||||
for ($i = 0; $i < $bytes; $i++) {
|
|
||||||
$b .= chr(($n >> (8 * ($bytes - $i - 1))) & 0xff);
|
|
||||||
}
|
|
||||||
return $b;
|
|
||||||
}
|
|
||||||
|
|
||||||
private function gpg_session($key_id, $key_type, $session_key, $public_key)
|
|
||||||
{
|
|
||||||
|
|
||||||
$mod = array();
|
|
||||||
$exp = array();
|
|
||||||
$enc = "";
|
|
||||||
|
|
||||||
$s = base64_decode($public_key);
|
|
||||||
$l = floor((ord($s[0]) * 256 + ord($s[1]) + 7) / 8);
|
|
||||||
$mod = mpi2b(substr($s, 0, $l + 2));
|
|
||||||
if($key_type) {
|
|
||||||
$grp = array();
|
|
||||||
$y = array();
|
|
||||||
$B = array();
|
|
||||||
$C = array();
|
|
||||||
|
|
||||||
$l2 = floor((ord($s[$l + 2]) * 256 + ord($s[$l + 3]) + 7) / 8) + 2;
|
|
||||||
$grp = mpi2b(substr($s, $l + 2, $l2));
|
|
||||||
$y = mpi2b(substr($s, $l + 2 + $l2));
|
|
||||||
$exp[0] = $this->el[GPG_Utility::c_random() & 7];
|
|
||||||
$B = bmodexp($grp, $exp, $mod);
|
|
||||||
$C = bmodexp($y, $exp, $mod);
|
|
||||||
} else {
|
|
||||||
$exp = mpi2b(substr($s, $l + 2));
|
|
||||||
}
|
|
||||||
|
|
||||||
$c = 0;
|
|
||||||
$lsk = strlen($session_key);
|
|
||||||
for($i = 0; $i < $lsk; $i++) $c += ord($session_key[$i]);
|
|
||||||
$c &= 0xffff;
|
|
||||||
|
|
||||||
$lm = ($l - 2) * 8 + 2;
|
|
||||||
$m = chr($lm / 256) . chr($lm % 256) .
|
|
||||||
chr(2) . GPG_Utility::s_random($l - $lsk - 6, 1) . "\0" .
|
|
||||||
chr(7) . $session_key .
|
|
||||||
chr($c / 256) . chr($c & 0xff);
|
|
||||||
|
|
||||||
if($key_type) {
|
|
||||||
$enc = b2mpi($B) . b2mpi(bmod(bmul(mpi2b($m), $C), $mod));
|
|
||||||
return $this->gpg_header(0x84,strlen($enc) + 10) .
|
|
||||||
chr(3) . $key_id . chr(16) . $enc;
|
|
||||||
} else {
|
|
||||||
$enc = b2mpi(bmodexp(mpi2b($m), $exp, $mod));
|
|
||||||
return $this->gpg_header(0x84, strlen($enc) + 10) .
|
|
||||||
chr(3) . $key_id . chr(1) . $enc;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
private function gpg_literal($text)
|
|
||||||
{
|
|
||||||
if (strpos($text, "\r\n") === false)
|
|
||||||
$text = str_replace("\n", "\r\n", $text);
|
|
||||||
|
|
||||||
return
|
|
||||||
$this->gpg_header(0xac, strlen($text) + 10) . "t" .
|
|
||||||
chr(4) . "file\0\0\0\0" . $text;
|
|
||||||
}
|
|
||||||
|
|
||||||
private function gpg_data($key, $text)
|
|
||||||
{
|
|
||||||
$enc = $this->gpg_encrypt($key, $this->gpg_literal($text));
|
|
||||||
return $this->gpg_header(0xa4, strlen($enc)) . $enc;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* GPG Encypts a message to the provided public key
|
|
||||||
*
|
|
||||||
* @param GPG_Public_Key $pk
|
|
||||||
* @param string $plaintext
|
|
||||||
* @return string encrypted text
|
|
||||||
*/
|
|
||||||
function encrypt($pk, $plaintext)
|
|
||||||
{
|
|
||||||
// normalize the public key
|
|
||||||
$key_id = $pk->GetKeyId();
|
|
||||||
$key_type = $pk->GetKeyType();
|
|
||||||
$public_key = $pk->GetPublicKey();
|
|
||||||
|
|
||||||
$session_key = GPG_Utility::s_random($this->width, 0);
|
|
||||||
$key_id = GPG_Utility::hex2bin($key_id);
|
|
||||||
$cp = $this->gpg_session($key_id, $key_type, $session_key, $public_key) .
|
|
||||||
$this->gpg_data($session_key, $plaintext);
|
|
||||||
|
|
||||||
$code = base64_encode($cp);
|
|
||||||
$code = wordwrap($code, 64, "\n", 1);
|
|
||||||
|
|
||||||
return
|
|
||||||
"-----BEGIN PGP MESSAGE-----\nVersion: VerySimple PHP-GPG v".$this->version."\n\n" .
|
|
||||||
$code . "\n=" . base64_encode(GPG_Utility::crc24($cp)) .
|
|
||||||
"\n-----END PGP MESSAGE-----\n";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
?>
|
|
||||||
|
|
@ -1,63 +0,0 @@
|
||||||
<?php
|
|
||||||
/** @package php-gpg::GPG */
|
|
||||||
|
|
||||||
/** require supporting files */
|
|
||||||
require_once("Cipher.php");
|
|
||||||
|
|
||||||
/**
|
|
||||||
* @package php-gpg::GPG
|
|
||||||
*/
|
|
||||||
class GPG_AES
|
|
||||||
{
|
|
||||||
static function encrypt($block, $ctx)
|
|
||||||
{
|
|
||||||
$RCON = GPG_Cipher::$RCON;
|
|
||||||
$S = GPG_Cipher::$S;
|
|
||||||
|
|
||||||
$T1 = GPG_Cipher::$T1;
|
|
||||||
$T2 = GPG_Cipher::$T2;
|
|
||||||
$T3 = GPG_Cipher::$T3;
|
|
||||||
$T4 = GPG_Cipher::$T4;
|
|
||||||
|
|
||||||
$r = 0;
|
|
||||||
$t0 = 0;
|
|
||||||
$t1 = 0;
|
|
||||||
$t2 = 0;
|
|
||||||
$t3 = 0;
|
|
||||||
|
|
||||||
$b = GPG_Utility::pack_octets($block);
|
|
||||||
$rounds = $ctx->rounds;
|
|
||||||
$b0 = $b[0];
|
|
||||||
$b1 = $b[1];
|
|
||||||
$b2 = $b[2];
|
|
||||||
$b3 = $b[3];
|
|
||||||
|
|
||||||
for($r = 0; $r < $rounds - 1; $r++) {
|
|
||||||
$t0 = $b0 ^ $ctx->rk[$r][0];
|
|
||||||
$t1 = $b1 ^ $ctx->rk[$r][1];
|
|
||||||
$t2 = $b2 ^ $ctx->rk[$r][2];
|
|
||||||
$t3 = $b3 ^ $ctx->rk[$r][3];
|
|
||||||
|
|
||||||
$b0 = $T1[$t0 & 255] ^ $T2[($t1 >> 8) & 255] ^ $T3[($t2 >> 16) & 255] ^ $T4[GPG_Utility::zshift($t3, 24)];
|
|
||||||
$b1 = $T1[$t1 & 255] ^ $T2[($t2 >> 8) & 255] ^ $T3[($t3 >> 16) & 255] ^ $T4[GPG_Utility::zshift($t0, 24)];
|
|
||||||
$b2 = $T1[$t2 & 255] ^ $T2[($t3 >> 8) & 255] ^ $T3[($t0 >> 16) & 255] ^ $T4[GPG_Utility::zshift($t1, 24)];
|
|
||||||
$b3 = $T1[$t3 & 255] ^ $T2[($t0 >> 8) & 255] ^ $T3[($t1 >> 16) & 255] ^ $T4[GPG_Utility::zshift($t2, 24)];
|
|
||||||
}
|
|
||||||
|
|
||||||
$r = $rounds - 1;
|
|
||||||
|
|
||||||
$t0 = $b0 ^ $ctx->rk[$r][0];
|
|
||||||
$t1 = $b1 ^ $ctx->rk[$r][1];
|
|
||||||
$t2 = $b2 ^ $ctx->rk[$r][2];
|
|
||||||
$t3 = $b3 ^ $ctx->rk[$r][3];
|
|
||||||
|
|
||||||
$b[0] = GPG_Cipher::F1($t0, $t1, $t2, $t3) ^ $ctx->rk[$rounds][0];
|
|
||||||
$b[1] = GPG_Cipher::F1($t1, $t2, $t3, $t0) ^ $ctx->rk[$rounds][1];
|
|
||||||
$b[2] = GPG_Cipher::F1($t2, $t3, $t0, $t1) ^ $ctx->rk[$rounds][2];
|
|
||||||
$b[3] = GPG_Cipher::F1($t3, $t0, $t1, $t2) ^ $ctx->rk[$rounds][3];
|
|
||||||
|
|
||||||
return GPG_Utility::unpack_octets($b);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
?>
|
|
||||||
|
|
@ -1,335 +0,0 @@
|
||||||
<?php
|
|
||||||
/** @package php-gpg::GPG */
|
|
||||||
|
|
||||||
/** require supporting files */
|
|
||||||
require_once("Utility.php");
|
|
||||||
|
|
||||||
/**
|
|
||||||
* @package php-gpg::GPG
|
|
||||||
*/
|
|
||||||
class GPG_Cipher
|
|
||||||
{
|
|
||||||
/*
|
|
||||||
global $RCON;
|
|
||||||
global $S;
|
|
||||||
global $T1;
|
|
||||||
global $T2;
|
|
||||||
global $T3;
|
|
||||||
global $T4;
|
|
||||||
|
|
||||||
global $maxkc;
|
|
||||||
global $maxrk;
|
|
||||||
*/
|
|
||||||
|
|
||||||
static $maxkc = 8;
|
|
||||||
static $maxrk = 14;
|
|
||||||
|
|
||||||
static $RCON = array(
|
|
||||||
0x01, 0x02, 0x04, 0x08, 0x10, 0x20,
|
|
||||||
0x40, 0x80, 0x1b, 0x36, 0x6c, 0xd8,
|
|
||||||
0xab, 0x4d, 0x9a, 0x2f, 0x5e, 0xbc,
|
|
||||||
0x63, 0xc6, 0x97, 0x35, 0x6a, 0xd4,
|
|
||||||
0xb3, 0x7d, 0xfa, 0xef, 0xc5, 0x91
|
|
||||||
);
|
|
||||||
|
|
||||||
static $S = array(
|
|
||||||
99, 124, 119, 123, 242, 107, 111, 197, 48, 1, 103, 43, 254, 215, 171,
|
|
||||||
118, 202, 130, 201, 125, 250, 89, 71, 240, 173, 212, 162, 175, 156, 164,
|
|
||||||
114, 192, 183, 253, 147, 38, 54, 63, 247, 204, 52, 165, 229, 241, 113,
|
|
||||||
216, 49, 21, 4, 199, 35, 195, 24, 150, 5, 154, 7, 18, 128, 226,
|
|
||||||
235, 39, 178, 117, 9, 131, 44, 26, 27, 110, 90, 160, 82, 59, 214,
|
|
||||||
179, 41, 227, 47, 132, 83, 209, 0, 237, 32, 252, 177, 91, 106, 203,
|
|
||||||
190, 57, 74, 76, 88, 207, 208, 239, 170, 251, 67, 77, 51, 133, 69,
|
|
||||||
249, 2, 127, 80, 60, 159, 168, 81, 163, 64, 143, 146, 157, 56, 245,
|
|
||||||
188, 182, 218, 33, 16, 255, 243, 210, 205, 12, 19, 236, 95, 151, 68,
|
|
||||||
23, 196, 167, 126, 61, 100, 93, 25, 115, 96, 129, 79, 220, 34, 42,
|
|
||||||
144, 136, 70, 238, 184, 20, 222, 94, 11, 219, 224, 50, 58, 10, 73,
|
|
||||||
6, 36, 92, 194, 211, 172, 98, 145, 149, 228, 121, 231, 200, 55, 109,
|
|
||||||
141, 213, 78, 169, 108, 86, 244, 234, 101, 122, 174, 8, 186, 120, 37,
|
|
||||||
46, 28, 166, 180, 198, 232, 221, 116, 31, 75, 189, 139, 138, 112, 62,
|
|
||||||
181, 102, 72, 3, 246, 14, 97, 53, 87, 185, 134, 193, 29, 158, 225,
|
|
||||||
248, 152, 17, 105, 217, 142, 148, 155, 30, 135, 233, 206, 85, 40, 223,
|
|
||||||
140, 161, 137, 13, 191, 230, 66, 104, 65, 153, 45, 15, 176, 84, 187,
|
|
||||||
22
|
|
||||||
);
|
|
||||||
|
|
||||||
static $T1 = array(
|
|
||||||
0xa56363c6, 0x847c7cf8, 0x997777ee, 0x8d7b7bf6,
|
|
||||||
0x0df2f2ff, 0xbd6b6bd6, 0xb16f6fde, 0x54c5c591,
|
|
||||||
0x50303060, 0x03010102, 0xa96767ce, 0x7d2b2b56,
|
|
||||||
0x19fefee7, 0x62d7d7b5, 0xe6abab4d, 0x9a7676ec,
|
|
||||||
0x45caca8f, 0x9d82821f, 0x40c9c989, 0x877d7dfa,
|
|
||||||
0x15fafaef, 0xeb5959b2, 0xc947478e, 0x0bf0f0fb,
|
|
||||||
0xecadad41, 0x67d4d4b3, 0xfda2a25f, 0xeaafaf45,
|
|
||||||
0xbf9c9c23, 0xf7a4a453, 0x967272e4, 0x5bc0c09b,
|
|
||||||
0xc2b7b775, 0x1cfdfde1, 0xae93933d, 0x6a26264c,
|
|
||||||
0x5a36366c, 0x413f3f7e, 0x02f7f7f5, 0x4fcccc83,
|
|
||||||
0x5c343468, 0xf4a5a551, 0x34e5e5d1, 0x08f1f1f9,
|
|
||||||
0x937171e2, 0x73d8d8ab, 0x53313162, 0x3f15152a,
|
|
||||||
0x0c040408, 0x52c7c795, 0x65232346, 0x5ec3c39d,
|
|
||||||
0x28181830, 0xa1969637, 0x0f05050a, 0xb59a9a2f,
|
|
||||||
0x0907070e, 0x36121224, 0x9b80801b, 0x3de2e2df,
|
|
||||||
0x26ebebcd, 0x6927274e, 0xcdb2b27f, 0x9f7575ea,
|
|
||||||
0x1b090912, 0x9e83831d, 0x742c2c58, 0x2e1a1a34,
|
|
||||||
0x2d1b1b36, 0xb26e6edc, 0xee5a5ab4, 0xfba0a05b,
|
|
||||||
0xf65252a4, 0x4d3b3b76, 0x61d6d6b7, 0xceb3b37d,
|
|
||||||
0x7b292952, 0x3ee3e3dd, 0x712f2f5e, 0x97848413,
|
|
||||||
0xf55353a6, 0x68d1d1b9, 0x00000000, 0x2cededc1,
|
|
||||||
0x60202040, 0x1ffcfce3, 0xc8b1b179, 0xed5b5bb6,
|
|
||||||
0xbe6a6ad4, 0x46cbcb8d, 0xd9bebe67, 0x4b393972,
|
|
||||||
0xde4a4a94, 0xd44c4c98, 0xe85858b0, 0x4acfcf85,
|
|
||||||
0x6bd0d0bb, 0x2aefefc5, 0xe5aaaa4f, 0x16fbfbed,
|
|
||||||
0xc5434386, 0xd74d4d9a, 0x55333366, 0x94858511,
|
|
||||||
0xcf45458a, 0x10f9f9e9, 0x06020204, 0x817f7ffe,
|
|
||||||
0xf05050a0, 0x443c3c78, 0xba9f9f25, 0xe3a8a84b,
|
|
||||||
0xf35151a2, 0xfea3a35d, 0xc0404080, 0x8a8f8f05,
|
|
||||||
0xad92923f, 0xbc9d9d21, 0x48383870, 0x04f5f5f1,
|
|
||||||
0xdfbcbc63, 0xc1b6b677, 0x75dadaaf, 0x63212142,
|
|
||||||
0x30101020, 0x1affffe5, 0x0ef3f3fd, 0x6dd2d2bf,
|
|
||||||
0x4ccdcd81, 0x140c0c18, 0x35131326, 0x2fececc3,
|
|
||||||
0xe15f5fbe, 0xa2979735, 0xcc444488, 0x3917172e,
|
|
||||||
0x57c4c493, 0xf2a7a755, 0x827e7efc, 0x473d3d7a,
|
|
||||||
0xac6464c8, 0xe75d5dba, 0x2b191932, 0x957373e6,
|
|
||||||
0xa06060c0, 0x98818119, 0xd14f4f9e, 0x7fdcdca3,
|
|
||||||
0x66222244, 0x7e2a2a54, 0xab90903b, 0x8388880b,
|
|
||||||
0xca46468c, 0x29eeeec7, 0xd3b8b86b, 0x3c141428,
|
|
||||||
0x79dedea7, 0xe25e5ebc, 0x1d0b0b16, 0x76dbdbad,
|
|
||||||
0x3be0e0db, 0x56323264, 0x4e3a3a74, 0x1e0a0a14,
|
|
||||||
0xdb494992, 0x0a06060c, 0x6c242448, 0xe45c5cb8,
|
|
||||||
0x5dc2c29f, 0x6ed3d3bd, 0xefacac43, 0xa66262c4,
|
|
||||||
0xa8919139, 0xa4959531, 0x37e4e4d3, 0x8b7979f2,
|
|
||||||
0x32e7e7d5, 0x43c8c88b, 0x5937376e, 0xb76d6dda,
|
|
||||||
0x8c8d8d01, 0x64d5d5b1, 0xd24e4e9c, 0xe0a9a949,
|
|
||||||
0xb46c6cd8, 0xfa5656ac, 0x07f4f4f3, 0x25eaeacf,
|
|
||||||
0xaf6565ca, 0x8e7a7af4, 0xe9aeae47, 0x18080810,
|
|
||||||
0xd5baba6f, 0x887878f0, 0x6f25254a, 0x722e2e5c,
|
|
||||||
0x241c1c38, 0xf1a6a657, 0xc7b4b473, 0x51c6c697,
|
|
||||||
0x23e8e8cb, 0x7cdddda1, 0x9c7474e8, 0x211f1f3e,
|
|
||||||
0xdd4b4b96, 0xdcbdbd61, 0x868b8b0d, 0x858a8a0f,
|
|
||||||
0x907070e0, 0x423e3e7c, 0xc4b5b571, 0xaa6666cc,
|
|
||||||
0xd8484890, 0x05030306, 0x01f6f6f7, 0x120e0e1c,
|
|
||||||
0xa36161c2, 0x5f35356a, 0xf95757ae, 0xd0b9b969,
|
|
||||||
0x91868617, 0x58c1c199, 0x271d1d3a, 0xb99e9e27,
|
|
||||||
0x38e1e1d9, 0x13f8f8eb, 0xb398982b, 0x33111122,
|
|
||||||
0xbb6969d2, 0x70d9d9a9, 0x898e8e07, 0xa7949433,
|
|
||||||
0xb69b9b2d, 0x221e1e3c, 0x92878715, 0x20e9e9c9,
|
|
||||||
0x49cece87, 0xff5555aa, 0x78282850, 0x7adfdfa5,
|
|
||||||
0x8f8c8c03, 0xf8a1a159, 0x80898909, 0x170d0d1a,
|
|
||||||
0xdabfbf65, 0x31e6e6d7, 0xc6424284, 0xb86868d0,
|
|
||||||
0xc3414182, 0xb0999929, 0x772d2d5a, 0x110f0f1e,
|
|
||||||
0xcbb0b07b, 0xfc5454a8, 0xd6bbbb6d, 0x3a16162c
|
|
||||||
);
|
|
||||||
|
|
||||||
static $T2 = array(
|
|
||||||
0x6363c6a5, 0x7c7cf884, 0x7777ee99, 0x7b7bf68d,
|
|
||||||
0xf2f2ff0d, 0x6b6bd6bd, 0x6f6fdeb1, 0xc5c59154,
|
|
||||||
0x30306050, 0x01010203, 0x6767cea9, 0x2b2b567d,
|
|
||||||
0xfefee719, 0xd7d7b562, 0xabab4de6, 0x7676ec9a,
|
|
||||||
0xcaca8f45, 0x82821f9d, 0xc9c98940, 0x7d7dfa87,
|
|
||||||
0xfafaef15, 0x5959b2eb, 0x47478ec9, 0xf0f0fb0b,
|
|
||||||
0xadad41ec, 0xd4d4b367, 0xa2a25ffd, 0xafaf45ea,
|
|
||||||
0x9c9c23bf, 0xa4a453f7, 0x7272e496, 0xc0c09b5b,
|
|
||||||
0xb7b775c2, 0xfdfde11c, 0x93933dae, 0x26264c6a,
|
|
||||||
0x36366c5a, 0x3f3f7e41, 0xf7f7f502, 0xcccc834f,
|
|
||||||
0x3434685c, 0xa5a551f4, 0xe5e5d134, 0xf1f1f908,
|
|
||||||
0x7171e293, 0xd8d8ab73, 0x31316253, 0x15152a3f,
|
|
||||||
0x0404080c, 0xc7c79552, 0x23234665, 0xc3c39d5e,
|
|
||||||
0x18183028, 0x969637a1, 0x05050a0f, 0x9a9a2fb5,
|
|
||||||
0x07070e09, 0x12122436, 0x80801b9b, 0xe2e2df3d,
|
|
||||||
0xebebcd26, 0x27274e69, 0xb2b27fcd, 0x7575ea9f,
|
|
||||||
0x0909121b, 0x83831d9e, 0x2c2c5874, 0x1a1a342e,
|
|
||||||
0x1b1b362d, 0x6e6edcb2, 0x5a5ab4ee, 0xa0a05bfb,
|
|
||||||
0x5252a4f6, 0x3b3b764d, 0xd6d6b761, 0xb3b37dce,
|
|
||||||
0x2929527b, 0xe3e3dd3e, 0x2f2f5e71, 0x84841397,
|
|
||||||
0x5353a6f5, 0xd1d1b968, 0x00000000, 0xededc12c,
|
|
||||||
0x20204060, 0xfcfce31f, 0xb1b179c8, 0x5b5bb6ed,
|
|
||||||
0x6a6ad4be, 0xcbcb8d46, 0xbebe67d9, 0x3939724b,
|
|
||||||
0x4a4a94de, 0x4c4c98d4, 0x5858b0e8, 0xcfcf854a,
|
|
||||||
0xd0d0bb6b, 0xefefc52a, 0xaaaa4fe5, 0xfbfbed16,
|
|
||||||
0x434386c5, 0x4d4d9ad7, 0x33336655, 0x85851194,
|
|
||||||
0x45458acf, 0xf9f9e910, 0x02020406, 0x7f7ffe81,
|
|
||||||
0x5050a0f0, 0x3c3c7844, 0x9f9f25ba, 0xa8a84be3,
|
|
||||||
0x5151a2f3, 0xa3a35dfe, 0x404080c0, 0x8f8f058a,
|
|
||||||
0x92923fad, 0x9d9d21bc, 0x38387048, 0xf5f5f104,
|
|
||||||
0xbcbc63df, 0xb6b677c1, 0xdadaaf75, 0x21214263,
|
|
||||||
0x10102030, 0xffffe51a, 0xf3f3fd0e, 0xd2d2bf6d,
|
|
||||||
0xcdcd814c, 0x0c0c1814, 0x13132635, 0xececc32f,
|
|
||||||
0x5f5fbee1, 0x979735a2, 0x444488cc, 0x17172e39,
|
|
||||||
0xc4c49357, 0xa7a755f2, 0x7e7efc82, 0x3d3d7a47,
|
|
||||||
0x6464c8ac, 0x5d5dbae7, 0x1919322b, 0x7373e695,
|
|
||||||
0x6060c0a0, 0x81811998, 0x4f4f9ed1, 0xdcdca37f,
|
|
||||||
0x22224466, 0x2a2a547e, 0x90903bab, 0x88880b83,
|
|
||||||
0x46468cca, 0xeeeec729, 0xb8b86bd3, 0x1414283c,
|
|
||||||
0xdedea779, 0x5e5ebce2, 0x0b0b161d, 0xdbdbad76,
|
|
||||||
0xe0e0db3b, 0x32326456, 0x3a3a744e, 0x0a0a141e,
|
|
||||||
0x494992db, 0x06060c0a, 0x2424486c, 0x5c5cb8e4,
|
|
||||||
0xc2c29f5d, 0xd3d3bd6e, 0xacac43ef, 0x6262c4a6,
|
|
||||||
0x919139a8, 0x959531a4, 0xe4e4d337, 0x7979f28b,
|
|
||||||
0xe7e7d532, 0xc8c88b43, 0x37376e59, 0x6d6ddab7,
|
|
||||||
0x8d8d018c, 0xd5d5b164, 0x4e4e9cd2, 0xa9a949e0,
|
|
||||||
0x6c6cd8b4, 0x5656acfa, 0xf4f4f307, 0xeaeacf25,
|
|
||||||
0x6565caaf, 0x7a7af48e, 0xaeae47e9, 0x08081018,
|
|
||||||
0xbaba6fd5, 0x7878f088, 0x25254a6f, 0x2e2e5c72,
|
|
||||||
0x1c1c3824, 0xa6a657f1, 0xb4b473c7, 0xc6c69751,
|
|
||||||
0xe8e8cb23, 0xdddda17c, 0x7474e89c, 0x1f1f3e21,
|
|
||||||
0x4b4b96dd, 0xbdbd61dc, 0x8b8b0d86, 0x8a8a0f85,
|
|
||||||
0x7070e090, 0x3e3e7c42, 0xb5b571c4, 0x6666ccaa,
|
|
||||||
0x484890d8, 0x03030605, 0xf6f6f701, 0x0e0e1c12,
|
|
||||||
0x6161c2a3, 0x35356a5f, 0x5757aef9, 0xb9b969d0,
|
|
||||||
0x86861791, 0xc1c19958, 0x1d1d3a27, 0x9e9e27b9,
|
|
||||||
0xe1e1d938, 0xf8f8eb13, 0x98982bb3, 0x11112233,
|
|
||||||
0x6969d2bb, 0xd9d9a970, 0x8e8e0789, 0x949433a7,
|
|
||||||
0x9b9b2db6, 0x1e1e3c22, 0x87871592, 0xe9e9c920,
|
|
||||||
0xcece8749, 0x5555aaff, 0x28285078, 0xdfdfa57a,
|
|
||||||
0x8c8c038f, 0xa1a159f8, 0x89890980, 0x0d0d1a17,
|
|
||||||
0xbfbf65da, 0xe6e6d731, 0x424284c6, 0x6868d0b8,
|
|
||||||
0x414182c3, 0x999929b0, 0x2d2d5a77, 0x0f0f1e11,
|
|
||||||
0xb0b07bcb, 0x5454a8fc, 0xbbbb6dd6, 0x16162c3a
|
|
||||||
);
|
|
||||||
|
|
||||||
static $T3 = array(
|
|
||||||
0x63c6a563, 0x7cf8847c, 0x77ee9977, 0x7bf68d7b,
|
|
||||||
0xf2ff0df2, 0x6bd6bd6b, 0x6fdeb16f, 0xc59154c5,
|
|
||||||
0x30605030, 0x01020301, 0x67cea967, 0x2b567d2b,
|
|
||||||
0xfee719fe, 0xd7b562d7, 0xab4de6ab, 0x76ec9a76,
|
|
||||||
0xca8f45ca, 0x821f9d82, 0xc98940c9, 0x7dfa877d,
|
|
||||||
0xfaef15fa, 0x59b2eb59, 0x478ec947, 0xf0fb0bf0,
|
|
||||||
0xad41ecad, 0xd4b367d4, 0xa25ffda2, 0xaf45eaaf,
|
|
||||||
0x9c23bf9c, 0xa453f7a4, 0x72e49672, 0xc09b5bc0,
|
|
||||||
0xb775c2b7, 0xfde11cfd, 0x933dae93, 0x264c6a26,
|
|
||||||
0x366c5a36, 0x3f7e413f, 0xf7f502f7, 0xcc834fcc,
|
|
||||||
0x34685c34, 0xa551f4a5, 0xe5d134e5, 0xf1f908f1,
|
|
||||||
0x71e29371, 0xd8ab73d8, 0x31625331, 0x152a3f15,
|
|
||||||
0x04080c04, 0xc79552c7, 0x23466523, 0xc39d5ec3,
|
|
||||||
0x18302818, 0x9637a196, 0x050a0f05, 0x9a2fb59a,
|
|
||||||
0x070e0907, 0x12243612, 0x801b9b80, 0xe2df3de2,
|
|
||||||
0xebcd26eb, 0x274e6927, 0xb27fcdb2, 0x75ea9f75,
|
|
||||||
0x09121b09, 0x831d9e83, 0x2c58742c, 0x1a342e1a,
|
|
||||||
0x1b362d1b, 0x6edcb26e, 0x5ab4ee5a, 0xa05bfba0,
|
|
||||||
0x52a4f652, 0x3b764d3b, 0xd6b761d6, 0xb37dceb3,
|
|
||||||
0x29527b29, 0xe3dd3ee3, 0x2f5e712f, 0x84139784,
|
|
||||||
0x53a6f553, 0xd1b968d1, 0x00000000, 0xedc12ced,
|
|
||||||
0x20406020, 0xfce31ffc, 0xb179c8b1, 0x5bb6ed5b,
|
|
||||||
0x6ad4be6a, 0xcb8d46cb, 0xbe67d9be, 0x39724b39,
|
|
||||||
0x4a94de4a, 0x4c98d44c, 0x58b0e858, 0xcf854acf,
|
|
||||||
0xd0bb6bd0, 0xefc52aef, 0xaa4fe5aa, 0xfbed16fb,
|
|
||||||
0x4386c543, 0x4d9ad74d, 0x33665533, 0x85119485,
|
|
||||||
0x458acf45, 0xf9e910f9, 0x02040602, 0x7ffe817f,
|
|
||||||
0x50a0f050, 0x3c78443c, 0x9f25ba9f, 0xa84be3a8,
|
|
||||||
0x51a2f351, 0xa35dfea3, 0x4080c040, 0x8f058a8f,
|
|
||||||
0x923fad92, 0x9d21bc9d, 0x38704838, 0xf5f104f5,
|
|
||||||
0xbc63dfbc, 0xb677c1b6, 0xdaaf75da, 0x21426321,
|
|
||||||
0x10203010, 0xffe51aff, 0xf3fd0ef3, 0xd2bf6dd2,
|
|
||||||
0xcd814ccd, 0x0c18140c, 0x13263513, 0xecc32fec,
|
|
||||||
0x5fbee15f, 0x9735a297, 0x4488cc44, 0x172e3917,
|
|
||||||
0xc49357c4, 0xa755f2a7, 0x7efc827e, 0x3d7a473d,
|
|
||||||
0x64c8ac64, 0x5dbae75d, 0x19322b19, 0x73e69573,
|
|
||||||
0x60c0a060, 0x81199881, 0x4f9ed14f, 0xdca37fdc,
|
|
||||||
0x22446622, 0x2a547e2a, 0x903bab90, 0x880b8388,
|
|
||||||
0x468cca46, 0xeec729ee, 0xb86bd3b8, 0x14283c14,
|
|
||||||
0xdea779de, 0x5ebce25e, 0x0b161d0b, 0xdbad76db,
|
|
||||||
0xe0db3be0, 0x32645632, 0x3a744e3a, 0x0a141e0a,
|
|
||||||
0x4992db49, 0x060c0a06, 0x24486c24, 0x5cb8e45c,
|
|
||||||
0xc29f5dc2, 0xd3bd6ed3, 0xac43efac, 0x62c4a662,
|
|
||||||
0x9139a891, 0x9531a495, 0xe4d337e4, 0x79f28b79,
|
|
||||||
0xe7d532e7, 0xc88b43c8, 0x376e5937, 0x6ddab76d,
|
|
||||||
0x8d018c8d, 0xd5b164d5, 0x4e9cd24e, 0xa949e0a9,
|
|
||||||
0x6cd8b46c, 0x56acfa56, 0xf4f307f4, 0xeacf25ea,
|
|
||||||
0x65caaf65, 0x7af48e7a, 0xae47e9ae, 0x08101808,
|
|
||||||
0xba6fd5ba, 0x78f08878, 0x254a6f25, 0x2e5c722e,
|
|
||||||
0x1c38241c, 0xa657f1a6, 0xb473c7b4, 0xc69751c6,
|
|
||||||
0xe8cb23e8, 0xdda17cdd, 0x74e89c74, 0x1f3e211f,
|
|
||||||
0x4b96dd4b, 0xbd61dcbd, 0x8b0d868b, 0x8a0f858a,
|
|
||||||
0x70e09070, 0x3e7c423e, 0xb571c4b5, 0x66ccaa66,
|
|
||||||
0x4890d848, 0x03060503, 0xf6f701f6, 0x0e1c120e,
|
|
||||||
0x61c2a361, 0x356a5f35, 0x57aef957, 0xb969d0b9,
|
|
||||||
0x86179186, 0xc19958c1, 0x1d3a271d, 0x9e27b99e,
|
|
||||||
0xe1d938e1, 0xf8eb13f8, 0x982bb398, 0x11223311,
|
|
||||||
0x69d2bb69, 0xd9a970d9, 0x8e07898e, 0x9433a794,
|
|
||||||
0x9b2db69b, 0x1e3c221e, 0x87159287, 0xe9c920e9,
|
|
||||||
0xce8749ce, 0x55aaff55, 0x28507828, 0xdfa57adf,
|
|
||||||
0x8c038f8c, 0xa159f8a1, 0x89098089, 0x0d1a170d,
|
|
||||||
0xbf65dabf, 0xe6d731e6, 0x4284c642, 0x68d0b868,
|
|
||||||
0x4182c341, 0x9929b099, 0x2d5a772d, 0x0f1e110f,
|
|
||||||
0xb07bcbb0, 0x54a8fc54, 0xbb6dd6bb, 0x162c3a16
|
|
||||||
);
|
|
||||||
|
|
||||||
static $T4 = array(
|
|
||||||
0xc6a56363, 0xf8847c7c, 0xee997777, 0xf68d7b7b,
|
|
||||||
0xff0df2f2, 0xd6bd6b6b, 0xdeb16f6f, 0x9154c5c5,
|
|
||||||
0x60503030, 0x02030101, 0xcea96767, 0x567d2b2b,
|
|
||||||
0xe719fefe, 0xb562d7d7, 0x4de6abab, 0xec9a7676,
|
|
||||||
0x8f45caca, 0x1f9d8282, 0x8940c9c9, 0xfa877d7d,
|
|
||||||
0xef15fafa, 0xb2eb5959, 0x8ec94747, 0xfb0bf0f0,
|
|
||||||
0x41ecadad, 0xb367d4d4, 0x5ffda2a2, 0x45eaafaf,
|
|
||||||
0x23bf9c9c, 0x53f7a4a4, 0xe4967272, 0x9b5bc0c0,
|
|
||||||
0x75c2b7b7, 0xe11cfdfd, 0x3dae9393, 0x4c6a2626,
|
|
||||||
0x6c5a3636, 0x7e413f3f, 0xf502f7f7, 0x834fcccc,
|
|
||||||
0x685c3434, 0x51f4a5a5, 0xd134e5e5, 0xf908f1f1,
|
|
||||||
0xe2937171, 0xab73d8d8, 0x62533131, 0x2a3f1515,
|
|
||||||
0x080c0404, 0x9552c7c7, 0x46652323, 0x9d5ec3c3,
|
|
||||||
0x30281818, 0x37a19696, 0x0a0f0505, 0x2fb59a9a,
|
|
||||||
0x0e090707, 0x24361212, 0x1b9b8080, 0xdf3de2e2,
|
|
||||||
0xcd26ebeb, 0x4e692727, 0x7fcdb2b2, 0xea9f7575,
|
|
||||||
0x121b0909, 0x1d9e8383, 0x58742c2c, 0x342e1a1a,
|
|
||||||
0x362d1b1b, 0xdcb26e6e, 0xb4ee5a5a, 0x5bfba0a0,
|
|
||||||
0xa4f65252, 0x764d3b3b, 0xb761d6d6, 0x7dceb3b3,
|
|
||||||
0x527b2929, 0xdd3ee3e3, 0x5e712f2f, 0x13978484,
|
|
||||||
0xa6f55353, 0xb968d1d1, 0x00000000, 0xc12ceded,
|
|
||||||
0x40602020, 0xe31ffcfc, 0x79c8b1b1, 0xb6ed5b5b,
|
|
||||||
0xd4be6a6a, 0x8d46cbcb, 0x67d9bebe, 0x724b3939,
|
|
||||||
0x94de4a4a, 0x98d44c4c, 0xb0e85858, 0x854acfcf,
|
|
||||||
0xbb6bd0d0, 0xc52aefef, 0x4fe5aaaa, 0xed16fbfb,
|
|
||||||
0x86c54343, 0x9ad74d4d, 0x66553333, 0x11948585,
|
|
||||||
0x8acf4545, 0xe910f9f9, 0x04060202, 0xfe817f7f,
|
|
||||||
0xa0f05050, 0x78443c3c, 0x25ba9f9f, 0x4be3a8a8,
|
|
||||||
0xa2f35151, 0x5dfea3a3, 0x80c04040, 0x058a8f8f,
|
|
||||||
0x3fad9292, 0x21bc9d9d, 0x70483838, 0xf104f5f5,
|
|
||||||
0x63dfbcbc, 0x77c1b6b6, 0xaf75dada, 0x42632121,
|
|
||||||
0x20301010, 0xe51affff, 0xfd0ef3f3, 0xbf6dd2d2,
|
|
||||||
0x814ccdcd, 0x18140c0c, 0x26351313, 0xc32fecec,
|
|
||||||
0xbee15f5f, 0x35a29797, 0x88cc4444, 0x2e391717,
|
|
||||||
0x9357c4c4, 0x55f2a7a7, 0xfc827e7e, 0x7a473d3d,
|
|
||||||
0xc8ac6464, 0xbae75d5d, 0x322b1919, 0xe6957373,
|
|
||||||
0xc0a06060, 0x19988181, 0x9ed14f4f, 0xa37fdcdc,
|
|
||||||
0x44662222, 0x547e2a2a, 0x3bab9090, 0x0b838888,
|
|
||||||
0x8cca4646, 0xc729eeee, 0x6bd3b8b8, 0x283c1414,
|
|
||||||
0xa779dede, 0xbce25e5e, 0x161d0b0b, 0xad76dbdb,
|
|
||||||
0xdb3be0e0, 0x64563232, 0x744e3a3a, 0x141e0a0a,
|
|
||||||
0x92db4949, 0x0c0a0606, 0x486c2424, 0xb8e45c5c,
|
|
||||||
0x9f5dc2c2, 0xbd6ed3d3, 0x43efacac, 0xc4a66262,
|
|
||||||
0x39a89191, 0x31a49595, 0xd337e4e4, 0xf28b7979,
|
|
||||||
0xd532e7e7, 0x8b43c8c8, 0x6e593737, 0xdab76d6d,
|
|
||||||
0x018c8d8d, 0xb164d5d5, 0x9cd24e4e, 0x49e0a9a9,
|
|
||||||
0xd8b46c6c, 0xacfa5656, 0xf307f4f4, 0xcf25eaea,
|
|
||||||
0xcaaf6565, 0xf48e7a7a, 0x47e9aeae, 0x10180808,
|
|
||||||
0x6fd5baba, 0xf0887878, 0x4a6f2525, 0x5c722e2e,
|
|
||||||
0x38241c1c, 0x57f1a6a6, 0x73c7b4b4, 0x9751c6c6,
|
|
||||||
0xcb23e8e8, 0xa17cdddd, 0xe89c7474, 0x3e211f1f,
|
|
||||||
0x96dd4b4b, 0x61dcbdbd, 0x0d868b8b, 0x0f858a8a,
|
|
||||||
0xe0907070, 0x7c423e3e, 0x71c4b5b5, 0xccaa6666,
|
|
||||||
0x90d84848, 0x06050303, 0xf701f6f6, 0x1c120e0e,
|
|
||||||
0xc2a36161, 0x6a5f3535, 0xaef95757, 0x69d0b9b9,
|
|
||||||
0x17918686, 0x9958c1c1, 0x3a271d1d, 0x27b99e9e,
|
|
||||||
0xd938e1e1, 0xeb13f8f8, 0x2bb39898, 0x22331111,
|
|
||||||
0xd2bb6969, 0xa970d9d9, 0x07898e8e, 0x33a79494,
|
|
||||||
0x2db69b9b, 0x3c221e1e, 0x15928787, 0xc920e9e9,
|
|
||||||
0x8749cece, 0xaaff5555, 0x50782828, 0xa57adfdf,
|
|
||||||
0x038f8c8c, 0x59f8a1a1, 0x09808989, 0x1a170d0d,
|
|
||||||
0x65dabfbf, 0xd731e6e6, 0x84c64242, 0xd0b86868,
|
|
||||||
0x82c34141, 0x29b09999, 0x5a772d2d, 0x1e110f0f,
|
|
||||||
0x7bcbb0b0, 0xa8fc5454, 0x6dd6bbbb, 0x2c3a1616
|
|
||||||
);
|
|
||||||
|
|
||||||
static function F1($x0, $x1, $x2, $x3)
|
|
||||||
{
|
|
||||||
$T1 = GPG_Cipher::$T1;
|
|
||||||
|
|
||||||
return
|
|
||||||
GPG_Utility::B1($T1[$x0 & 0xff]) | (GPG_Utility::B1($T1[($x1 >> 0x8) & 0xff]) << 0x8) |
|
|
||||||
(GPG_Utility::B1($T1[($x2 >> 0x10) & 0xff]) << 0x10) | (GPG_Utility::B1($T1[GPG_Utility::zshift($x3, 0x18)]) << 0x18);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
}
|
|
||||||
?>
|
|
||||||
|
|
@ -1,105 +0,0 @@
|
||||||
<?php
|
|
||||||
/** @package php-gpg::GPG */
|
|
||||||
|
|
||||||
/** require supporting files */
|
|
||||||
require_once("Cipher.php");
|
|
||||||
|
|
||||||
/**
|
|
||||||
* @package php-gpg::GPG
|
|
||||||
*/
|
|
||||||
class Expanded_Key {
|
|
||||||
var $rounds;
|
|
||||||
var $rk;
|
|
||||||
|
|
||||||
function Expanded_Key($key) {
|
|
||||||
$RCON = GPG_Cipher::$RCON;
|
|
||||||
$S = GPG_Cipher::$S;
|
|
||||||
|
|
||||||
$maxkc = GPG_Cipher::$maxkc;
|
|
||||||
$maxrk = GPG_Cipher::$maxrk;
|
|
||||||
|
|
||||||
$kc = 0;
|
|
||||||
$i = 0;
|
|
||||||
$j = 0;
|
|
||||||
$r = 0;
|
|
||||||
$t = 0;
|
|
||||||
$rounds = 0;
|
|
||||||
$keySched = array_fill(0, $maxrk + 1, 0);
|
|
||||||
$keylen = strlen($key);
|
|
||||||
$k = array_fill(0, $maxkc, 0);
|
|
||||||
$tk = array_fill(0, $maxkc, 0);
|
|
||||||
$rconpointer = 0;
|
|
||||||
|
|
||||||
if ($keylen == 16) {
|
|
||||||
$rounds = 10;
|
|
||||||
$kc = 4;
|
|
||||||
} else if ($keylen == 24) {
|
|
||||||
$rounds = 12;
|
|
||||||
$kc = 6;
|
|
||||||
} else if ($keylen == 32) {
|
|
||||||
$rounds = 14;
|
|
||||||
$kc = 8;
|
|
||||||
} else {
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
for($i = 0; $i < $maxrk + 1; $i++) $keySched[$i] = array_fill(0, 4, 0);
|
|
||||||
for($i = 0, $j = 0; $j < $keylen; $j++, $i += 4) {
|
|
||||||
if ($i < $keylen) {
|
|
||||||
$k[$j] = ord($key[$i]) | (ord($key[$i + 1]) << 0x8) |
|
|
||||||
(ord($key[$i + 2]) << 0x10) | (ord($key[$i + 3]) << 0x18);
|
|
||||||
} else {
|
|
||||||
$k[$j] = 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
for($j = $kc - 1; $j >= 0; $j--) $tk[$j] = $k[$j];
|
|
||||||
|
|
||||||
$r = 0;
|
|
||||||
$t = 0;
|
|
||||||
for($j = 0; ($j < $kc) && ($r < $rounds + 1); ) {
|
|
||||||
for(; ($j < $kc) && ($t < 4); $j++, $t++) {
|
|
||||||
$keySched[$r][$t] = $tk[$j];
|
|
||||||
}
|
|
||||||
if($t == 4) {
|
|
||||||
$r++;
|
|
||||||
$t = 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
while($r < $rounds + 1) {
|
|
||||||
$temp = $tk[$kc - 1];
|
|
||||||
|
|
||||||
$tk[0] ^= $S[GPG_Utility::B1($temp)] | ($S[GPG_Utility::B2($temp)] << 0x8) |
|
|
||||||
($S[GPG_Utility::B3($temp)] << 0x10) | ($S[GPG_Utility::B0($temp)] << 0x18);
|
|
||||||
$tk[0] ^= $RCON[$rconpointer++];
|
|
||||||
|
|
||||||
if ($kc != 8) {
|
|
||||||
for($j = 1; $j < $kc; $j++) $tk[$j] ^= $tk[$j - 1];
|
|
||||||
} else {
|
|
||||||
for($j = 1; $j < $kc / 2; $j++) $tk[$j] ^= $tk[$j - 1];
|
|
||||||
|
|
||||||
$temp = $tk[$kc / 2 - 1];
|
|
||||||
$tk[$kc / 2] ^= $S[GPG_Utility::B0($temp)] | ($S[GPG_Utility::B1($temp)] << 0x8) |
|
|
||||||
($S[GPG_Utility::B2($temp)] << 0x10) | ($S[GPG_Utility::B3($temp)] << 0x18);
|
|
||||||
|
|
||||||
for($j = $kc / 2 + 1; $j < $kc; $j++) $tk[$j] ^= $tk[$j - 1];
|
|
||||||
}
|
|
||||||
|
|
||||||
for($j = 0; ($j < $kc) && ($r < $rounds + 1); ) {
|
|
||||||
for(; ($j < $kc) && ($t < 4); $j++, $t++) {
|
|
||||||
$keySched[$r][$t] = $tk[$j];
|
|
||||||
}
|
|
||||||
if($t == 4) {
|
|
||||||
$r++;
|
|
||||||
$t = 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
$this->rounds = $rounds;
|
|
||||||
$this->rk = $keySched;
|
|
||||||
return $this;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
?>
|
|
||||||
|
|
@ -1,218 +0,0 @@
|
||||||
<?php
|
|
||||||
/** @package php-gpg::GPG */
|
|
||||||
|
|
||||||
/** require supporting files */
|
|
||||||
require_once("Expanded_Key.php");
|
|
||||||
|
|
||||||
define("PK_TYPE_ELGAMAL", 1);
|
|
||||||
define("PK_TYPE_RSA", 0);
|
|
||||||
define("PK_TYPE_UNKNOWN", -1);
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Pure PHP implementation of PHP/GPG public key
|
|
||||||
*
|
|
||||||
* @package php-gpg::GPG
|
|
||||||
* @link http://www.verysimple.com/
|
|
||||||
* @copyright 1997-2011 VerySimple, Inc.
|
|
||||||
* @license http://www.gnu.org/licenses/lgpl.html LGPL
|
|
||||||
* @todo implement decryption
|
|
||||||
* @version 1.0
|
|
||||||
*/
|
|
||||||
class GPG_Public_Key {
|
|
||||||
var $version;
|
|
||||||
var $fp;
|
|
||||||
var $key_id;
|
|
||||||
var $user;
|
|
||||||
var $public_key;
|
|
||||||
var $type;
|
|
||||||
|
|
||||||
function IsValid()
|
|
||||||
{
|
|
||||||
return $this->version != -1 && $this->GetKeyType() != PK_TYPE_UNKNOWN;
|
|
||||||
}
|
|
||||||
|
|
||||||
function GetKeyType()
|
|
||||||
{
|
|
||||||
if (!strcmp($this->type, "ELGAMAL")) return PK_TYPE_ELGAMAL;
|
|
||||||
if (!strcmp($this->type, "RSA")) return PK_TYPE_RSA;
|
|
||||||
return PK_TYPE_UNKNOWN;
|
|
||||||
}
|
|
||||||
|
|
||||||
function GetFingerprint()
|
|
||||||
{
|
|
||||||
return strtoupper( trim(chunk_split($this->fp, 4, ' ')) );
|
|
||||||
}
|
|
||||||
|
|
||||||
function GetKeyId()
|
|
||||||
{
|
|
||||||
return (strlen($this->key_id) == 16) ? strtoupper($this->key_id) : '0000000000000000';
|
|
||||||
}
|
|
||||||
|
|
||||||
function GetPublicKey()
|
|
||||||
{
|
|
||||||
return str_replace("\n", "", $this->public_key);
|
|
||||||
}
|
|
||||||
|
|
||||||
function GPG_Public_Key($asc) {
|
|
||||||
$found = 0;
|
|
||||||
|
|
||||||
// normalize line breaks
|
|
||||||
$asc = str_replace("\r\n", "\n", $asc);
|
|
||||||
|
|
||||||
if (strpos($asc, "-----BEGIN PGP PUBLIC KEY BLOCK-----\n") === false)
|
|
||||||
throw new Exception("Missing header block in Public Key");
|
|
||||||
|
|
||||||
if (strpos($asc, "\n\n") === false)
|
|
||||||
throw new Exception("Missing body delimiter in Public Key");
|
|
||||||
|
|
||||||
if (strpos($asc, "\n-----END PGP PUBLIC KEY BLOCK-----") === false)
|
|
||||||
throw new Exception("Missing footer block in Public Key");
|
|
||||||
|
|
||||||
// get rid of everything except the base64 encoded key
|
|
||||||
$headerbody = explode("\n\n", str_replace("\n-----END PGP PUBLIC KEY BLOCK-----", "", $asc), 2);
|
|
||||||
$asc = trim($headerbody[1]);
|
|
||||||
|
|
||||||
|
|
||||||
$len = 0;
|
|
||||||
$s = base64_decode($asc);
|
|
||||||
$sa = str_split($s);
|
|
||||||
|
|
||||||
for($i = 0; $i < strlen($s);) {
|
|
||||||
$tag = ord($sa[$i++]);
|
|
||||||
|
|
||||||
// echo 'TAG=' . $tag . '/';
|
|
||||||
|
|
||||||
if(($tag & 128) == 0) break;
|
|
||||||
|
|
||||||
if($tag & 64) {
|
|
||||||
$tag &= 63;
|
|
||||||
$len = ord($sa[$i++]);
|
|
||||||
if ($len > 191 && $len < 224) $len = (($len - 192) << 8) + ord($sa[$i++]);
|
|
||||||
else if ($len == 255) $len = (ord($sa[$i++]) << 24) + (ord($sa[$i++]) << 16) + (ord($sa[$i++]) << 8) + ord($sa[$i++]);
|
|
||||||
else if ($len > 223 && $len < 255) $len = (1 << ($len & 0x1f));
|
|
||||||
} else {
|
|
||||||
$len = $tag & 3;
|
|
||||||
$tag = ($tag >> 2) & 15;
|
|
||||||
if ($len == 0) $len = ord($sa[$i++]);
|
|
||||||
else if($len == 1) $len = (ord($sa[$i++]) << 8) + ord($sa[$i++]);
|
|
||||||
else if($len == 2) $len = (ord($sa[$i++]) << 24) + (ord($sa[$i++]) << 16) + (ord($sa[$i++]) << 8) + ord($sa[$i++]);
|
|
||||||
else $len = strlen($s) - 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
// echo $tag . ' ';
|
|
||||||
|
|
||||||
if ($tag == 6 || $tag == 14) {
|
|
||||||
$k = $i;
|
|
||||||
$version = ord($sa[$i++]);
|
|
||||||
$found = 1;
|
|
||||||
$this->version = $version;
|
|
||||||
|
|
||||||
$time = (ord($sa[$i++]) << 24) + (ord($sa[$i++]) << 16) + (ord($sa[$i++]) << 8) + ord($sa[$i++]);
|
|
||||||
|
|
||||||
if($version == 2 || $version == 3) $valid = ord($sa[$i++]) << 8 + ord($sa[$i++]);
|
|
||||||
|
|
||||||
$algo = ord($sa[$i++]);
|
|
||||||
|
|
||||||
if($algo == 1 || $algo == 2) {
|
|
||||||
$m = $i;
|
|
||||||
$lm = floor((ord($sa[$i]) * 256 + ord($sa[$i + 1]) + 7) / 8);
|
|
||||||
$i += $lm + 2;
|
|
||||||
|
|
||||||
$mod = substr($s, $m, $lm + 2);
|
|
||||||
$le = floor((ord($sa[$i]) * 256 + ord($sa[$i+1]) + 7) / 8);
|
|
||||||
$i += $le + 2;
|
|
||||||
|
|
||||||
$this->public_key = base64_encode(substr($s, $m, $lm + $le + 4));
|
|
||||||
$this->type = "RSA";
|
|
||||||
|
|
||||||
if ($version == 3) {
|
|
||||||
$this->fp = '';
|
|
||||||
$this->key_id = bin2hex(substr($mod, strlen($mod) - 8, 8));
|
|
||||||
} else if($version == 4) {
|
|
||||||
|
|
||||||
// https://tools.ietf.org/html/rfc4880#section-12
|
|
||||||
$headerPos = strpos($s, chr(0x04)); // TODO: is this always the correct starting point for the pulic key packet 'version' field?
|
|
||||||
$delim = chr(0x01) . chr(0x00); // TODO: is this the correct delimiter for the end of the public key packet?
|
|
||||||
$delimPos = strpos($s, $delim) + (3-$headerPos);
|
|
||||||
|
|
||||||
// echo "POSITION: $delimPos\n";
|
|
||||||
|
|
||||||
// this does not work, tried it with RSA 1024 and RSA 4096 keys generated by GnuPG v2 (2.0.29) on Windows running Apache and PHP 5.6.3
|
|
||||||
// $pkt = chr(0x99) . chr($delimPos >> 8) . chr($delimPos & 255) . substr($s, $headerPos, $delimPos);
|
|
||||||
|
|
||||||
// this is the original signing string which seems to have only worked for key lengths of 1024 or less
|
|
||||||
$pkt = chr(0x99) . chr($len >> 8) . chr($len & 255) . substr($s, $k, $len); // use this for now
|
|
||||||
|
|
||||||
$fp = sha1($pkt);
|
|
||||||
$this->fp = $fp;
|
|
||||||
$this->key_id = substr($fp, strlen($fp) - 16, 16);
|
|
||||||
|
|
||||||
// uncomment to debug the start point for the signing string
|
|
||||||
// for ($ii = 5; $ii > -1; $ii--) {
|
|
||||||
// $pkt = chr(0x99) . chr($ii >> 8) . chr($ii & 255) . substr($s, $headerPos, $ii);
|
|
||||||
// $fp = sha1($pkt);
|
|
||||||
// echo "LENGTH=" . $headerPos . '->' . $ii . " CHR(" . ord(substr($s,$ii, 1)) . ") = " . substr($fp, strlen($fp) - 16, 16) . "\n";
|
|
||||||
// }
|
|
||||||
// echo "\n";
|
|
||||||
|
|
||||||
// uncomment to debug the end point for the signing string
|
|
||||||
// for ($ii = strlen($s); $ii > 1; $ii--) {
|
|
||||||
// $pkt = chr(0x99) . chr($ii >> 8) . chr($ii & 255) . substr($s, $headerPos, $ii);
|
|
||||||
// $fp = sha1($pkt);
|
|
||||||
// echo "LENGTH=" . $headerPos . '->' . $ii . " CHR(" . ord(substr($s,$ii, 1)) . ") = " . substr($fp, strlen($fp) - 16, 16) . "\n";
|
|
||||||
// }
|
|
||||||
} else {
|
|
||||||
throw new Exception('GPG Key Version ' . $version . ' is not supported');
|
|
||||||
}
|
|
||||||
$found = 2;
|
|
||||||
} else if(($algo == 16 || $algo == 20) && $version == 4) {
|
|
||||||
$m = $i;
|
|
||||||
|
|
||||||
$lp = floor((ord($sa[$i]) * 256 + ord($sa[$i +1]) + 7) / 8);
|
|
||||||
$i += $lp + 2;
|
|
||||||
|
|
||||||
$lg = floor((ord($sa[$i]) * 256 + ord($sa[$i + 1]) + 7) / 8);
|
|
||||||
$i += $lg + 2;
|
|
||||||
|
|
||||||
$ly = floor((ord($sa[$i]) * 256 + ord($sa[$i + 1]) + 7)/8);
|
|
||||||
$i += $ly + 2;
|
|
||||||
|
|
||||||
$this->public_key = base64_encode(substr($s, $m, $lp + $lg + $ly + 6));
|
|
||||||
|
|
||||||
// TODO: should this be adjusted as it was for RSA (above)..?
|
|
||||||
|
|
||||||
$pkt = chr(0x99) . chr($len >> 8) . chr($len & 255) . substr($s, $k, $len);
|
|
||||||
$fp = sha1($pkt);
|
|
||||||
$this->fp = $fp;
|
|
||||||
$this->key_id = substr($fp, strlen($fp) - 16, 16);
|
|
||||||
$this->type = "ELGAMAL";
|
|
||||||
$found = 3;
|
|
||||||
} else {
|
|
||||||
$i = $k + $len;
|
|
||||||
}
|
|
||||||
} else if ($tag == 13) {
|
|
||||||
$this->user = substr($s, $i, $len);
|
|
||||||
$i += $len;
|
|
||||||
} else {
|
|
||||||
$i += $len;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if($found < 2) {
|
|
||||||
|
|
||||||
throw new Exception("Unable to parse Public Key");
|
|
||||||
// $this->version = "";
|
|
||||||
// $this->fp = "";
|
|
||||||
// $this->key_id = "";
|
|
||||||
// $this->user = "";
|
|
||||||
// $this->public_key = "";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
function GetExpandedKey()
|
|
||||||
{
|
|
||||||
$ek = new Expanded_Key($this->public_key);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
?>
|
|
||||||
|
|
@ -1,131 +0,0 @@
|
||||||
<?php
|
|
||||||
/** @package php-gpg::GPG */
|
|
||||||
|
|
||||||
/** seed rand */
|
|
||||||
list($gpg_usec, $gpg_sec) = explode(' ', microtime());
|
|
||||||
srand((float) $gpg_sec + ((float) $gpg_usec * 100000));
|
|
||||||
|
|
||||||
/**
|
|
||||||
* @package php-gpg::GPG
|
|
||||||
*/
|
|
||||||
class GPG_Utility
|
|
||||||
{
|
|
||||||
|
|
||||||
static function starts_with($haystack, $needle)
|
|
||||||
{
|
|
||||||
return $needle === "" || strpos($haystack, $needle) === 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
static function B0($x) {
|
|
||||||
return ($x & 0xff);
|
|
||||||
}
|
|
||||||
|
|
||||||
static function B1($x) {
|
|
||||||
return (($x >> 0x8) & 0xff);
|
|
||||||
}
|
|
||||||
|
|
||||||
static function B2($x) {
|
|
||||||
return (($x >> 0x10) & 0xff);
|
|
||||||
}
|
|
||||||
|
|
||||||
static function B3($x) {
|
|
||||||
return (($x >> 0x18) & 0xff);
|
|
||||||
}
|
|
||||||
|
|
||||||
static function zshift($x, $s) {
|
|
||||||
$res = $x >> $s;
|
|
||||||
|
|
||||||
$pad = 0;
|
|
||||||
for ($i = 0; $i < 32 - $s; $i++) $pad += (1 << $i);
|
|
||||||
|
|
||||||
return $res & $pad;
|
|
||||||
}
|
|
||||||
|
|
||||||
static function pack_octets($octets)
|
|
||||||
{
|
|
||||||
$i = 0;
|
|
||||||
$j = 0;
|
|
||||||
$len = count($octets);
|
|
||||||
$b = array_fill(0, $len / 4, 0);
|
|
||||||
|
|
||||||
if (!$octets || $len % 4) return;
|
|
||||||
|
|
||||||
for ($i = 0, $j = 0; $j < $len; $j += 4) {
|
|
||||||
$b[$i++] = $octets[$j] | ($octets[$j + 1] << 0x8) | ($octets[$j + 2] << 0x10) | ($octets[$j + 3] << 0x18);
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
return $b;
|
|
||||||
}
|
|
||||||
|
|
||||||
static function unpack_octets($packed)
|
|
||||||
{
|
|
||||||
$j = 0;
|
|
||||||
$i = 0;
|
|
||||||
$l = count($packed);
|
|
||||||
$r = array_fill(0, $l * 4, 0);
|
|
||||||
|
|
||||||
for ($j = 0; $j < $l; $j++) {
|
|
||||||
$r[$i++] = GPG_Utility::B0($packed[$j]);
|
|
||||||
$r[$i++] = GPG_Utility::B1($packed[$j]);
|
|
||||||
$r[$i++] = GPG_Utility::B2($packed[$j]);
|
|
||||||
$r[$i++] = GPG_Utility::B3($packed[$j]);
|
|
||||||
}
|
|
||||||
|
|
||||||
return $r;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
static function hex2bin($h)
|
|
||||||
{
|
|
||||||
if(strlen($h) % 2) $h += "0";
|
|
||||||
|
|
||||||
$r = "";
|
|
||||||
for($i = 0; $i < strlen($h); $i += 2) {
|
|
||||||
$r .= chr(intval($h[$i], 16) * 16 + intval($h[$i + 1], 16));
|
|
||||||
}
|
|
||||||
|
|
||||||
return $r;
|
|
||||||
}
|
|
||||||
|
|
||||||
static function crc24($data)
|
|
||||||
{
|
|
||||||
$crc = 0xb704ce;
|
|
||||||
|
|
||||||
for($n = 0; $n < strlen($data); $n++) {
|
|
||||||
$crc ^= (ord($data[$n]) & 0xff) << 0x10;
|
|
||||||
for($i = 0; $i < 8; $i++) {
|
|
||||||
$crc <<= 1;
|
|
||||||
if($crc & 0x1000000) $crc ^= 0x1864cfb;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return
|
|
||||||
chr(($crc >> 0x10) & 0xff) .
|
|
||||||
chr(($crc >> 0x8) & 0xff) .
|
|
||||||
chr($crc & 0xff);
|
|
||||||
}
|
|
||||||
|
|
||||||
static function s_random($len, $textmode)
|
|
||||||
{
|
|
||||||
$r = "";
|
|
||||||
for($i = 0; $i < $len;)
|
|
||||||
{
|
|
||||||
$t = rand(0, 0xff);
|
|
||||||
if($t == 0 && $textmode) continue;
|
|
||||||
$i++;
|
|
||||||
|
|
||||||
$r .= chr($t);
|
|
||||||
}
|
|
||||||
|
|
||||||
return $r;
|
|
||||||
}
|
|
||||||
|
|
||||||
static function c_random() {
|
|
||||||
return round(rand(0, 0xff));
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
?>
|
|
||||||
|
|
@ -1,403 +0,0 @@
|
||||||
<?php
|
|
||||||
/** @package php-gpg::GPG */
|
|
||||||
|
|
||||||
/** assign globals */
|
|
||||||
global $bs;
|
|
||||||
global $bx2;
|
|
||||||
global $bm;
|
|
||||||
global $bx;
|
|
||||||
global $bd;
|
|
||||||
global $bdm;
|
|
||||||
|
|
||||||
$bs = 28;
|
|
||||||
$bx2 = 1 << $bs;
|
|
||||||
$bm = $bx2 - 1;
|
|
||||||
$bx = $bx2 >> 1;
|
|
||||||
$bd = $bs >> 1;
|
|
||||||
$bdm = (1 << $bd) - 1;
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function mpi2b($s)
|
|
||||||
{
|
|
||||||
global $bs;
|
|
||||||
global $bx2;
|
|
||||||
global $bm;
|
|
||||||
global $bx;
|
|
||||||
global $bd;
|
|
||||||
global $bdm;
|
|
||||||
|
|
||||||
$bn = 1;
|
|
||||||
$r = array(0);
|
|
||||||
$rn = 0;
|
|
||||||
$sb = 256;
|
|
||||||
$c = 0;
|
|
||||||
$sn = strlen($s);
|
|
||||||
if($sn < 2) {
|
|
||||||
echo("string too short, not a MPI");
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
$len = ($sn - 2) * 8;
|
|
||||||
$bits = ord($s[0]) * 256 + ord($s[1]);
|
|
||||||
if ($bits > $len || $bits < $len - 8) {
|
|
||||||
echo("not a MPI, bits = $bits, len = $len");
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
for ($n = 0; $n < $len; $n++) {
|
|
||||||
if (($sb <<= 1) > 255) {
|
|
||||||
$sb = 1; $c = ord($s[--$sn]);
|
|
||||||
}
|
|
||||||
if ($bn > $bm) {
|
|
||||||
$bn = 1;
|
|
||||||
$r[++$rn]=0;
|
|
||||||
}
|
|
||||||
if ($c & $sb) $r[$rn] |= $bn;
|
|
||||||
$bn <<= 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
return $r;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function b2mpi($b)
|
|
||||||
{
|
|
||||||
global $bs;
|
|
||||||
global $bx2;
|
|
||||||
global $bm;
|
|
||||||
global $bx;
|
|
||||||
global $bd;
|
|
||||||
global $bdm;
|
|
||||||
|
|
||||||
$bn = 1;
|
|
||||||
$bc = 0;
|
|
||||||
$r = array(0);
|
|
||||||
$rb = 1;
|
|
||||||
$rn = 0;
|
|
||||||
$bits = count($b) * $bs;
|
|
||||||
$n = 0;
|
|
||||||
$rr = "";
|
|
||||||
|
|
||||||
for ($n = 0; $n < $bits; $n++) {
|
|
||||||
if ($b[$bc] & $bn) $r[$rn] |= $rb;
|
|
||||||
if(($rb <<= 1) > 255) {
|
|
||||||
$rb = 1; $r[++$rn]=0;
|
|
||||||
}
|
|
||||||
if (($bn <<= 1) > $bm) {
|
|
||||||
$bn=1; $bc++;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
while ($rn && $r[$rn]==0) $rn--;
|
|
||||||
|
|
||||||
$bn=256;
|
|
||||||
for($bits = 8; $bits > 0; $bits--) if ($r[$rn] & ($bn >>= 1)) break;
|
|
||||||
$bits += $rn * 8;
|
|
||||||
|
|
||||||
$rr .= chr($bits / 256 ) . chr($bits % 256);
|
|
||||||
if ($bits) for($n = $rn; $n >= 0; $n--) $rr .= chr($r[$n]);
|
|
||||||
|
|
||||||
return $rr;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function bmodexp($xx, $y, $m) {
|
|
||||||
global $bs;
|
|
||||||
global $bx2;
|
|
||||||
global $bm;
|
|
||||||
global $bx;
|
|
||||||
global $bd;
|
|
||||||
global $bdm;
|
|
||||||
|
|
||||||
$r = array(1);
|
|
||||||
$an = 0;
|
|
||||||
$a = 0;
|
|
||||||
$x = array_merge((array)$xx);
|
|
||||||
$n = count($m) * 2;
|
|
||||||
$mu = array_fill(0, $n + 1, 0);
|
|
||||||
|
|
||||||
$mu[$n--] = 1;
|
|
||||||
for(; $n >= 0; $n--) $mu[$n] = 0;
|
|
||||||
$dd = new bdiv($mu, $m);
|
|
||||||
$mu = $dd->q;
|
|
||||||
|
|
||||||
for($n = 0; $n < count($y); $n++) {
|
|
||||||
for ($a = 1, $an = 0; $an < $bs; $an++, $a <<= 1) {
|
|
||||||
if ($y[$n] & $a) $r = bmod2(bmul($r, $x), $m, $mu);
|
|
||||||
$x = bmod2(bmul($x, $x), $m, $mu);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return $r;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function simplemod($i, $m) // returns the mod where m < 2^bd
|
|
||||||
{
|
|
||||||
$c = 0;
|
|
||||||
$v = 0;
|
|
||||||
for ($n = count($i) - 1; $n >= 0; $n--)
|
|
||||||
{
|
|
||||||
$v = $i[$n];
|
|
||||||
$c = (($v >> $bd) + ($c << $bd)) % $m;
|
|
||||||
$c = (($v & $bdm) + ($c << $bd)) % $m;
|
|
||||||
}
|
|
||||||
|
|
||||||
return $c;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function bmod($p, $m) // binary modulo
|
|
||||||
{
|
|
||||||
global $bdm;
|
|
||||||
|
|
||||||
if (count($m) == 1) {
|
|
||||||
if(count($p) == 1) return array($p[0] % $m[0]);
|
|
||||||
if($m[0] < $bdm) return array(simplemod($p, $m[0]));
|
|
||||||
}
|
|
||||||
|
|
||||||
$r = new bdiv($p, $m);
|
|
||||||
return $r->mod;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function bmod2($x, $m, $mu) {
|
|
||||||
$xl = count($x) - (count($m) << 1);
|
|
||||||
if ($xl > 0) return bmod2(array_concat(array_slice($x, 0, $xl), bmod2(array_slice($x, $xl), $m, $mu)), $m, $mu);
|
|
||||||
|
|
||||||
$ml1 = count($m) + 1;
|
|
||||||
$ml2 = count($m) - 1;
|
|
||||||
$rr = 0;
|
|
||||||
|
|
||||||
$q3 = array_slice(bmul(array_slice($x, $ml2), $mu), $ml1);
|
|
||||||
$r1 = array_slice($x, 0, $ml1);
|
|
||||||
$r2 = array_slice(bmul($q3, $m), 0, $ml1);
|
|
||||||
|
|
||||||
$r = bsub($r1, $r2);
|
|
||||||
if (count($r) == 0) {
|
|
||||||
$r1[$ml1] = 1;
|
|
||||||
$r = bsub($r1, $r2);
|
|
||||||
}
|
|
||||||
for ($n = 0;; $n++) {
|
|
||||||
$rr = bsub($r, $m);
|
|
||||||
if(count($rr) == 0) break;
|
|
||||||
$r = $rr;
|
|
||||||
if($n >= 3) return bmod2($r, $m, $mu);
|
|
||||||
}
|
|
||||||
|
|
||||||
return $r;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function toppart($x, $start, $len) {
|
|
||||||
global $bx2;
|
|
||||||
|
|
||||||
$n = 0;
|
|
||||||
while ($start >= 0 && $len-- > 0) $n = $n * $bx2 + $x[$start--];
|
|
||||||
|
|
||||||
return $n;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function zeros($n) {
|
|
||||||
$r = array_fill(0, $n, 0);
|
|
||||||
while ($n-- > 0) $r[$n] = 0;
|
|
||||||
return $r;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* @package verysimple::Encryption
|
|
||||||
*/
|
|
||||||
class bdiv {
|
|
||||||
var $q;
|
|
||||||
var $mod;
|
|
||||||
function bdiv($x, $y)
|
|
||||||
{
|
|
||||||
global $bs;
|
|
||||||
global $bx2;
|
|
||||||
global $bm;
|
|
||||||
global $bx;
|
|
||||||
global $bd;
|
|
||||||
global $bdm;
|
|
||||||
|
|
||||||
$n = count($x) - 1;
|
|
||||||
$t = count($y) - 1;
|
|
||||||
$nmt = $n - $t;
|
|
||||||
|
|
||||||
if ($n < $t || $n == $t && ($x[$n] < $y[$n] || $n > 0 && $x[$n] == $y[$n] && $x[$n - 1] < $y[$n - 1])) {
|
|
||||||
$this->q = array(0);
|
|
||||||
$this->mod = array($x);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($n == $t && toppart($x, $t, 2) / toppart($y, $t, 2) < 4) {
|
|
||||||
$qq = 0;
|
|
||||||
$xx = 0;
|
|
||||||
for(;;) {
|
|
||||||
$xx = bsub($x, $y);
|
|
||||||
if(count($xx) == 0) break;
|
|
||||||
$x = $xx; $qq++;
|
|
||||||
}
|
|
||||||
$this->q = array($qq);
|
|
||||||
$this->mod = $x;
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
$shift2 = floor(log($y[$t]) / M_LN2) + 1;
|
|
||||||
$shift = $bs - $shift2;
|
|
||||||
if ($shift) {
|
|
||||||
$x = array_merge((array)$x); $y = array_merge((array)$y);
|
|
||||||
for($i = $t; $i > 0; $i--) $y[$i] = (($y[$i] << $shift) & $bm) | ($y[$i - 1] >> $shift2);
|
|
||||||
$y[0] = ($y[0] << $shift) & $bm;
|
|
||||||
if($x[$n] & (($bm << $shift2) & $bm)) {
|
|
||||||
$x[++$n] = 0; $nmt++;
|
|
||||||
}
|
|
||||||
for($i = $n; $i > 0; $i--) $x[$i] = (($x[$i] << $shift) & $bm) | ($x[$i - 1] >> $shift2);
|
|
||||||
$x[0] = ($x[0] << $shift) & $bm;
|
|
||||||
}
|
|
||||||
|
|
||||||
$i = 0;
|
|
||||||
$j = 0;
|
|
||||||
$x2 = 0;
|
|
||||||
$q = zeros($nmt + 1);
|
|
||||||
$y2 = array_merge(zeros($nmt), (array)$y);
|
|
||||||
for (;;) {
|
|
||||||
$x2 = bsub($x, $y2);
|
|
||||||
if(count($x2) == 0) break;
|
|
||||||
$q[$nmt]++;
|
|
||||||
$x = $x2;
|
|
||||||
}
|
|
||||||
|
|
||||||
$yt = $y[$t];
|
|
||||||
$top =toppart($y, $t, 2);
|
|
||||||
for ($i = $n; $i > $t; $i--) {
|
|
||||||
$m = $i - $t - 1;
|
|
||||||
if ($i >= count($x)) $q[$m] = 1;
|
|
||||||
else if($x[$i] == $yt) $q[$m] = $bm;
|
|
||||||
else $q[$m] = floor(toppart($x, $i, 2) / $yt);
|
|
||||||
|
|
||||||
$topx = toppart($x, $i, 3);
|
|
||||||
while ($q[$m] * $top > $topx) $q[$m]--;
|
|
||||||
|
|
||||||
$y2 = array_slice($y2, 1);
|
|
||||||
$x2 = bsub($x, bmul(array($q[$m]), $y2));
|
|
||||||
if (count($x2) == 0) {
|
|
||||||
$q[$m]--;
|
|
||||||
$x2 =bsub($x, bmul(array($q[m]), $y2));
|
|
||||||
}
|
|
||||||
$x = $x2;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($shift) {
|
|
||||||
for($i = 0; $i < count($x) - 1; $i++) $x[$i] = ($x[$i] >> $shift) | (($x[$i + 1] << $shift2) & $bm);
|
|
||||||
$x[count($x) - 1] >>= $shift;
|
|
||||||
}
|
|
||||||
$n = count($q);
|
|
||||||
while ($n > 1 && $q[$n - 1] == 0) $n--;
|
|
||||||
$this->q = array_slice($q, 0, $n);
|
|
||||||
$n = count($x);
|
|
||||||
while ($n > 1 && $x[$n - 1] == 0) $n--;
|
|
||||||
$this->mod = array_slice($x, 0, $n);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function bsub($a, $b) {
|
|
||||||
global $bs;
|
|
||||||
global $bx2;
|
|
||||||
global $bm;
|
|
||||||
global $bx;
|
|
||||||
global $bd;
|
|
||||||
global $bdm;
|
|
||||||
|
|
||||||
$al = count($a);
|
|
||||||
$bl = count($b);
|
|
||||||
|
|
||||||
if ($bl > $al) return array();
|
|
||||||
if ($bl == $al) {
|
|
||||||
if($b[$bl - 1] > $a[$bl - 1]) return array();
|
|
||||||
if($bl == 1) return array($a[0] - $b[0]);
|
|
||||||
}
|
|
||||||
|
|
||||||
$r = array_fill(0, $al, 0);
|
|
||||||
$c = 0;
|
|
||||||
|
|
||||||
for ($n = 0; $n < $bl; $n++) {
|
|
||||||
$c += $a[$n] - $b[$n];
|
|
||||||
$r[$n] = $c & $bm;
|
|
||||||
$c >>= $bs;
|
|
||||||
}
|
|
||||||
for (; $n < $al; $n++) {
|
|
||||||
$c += $a[$n];
|
|
||||||
$r[$n] = $c & $bm;
|
|
||||||
$c >>= $bs;
|
|
||||||
}
|
|
||||||
if ($c) return array();
|
|
||||||
|
|
||||||
if ($r[$n - 1]) return $r;
|
|
||||||
while ($n > 1 && $r[$n - 1] == 0) $n--;
|
|
||||||
|
|
||||||
return array_slice($r, 0, $n);
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
*/
|
|
||||||
function bmul($a, $b) {
|
|
||||||
global $bs;
|
|
||||||
global $bx2;
|
|
||||||
global $bm;
|
|
||||||
global $bx;
|
|
||||||
global $bd;
|
|
||||||
global $bdm;
|
|
||||||
|
|
||||||
$b = array_merge((array)$b, array(0));
|
|
||||||
$al = count($a);
|
|
||||||
$bl = count($b);
|
|
||||||
$n = 0;
|
|
||||||
$nn = 0;
|
|
||||||
$aa = 0;
|
|
||||||
$c = 0;
|
|
||||||
$m = 0;
|
|
||||||
$g = 0;
|
|
||||||
$gg = 0;
|
|
||||||
$h = 0;
|
|
||||||
$hh = 0;
|
|
||||||
$ghh = 0;
|
|
||||||
$ghhb = 0;
|
|
||||||
|
|
||||||
$r = zeros($al + $bl + 1);
|
|
||||||
|
|
||||||
for ($n = 0; $n < $al; $n++) {
|
|
||||||
$aa = $a[$n];
|
|
||||||
if ($aa) {
|
|
||||||
$c = 0;
|
|
||||||
$hh = $aa >> $bd; $h = $aa & $bdm;
|
|
||||||
$m = $n;
|
|
||||||
for ($nn = 0; $nn < $bl; $nn++, $m++) {
|
|
||||||
$g = $b[$nn]; $gg = $g >> $bd; $g = $g & $bdm;
|
|
||||||
$ghh = $g * $hh + $h * $gg;
|
|
||||||
$ghhb = $ghh >> $bd; $ghh &= $bdm;
|
|
||||||
$c += $r[$m] + $h * $g + ($ghh << $bd);
|
|
||||||
$r[$m] = $c & $bm;
|
|
||||||
$c = ($c >> $bs) + $gg * $hh + $ghhb;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
$n = count($r);
|
|
||||||
|
|
||||||
if ($r[$n - 1]) return $r;
|
|
||||||
while ($n > 1 && $r[$n - 1] == 0) $n--;
|
|
||||||
|
|
||||||
return array_slice($r, 0, $n);
|
|
||||||
}
|
|
||||||
|
|
||||||
?>
|
|
||||||
|
|
@ -1,135 +0,0 @@
|
||||||
<?php
|
|
||||||
/**
|
|
||||||
* @package GPG::Tests
|
|
||||||
*/
|
|
||||||
/* ensure the framework libraries can be located */
|
|
||||||
set_include_path(
|
|
||||||
realpath("../libs") .
|
|
||||||
PATH_SEPARATOR . get_include_path()
|
|
||||||
);
|
|
||||||
|
|
||||||
require_once 'PHPUnit/Framework/TestCase.php';
|
|
||||||
require_once 'GPG.php';
|
|
||||||
|
|
||||||
/**
|
|
||||||
*
|
|
||||||
*/
|
|
||||||
class EncryptTest extends PHPUnit_Framework_TestCase
|
|
||||||
{
|
|
||||||
/**
|
|
||||||
* @see PHPUnit_Framework_TestCase::setUp()
|
|
||||||
*/
|
|
||||||
function setUp()
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* @see PHPUnit_Framework_TestCase::tearDown()
|
|
||||||
*/
|
|
||||||
function tearDown()
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Return a public key used for encryption
|
|
||||||
* @return string PGP public key
|
|
||||||
*/
|
|
||||||
function getTestKey()
|
|
||||||
{
|
|
||||||
return "-----BEGIN PGP PUBLIC KEY BLOCK-----
|
|
||||||
Version: GnuPG/MacGPG2 v2.0.22 (Darwin)
|
|
||||||
Comment: GPGTools - https://gpgtools.org
|
|
||||||
|
|
||||||
mQINBFCr6/0BEADMIcXmkcH2uCskLlM7uwsd4Nk85yGlZqFs5G8HliWpI3zJafUv
|
|
||||||
hQ7+OorA1QvIlsoVkROptTBD3eMDy4fWrV+emREmNWJgSpZcRhMFSFWqbt0khAeh
|
|
||||||
LCuDZNAepE5KDnZbvbg+SedJuq+SHJfBMYCUTSXQpDrsFThXGpg112mrv4dwtSbf
|
|
||||||
3+Aj463c1cLpHt8891l9u5dZjWN1Ge3Q7x2Z6jTwmgjp59nojuKzvqeCcHJ9/HWV
|
|
||||||
v1P+Tl7Dh8xjIPX0SFRxLwV6cr78fQIx4keAq7wQH6Nm20AS2wQPca+FGTEw12oz
|
|
||||||
HM/kez0olKtqiLe72xQHwynV7A3KsHkpTSYIwb8jgUdoLRiMDi80NNNPAKj6lHac
|
|
||||||
sQJZ/1oiCXrilr9UEg/j6m2c5C1Ez87sI0i64aDfXUbjs9MtBJHEq6RekMHNuIUh
|
|
||||||
avAgCzjqGwnF2B6ljvAFB2CUoSei5KLviLWXp2hT9qB8Ns0nCDGUVF1GMt+jFsC4
|
|
||||||
27QFTptiHMEbYsbABbw6wQLKJeMsuugFVKkBf8rqN1gTnwwrfP893q0H240qg0b1
|
|
||||||
d94kC4JvJ9FwBV0CZs0S8V3zbI9Ge3dSZkdyPMUQRT3B9v81Iy4FUBtWTMAKOjr+
|
|
||||||
7SomCPn+FDaCSzCwuoPpkjNccFyVbIisv2gM/59iXjtalZcyrn5Zee9hCwARAQAB
|
|
||||||
tDZKYXNvbiBIaW5rbGUgKFByaW1hcnkgS2V5IDIwMTMpIDxqYXNvbkB2ZXJ5c2lt
|
|
||||||
cGxlLmNvbT6JAj8EEwECACkFAlCr6/0CGy8FCQeGH4AHCwkIBwMCAQYVCAIJCgsE
|
|
||||||
FgIDAQIeAQIXgAAKCRBHAJtmQk6UduFDD/40WUcda958+oq8ByX8yEH80u5EIlx0
|
|
||||||
e9lsa6mgsb+721jMIu9FZfjp0dlN+eilDs+n67+Yxc0dXd5DnEE8BaCXEn7wUFeC
|
|
||||||
Siqm4HWEzaKJ8pqcAh7GYJvRBNSy0JclCGFb5N5Nkw9YP7fWDQphGCjW+QKs8n3B
|
|
||||||
s7VoB2HKDSlZkCStSJMh1tqcslmHiT0ALDuCduQvR+XGBv04zVTaeJXkfP+fH56M
|
|
||||||
IPIQKcov/Q6K0z8itKFgEMb0ITDAn+b5reUqg2ynMgyyfePsfGgG/XJVaULQ0rXf
|
|
||||||
YO03WsO1d+mxzrkWJfNRltXfjPGxrs8G6VUFeqjEMmli0FbFLEj8DuFQGv5kYC+r
|
|
||||||
VpH4tJ1ZBSGklulbeNmx0tYBkODULFKg4rfNbD+EF1ih+LiThC5ifeXqI+hYB/Z0
|
|
||||||
WGjSIH/RN/f4eOWO5w0Z/oCH/uZ5VzMg9VF1OIhz8rgzNRX6TcCtl31x7twpTKyh
|
|
||||||
11ADNmdurxTftdbr6PPvOoXFdiyScruTnQAClwnaozybUNIGjwGgvRaT+B2xAiiB
|
|
||||||
Vp3zBnXQbctjrshOONPl8L43yi8wkI6YX7dVBkiovr9ZaFruEsN2eIpGGqrwLesm
|
|
||||||
yZn38dEex2I4gA4f7nmMxpg6r9rhMnEDXaEXNhHejX+ioWKJUHCtvBgec3plMYMI
|
|
||||||
WJMMxIyIeNF9yrkCDQRQq+v9ARAA3voRBduFN0ZeYKIUPpKN0IhRVG6DFGxPtPgC
|
|
||||||
TT+bC01AwYPqm1rMeSxcnobMTOBxDszQzgwizL33MqmSJi+SAChBPxpWe21+hFu5
|
|
||||||
lksDbGxm19+qBubSpVuUJ+zHVQzkUln0Jh2+vRwYJOyzkQMX1Auzz1hH7Pav7lDn
|
|
||||||
Kgabcm3prmcNnd/ddFYEZc6yvdcBKZRhlGo6KPNAafisH4UQhoFLUhsTwDE69Dkd
|
|
||||||
+SXUTOf6OmP+R8OBrIGx+1Kg6do6RTsujtxtOVsz5oTQNocOZyJaOxrY5onG9Y+n
|
|
||||||
CI6/A0xWxgfegbJmILR3/m+yghT8sHgZUphwil+pD5VHOOem5e8XkpF0Vg7pKv+B
|
|
||||||
voylH52suHb/HMcHKCBozhV2jTwyEepBVwnTUw9vn8CMLcbEhC6ztcTJcU4980SI
|
|
||||||
ZA74KuPGGldYw1FdxrcgjQ4/EQtbwYjOcAsvelWjGS8WVgq4IakEvu8Q2DGsOpkP
|
|
||||||
4QK28It8NvwKrBM92wYq9koX7raGGhfEDjnbFySVObkphthL7UBSuJG/2q9y4xt/
|
|
||||||
ZIxB5h9dV6mAm/23a6gpoVJBUdBlMnfM4yrqNbcn7o63/vmTZs4zn07ocxCGth7P
|
|
||||||
ayh3J8lUJAy6kzQN/QE/h/eJtC2KidfN+AB8/WIlbu07xLXThU+3TZn/3cAjQzIL
|
|
||||||
ykeU4yEAEQEAAYkERAQYAQIADwUCUKvr/QIbLgUJB4YfgAIpCRBHAJtmQk6UdsFd
|
|
||||||
IAQZAQIABgUCUKvr/QAKCRAENDyYjyFaLhWnD/sEHE37mnaoWewWLoQLf/jJtQxS
|
|
||||||
9/nL1pLy0gpLpDCGUlOdbYEE0c8j/f4FJr73hpPPiTg4NeCTxT+ZshVnQwFNEux0
|
|
||||||
0iQ9dl9ftI/2P+RgqRaDMyvu+8hIqqaauGDYYB/wb8HhbQ3lIpItiDQ/pLmREjzz
|
|
||||||
31VhCgFGLN4UJH1txRa60S2Ca0KxsXcVfGLyBzP/HtLm5N2jtvnyqYanlMu6+vsU
|
|
||||||
oECAhws+qYHT7/ycGdBbFokX6fd62vkFmGmHycPYoKtHO64oZ4aUr6EioXatVlli
|
|
||||||
SmZm5m5mkKcUtVv5qtt0MHRnqRogMcQ5w1BXsX4ZHYQMX3MJOgtsGamb9i1XkuM5
|
|
||||||
sJp28d/a8hYSg9upO28gv3r19BkRGfX5bMK1GIvPI2M5VMhEZnSTcULhGZDL1aQS
|
|
||||||
kpSb+xigpg6zXrhCRx0CPcfuhtQFEF8Nmmluyyj+EIr9vakWTjqd/v0JeUpIhEEo
|
|
||||||
zX6L1dQdxUKuzXRXYs0Uc8joXYqxYqSrZRW797Dyd0rduKJQ78flbzgyrhY8bzJa
|
|
||||||
xqmfNpdA2UpX5Er1tJUZnMMmoWpVscCJUmCr+ORM/p+54qqLWR53ITgz1MlMQqmq
|
|
||||||
R84uvtFjMpewX3N2HV73TVk8KVGMwg7pVg9zYZjmD28wkfsTjsnaEJKDtP3JC982
|
|
||||||
0XEXuuDoXsosUCjvrRHeD/43ssIyvf1VN2XWwW/q2Yp63S20xXuQLuBka6traGIX
|
|
||||||
c2AVDutQGNOuCbQ4ALEagdMxsCrLaOtO9l37sYolV5jvEz89hgsn7o20/GoQQ4yA
|
|
||||||
0dj9JUzT9h7jEIIGrvabHsaTRULJNxRLMtDoayeVopvj7jeGNepS0nx+sq/kHIzk
|
|
||||||
OUHjHddEv8BX1sL+vDzYYHblujuSXWfnJ4NNUnl5NE5Lsqrz7akDbp+EknGo4oNY
|
|
||||||
AmF+55LMB5F4/dSuzO2eIxFpvGOVcZ2MsSuIMMe7eglAYMWyYbCNSW64Iik2OOmb
|
|
||||||
vqtgHQVeyBHBGFtK0qBz7H/ICTd/5vjY8OFtUdCzZkLxOq86PT0vir8k/8JHIS3w
|
|
||||||
Aw6lM44mbDdN4xabM466k9TK+L2J08RW+K4lJ21yqjFrczmWoOhgNHZsVozgj3+m
|
|
||||||
JMildhSH3/orpAvdtjw2J44NP4y4ts9bRftFhlXA4ZTb8qLnTclrayPKXYio4D8v
|
|
||||||
G+nAf4RLCP0++XPRSEm/5Rv6/MXJZ9we+7XNHNTAC2dkmU1QTlM2dttzN28Whhf5
|
|
||||||
gPLPMkHxaqGn4wygONP9T2Ehth8Fi8eo5OpkMM/uU30n5xlchqBQSPxWiJSIk1cN
|
|
||||||
rrkM+tFI6ij510nyAL0uF4l3vc3aBQ90I3iS9J51j1MQQ2pt8/3Ofq5CiHKNUGPL
|
|
||||||
0w==
|
|
||||||
=Opd1
|
|
||||||
-----END PGP PUBLIC KEY BLOCK-----";
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Test that basic encryption returns a valid encrypted message
|
|
||||||
*/
|
|
||||||
function test_Encrypt()
|
|
||||||
{
|
|
||||||
// jason's public key
|
|
||||||
$public_key_ascii = $this->getTestKey();
|
|
||||||
|
|
||||||
// plain text message
|
|
||||||
$plain_text_string = "Whatever 90's tote bag, meggings put a bird on it cray bicycle rights vinyl semiotics Wes Anderson. Selvage Austin umami, letterpress Tumblr deep v kitsch polaroid. Trust fund messenger bag sartorial gluten-free, cred cray church-key pop-up Intelligentsia. Food truck Tumblr paleo mixtape XOXO banjo PBR&B Pinterest tofu banh mi. Portland messenger bag cornhole PBR Tonx High Life, DIY pork belly bespoke hoodie Terry Richardson dreamcatcher ethical forage. Put a bird on it slow-carb mixtape cardigan craft beer messenger bag. Aesthetic twee art party, Odd Future trust fund banjo ugh small batch semiotics.
|
|
||||||
|
|
||||||
Whatever asymmetrical keffiyeh literally narwhal. Keytar Odd Future blog, wayfarers literally gluten-free beard. Authentic Cosby sweater sustainable hashtag, VHS food truck kogi seitan put a bird on it YOLO. Selvage tousled mustache, flannel craft beer try-hard McSweeney's literally four loko YOLO keytar beard synth forage. Salvia Schlitz narwhal Terry Richardson typewriter, Wes Anderson butcher wolf. Slow-carb whatever bitters, letterpress trust fund pug before they sold out food truck artisan tousled. Church-key Vice craft beer Wes Anderson artisan flexitarian, kogi YOLO hella Tonx chia Neutra.
|
|
||||||
|
|
||||||
Farm-to-table actually Portland, artisan shabby chic vinyl organic seitan roof party distillery. Street art PBR&B banh mi, Tonx authentic you probably haven't heard of them fixie whatever tofu gluten-free. Gentrify locavore lo-fi umami, Thundercats salvia wolf four loko. Mixtape messenger bag gluten-free, squid American Apparel hella Shoreditch whatever selfies sriracha before they sold out. Pickled farm-to-table Intelligentsia occupy. Tumblr Etsy farm-to-table, mlkshk hella shabby chic meh jean shorts dreamcatcher fashion axe trust fund lomo Neutra. Freegan vegan narwhal tousled hoodie wolf flexitarian.
|
|
||||||
|
|
||||||
Flannel sriracha XOXO, slow-carb Godard ennui tousled American Apparel street art drinking vinegar lo-fi blog. Whatever Intelligentsia cardigan, Pinterest PBR&B pop-up semiotics. Jean shorts chillwave semiotics biodiesel. McSweeney's fap cardigan messenger bag fanny pack Cosby sweater Odd Future, Pitchfork four loko Marfa keytar mlkshk. 3 wolf moon McSweeney's gluten-free, umami freegan biodiesel fingerstache aesthetic sriracha swag Echo Park. Shabby chic selfies fixie, art party XOXO four loko chambray post-ironic letterpress messenger bag. Mustache beard lo-fi, flexitarian artisan tofu freegan occupy kale chips Carles twee chia bespoke.";
|
|
||||||
|
|
||||||
$gpg = new GPG();
|
|
||||||
$pub_key = new GPG_Public_Key($public_key_ascii);
|
|
||||||
$encrypted = $gpg->encrypt($pub_key,$plain_text_string);
|
|
||||||
|
|
||||||
$this->assertContains('-----BEGIN PGP MESSAGE-----', $encrypted, 'PGP Header Expected');
|
|
||||||
|
|
||||||
$this->assertContains('-----END PGP MESSAGE-----', $encrypted, 'PGP Footer Expected');
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
?>
|
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -1,4 +0,0 @@
|
||||||
##
|
|
||||||
# Test runner for Phreeze
|
|
||||||
##
|
|
||||||
phpunit gpg/
|
|
||||||
|
|
@ -1,92 +1,175 @@
|
||||||
<?php
|
<?php
|
||||||
/**
|
/**
|
||||||
* Name: Secure Mail
|
* Name: Secure Mail
|
||||||
* Description: Send notification mail encrypted with user-defined public GPG key
|
* Description: Send notification mail encrypted with user-defined public GPG key
|
||||||
* Version: 1.0
|
* Version: 2.0
|
||||||
* Author: Fabio Comuni <http://kirgroup.com/profile/fabrixxm>
|
* Author: Fabio Comuni <http://kirgroup.com/profile/fabrixxm>
|
||||||
*/
|
*/
|
||||||
require_once 'php-gpg/libs/GPG.php';
|
|
||||||
|
require_once "include/Emailer.php";
|
||||||
function securemail_install() {
|
|
||||||
register_hook('plugin_settings', 'addon/securemail/securemail.php', 'securemail_settings');
|
/* because the fraking openpgp-php is in composer, require libs in composer
|
||||||
register_hook('plugin_settings_post', 'addon/securemail/securemail.php', 'securemail_settings_post');
|
* and then don't use autoloader to load classes... */
|
||||||
|
$path = __DIR__."/vendor/phpseclib/phpseclib/phpseclib/";
|
||||||
register_hook('emailer_send_prepare', 'addon/securemail/securemail.php', 'securemail_emailer_send_prepare');
|
set_include_path(get_include_path() . PATH_SEPARATOR . $path);
|
||||||
|
/* so, we don't use the autoloader and include what we need */
|
||||||
logger("installed securemail");
|
$path = __DIR__."/vendor/singpolyma/openpgp-php/lib";
|
||||||
}
|
set_include_path(get_include_path() . PATH_SEPARATOR . $path);
|
||||||
|
|
||||||
function securemail_uninstall() {
|
require_once "openpgp.php";
|
||||||
unregister_hook('plugin_settings', 'addon/securemail/securemail.php', 'securemail_settings');
|
require_once "openpgp_crypt_symmetric.php";
|
||||||
unregister_hook('plugin_settings_post', 'addon/securemail/securemail.php', 'securemail_settings_post');
|
|
||||||
|
|
||||||
unregister_hook('emailer_send_prepare', 'addon/securemail/securemail.php', 'securemail_emailer_send_prepare');
|
function securemail_install() {
|
||||||
|
register_hook('plugin_settings', 'addon/securemail/securemail.php', 'securemail_settings');
|
||||||
logger("removed securemail");
|
register_hook('plugin_settings_post', 'addon/securemail/securemail.php', 'securemail_settings_post');
|
||||||
}
|
|
||||||
|
register_hook('emailer_send_prepare', 'addon/securemail/securemail.php', 'securemail_emailer_send_prepare');
|
||||||
|
|
||||||
function securemail_settings(&$a,&$s){
|
logger("installed securemail");
|
||||||
if(! local_user())
|
}
|
||||||
return;
|
|
||||||
|
function securemail_uninstall() {
|
||||||
$enable_checked = (intval(get_pconfig(local_user(),'securemail','enable')) ? ' checked="checked"' : '');
|
unregister_hook('plugin_settings', 'addon/securemail/securemail.php', 'securemail_settings');
|
||||||
$publickey = get_pconfig(local_user(),'securemail','pkey');
|
unregister_hook('plugin_settings_post', 'addon/securemail/securemail.php', 'securemail_settings_post');
|
||||||
|
|
||||||
# all of this should be in a template...
|
unregister_hook('emailer_send_prepare', 'addon/securemail/securemail.php', 'securemail_emailer_send_prepare');
|
||||||
$s .= '<span id="settings_securemail_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_securemail_expanded\'); openClose(\'settings_securemail_inflated\');">';
|
|
||||||
$s .= '<h3>' . t('"Secure Mail" Settings').'</h3>';
|
logger("removed securemail");
|
||||||
$s .= '</span>';
|
}
|
||||||
$s .= '<div id="settings_securemail_expanded" class="settings-block" style="display: none;">';
|
|
||||||
$s .= '<span class="fakelink" onclick="openClose(\'settings_securemail_expanded\'); openClose(\'settings_securemail_inflated\');">';
|
|
||||||
$s .= '<h3>' . t('"Secure Mail" Settings').'</h3>';
|
function securemail_settings(&$a,&$s){
|
||||||
$s .= '</span>';
|
if(! local_user()) {
|
||||||
$s .= '<div id="securemail-wrapper">';
|
return;
|
||||||
|
}
|
||||||
$s .= '<input id="securemail-enable" type="checkbox" name="securemail-enable" value="1"'.$enable_checked.' />';
|
|
||||||
$s .= '<label id="securemail-enable-label" for="securemail-enable">'.t('Enable Secure Mail').'</label>';
|
$enable = intval(get_pconfig(local_user(),'securemail','enable'));
|
||||||
|
$publickey = get_pconfig(local_user(),'securemail','pkey');
|
||||||
$s .= '<div class="clear"></div>';
|
|
||||||
$s .= '<label id="securemail-label" for="securemail-pkey">'.t('Public key').' </label>';
|
$t = get_markup_template( "admin.tpl", "addon/securemail/" );
|
||||||
$s .= '<textarea id="securemail-pkey" name="securemail-pkey">'.$publickey.'</textarea>';
|
|
||||||
$s .= '</div><div class="clear"></div>';
|
$s = replace_macros($t, array(
|
||||||
|
'$title' => t('"Secure Mail" Settings'),
|
||||||
$s .= '<div class="settings-submit-wrapper" ><input type="submit" id="securemail-submit" name="securemail-submit" class="settings-submit" value="' . t('Save Settings') . '" /></div>';
|
'$submit' => t('Save Settings'),
|
||||||
$s .= '</div>';
|
'$test' => t('Save and send test'), //NOTE: update also in 'post'
|
||||||
|
'$enable' => array('securemail-enable', t('Enable Secure Mail'), $enable, ""),
|
||||||
return;
|
'$publickey' => array('securemail-pkey', t('Public key'), $publickey, t("Your public PGP key, ascii armored format"), "rows='10'")
|
||||||
}
|
));
|
||||||
function securemail_settings_post(&$a, &$b){
|
|
||||||
|
|
||||||
if(! local_user())
|
|
||||||
return;
|
return;
|
||||||
|
}
|
||||||
if($_POST['securemail-submit']) {
|
function securemail_settings_post(&$a, &$b){
|
||||||
set_pconfig(local_user(),'securemail','pkey',trim($_POST['securemail-pkey']));
|
|
||||||
$enable = ((x($_POST,'securemail-enable')) ? 1 : 0);
|
if(! local_user()) {
|
||||||
set_pconfig(local_user(),'securemail','enable', $enable);
|
return;
|
||||||
info( t('Secure Mail Settings saved.') . EOL);
|
}
|
||||||
}
|
|
||||||
}
|
if($_POST['securemail-submit']) {
|
||||||
|
set_pconfig(local_user(),'securemail','pkey',trim($_POST['securemail-pkey']));
|
||||||
function securemail_emailer_send_prepare(&$a, &$b) {
|
$enable = ((x($_POST,'securemail-enable')) ? 1 : 0);
|
||||||
if (!x($b,'uid')) return;
|
set_pconfig(local_user(),'securemail','enable', $enable);
|
||||||
$uid = $b['uid'];
|
info( t('Secure Mail Settings saved.') . EOL);
|
||||||
|
|
||||||
$enable_checked = get_pconfig($uid,'securemail','enable');
|
if ($_POST['securemail-submit'] == t('Save and send test')) {
|
||||||
if (!$enable_checked) return;
|
$sitename = $a->config['sitename'];
|
||||||
|
|
||||||
$public_key_ascii = get_pconfig($uid,'securemail','pkey');
|
$hostname = $a->get_hostname();
|
||||||
|
if (strpos($hostname, ':')){
|
||||||
$gpg = new GPG();
|
$hostname = substr($hostname, 0, strpos($hostname, ':'));
|
||||||
|
}
|
||||||
# create an instance of a GPG public key object based on ASCII key
|
|
||||||
$pub_key = new GPG_Public_Key($public_key_ascii);
|
$sender_email = $a->config['sender_email'];
|
||||||
|
if (empty($sender_email)){
|
||||||
# using the key, encrypt your plain text using the public key
|
$sender_email = 'noreply@'.$hostname;
|
||||||
$txt_encrypted = $gpg->encrypt($pub_key,$b['textVersion']);
|
}
|
||||||
#$html_encrypted = $gpg->encrypt($pub_key,$b['htmlVersion']);
|
|
||||||
|
$subject = "Friendica - Secure Mail - Test";
|
||||||
$b['textVersion'] = $txt_encrypted;
|
$message = "This is a test message from your Friendica Secure Mail addon.\n\nBye!";
|
||||||
$b['htmlVersion'] = null;
|
|
||||||
}
|
$params = array(
|
||||||
|
'uid' => local_user(),
|
||||||
|
'fromName' => $sitename,
|
||||||
|
'fromEmail' => $sender_email,
|
||||||
|
'toEmail' => $a->user['email'],
|
||||||
|
'messageSubject' => $subject,
|
||||||
|
'htmlVersion' => "<p>{$message}</p>",
|
||||||
|
'textVersion' => $message,
|
||||||
|
);
|
||||||
|
|
||||||
|
// enable addon for test
|
||||||
|
set_pconfig(local_user(),'securemail','enable', 1);
|
||||||
|
|
||||||
|
$res = Emailer::send($params);
|
||||||
|
|
||||||
|
// revert to saved value
|
||||||
|
set_pconfig(local_user(),'securemail','enable', $enable);
|
||||||
|
|
||||||
|
if ($res) {
|
||||||
|
info( t("Test email sent") . EOL);
|
||||||
|
} else {
|
||||||
|
notice( t("There was an error sending the test email") .EOL);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
function securemail_emailer_send_prepare(&$a, &$b) {
|
||||||
|
if (!x($b,'uid')) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
$uid = $b['uid'];
|
||||||
|
|
||||||
|
$enable_checked = get_pconfig($uid,'securemail','enable');
|
||||||
|
if (!$enable_checked) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
$public_key_ascii = get_pconfig($uid,'securemail','pkey');
|
||||||
|
|
||||||
|
preg_match('/-----BEGIN ([A-Za-z ]+)-----/', $public_key_ascii, $matches);
|
||||||
|
$marker = (empty($matches[1])) ? 'MESSAGE' : $matches[1];
|
||||||
|
$public_key = OpenPGP::unarmor($public_key_ascii, $marker);
|
||||||
|
|
||||||
|
$key = OpenPGP_Message::parse($public_key);
|
||||||
|
|
||||||
|
$data = new OpenPGP_LiteralDataPacket($b['textVersion'], array(
|
||||||
|
'format' => 'u',
|
||||||
|
'filename' => 'encrypted.gpg'
|
||||||
|
));
|
||||||
|
$encrypted = OpenPGP_Crypt_Symmetric::encrypt($key, new OpenPGP_Message(array($data)));
|
||||||
|
$armored_encrypted = wordwrap(OpenPGP::enarmor($encrypted->to_bytes(), "PGP MESSAGE"), 64, "\n", true);
|
||||||
|
|
||||||
|
$b['textVersion'] = $armored_encrypted;
|
||||||
|
$b['htmlVersion'] = null;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* add addon composer autoloader maps to system autoloader
|
||||||
|
|
||||||
|
function securemail_autoloader() {
|
||||||
|
|
||||||
|
$loader = require dirname(dirname(__DIR__))."/vendor/autoload.php";
|
||||||
|
|
||||||
|
$map = require __DIR__ . '/vendor/composer/autoload_namespaces.php';
|
||||||
|
foreach ($map as $namespace => $path) {
|
||||||
|
$loader->set($namespace, $path);
|
||||||
|
}
|
||||||
|
|
||||||
|
$map = require __DIR__ . '/vendor/composer/autoload_psr4.php';
|
||||||
|
foreach ($map as $namespace => $path) {
|
||||||
|
$loader->setPsr4($namespace, $path);
|
||||||
|
}
|
||||||
|
|
||||||
|
$classMap = require __DIR__ . '/vendor/composer/autoload_classmap.php';
|
||||||
|
if ($classMap) {
|
||||||
|
$loader->addClassMap($classMap);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
securemail_autoloader();
|
||||||
|
|
||||||
|
*/
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,26 @@
|
||||||
|
{{* We organize the settings in collapsable panel-groups *}}
|
||||||
|
{{* this div should be in frio theme *}}
|
||||||
|
<div class="panel-group panel-group-settings" id="securemail" role="tablist" aria-multiselectable="true">
|
||||||
|
{{* The password setting section *}}
|
||||||
|
<div class="panel">
|
||||||
|
<div class="section-subtitle-wrapper" role="tab" id="securemail-settings">
|
||||||
|
<h4>
|
||||||
|
<a class="accordion-toggle collapsed" data-toggle="collapse" data-parent="#settings" href="#securemail-settings-collapse" aria-expanded="true" aria-controls="securemail-settings-collapse">
|
||||||
|
{{$title}}
|
||||||
|
</a>
|
||||||
|
</h4>
|
||||||
|
</div>
|
||||||
|
<div id="securemail-settings-collapse" class="panel-collapse collapse" role="tabpanel" aria-labelledby="securemail-settings">
|
||||||
|
<div class="section-content-tools-wrapper">
|
||||||
|
{{include file="field_checkbox.tpl" field=$enable}}
|
||||||
|
{{include file="field_textarea.tpl" field=$publickey}}
|
||||||
|
|
||||||
|
<div class="form-group pull-right settings-submit-wrapper" >
|
||||||
|
<button type="submit" name="securemail-submit" class="btn btn-primary" value="{{$submit|escape:'html'}}">{{$submit}}</button>
|
||||||
|
<button type="submit" name="securemail-submit" class="btn btn-default" value="{{$test|escape:'html'}}">{{$test}}</button>
|
||||||
|
</div>
|
||||||
|
<div class="clear"></div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,5 @@
|
||||||
|
phpseclib Lead Developer: TerraFrost (Jim Wigginton)
|
||||||
|
|
||||||
|
phpseclib Developers: monnerat (Patrick Monnerat)
|
||||||
|
bantu (Andreas Fischer)
|
||||||
|
petrich (Hans-Jürgen Petrich)
|
||||||
|
|
@ -0,0 +1,83 @@
|
||||||
|
# Changelog
|
||||||
|
|
||||||
|
## 0.3.9 - 2014-11-09
|
||||||
|
|
||||||
|
- PHP 5.6 improvements ([#482](https://github.com/phpseclib/phpseclib/pull/482), [#491](https://github.com/phpseclib/phpseclib/issues/491))
|
||||||
|
|
||||||
|
## 0.3.8 - 2014-09-12
|
||||||
|
|
||||||
|
- improve support for indef lengths in File_ASN1
|
||||||
|
- add hmac-sha2-256 support to Net_SSH2
|
||||||
|
- make it so negotiated algorithms can be seen before Net_SSH2 login
|
||||||
|
- add sha256-96 and sha512-96 to Crypt_Hash
|
||||||
|
- window size handling adjustments in Net_SSH2
|
||||||
|
|
||||||
|
## 0.3.7 - 2014-07-05
|
||||||
|
|
||||||
|
- auto-detect public vs private keys
|
||||||
|
- add file_exists, is_dir, is_file, readlink and symlink to Net_SFTP
|
||||||
|
- add support for recursive nlist and rawlist
|
||||||
|
- make it so nlist and rawlist can return pre-sorted output
|
||||||
|
- make it so callback functions can make exec() return early
|
||||||
|
- add signSPKAC and saveSPKAC methods to File_X509
|
||||||
|
- add support for PKCS8 keys in Crypt_RSA
|
||||||
|
- add pbkdf1 support to setPassword() in Crypt_Base
|
||||||
|
- add getWindowColumns, getWindowRows, setWindowColumns, setWindowRows to Net_SSH2
|
||||||
|
- add support for filenames with spaces in them to Net_SCP
|
||||||
|
|
||||||
|
## 0.3.6 - 2014-02-23
|
||||||
|
|
||||||
|
- add preliminary support for custom SSH subsystems
|
||||||
|
- add ssh-agent support
|
||||||
|
|
||||||
|
## 0.3.5 - 2013-07-11
|
||||||
|
|
||||||
|
- numerous SFTP changes:
|
||||||
|
- chown
|
||||||
|
- chgrp
|
||||||
|
- truncate
|
||||||
|
- improved file type detection
|
||||||
|
- put() can write to te middle of a file
|
||||||
|
- mkdir accepts the same paramters that PHP's mkdir does
|
||||||
|
- the ability to upload/download 2GB files
|
||||||
|
- across-the-board speedups for the various encryption algorithms
|
||||||
|
- multi-factor authentication support for Net_SSH2
|
||||||
|
- a $callback parameter for Net_SSH2::exec
|
||||||
|
- new classes:
|
||||||
|
- Net_SFTP_StreamWrapper
|
||||||
|
- Net_SCP
|
||||||
|
- Crypt_Twofish
|
||||||
|
- Crypt_Blowfish
|
||||||
|
|
||||||
|
## 0.3.1 - 2012-11-20
|
||||||
|
|
||||||
|
- add Net_SSH2::enableQuietMode() for suppressing stderr
|
||||||
|
- add Crypt_RSA::__toString() and Crypt_RSA::getSize()
|
||||||
|
- fix problems with File_X509::validateDate(), File_X509::sign() and Crypt_RSA::verify()
|
||||||
|
- use OpenSSL to speed up modular exponention in Math_BigInteger
|
||||||
|
- improved timeout functionality in Net_SSH2
|
||||||
|
- add support for SFTPv2
|
||||||
|
- add support for CRLs in File_X509
|
||||||
|
- SSH-2.0-SSH doesn't implement hmac-*-96 correctly
|
||||||
|
|
||||||
|
## 0.3.0 - 2012-07-08
|
||||||
|
|
||||||
|
- add support for reuming Net_SFTP::put()
|
||||||
|
- add support for recursive deletes and recursive chmods to Net_SFTP
|
||||||
|
- add setTimeout() to Net_SSH2
|
||||||
|
- add support for PBKDF2 to the various Crypt_* classes via setPassword()
|
||||||
|
- add File_X509 and File_ASN1
|
||||||
|
- add the ability to decode various formats in Crypt_RSA
|
||||||
|
- make Net_SSH2::getServerPublicHostKey() return a printer-friendly version of the public key
|
||||||
|
|
||||||
|
## 0.2.2 - 2011-05-09
|
||||||
|
|
||||||
|
- CFB and OFB modes were added to all block ciphers
|
||||||
|
- support for interactive mode was added to Net_SSH2
|
||||||
|
- Net_SSH2 now has limited keyboard_interactive authentication support
|
||||||
|
- support was added for PuTTY formatted RSA private keys and XML formatted RSA private keys
|
||||||
|
- Crypt_RSA::loadKey() will now try all key types automatically
|
||||||
|
= add support for AES-128-CBC and DES-EDE3-CFB encrypted RSA private keys
|
||||||
|
- add Net_SFTP::stat(), Net_SFTP::lstat() and Net_SFTP::rawlist()
|
||||||
|
- logging was added to Net_SSH1
|
||||||
|
- the license was changed to the less restrictive MIT license
|
||||||
|
|
@ -0,0 +1,21 @@
|
||||||
|
Copyright 2007-2013 TerraFrost and other contributors
|
||||||
|
http://phpseclib.sourceforge.net/
|
||||||
|
|
||||||
|
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.
|
||||||
|
|
@ -0,0 +1,65 @@
|
||||||
|
# phpseclib - PHP Secure Communications Library
|
||||||
|
|
||||||
|
[](http://travis-ci.org/phpseclib/phpseclib)
|
||||||
|
|
||||||
|
MIT-licensed pure-PHP implementations of an arbitrary-precision integer
|
||||||
|
arithmetic library, fully PKCS#1 (v2.1) compliant RSA, DES, 3DES, RC4, Rijndael,
|
||||||
|
AES, Blowfish, Twofish, SSH-1, SSH-2, SFTP, and X.509
|
||||||
|
|
||||||
|
* [Download (0.3.9)](http://sourceforge.net/projects/phpseclib/files/phpseclib0.3.9.zip/download)
|
||||||
|
* [Browse Git](https://github.com/phpseclib/phpseclib)
|
||||||
|
* [Code Coverage Report](http://phpseclib.bantux.org/code_coverage/master/latest/)
|
||||||
|
|
||||||
|
<img src="http://phpseclib.sourceforge.net/pear-icon.png" alt="PEAR Channel" width="16" height="16">
|
||||||
|
PEAR Channel: [phpseclib.sourceforge.net](http://phpseclib.sourceforge.net/pear.htm)
|
||||||
|
|
||||||
|
## Documentation
|
||||||
|
|
||||||
|
* [Documentation / Manual](http://phpseclib.sourceforge.net/)
|
||||||
|
* [API Documentation](http://phpseclib.bantux.org/api/master/) (generated by Sami)
|
||||||
|
|
||||||
|
## Support
|
||||||
|
|
||||||
|
Need Support?
|
||||||
|
|
||||||
|
* [Checkout Questions and Answers on Stack Overflow](http://stackoverflow.com/questions/tagged/phpseclib)
|
||||||
|
* [Create a Support Ticket on GitHub](https://github.com/phpseclib/phpseclib/issues/new)
|
||||||
|
* [Browse the Support Forum](http://www.frostjedi.com/phpbb/viewforum.php?f=46) (no longer in use)
|
||||||
|
|
||||||
|
## Installing Development Dependencies
|
||||||
|
|
||||||
|
Dependencies are managed via Composer.
|
||||||
|
|
||||||
|
1. Download the [`composer.phar`](https://getcomposer.org/composer.phar) executable as per the
|
||||||
|
[Composer Download Instructions](https://getcomposer.org/download/), e.g. by running
|
||||||
|
|
||||||
|
``` sh
|
||||||
|
curl -sS https://getcomposer.org/installer | php
|
||||||
|
```
|
||||||
|
|
||||||
|
2. Install Dependencies
|
||||||
|
|
||||||
|
``` sh
|
||||||
|
php composer.phar install --dev
|
||||||
|
```
|
||||||
|
|
||||||
|
## Contributing
|
||||||
|
|
||||||
|
1. Fork the Project
|
||||||
|
|
||||||
|
2. Install Development Dependencies
|
||||||
|
|
||||||
|
3. Create a Feature Branch
|
||||||
|
|
||||||
|
4. (Recommended) Run the Test Suite
|
||||||
|
|
||||||
|
``` sh
|
||||||
|
vendor/bin/phpunit
|
||||||
|
```
|
||||||
|
5. (Recommended) Check whether your code conforms to our Coding Standards by running
|
||||||
|
|
||||||
|
``` sh
|
||||||
|
vendor/bin/phing -f build/build.xml sniff
|
||||||
|
```
|
||||||
|
|
||||||
|
6. Send us a Pull Request
|
||||||
|
|
@ -0,0 +1,207 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of AES.
|
||||||
|
*
|
||||||
|
* Uses mcrypt, if available/possible, and an internal implementation, otherwise.
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* If {@link Crypt_AES::setKeyLength() setKeyLength()} isn't called, it'll be calculated from
|
||||||
|
* {@link Crypt_AES::setKey() setKey()}. ie. if the key is 128-bits, the key length will be 128-bits. If it's 136-bits
|
||||||
|
* it'll be null-padded to 192-bits and 192 bits will be the key length until {@link Crypt_AES::setKey() setKey()}
|
||||||
|
* is called, again, at which point, it'll be recalculated.
|
||||||
|
*
|
||||||
|
* Since Crypt_AES extends Crypt_Rijndael, some functions are available to be called that, in the context of AES, don't
|
||||||
|
* make a whole lot of sense. {@link Crypt_AES::setBlockLength() setBlockLength()}, for instance. Calling that function,
|
||||||
|
* however possible, won't do anything (AES has a fixed block length whereas Rijndael has a variable one).
|
||||||
|
*
|
||||||
|
* Here's a short example of how to use this library:
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* include 'Crypt/AES.php';
|
||||||
|
*
|
||||||
|
* $aes = new Crypt_AES();
|
||||||
|
*
|
||||||
|
* $aes->setKey('abcdefghijklmnop');
|
||||||
|
*
|
||||||
|
* $size = 10 * 1024;
|
||||||
|
* $plaintext = '';
|
||||||
|
* for ($i = 0; $i < $size; $i++) {
|
||||||
|
* $plaintext.= 'a';
|
||||||
|
* }
|
||||||
|
*
|
||||||
|
* echo $aes->decrypt($aes->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_AES
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2008 Jim Wigginton
|
||||||
|
* @license http://www.opensource.org/licenses/mit-license.html MIT License
|
||||||
|
* @link http://phpseclib.sourceforge.net
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Include Crypt_Rijndael
|
||||||
|
*/
|
||||||
|
if (!class_exists('Crypt_Rijndael')) {
|
||||||
|
include_once 'Rijndael.php';
|
||||||
|
}
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @access public
|
||||||
|
* @see Crypt_AES::encrypt()
|
||||||
|
* @see Crypt_AES::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_AES_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_AES_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_AES_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_AES_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_AES_MODE_OFB', CRYPT_MODE_OFB);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @access private
|
||||||
|
* @see Crypt_Base::Crypt_Base()
|
||||||
|
*/
|
||||||
|
/**
|
||||||
|
* Toggles the internal implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_AES_MODE_INTERNAL', CRYPT_MODE_INTERNAL);
|
||||||
|
/**
|
||||||
|
* Toggles the mcrypt implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_AES_MODE_MCRYPT', CRYPT_MODE_MCRYPT);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of AES.
|
||||||
|
*
|
||||||
|
* @package Crypt_AES
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class Crypt_AES extends Crypt_Rijndael
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* The namespace used by the cipher for its constants.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::const_namespace
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $const_namespace = 'AES';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Dummy function
|
||||||
|
*
|
||||||
|
* Since Crypt_AES extends Crypt_Rijndael, this function is, technically, available, but it doesn't do anything.
|
||||||
|
*
|
||||||
|
* @see Crypt_Rijndael::setBlockLength()
|
||||||
|
* @access public
|
||||||
|
* @param Integer $length
|
||||||
|
*/
|
||||||
|
function setBlockLength($length)
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the key length
|
||||||
|
*
|
||||||
|
* Valid key lengths are 128, 192, and 256. If the length is less than 128, it will be rounded up to
|
||||||
|
* 128. If the length is greater than 128 and invalid, it will be rounded down to the closest valid amount.
|
||||||
|
*
|
||||||
|
* @see Crypt_Rijndael:setKeyLength()
|
||||||
|
* @access public
|
||||||
|
* @param Integer $length
|
||||||
|
*/
|
||||||
|
function setKeyLength($length)
|
||||||
|
{
|
||||||
|
switch ($length) {
|
||||||
|
case 160:
|
||||||
|
$length = 192;
|
||||||
|
break;
|
||||||
|
case 224:
|
||||||
|
$length = 256;
|
||||||
|
}
|
||||||
|
parent::setKeyLength($length);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the key.
|
||||||
|
*
|
||||||
|
* Rijndael supports five different key lengths, AES only supports three.
|
||||||
|
*
|
||||||
|
* @see Crypt_Rijndael:setKey()
|
||||||
|
* @see setKeyLength()
|
||||||
|
* @access public
|
||||||
|
* @param String $key
|
||||||
|
*/
|
||||||
|
function setKey($key)
|
||||||
|
{
|
||||||
|
parent::setKey($key);
|
||||||
|
|
||||||
|
if (!$this->explicit_key_length) {
|
||||||
|
$length = strlen($key);
|
||||||
|
switch (true) {
|
||||||
|
case $length <= 16:
|
||||||
|
$this->key_size = 16;
|
||||||
|
break;
|
||||||
|
case $length <= 24:
|
||||||
|
$this->key_size = 24;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$this->key_size = 32;
|
||||||
|
}
|
||||||
|
$this->_setupEngine();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,644 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of Blowfish.
|
||||||
|
*
|
||||||
|
* Uses mcrypt, if available, and an internal implementation, otherwise.
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* Useful resources are as follows:
|
||||||
|
*
|
||||||
|
* - {@link http://en.wikipedia.org/wiki/Blowfish_(cipher) Wikipedia description of Blowfish}
|
||||||
|
*
|
||||||
|
* Here's a short example of how to use this library:
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* include 'Crypt/Blowfish.php';
|
||||||
|
*
|
||||||
|
* $blowfish = new Crypt_Blowfish();
|
||||||
|
*
|
||||||
|
* $blowfish->setKey('12345678901234567890123456789012');
|
||||||
|
*
|
||||||
|
* $plaintext = str_repeat('a', 1024);
|
||||||
|
*
|
||||||
|
* echo $blowfish->decrypt($blowfish->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_Blowfish
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @author Hans-Juergen Petrich <petrich@tronic-media.com>
|
||||||
|
* @copyright 2007 Jim Wigginton
|
||||||
|
* @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_Blowfish::encrypt()
|
||||||
|
* @see Crypt_Blowfish::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_BLOWFISH_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_BLOWFISH_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_BLOWFISH_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_BLOWFISH_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_BLOWFISH_MODE_OFB', CRYPT_MODE_OFB);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @access private
|
||||||
|
* @see Crypt_Base::Crypt_Base()
|
||||||
|
*/
|
||||||
|
/**
|
||||||
|
* Toggles the internal implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_BLOWFISH_MODE_INTERNAL', CRYPT_MODE_INTERNAL);
|
||||||
|
/**
|
||||||
|
* Toggles the mcrypt implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_BLOWFISH_MODE_MCRYPT', CRYPT_MODE_MCRYPT);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of Blowfish.
|
||||||
|
*
|
||||||
|
* @package Crypt_Blowfish
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @author Hans-Juergen Petrich <petrich@tronic-media.com>
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class Crypt_Blowfish extends Crypt_Base
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Block Length of the cipher
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::block_size
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $block_size = 8;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* 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 = 56;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The namespace used by the cipher for its constants.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::const_namespace
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $const_namespace = 'BLOWFISH';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The mcrypt specific name of the cipher
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::cipher_name_mcrypt
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $cipher_name_mcrypt = 'blowfish';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Optimizing value while CFB-encrypting
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::cfb_init_len
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $cfb_init_len = 500;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The fixed subkeys boxes ($sbox0 - $sbox3) with 256 entries each
|
||||||
|
*
|
||||||
|
* S-Box 1
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $sbox0 = array (
|
||||||
|
0xd1310ba6, 0x98dfb5ac, 0x2ffd72db, 0xd01adfb7, 0xb8e1afed, 0x6a267e96, 0xba7c9045, 0xf12c7f99,
|
||||||
|
0x24a19947, 0xb3916cf7, 0x0801f2e2, 0x858efc16, 0x636920d8, 0x71574e69, 0xa458fea3, 0xf4933d7e,
|
||||||
|
0x0d95748f, 0x728eb658, 0x718bcd58, 0x82154aee, 0x7b54a41d, 0xc25a59b5, 0x9c30d539, 0x2af26013,
|
||||||
|
0xc5d1b023, 0x286085f0, 0xca417918, 0xb8db38ef, 0x8e79dcb0, 0x603a180e, 0x6c9e0e8b, 0xb01e8a3e,
|
||||||
|
0xd71577c1, 0xbd314b27, 0x78af2fda, 0x55605c60, 0xe65525f3, 0xaa55ab94, 0x57489862, 0x63e81440,
|
||||||
|
0x55ca396a, 0x2aab10b6, 0xb4cc5c34, 0x1141e8ce, 0xa15486af, 0x7c72e993, 0xb3ee1411, 0x636fbc2a,
|
||||||
|
0x2ba9c55d, 0x741831f6, 0xce5c3e16, 0x9b87931e, 0xafd6ba33, 0x6c24cf5c, 0x7a325381, 0x28958677,
|
||||||
|
0x3b8f4898, 0x6b4bb9af, 0xc4bfe81b, 0x66282193, 0x61d809cc, 0xfb21a991, 0x487cac60, 0x5dec8032,
|
||||||
|
0xef845d5d, 0xe98575b1, 0xdc262302, 0xeb651b88, 0x23893e81, 0xd396acc5, 0x0f6d6ff3, 0x83f44239,
|
||||||
|
0x2e0b4482, 0xa4842004, 0x69c8f04a, 0x9e1f9b5e, 0x21c66842, 0xf6e96c9a, 0x670c9c61, 0xabd388f0,
|
||||||
|
0x6a51a0d2, 0xd8542f68, 0x960fa728, 0xab5133a3, 0x6eef0b6c, 0x137a3be4, 0xba3bf050, 0x7efb2a98,
|
||||||
|
0xa1f1651d, 0x39af0176, 0x66ca593e, 0x82430e88, 0x8cee8619, 0x456f9fb4, 0x7d84a5c3, 0x3b8b5ebe,
|
||||||
|
0xe06f75d8, 0x85c12073, 0x401a449f, 0x56c16aa6, 0x4ed3aa62, 0x363f7706, 0x1bfedf72, 0x429b023d,
|
||||||
|
0x37d0d724, 0xd00a1248, 0xdb0fead3, 0x49f1c09b, 0x075372c9, 0x80991b7b, 0x25d479d8, 0xf6e8def7,
|
||||||
|
0xe3fe501a, 0xb6794c3b, 0x976ce0bd, 0x04c006ba, 0xc1a94fb6, 0x409f60c4, 0x5e5c9ec2, 0x196a2463,
|
||||||
|
0x68fb6faf, 0x3e6c53b5, 0x1339b2eb, 0x3b52ec6f, 0x6dfc511f, 0x9b30952c, 0xcc814544, 0xaf5ebd09,
|
||||||
|
0xbee3d004, 0xde334afd, 0x660f2807, 0x192e4bb3, 0xc0cba857, 0x45c8740f, 0xd20b5f39, 0xb9d3fbdb,
|
||||||
|
0x5579c0bd, 0x1a60320a, 0xd6a100c6, 0x402c7279, 0x679f25fe, 0xfb1fa3cc, 0x8ea5e9f8, 0xdb3222f8,
|
||||||
|
0x3c7516df, 0xfd616b15, 0x2f501ec8, 0xad0552ab, 0x323db5fa, 0xfd238760, 0x53317b48, 0x3e00df82,
|
||||||
|
0x9e5c57bb, 0xca6f8ca0, 0x1a87562e, 0xdf1769db, 0xd542a8f6, 0x287effc3, 0xac6732c6, 0x8c4f5573,
|
||||||
|
0x695b27b0, 0xbbca58c8, 0xe1ffa35d, 0xb8f011a0, 0x10fa3d98, 0xfd2183b8, 0x4afcb56c, 0x2dd1d35b,
|
||||||
|
0x9a53e479, 0xb6f84565, 0xd28e49bc, 0x4bfb9790, 0xe1ddf2da, 0xa4cb7e33, 0x62fb1341, 0xcee4c6e8,
|
||||||
|
0xef20cada, 0x36774c01, 0xd07e9efe, 0x2bf11fb4, 0x95dbda4d, 0xae909198, 0xeaad8e71, 0x6b93d5a0,
|
||||||
|
0xd08ed1d0, 0xafc725e0, 0x8e3c5b2f, 0x8e7594b7, 0x8ff6e2fb, 0xf2122b64, 0x8888b812, 0x900df01c,
|
||||||
|
0x4fad5ea0, 0x688fc31c, 0xd1cff191, 0xb3a8c1ad, 0x2f2f2218, 0xbe0e1777, 0xea752dfe, 0x8b021fa1,
|
||||||
|
0xe5a0cc0f, 0xb56f74e8, 0x18acf3d6, 0xce89e299, 0xb4a84fe0, 0xfd13e0b7, 0x7cc43b81, 0xd2ada8d9,
|
||||||
|
0x165fa266, 0x80957705, 0x93cc7314, 0x211a1477, 0xe6ad2065, 0x77b5fa86, 0xc75442f5, 0xfb9d35cf,
|
||||||
|
0xebcdaf0c, 0x7b3e89a0, 0xd6411bd3, 0xae1e7e49, 0x00250e2d, 0x2071b35e, 0x226800bb, 0x57b8e0af,
|
||||||
|
0x2464369b, 0xf009b91e, 0x5563911d, 0x59dfa6aa, 0x78c14389, 0xd95a537f, 0x207d5ba2, 0x02e5b9c5,
|
||||||
|
0x83260376, 0x6295cfa9, 0x11c81968, 0x4e734a41, 0xb3472dca, 0x7b14a94a, 0x1b510052, 0x9a532915,
|
||||||
|
0xd60f573f, 0xbc9bc6e4, 0x2b60a476, 0x81e67400, 0x08ba6fb5, 0x571be91f, 0xf296ec6b, 0x2a0dd915,
|
||||||
|
0xb6636521, 0xe7b9f9b6, 0xff34052e, 0xc5855664, 0x53b02d5d, 0xa99f8fa1, 0x08ba4799, 0x6e85076a
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* S-Box 1
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $sbox1 = array(
|
||||||
|
0x4b7a70e9, 0xb5b32944, 0xdb75092e, 0xc4192623, 0xad6ea6b0, 0x49a7df7d, 0x9cee60b8, 0x8fedb266,
|
||||||
|
0xecaa8c71, 0x699a17ff, 0x5664526c, 0xc2b19ee1, 0x193602a5, 0x75094c29, 0xa0591340, 0xe4183a3e,
|
||||||
|
0x3f54989a, 0x5b429d65, 0x6b8fe4d6, 0x99f73fd6, 0xa1d29c07, 0xefe830f5, 0x4d2d38e6, 0xf0255dc1,
|
||||||
|
0x4cdd2086, 0x8470eb26, 0x6382e9c6, 0x021ecc5e, 0x09686b3f, 0x3ebaefc9, 0x3c971814, 0x6b6a70a1,
|
||||||
|
0x687f3584, 0x52a0e286, 0xb79c5305, 0xaa500737, 0x3e07841c, 0x7fdeae5c, 0x8e7d44ec, 0x5716f2b8,
|
||||||
|
0xb03ada37, 0xf0500c0d, 0xf01c1f04, 0x0200b3ff, 0xae0cf51a, 0x3cb574b2, 0x25837a58, 0xdc0921bd,
|
||||||
|
0xd19113f9, 0x7ca92ff6, 0x94324773, 0x22f54701, 0x3ae5e581, 0x37c2dadc, 0xc8b57634, 0x9af3dda7,
|
||||||
|
0xa9446146, 0x0fd0030e, 0xecc8c73e, 0xa4751e41, 0xe238cd99, 0x3bea0e2f, 0x3280bba1, 0x183eb331,
|
||||||
|
0x4e548b38, 0x4f6db908, 0x6f420d03, 0xf60a04bf, 0x2cb81290, 0x24977c79, 0x5679b072, 0xbcaf89af,
|
||||||
|
0xde9a771f, 0xd9930810, 0xb38bae12, 0xdccf3f2e, 0x5512721f, 0x2e6b7124, 0x501adde6, 0x9f84cd87,
|
||||||
|
0x7a584718, 0x7408da17, 0xbc9f9abc, 0xe94b7d8c, 0xec7aec3a, 0xdb851dfa, 0x63094366, 0xc464c3d2,
|
||||||
|
0xef1c1847, 0x3215d908, 0xdd433b37, 0x24c2ba16, 0x12a14d43, 0x2a65c451, 0x50940002, 0x133ae4dd,
|
||||||
|
0x71dff89e, 0x10314e55, 0x81ac77d6, 0x5f11199b, 0x043556f1, 0xd7a3c76b, 0x3c11183b, 0x5924a509,
|
||||||
|
0xf28fe6ed, 0x97f1fbfa, 0x9ebabf2c, 0x1e153c6e, 0x86e34570, 0xeae96fb1, 0x860e5e0a, 0x5a3e2ab3,
|
||||||
|
0x771fe71c, 0x4e3d06fa, 0x2965dcb9, 0x99e71d0f, 0x803e89d6, 0x5266c825, 0x2e4cc978, 0x9c10b36a,
|
||||||
|
0xc6150eba, 0x94e2ea78, 0xa5fc3c53, 0x1e0a2df4, 0xf2f74ea7, 0x361d2b3d, 0x1939260f, 0x19c27960,
|
||||||
|
0x5223a708, 0xf71312b6, 0xebadfe6e, 0xeac31f66, 0xe3bc4595, 0xa67bc883, 0xb17f37d1, 0x018cff28,
|
||||||
|
0xc332ddef, 0xbe6c5aa5, 0x65582185, 0x68ab9802, 0xeecea50f, 0xdb2f953b, 0x2aef7dad, 0x5b6e2f84,
|
||||||
|
0x1521b628, 0x29076170, 0xecdd4775, 0x619f1510, 0x13cca830, 0xeb61bd96, 0x0334fe1e, 0xaa0363cf,
|
||||||
|
0xb5735c90, 0x4c70a239, 0xd59e9e0b, 0xcbaade14, 0xeecc86bc, 0x60622ca7, 0x9cab5cab, 0xb2f3846e,
|
||||||
|
0x648b1eaf, 0x19bdf0ca, 0xa02369b9, 0x655abb50, 0x40685a32, 0x3c2ab4b3, 0x319ee9d5, 0xc021b8f7,
|
||||||
|
0x9b540b19, 0x875fa099, 0x95f7997e, 0x623d7da8, 0xf837889a, 0x97e32d77, 0x11ed935f, 0x16681281,
|
||||||
|
0x0e358829, 0xc7e61fd6, 0x96dedfa1, 0x7858ba99, 0x57f584a5, 0x1b227263, 0x9b83c3ff, 0x1ac24696,
|
||||||
|
0xcdb30aeb, 0x532e3054, 0x8fd948e4, 0x6dbc3128, 0x58ebf2ef, 0x34c6ffea, 0xfe28ed61, 0xee7c3c73,
|
||||||
|
0x5d4a14d9, 0xe864b7e3, 0x42105d14, 0x203e13e0, 0x45eee2b6, 0xa3aaabea, 0xdb6c4f15, 0xfacb4fd0,
|
||||||
|
0xc742f442, 0xef6abbb5, 0x654f3b1d, 0x41cd2105, 0xd81e799e, 0x86854dc7, 0xe44b476a, 0x3d816250,
|
||||||
|
0xcf62a1f2, 0x5b8d2646, 0xfc8883a0, 0xc1c7b6a3, 0x7f1524c3, 0x69cb7492, 0x47848a0b, 0x5692b285,
|
||||||
|
0x095bbf00, 0xad19489d, 0x1462b174, 0x23820e00, 0x58428d2a, 0x0c55f5ea, 0x1dadf43e, 0x233f7061,
|
||||||
|
0x3372f092, 0x8d937e41, 0xd65fecf1, 0x6c223bdb, 0x7cde3759, 0xcbee7460, 0x4085f2a7, 0xce77326e,
|
||||||
|
0xa6078084, 0x19f8509e, 0xe8efd855, 0x61d99735, 0xa969a7aa, 0xc50c06c2, 0x5a04abfc, 0x800bcadc,
|
||||||
|
0x9e447a2e, 0xc3453484, 0xfdd56705, 0x0e1e9ec9, 0xdb73dbd3, 0x105588cd, 0x675fda79, 0xe3674340,
|
||||||
|
0xc5c43465, 0x713e38d8, 0x3d28f89e, 0xf16dff20, 0x153e21e7, 0x8fb03d4a, 0xe6e39f2b, 0xdb83adf7
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* S-Box 2
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $sbox2 = array(
|
||||||
|
0xe93d5a68, 0x948140f7, 0xf64c261c, 0x94692934, 0x411520f7, 0x7602d4f7, 0xbcf46b2e, 0xd4a20068,
|
||||||
|
0xd4082471, 0x3320f46a, 0x43b7d4b7, 0x500061af, 0x1e39f62e, 0x97244546, 0x14214f74, 0xbf8b8840,
|
||||||
|
0x4d95fc1d, 0x96b591af, 0x70f4ddd3, 0x66a02f45, 0xbfbc09ec, 0x03bd9785, 0x7fac6dd0, 0x31cb8504,
|
||||||
|
0x96eb27b3, 0x55fd3941, 0xda2547e6, 0xabca0a9a, 0x28507825, 0x530429f4, 0x0a2c86da, 0xe9b66dfb,
|
||||||
|
0x68dc1462, 0xd7486900, 0x680ec0a4, 0x27a18dee, 0x4f3ffea2, 0xe887ad8c, 0xb58ce006, 0x7af4d6b6,
|
||||||
|
0xaace1e7c, 0xd3375fec, 0xce78a399, 0x406b2a42, 0x20fe9e35, 0xd9f385b9, 0xee39d7ab, 0x3b124e8b,
|
||||||
|
0x1dc9faf7, 0x4b6d1856, 0x26a36631, 0xeae397b2, 0x3a6efa74, 0xdd5b4332, 0x6841e7f7, 0xca7820fb,
|
||||||
|
0xfb0af54e, 0xd8feb397, 0x454056ac, 0xba489527, 0x55533a3a, 0x20838d87, 0xfe6ba9b7, 0xd096954b,
|
||||||
|
0x55a867bc, 0xa1159a58, 0xcca92963, 0x99e1db33, 0xa62a4a56, 0x3f3125f9, 0x5ef47e1c, 0x9029317c,
|
||||||
|
0xfdf8e802, 0x04272f70, 0x80bb155c, 0x05282ce3, 0x95c11548, 0xe4c66d22, 0x48c1133f, 0xc70f86dc,
|
||||||
|
0x07f9c9ee, 0x41041f0f, 0x404779a4, 0x5d886e17, 0x325f51eb, 0xd59bc0d1, 0xf2bcc18f, 0x41113564,
|
||||||
|
0x257b7834, 0x602a9c60, 0xdff8e8a3, 0x1f636c1b, 0x0e12b4c2, 0x02e1329e, 0xaf664fd1, 0xcad18115,
|
||||||
|
0x6b2395e0, 0x333e92e1, 0x3b240b62, 0xeebeb922, 0x85b2a20e, 0xe6ba0d99, 0xde720c8c, 0x2da2f728,
|
||||||
|
0xd0127845, 0x95b794fd, 0x647d0862, 0xe7ccf5f0, 0x5449a36f, 0x877d48fa, 0xc39dfd27, 0xf33e8d1e,
|
||||||
|
0x0a476341, 0x992eff74, 0x3a6f6eab, 0xf4f8fd37, 0xa812dc60, 0xa1ebddf8, 0x991be14c, 0xdb6e6b0d,
|
||||||
|
0xc67b5510, 0x6d672c37, 0x2765d43b, 0xdcd0e804, 0xf1290dc7, 0xcc00ffa3, 0xb5390f92, 0x690fed0b,
|
||||||
|
0x667b9ffb, 0xcedb7d9c, 0xa091cf0b, 0xd9155ea3, 0xbb132f88, 0x515bad24, 0x7b9479bf, 0x763bd6eb,
|
||||||
|
0x37392eb3, 0xcc115979, 0x8026e297, 0xf42e312d, 0x6842ada7, 0xc66a2b3b, 0x12754ccc, 0x782ef11c,
|
||||||
|
0x6a124237, 0xb79251e7, 0x06a1bbe6, 0x4bfb6350, 0x1a6b1018, 0x11caedfa, 0x3d25bdd8, 0xe2e1c3c9,
|
||||||
|
0x44421659, 0x0a121386, 0xd90cec6e, 0xd5abea2a, 0x64af674e, 0xda86a85f, 0xbebfe988, 0x64e4c3fe,
|
||||||
|
0x9dbc8057, 0xf0f7c086, 0x60787bf8, 0x6003604d, 0xd1fd8346, 0xf6381fb0, 0x7745ae04, 0xd736fccc,
|
||||||
|
0x83426b33, 0xf01eab71, 0xb0804187, 0x3c005e5f, 0x77a057be, 0xbde8ae24, 0x55464299, 0xbf582e61,
|
||||||
|
0x4e58f48f, 0xf2ddfda2, 0xf474ef38, 0x8789bdc2, 0x5366f9c3, 0xc8b38e74, 0xb475f255, 0x46fcd9b9,
|
||||||
|
0x7aeb2661, 0x8b1ddf84, 0x846a0e79, 0x915f95e2, 0x466e598e, 0x20b45770, 0x8cd55591, 0xc902de4c,
|
||||||
|
0xb90bace1, 0xbb8205d0, 0x11a86248, 0x7574a99e, 0xb77f19b6, 0xe0a9dc09, 0x662d09a1, 0xc4324633,
|
||||||
|
0xe85a1f02, 0x09f0be8c, 0x4a99a025, 0x1d6efe10, 0x1ab93d1d, 0x0ba5a4df, 0xa186f20f, 0x2868f169,
|
||||||
|
0xdcb7da83, 0x573906fe, 0xa1e2ce9b, 0x4fcd7f52, 0x50115e01, 0xa70683fa, 0xa002b5c4, 0x0de6d027,
|
||||||
|
0x9af88c27, 0x773f8641, 0xc3604c06, 0x61a806b5, 0xf0177a28, 0xc0f586e0, 0x006058aa, 0x30dc7d62,
|
||||||
|
0x11e69ed7, 0x2338ea63, 0x53c2dd94, 0xc2c21634, 0xbbcbee56, 0x90bcb6de, 0xebfc7da1, 0xce591d76,
|
||||||
|
0x6f05e409, 0x4b7c0188, 0x39720a3d, 0x7c927c24, 0x86e3725f, 0x724d9db9, 0x1ac15bb4, 0xd39eb8fc,
|
||||||
|
0xed545578, 0x08fca5b5, 0xd83d7cd3, 0x4dad0fc4, 0x1e50ef5e, 0xb161e6f8, 0xa28514d9, 0x6c51133c,
|
||||||
|
0x6fd5c7e7, 0x56e14ec4, 0x362abfce, 0xddc6c837, 0xd79a3234, 0x92638212, 0x670efa8e, 0x406000e0
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* S-Box 3
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $sbox3 = array(
|
||||||
|
0x3a39ce37, 0xd3faf5cf, 0xabc27737, 0x5ac52d1b, 0x5cb0679e, 0x4fa33742, 0xd3822740, 0x99bc9bbe,
|
||||||
|
0xd5118e9d, 0xbf0f7315, 0xd62d1c7e, 0xc700c47b, 0xb78c1b6b, 0x21a19045, 0xb26eb1be, 0x6a366eb4,
|
||||||
|
0x5748ab2f, 0xbc946e79, 0xc6a376d2, 0x6549c2c8, 0x530ff8ee, 0x468dde7d, 0xd5730a1d, 0x4cd04dc6,
|
||||||
|
0x2939bbdb, 0xa9ba4650, 0xac9526e8, 0xbe5ee304, 0xa1fad5f0, 0x6a2d519a, 0x63ef8ce2, 0x9a86ee22,
|
||||||
|
0xc089c2b8, 0x43242ef6, 0xa51e03aa, 0x9cf2d0a4, 0x83c061ba, 0x9be96a4d, 0x8fe51550, 0xba645bd6,
|
||||||
|
0x2826a2f9, 0xa73a3ae1, 0x4ba99586, 0xef5562e9, 0xc72fefd3, 0xf752f7da, 0x3f046f69, 0x77fa0a59,
|
||||||
|
0x80e4a915, 0x87b08601, 0x9b09e6ad, 0x3b3ee593, 0xe990fd5a, 0x9e34d797, 0x2cf0b7d9, 0x022b8b51,
|
||||||
|
0x96d5ac3a, 0x017da67d, 0xd1cf3ed6, 0x7c7d2d28, 0x1f9f25cf, 0xadf2b89b, 0x5ad6b472, 0x5a88f54c,
|
||||||
|
0xe029ac71, 0xe019a5e6, 0x47b0acfd, 0xed93fa9b, 0xe8d3c48d, 0x283b57cc, 0xf8d56629, 0x79132e28,
|
||||||
|
0x785f0191, 0xed756055, 0xf7960e44, 0xe3d35e8c, 0x15056dd4, 0x88f46dba, 0x03a16125, 0x0564f0bd,
|
||||||
|
0xc3eb9e15, 0x3c9057a2, 0x97271aec, 0xa93a072a, 0x1b3f6d9b, 0x1e6321f5, 0xf59c66fb, 0x26dcf319,
|
||||||
|
0x7533d928, 0xb155fdf5, 0x03563482, 0x8aba3cbb, 0x28517711, 0xc20ad9f8, 0xabcc5167, 0xccad925f,
|
||||||
|
0x4de81751, 0x3830dc8e, 0x379d5862, 0x9320f991, 0xea7a90c2, 0xfb3e7bce, 0x5121ce64, 0x774fbe32,
|
||||||
|
0xa8b6e37e, 0xc3293d46, 0x48de5369, 0x6413e680, 0xa2ae0810, 0xdd6db224, 0x69852dfd, 0x09072166,
|
||||||
|
0xb39a460a, 0x6445c0dd, 0x586cdecf, 0x1c20c8ae, 0x5bbef7dd, 0x1b588d40, 0xccd2017f, 0x6bb4e3bb,
|
||||||
|
0xdda26a7e, 0x3a59ff45, 0x3e350a44, 0xbcb4cdd5, 0x72eacea8, 0xfa6484bb, 0x8d6612ae, 0xbf3c6f47,
|
||||||
|
0xd29be463, 0x542f5d9e, 0xaec2771b, 0xf64e6370, 0x740e0d8d, 0xe75b1357, 0xf8721671, 0xaf537d5d,
|
||||||
|
0x4040cb08, 0x4eb4e2cc, 0x34d2466a, 0x0115af84, 0xe1b00428, 0x95983a1d, 0x06b89fb4, 0xce6ea048,
|
||||||
|
0x6f3f3b82, 0x3520ab82, 0x011a1d4b, 0x277227f8, 0x611560b1, 0xe7933fdc, 0xbb3a792b, 0x344525bd,
|
||||||
|
0xa08839e1, 0x51ce794b, 0x2f32c9b7, 0xa01fbac9, 0xe01cc87e, 0xbcc7d1f6, 0xcf0111c3, 0xa1e8aac7,
|
||||||
|
0x1a908749, 0xd44fbd9a, 0xd0dadecb, 0xd50ada38, 0x0339c32a, 0xc6913667, 0x8df9317c, 0xe0b12b4f,
|
||||||
|
0xf79e59b7, 0x43f5bb3a, 0xf2d519ff, 0x27d9459c, 0xbf97222c, 0x15e6fc2a, 0x0f91fc71, 0x9b941525,
|
||||||
|
0xfae59361, 0xceb69ceb, 0xc2a86459, 0x12baa8d1, 0xb6c1075e, 0xe3056a0c, 0x10d25065, 0xcb03a442,
|
||||||
|
0xe0ec6e0e, 0x1698db3b, 0x4c98a0be, 0x3278e964, 0x9f1f9532, 0xe0d392df, 0xd3a0342b, 0x8971f21e,
|
||||||
|
0x1b0a7441, 0x4ba3348c, 0xc5be7120, 0xc37632d8, 0xdf359f8d, 0x9b992f2e, 0xe60b6f47, 0x0fe3f11d,
|
||||||
|
0xe54cda54, 0x1edad891, 0xce6279cf, 0xcd3e7e6f, 0x1618b166, 0xfd2c1d05, 0x848fd2c5, 0xf6fb2299,
|
||||||
|
0xf523f357, 0xa6327623, 0x93a83531, 0x56cccd02, 0xacf08162, 0x5a75ebb5, 0x6e163697, 0x88d273cc,
|
||||||
|
0xde966292, 0x81b949d0, 0x4c50901b, 0x71c65614, 0xe6c6c7bd, 0x327a140a, 0x45e1d006, 0xc3f27b9a,
|
||||||
|
0xc9aa53fd, 0x62a80f00, 0xbb25bfe2, 0x35bdd2f6, 0x71126905, 0xb2040222, 0xb6cbcf7c, 0xcd769c2b,
|
||||||
|
0x53113ec0, 0x1640e3d3, 0x38abbd60, 0x2547adf0, 0xba38209c, 0xf746ce76, 0x77afa1c5, 0x20756060,
|
||||||
|
0x85cbfe4e, 0x8ae88dd8, 0x7aaaf9b0, 0x4cf9aa7e, 0x1948c25c, 0x02fb8a8c, 0x01c36ae4, 0xd6ebe1f9,
|
||||||
|
0x90d4f869, 0xa65cdea0, 0x3f09252d, 0xc208e69f, 0xb74e6132, 0xce77e25b, 0x578fdfe3, 0x3ac372e6
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* P-Array consists of 18 32-bit subkeys
|
||||||
|
*
|
||||||
|
* @var array $parray
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $parray = array(
|
||||||
|
0x243f6a88, 0x85a308d3, 0x13198a2e, 0x03707344, 0xa4093822, 0x299f31d0,
|
||||||
|
0x082efa98, 0xec4e6c89, 0x452821e6, 0x38d01377, 0xbe5466cf, 0x34e90c6c,
|
||||||
|
0xc0ac29b7, 0xc97c50dd, 0x3f84d5b5, 0xb5470917, 0x9216d5d9, 0x8979fb1b
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The BCTX-working Array
|
||||||
|
*
|
||||||
|
* Holds the expanded key [p] and the key-depended s-boxes [sb]
|
||||||
|
*
|
||||||
|
* @var array $bctx
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $bctx;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Holds the last used key
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $kl;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the key.
|
||||||
|
*
|
||||||
|
* Keys can be of any length. Blowfish, itself, requires the use of a key between 32 and max. 448-bits long.
|
||||||
|
* If the key is less than 32-bits we NOT fill the key to 32bit but let the key as it is to be compatible
|
||||||
|
* with mcrypt because mcrypt act this way with blowfish key's < 32 bits.
|
||||||
|
*
|
||||||
|
* If the key is more than 448-bits, we trim the excess bits.
|
||||||
|
*
|
||||||
|
* If the key is not explicitly set, or empty, it'll be assumed a 128 bits key to be all null bytes.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @see Crypt_Base::setKey()
|
||||||
|
* @param String $key
|
||||||
|
*/
|
||||||
|
function setKey($key)
|
||||||
|
{
|
||||||
|
$keylength = strlen($key);
|
||||||
|
|
||||||
|
if (!$keylength) {
|
||||||
|
$key = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";
|
||||||
|
} elseif ($keylength > 56) {
|
||||||
|
$key = substr($key, 0, 56);
|
||||||
|
}
|
||||||
|
|
||||||
|
parent::setKey($key);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Setup the key (expansion)
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::_setupKey()
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _setupKey()
|
||||||
|
{
|
||||||
|
if (isset($this->kl['key']) && $this->key === $this->kl['key']) {
|
||||||
|
// already expanded
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
$this->kl = array('key' => $this->key);
|
||||||
|
|
||||||
|
/* key-expanding p[] and S-Box building sb[] */
|
||||||
|
$this->bctx = array(
|
||||||
|
'p' => array(),
|
||||||
|
'sb' => array(
|
||||||
|
$this->sbox0,
|
||||||
|
$this->sbox1,
|
||||||
|
$this->sbox2,
|
||||||
|
$this->sbox3
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
|
// unpack binary string in unsigned chars
|
||||||
|
$key = array_values(unpack('C*', $this->key));
|
||||||
|
$keyl = count($key);
|
||||||
|
for ($j = 0, $i = 0; $i < 18; ++$i) {
|
||||||
|
// xor P1 with the first 32-bits of the key, xor P2 with the second 32-bits ...
|
||||||
|
for ($data = 0, $k = 0; $k < 4; ++$k) {
|
||||||
|
$data = ($data << 8) | $key[$j];
|
||||||
|
if (++$j >= $keyl) {
|
||||||
|
$j = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->bctx['p'][] = $this->parray[$i] ^ $data;
|
||||||
|
}
|
||||||
|
|
||||||
|
// encrypt the zero-string, replace P1 and P2 with the encrypted data,
|
||||||
|
// encrypt P3 and P4 with the new P1 and P2, do it with all P-array and subkeys
|
||||||
|
$data = "\0\0\0\0\0\0\0\0";
|
||||||
|
for ($i = 0; $i < 18; $i += 2) {
|
||||||
|
list($l, $r) = array_values(unpack('N*', $data = $this->_encryptBlock($data)));
|
||||||
|
$this->bctx['p'][$i ] = $l;
|
||||||
|
$this->bctx['p'][$i + 1] = $r;
|
||||||
|
}
|
||||||
|
for ($i = 0; $i < 4; ++$i) {
|
||||||
|
for ($j = 0; $j < 256; $j += 2) {
|
||||||
|
list($l, $r) = array_values(unpack('N*', $data = $this->_encryptBlock($data)));
|
||||||
|
$this->bctx['sb'][$i][$j ] = $l;
|
||||||
|
$this->bctx['sb'][$i][$j + 1] = $r;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Encrypts a block
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $in
|
||||||
|
* @return String
|
||||||
|
*/
|
||||||
|
function _encryptBlock($in)
|
||||||
|
{
|
||||||
|
$p = $this->bctx["p"];
|
||||||
|
// extract($this->bctx["sb"], EXTR_PREFIX_ALL, "sb"); // slower
|
||||||
|
$sb_0 = $this->bctx["sb"][0];
|
||||||
|
$sb_1 = $this->bctx["sb"][1];
|
||||||
|
$sb_2 = $this->bctx["sb"][2];
|
||||||
|
$sb_3 = $this->bctx["sb"][3];
|
||||||
|
|
||||||
|
$in = unpack("N*", $in);
|
||||||
|
$l = $in[1];
|
||||||
|
$r = $in[2];
|
||||||
|
|
||||||
|
for ($i = 0; $i < 16; $i+= 2) {
|
||||||
|
$l^= $p[$i];
|
||||||
|
$r^= ($sb_0[$l >> 24 & 0xff] +
|
||||||
|
$sb_1[$l >> 16 & 0xff] ^
|
||||||
|
$sb_2[$l >> 8 & 0xff]) +
|
||||||
|
$sb_3[$l & 0xff];
|
||||||
|
|
||||||
|
$r^= $p[$i + 1];
|
||||||
|
$l^= ($sb_0[$r >> 24 & 0xff] +
|
||||||
|
$sb_1[$r >> 16 & 0xff] ^
|
||||||
|
$sb_2[$r >> 8 & 0xff]) +
|
||||||
|
$sb_3[$r & 0xff];
|
||||||
|
}
|
||||||
|
return pack("N*", $r ^ $p[17], $l ^ $p[16]);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Decrypts a block
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $in
|
||||||
|
* @return String
|
||||||
|
*/
|
||||||
|
function _decryptBlock($in)
|
||||||
|
{
|
||||||
|
$p = $this->bctx["p"];
|
||||||
|
$sb_0 = $this->bctx["sb"][0];
|
||||||
|
$sb_1 = $this->bctx["sb"][1];
|
||||||
|
$sb_2 = $this->bctx["sb"][2];
|
||||||
|
$sb_3 = $this->bctx["sb"][3];
|
||||||
|
|
||||||
|
$in = unpack("N*", $in);
|
||||||
|
$l = $in[1];
|
||||||
|
$r = $in[2];
|
||||||
|
|
||||||
|
for ($i = 17; $i > 2; $i-= 2) {
|
||||||
|
$l^= $p[$i];
|
||||||
|
$r^= ($sb_0[$l >> 24 & 0xff] +
|
||||||
|
$sb_1[$l >> 16 & 0xff] ^
|
||||||
|
$sb_2[$l >> 8 & 0xff]) +
|
||||||
|
$sb_3[$l & 0xff];
|
||||||
|
|
||||||
|
$r^= $p[$i - 1];
|
||||||
|
$l^= ($sb_0[$r >> 24 & 0xff] +
|
||||||
|
$sb_1[$r >> 16 & 0xff] ^
|
||||||
|
$sb_2[$r >> 8 & 0xff]) +
|
||||||
|
$sb_3[$r & 0xff];
|
||||||
|
}
|
||||||
|
|
||||||
|
return pack("N*", $r ^ $p[0], $l ^ $p[1]);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Setup the performance-optimized function for de/encrypt()
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::_setupInlineCrypt()
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _setupInlineCrypt()
|
||||||
|
{
|
||||||
|
$lambda_functions =& Crypt_Blowfish::_getLambdaFunctions();
|
||||||
|
|
||||||
|
// We create max. 10 hi-optimized code for memory reason. Means: For each $key one ultra fast inline-crypt function.
|
||||||
|
// After that, we'll still create very fast optimized code but not the hi-ultimative code, for each $mode one.
|
||||||
|
$gen_hi_opt_code = (bool)( count($lambda_functions) < 10);
|
||||||
|
|
||||||
|
switch (true) {
|
||||||
|
case $gen_hi_opt_code:
|
||||||
|
$code_hash = md5(str_pad("Crypt_Blowfish, {$this->mode}, ", 32, "\0") . $this->key);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$code_hash = "Crypt_Blowfish, {$this->mode}";
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!isset($lambda_functions[$code_hash])) {
|
||||||
|
switch (true) {
|
||||||
|
case $gen_hi_opt_code:
|
||||||
|
$p = $this->bctx['p'];
|
||||||
|
$init_crypt = '
|
||||||
|
static $sb_0, $sb_1, $sb_2, $sb_3;
|
||||||
|
if (!$sb_0) {
|
||||||
|
$sb_0 = $self->bctx["sb"][0];
|
||||||
|
$sb_1 = $self->bctx["sb"][1];
|
||||||
|
$sb_2 = $self->bctx["sb"][2];
|
||||||
|
$sb_3 = $self->bctx["sb"][3];
|
||||||
|
}
|
||||||
|
';
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$p = array();
|
||||||
|
for ($i = 0; $i < 18; ++$i) {
|
||||||
|
$p[] = '$p_' . $i;
|
||||||
|
}
|
||||||
|
$init_crypt = '
|
||||||
|
list($sb_0, $sb_1, $sb_2, $sb_3) = $self->bctx["sb"];
|
||||||
|
list(' . implode(',', $p) . ') = $self->bctx["p"];
|
||||||
|
|
||||||
|
';
|
||||||
|
}
|
||||||
|
|
||||||
|
// Generating encrypt code:
|
||||||
|
$encrypt_block = '
|
||||||
|
$in = unpack("N*", $in);
|
||||||
|
$l = $in[1];
|
||||||
|
$r = $in[2];
|
||||||
|
';
|
||||||
|
for ($i = 0; $i < 16; $i+= 2) {
|
||||||
|
$encrypt_block.= '
|
||||||
|
$l^= ' . $p[$i] . ';
|
||||||
|
$r^= ($sb_0[$l >> 24 & 0xff] +
|
||||||
|
$sb_1[$l >> 16 & 0xff] ^
|
||||||
|
$sb_2[$l >> 8 & 0xff]) +
|
||||||
|
$sb_3[$l & 0xff];
|
||||||
|
|
||||||
|
$r^= ' . $p[$i + 1] . ';
|
||||||
|
$l^= ($sb_0[$r >> 24 & 0xff] +
|
||||||
|
$sb_1[$r >> 16 & 0xff] ^
|
||||||
|
$sb_2[$r >> 8 & 0xff]) +
|
||||||
|
$sb_3[$r & 0xff];
|
||||||
|
';
|
||||||
|
}
|
||||||
|
$encrypt_block.= '
|
||||||
|
$in = pack("N*",
|
||||||
|
$r ^ ' . $p[17] . ',
|
||||||
|
$l ^ ' . $p[16] . '
|
||||||
|
);
|
||||||
|
';
|
||||||
|
|
||||||
|
// Generating decrypt code:
|
||||||
|
$decrypt_block = '
|
||||||
|
$in = unpack("N*", $in);
|
||||||
|
$l = $in[1];
|
||||||
|
$r = $in[2];
|
||||||
|
';
|
||||||
|
|
||||||
|
for ($i = 17; $i > 2; $i-= 2) {
|
||||||
|
$decrypt_block.= '
|
||||||
|
$l^= ' . $p[$i] . ';
|
||||||
|
$r^= ($sb_0[$l >> 24 & 0xff] +
|
||||||
|
$sb_1[$l >> 16 & 0xff] ^
|
||||||
|
$sb_2[$l >> 8 & 0xff]) +
|
||||||
|
$sb_3[$l & 0xff];
|
||||||
|
|
||||||
|
$r^= ' . $p[$i - 1] . ';
|
||||||
|
$l^= ($sb_0[$r >> 24 & 0xff] +
|
||||||
|
$sb_1[$r >> 16 & 0xff] ^
|
||||||
|
$sb_2[$r >> 8 & 0xff]) +
|
||||||
|
$sb_3[$r & 0xff];
|
||||||
|
';
|
||||||
|
}
|
||||||
|
|
||||||
|
$decrypt_block.= '
|
||||||
|
$in = pack("N*",
|
||||||
|
$r ^ ' . $p[0] . ',
|
||||||
|
$l ^ ' . $p[1] . '
|
||||||
|
);
|
||||||
|
';
|
||||||
|
|
||||||
|
$lambda_functions[$code_hash] = $this->_createInlineCryptFunction(
|
||||||
|
array(
|
||||||
|
'init_crypt' => $init_crypt,
|
||||||
|
'init_encrypt' => '',
|
||||||
|
'init_decrypt' => '',
|
||||||
|
'encrypt_block' => $encrypt_block,
|
||||||
|
'decrypt_block' => $decrypt_block
|
||||||
|
)
|
||||||
|
);
|
||||||
|
}
|
||||||
|
$this->inline_crypt = $lambda_functions[$code_hash];
|
||||||
|
}
|
||||||
|
}
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,841 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementations of keyed-hash message authentication codes (HMACs) and various cryptographic hashing functions.
|
||||||
|
*
|
||||||
|
* Uses hash() or mhash() if available and an internal implementation, otherwise. Currently supports the following:
|
||||||
|
*
|
||||||
|
* md2, md5, md5-96, sha1, sha1-96, sha256, sha256-96, sha384, and sha512, sha512-96
|
||||||
|
*
|
||||||
|
* If {@link Crypt_Hash::setKey() setKey()} is called, {@link Crypt_Hash::hash() hash()} will return the HMAC as opposed to
|
||||||
|
* the hash. If no valid algorithm is provided, sha1 will be used.
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* {@internal The variable names are the same as those in
|
||||||
|
* {@link http://tools.ietf.org/html/rfc2104#section-2 RFC2104}.}}
|
||||||
|
*
|
||||||
|
* Here's a short example of how to use this library:
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* include 'Crypt/Hash.php';
|
||||||
|
*
|
||||||
|
* $hash = new Crypt_Hash('sha1');
|
||||||
|
*
|
||||||
|
* $hash->setKey('abcdefg');
|
||||||
|
*
|
||||||
|
* echo base64_encode($hash->hash('abcdefg'));
|
||||||
|
* ?>
|
||||||
|
* </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_Hash
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2007 Jim Wigginton
|
||||||
|
* @license http://www.opensource.org/licenses/mit-license.html MIT License
|
||||||
|
* @link http://phpseclib.sourceforge.net
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @access private
|
||||||
|
* @see Crypt_Hash::Crypt_Hash()
|
||||||
|
*/
|
||||||
|
/**
|
||||||
|
* Toggles the internal implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_HASH_MODE_INTERNAL', 1);
|
||||||
|
/**
|
||||||
|
* Toggles the mhash() implementation, which has been deprecated on PHP 5.3.0+.
|
||||||
|
*/
|
||||||
|
define('CRYPT_HASH_MODE_MHASH', 2);
|
||||||
|
/**
|
||||||
|
* Toggles the hash() implementation, which works on PHP 5.1.2+.
|
||||||
|
*/
|
||||||
|
define('CRYPT_HASH_MODE_HASH', 3);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementations of keyed-hash message authentication codes (HMACs) and various cryptographic hashing functions.
|
||||||
|
*
|
||||||
|
* @package Crypt_Hash
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class Crypt_Hash
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Hash Parameter
|
||||||
|
*
|
||||||
|
* @see Crypt_Hash::setHash()
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $hashParam;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Byte-length of compression blocks / key (Internal HMAC)
|
||||||
|
*
|
||||||
|
* @see Crypt_Hash::setAlgorithm()
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $b;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Byte-length of hash output (Internal HMAC)
|
||||||
|
*
|
||||||
|
* @see Crypt_Hash::setHash()
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $l = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Hash Algorithm
|
||||||
|
*
|
||||||
|
* @see Crypt_Hash::setHash()
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $hash;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Key
|
||||||
|
*
|
||||||
|
* @see Crypt_Hash::setKey()
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $key = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Outer XOR (Internal HMAC)
|
||||||
|
*
|
||||||
|
* @see Crypt_Hash::setKey()
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $opad;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Inner XOR (Internal HMAC)
|
||||||
|
*
|
||||||
|
* @see Crypt_Hash::setKey()
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $ipad;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default Constructor.
|
||||||
|
*
|
||||||
|
* @param optional String $hash
|
||||||
|
* @return Crypt_Hash
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function Crypt_Hash($hash = 'sha1')
|
||||||
|
{
|
||||||
|
if ( !defined('CRYPT_HASH_MODE') ) {
|
||||||
|
switch (true) {
|
||||||
|
case extension_loaded('hash'):
|
||||||
|
define('CRYPT_HASH_MODE', CRYPT_HASH_MODE_HASH);
|
||||||
|
break;
|
||||||
|
case extension_loaded('mhash'):
|
||||||
|
define('CRYPT_HASH_MODE', CRYPT_HASH_MODE_MHASH);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
define('CRYPT_HASH_MODE', CRYPT_HASH_MODE_INTERNAL);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->setHash($hash);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the key for HMACs
|
||||||
|
*
|
||||||
|
* Keys can be of any length.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param optional String $key
|
||||||
|
*/
|
||||||
|
function setKey($key = false)
|
||||||
|
{
|
||||||
|
$this->key = $key;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the hash function.
|
||||||
|
*
|
||||||
|
* As set by the constructor or by the setHash() method.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return String
|
||||||
|
*/
|
||||||
|
function getHash()
|
||||||
|
{
|
||||||
|
return $this->hashParam;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the hash function.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param String $hash
|
||||||
|
*/
|
||||||
|
function setHash($hash)
|
||||||
|
{
|
||||||
|
$this->hashParam = $hash = strtolower($hash);
|
||||||
|
switch ($hash) {
|
||||||
|
case 'md5-96':
|
||||||
|
case 'sha1-96':
|
||||||
|
case 'sha256-96':
|
||||||
|
case 'sha512-96':
|
||||||
|
$hash = substr($hash, 0, -3);
|
||||||
|
$this->l = 12; // 96 / 8 = 12
|
||||||
|
break;
|
||||||
|
case 'md2':
|
||||||
|
case 'md5':
|
||||||
|
$this->l = 16;
|
||||||
|
break;
|
||||||
|
case 'sha1':
|
||||||
|
$this->l = 20;
|
||||||
|
break;
|
||||||
|
case 'sha256':
|
||||||
|
$this->l = 32;
|
||||||
|
break;
|
||||||
|
case 'sha384':
|
||||||
|
$this->l = 48;
|
||||||
|
break;
|
||||||
|
case 'sha512':
|
||||||
|
$this->l = 64;
|
||||||
|
}
|
||||||
|
|
||||||
|
switch ($hash) {
|
||||||
|
case 'md2':
|
||||||
|
$mode = CRYPT_HASH_MODE == CRYPT_HASH_MODE_HASH && in_array('md2', hash_algos()) ?
|
||||||
|
CRYPT_HASH_MODE_HASH : CRYPT_HASH_MODE_INTERNAL;
|
||||||
|
break;
|
||||||
|
case 'sha384':
|
||||||
|
case 'sha512':
|
||||||
|
$mode = CRYPT_HASH_MODE == CRYPT_HASH_MODE_MHASH ? CRYPT_HASH_MODE_INTERNAL : CRYPT_HASH_MODE;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$mode = CRYPT_HASH_MODE;
|
||||||
|
}
|
||||||
|
|
||||||
|
switch ( $mode ) {
|
||||||
|
case CRYPT_HASH_MODE_MHASH:
|
||||||
|
switch ($hash) {
|
||||||
|
case 'md5':
|
||||||
|
$this->hash = MHASH_MD5;
|
||||||
|
break;
|
||||||
|
case 'sha256':
|
||||||
|
$this->hash = MHASH_SHA256;
|
||||||
|
break;
|
||||||
|
case 'sha1':
|
||||||
|
default:
|
||||||
|
$this->hash = MHASH_SHA1;
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
case CRYPT_HASH_MODE_HASH:
|
||||||
|
switch ($hash) {
|
||||||
|
case 'md5':
|
||||||
|
$this->hash = 'md5';
|
||||||
|
return;
|
||||||
|
case 'md2':
|
||||||
|
case 'sha256':
|
||||||
|
case 'sha384':
|
||||||
|
case 'sha512':
|
||||||
|
$this->hash = $hash;
|
||||||
|
return;
|
||||||
|
case 'sha1':
|
||||||
|
default:
|
||||||
|
$this->hash = 'sha1';
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
switch ($hash) {
|
||||||
|
case 'md2':
|
||||||
|
$this->b = 16;
|
||||||
|
$this->hash = array($this, '_md2');
|
||||||
|
break;
|
||||||
|
case 'md5':
|
||||||
|
$this->b = 64;
|
||||||
|
$this->hash = array($this, '_md5');
|
||||||
|
break;
|
||||||
|
case 'sha256':
|
||||||
|
$this->b = 64;
|
||||||
|
$this->hash = array($this, '_sha256');
|
||||||
|
break;
|
||||||
|
case 'sha384':
|
||||||
|
case 'sha512':
|
||||||
|
$this->b = 128;
|
||||||
|
$this->hash = array($this, '_sha512');
|
||||||
|
break;
|
||||||
|
case 'sha1':
|
||||||
|
default:
|
||||||
|
$this->b = 64;
|
||||||
|
$this->hash = array($this, '_sha1');
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->ipad = str_repeat(chr(0x36), $this->b);
|
||||||
|
$this->opad = str_repeat(chr(0x5C), $this->b);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Compute the HMAC.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param String $text
|
||||||
|
* @return String
|
||||||
|
*/
|
||||||
|
function hash($text)
|
||||||
|
{
|
||||||
|
$mode = is_array($this->hash) ? CRYPT_HASH_MODE_INTERNAL : CRYPT_HASH_MODE;
|
||||||
|
|
||||||
|
if (!empty($this->key) || is_string($this->key)) {
|
||||||
|
switch ( $mode ) {
|
||||||
|
case CRYPT_HASH_MODE_MHASH:
|
||||||
|
$output = mhash($this->hash, $text, $this->key);
|
||||||
|
break;
|
||||||
|
case CRYPT_HASH_MODE_HASH:
|
||||||
|
$output = hash_hmac($this->hash, $text, $this->key, true);
|
||||||
|
break;
|
||||||
|
case CRYPT_HASH_MODE_INTERNAL:
|
||||||
|
/* "Applications that use keys longer than B bytes will first hash the key using H and then use the
|
||||||
|
resultant L byte string as the actual key to HMAC."
|
||||||
|
|
||||||
|
-- http://tools.ietf.org/html/rfc2104#section-2 */
|
||||||
|
$key = strlen($this->key) > $this->b ? call_user_func($this->hash, $this->key) : $this->key;
|
||||||
|
|
||||||
|
$key = str_pad($key, $this->b, chr(0)); // step 1
|
||||||
|
$temp = $this->ipad ^ $key; // step 2
|
||||||
|
$temp .= $text; // step 3
|
||||||
|
$temp = call_user_func($this->hash, $temp); // step 4
|
||||||
|
$output = $this->opad ^ $key; // step 5
|
||||||
|
$output.= $temp; // step 6
|
||||||
|
$output = call_user_func($this->hash, $output); // step 7
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
switch ( $mode ) {
|
||||||
|
case CRYPT_HASH_MODE_MHASH:
|
||||||
|
$output = mhash($this->hash, $text);
|
||||||
|
break;
|
||||||
|
case CRYPT_HASH_MODE_HASH:
|
||||||
|
$output = hash($this->hash, $text, true);
|
||||||
|
break;
|
||||||
|
case CRYPT_HASH_MODE_INTERNAL:
|
||||||
|
$output = call_user_func($this->hash, $text);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return substr($output, 0, $this->l);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the hash length (in bytes)
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return Integer
|
||||||
|
*/
|
||||||
|
function getLength()
|
||||||
|
{
|
||||||
|
return $this->l;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Wrapper for MD5
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $m
|
||||||
|
*/
|
||||||
|
function _md5($m)
|
||||||
|
{
|
||||||
|
return pack('H*', md5($m));
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Wrapper for SHA1
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $m
|
||||||
|
*/
|
||||||
|
function _sha1($m)
|
||||||
|
{
|
||||||
|
return pack('H*', sha1($m));
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of MD2
|
||||||
|
*
|
||||||
|
* See {@link http://tools.ietf.org/html/rfc1319 RFC1319}.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $m
|
||||||
|
*/
|
||||||
|
function _md2($m)
|
||||||
|
{
|
||||||
|
static $s = array(
|
||||||
|
41, 46, 67, 201, 162, 216, 124, 1, 61, 54, 84, 161, 236, 240, 6,
|
||||||
|
19, 98, 167, 5, 243, 192, 199, 115, 140, 152, 147, 43, 217, 188,
|
||||||
|
76, 130, 202, 30, 155, 87, 60, 253, 212, 224, 22, 103, 66, 111, 24,
|
||||||
|
138, 23, 229, 18, 190, 78, 196, 214, 218, 158, 222, 73, 160, 251,
|
||||||
|
245, 142, 187, 47, 238, 122, 169, 104, 121, 145, 21, 178, 7, 63,
|
||||||
|
148, 194, 16, 137, 11, 34, 95, 33, 128, 127, 93, 154, 90, 144, 50,
|
||||||
|
39, 53, 62, 204, 231, 191, 247, 151, 3, 255, 25, 48, 179, 72, 165,
|
||||||
|
181, 209, 215, 94, 146, 42, 172, 86, 170, 198, 79, 184, 56, 210,
|
||||||
|
150, 164, 125, 182, 118, 252, 107, 226, 156, 116, 4, 241, 69, 157,
|
||||||
|
112, 89, 100, 113, 135, 32, 134, 91, 207, 101, 230, 45, 168, 2, 27,
|
||||||
|
96, 37, 173, 174, 176, 185, 246, 28, 70, 97, 105, 52, 64, 126, 15,
|
||||||
|
85, 71, 163, 35, 221, 81, 175, 58, 195, 92, 249, 206, 186, 197,
|
||||||
|
234, 38, 44, 83, 13, 110, 133, 40, 132, 9, 211, 223, 205, 244, 65,
|
||||||
|
129, 77, 82, 106, 220, 55, 200, 108, 193, 171, 250, 36, 225, 123,
|
||||||
|
8, 12, 189, 177, 74, 120, 136, 149, 139, 227, 99, 232, 109, 233,
|
||||||
|
203, 213, 254, 59, 0, 29, 57, 242, 239, 183, 14, 102, 88, 208, 228,
|
||||||
|
166, 119, 114, 248, 235, 117, 75, 10, 49, 68, 80, 180, 143, 237,
|
||||||
|
31, 26, 219, 153, 141, 51, 159, 17, 131, 20
|
||||||
|
);
|
||||||
|
|
||||||
|
// Step 1. Append Padding Bytes
|
||||||
|
$pad = 16 - (strlen($m) & 0xF);
|
||||||
|
$m.= str_repeat(chr($pad), $pad);
|
||||||
|
|
||||||
|
$length = strlen($m);
|
||||||
|
|
||||||
|
// Step 2. Append Checksum
|
||||||
|
$c = str_repeat(chr(0), 16);
|
||||||
|
$l = chr(0);
|
||||||
|
for ($i = 0; $i < $length; $i+= 16) {
|
||||||
|
for ($j = 0; $j < 16; $j++) {
|
||||||
|
// RFC1319 incorrectly states that C[j] should be set to S[c xor L]
|
||||||
|
//$c[$j] = chr($s[ord($m[$i + $j] ^ $l)]);
|
||||||
|
// per <http://www.rfc-editor.org/errata_search.php?rfc=1319>, however, C[j] should be set to S[c xor L] xor C[j]
|
||||||
|
$c[$j] = chr($s[ord($m[$i + $j] ^ $l)] ^ ord($c[$j]));
|
||||||
|
$l = $c[$j];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$m.= $c;
|
||||||
|
|
||||||
|
$length+= 16;
|
||||||
|
|
||||||
|
// Step 3. Initialize MD Buffer
|
||||||
|
$x = str_repeat(chr(0), 48);
|
||||||
|
|
||||||
|
// Step 4. Process Message in 16-Byte Blocks
|
||||||
|
for ($i = 0; $i < $length; $i+= 16) {
|
||||||
|
for ($j = 0; $j < 16; $j++) {
|
||||||
|
$x[$j + 16] = $m[$i + $j];
|
||||||
|
$x[$j + 32] = $x[$j + 16] ^ $x[$j];
|
||||||
|
}
|
||||||
|
$t = chr(0);
|
||||||
|
for ($j = 0; $j < 18; $j++) {
|
||||||
|
for ($k = 0; $k < 48; $k++) {
|
||||||
|
$x[$k] = $t = $x[$k] ^ chr($s[ord($t)]);
|
||||||
|
//$t = $x[$k] = $x[$k] ^ chr($s[ord($t)]);
|
||||||
|
}
|
||||||
|
$t = chr(ord($t) + $j);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Step 5. Output
|
||||||
|
return substr($x, 0, 16);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of SHA256
|
||||||
|
*
|
||||||
|
* See {@link http://en.wikipedia.org/wiki/SHA_hash_functions#SHA-256_.28a_SHA-2_variant.29_pseudocode SHA-256 (a SHA-2 variant) pseudocode - Wikipedia}.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $m
|
||||||
|
*/
|
||||||
|
function _sha256($m)
|
||||||
|
{
|
||||||
|
if (extension_loaded('suhosin')) {
|
||||||
|
return pack('H*', sha256($m));
|
||||||
|
}
|
||||||
|
|
||||||
|
// Initialize variables
|
||||||
|
$hash = array(
|
||||||
|
0x6a09e667, 0xbb67ae85, 0x3c6ef372, 0xa54ff53a, 0x510e527f, 0x9b05688c, 0x1f83d9ab, 0x5be0cd19
|
||||||
|
);
|
||||||
|
// Initialize table of round constants
|
||||||
|
// (first 32 bits of the fractional parts of the cube roots of the first 64 primes 2..311)
|
||||||
|
static $k = array(
|
||||||
|
0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
|
||||||
|
0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
|
||||||
|
0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
|
||||||
|
0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
|
||||||
|
0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13, 0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
|
||||||
|
0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3, 0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
|
||||||
|
0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5, 0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
|
||||||
|
0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208, 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2
|
||||||
|
);
|
||||||
|
|
||||||
|
// Pre-processing
|
||||||
|
$length = strlen($m);
|
||||||
|
// to round to nearest 56 mod 64, we'll add 64 - (length + (64 - 56)) % 64
|
||||||
|
$m.= str_repeat(chr(0), 64 - (($length + 8) & 0x3F));
|
||||||
|
$m[$length] = chr(0x80);
|
||||||
|
// we don't support hashing strings 512MB long
|
||||||
|
$m.= pack('N2', 0, $length << 3);
|
||||||
|
|
||||||
|
// Process the message in successive 512-bit chunks
|
||||||
|
$chunks = str_split($m, 64);
|
||||||
|
foreach ($chunks as $chunk) {
|
||||||
|
$w = array();
|
||||||
|
for ($i = 0; $i < 16; $i++) {
|
||||||
|
extract(unpack('Ntemp', $this->_string_shift($chunk, 4)));
|
||||||
|
$w[] = $temp;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Extend the sixteen 32-bit words into sixty-four 32-bit words
|
||||||
|
for ($i = 16; $i < 64; $i++) {
|
||||||
|
$s0 = $this->_rightRotate($w[$i - 15], 7) ^
|
||||||
|
$this->_rightRotate($w[$i - 15], 18) ^
|
||||||
|
$this->_rightShift( $w[$i - 15], 3);
|
||||||
|
$s1 = $this->_rightRotate($w[$i - 2], 17) ^
|
||||||
|
$this->_rightRotate($w[$i - 2], 19) ^
|
||||||
|
$this->_rightShift( $w[$i - 2], 10);
|
||||||
|
$w[$i] = $this->_add($w[$i - 16], $s0, $w[$i - 7], $s1);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
// Initialize hash value for this chunk
|
||||||
|
list($a, $b, $c, $d, $e, $f, $g, $h) = $hash;
|
||||||
|
|
||||||
|
// Main loop
|
||||||
|
for ($i = 0; $i < 64; $i++) {
|
||||||
|
$s0 = $this->_rightRotate($a, 2) ^
|
||||||
|
$this->_rightRotate($a, 13) ^
|
||||||
|
$this->_rightRotate($a, 22);
|
||||||
|
$maj = ($a & $b) ^
|
||||||
|
($a & $c) ^
|
||||||
|
($b & $c);
|
||||||
|
$t2 = $this->_add($s0, $maj);
|
||||||
|
|
||||||
|
$s1 = $this->_rightRotate($e, 6) ^
|
||||||
|
$this->_rightRotate($e, 11) ^
|
||||||
|
$this->_rightRotate($e, 25);
|
||||||
|
$ch = ($e & $f) ^
|
||||||
|
($this->_not($e) & $g);
|
||||||
|
$t1 = $this->_add($h, $s1, $ch, $k[$i], $w[$i]);
|
||||||
|
|
||||||
|
$h = $g;
|
||||||
|
$g = $f;
|
||||||
|
$f = $e;
|
||||||
|
$e = $this->_add($d, $t1);
|
||||||
|
$d = $c;
|
||||||
|
$c = $b;
|
||||||
|
$b = $a;
|
||||||
|
$a = $this->_add($t1, $t2);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Add this chunk's hash to result so far
|
||||||
|
$hash = array(
|
||||||
|
$this->_add($hash[0], $a),
|
||||||
|
$this->_add($hash[1], $b),
|
||||||
|
$this->_add($hash[2], $c),
|
||||||
|
$this->_add($hash[3], $d),
|
||||||
|
$this->_add($hash[4], $e),
|
||||||
|
$this->_add($hash[5], $f),
|
||||||
|
$this->_add($hash[6], $g),
|
||||||
|
$this->_add($hash[7], $h)
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Produce the final hash value (big-endian)
|
||||||
|
return pack('N8', $hash[0], $hash[1], $hash[2], $hash[3], $hash[4], $hash[5], $hash[6], $hash[7]);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of SHA384 and SHA512
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $m
|
||||||
|
*/
|
||||||
|
function _sha512($m)
|
||||||
|
{
|
||||||
|
if (!class_exists('Math_BigInteger')) {
|
||||||
|
include_once 'Math/BigInteger.php';
|
||||||
|
}
|
||||||
|
|
||||||
|
static $init384, $init512, $k;
|
||||||
|
|
||||||
|
if (!isset($k)) {
|
||||||
|
// Initialize variables
|
||||||
|
$init384 = array( // initial values for SHA384
|
||||||
|
'cbbb9d5dc1059ed8', '629a292a367cd507', '9159015a3070dd17', '152fecd8f70e5939',
|
||||||
|
'67332667ffc00b31', '8eb44a8768581511', 'db0c2e0d64f98fa7', '47b5481dbefa4fa4'
|
||||||
|
);
|
||||||
|
$init512 = array( // initial values for SHA512
|
||||||
|
'6a09e667f3bcc908', 'bb67ae8584caa73b', '3c6ef372fe94f82b', 'a54ff53a5f1d36f1',
|
||||||
|
'510e527fade682d1', '9b05688c2b3e6c1f', '1f83d9abfb41bd6b', '5be0cd19137e2179'
|
||||||
|
);
|
||||||
|
|
||||||
|
for ($i = 0; $i < 8; $i++) {
|
||||||
|
$init384[$i] = new Math_BigInteger($init384[$i], 16);
|
||||||
|
$init384[$i]->setPrecision(64);
|
||||||
|
$init512[$i] = new Math_BigInteger($init512[$i], 16);
|
||||||
|
$init512[$i]->setPrecision(64);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Initialize table of round constants
|
||||||
|
// (first 64 bits of the fractional parts of the cube roots of the first 80 primes 2..409)
|
||||||
|
$k = array(
|
||||||
|
'428a2f98d728ae22', '7137449123ef65cd', 'b5c0fbcfec4d3b2f', 'e9b5dba58189dbbc',
|
||||||
|
'3956c25bf348b538', '59f111f1b605d019', '923f82a4af194f9b', 'ab1c5ed5da6d8118',
|
||||||
|
'd807aa98a3030242', '12835b0145706fbe', '243185be4ee4b28c', '550c7dc3d5ffb4e2',
|
||||||
|
'72be5d74f27b896f', '80deb1fe3b1696b1', '9bdc06a725c71235', 'c19bf174cf692694',
|
||||||
|
'e49b69c19ef14ad2', 'efbe4786384f25e3', '0fc19dc68b8cd5b5', '240ca1cc77ac9c65',
|
||||||
|
'2de92c6f592b0275', '4a7484aa6ea6e483', '5cb0a9dcbd41fbd4', '76f988da831153b5',
|
||||||
|
'983e5152ee66dfab', 'a831c66d2db43210', 'b00327c898fb213f', 'bf597fc7beef0ee4',
|
||||||
|
'c6e00bf33da88fc2', 'd5a79147930aa725', '06ca6351e003826f', '142929670a0e6e70',
|
||||||
|
'27b70a8546d22ffc', '2e1b21385c26c926', '4d2c6dfc5ac42aed', '53380d139d95b3df',
|
||||||
|
'650a73548baf63de', '766a0abb3c77b2a8', '81c2c92e47edaee6', '92722c851482353b',
|
||||||
|
'a2bfe8a14cf10364', 'a81a664bbc423001', 'c24b8b70d0f89791', 'c76c51a30654be30',
|
||||||
|
'd192e819d6ef5218', 'd69906245565a910', 'f40e35855771202a', '106aa07032bbd1b8',
|
||||||
|
'19a4c116b8d2d0c8', '1e376c085141ab53', '2748774cdf8eeb99', '34b0bcb5e19b48a8',
|
||||||
|
'391c0cb3c5c95a63', '4ed8aa4ae3418acb', '5b9cca4f7763e373', '682e6ff3d6b2b8a3',
|
||||||
|
'748f82ee5defb2fc', '78a5636f43172f60', '84c87814a1f0ab72', '8cc702081a6439ec',
|
||||||
|
'90befffa23631e28', 'a4506cebde82bde9', 'bef9a3f7b2c67915', 'c67178f2e372532b',
|
||||||
|
'ca273eceea26619c', 'd186b8c721c0c207', 'eada7dd6cde0eb1e', 'f57d4f7fee6ed178',
|
||||||
|
'06f067aa72176fba', '0a637dc5a2c898a6', '113f9804bef90dae', '1b710b35131c471b',
|
||||||
|
'28db77f523047d84', '32caab7b40c72493', '3c9ebe0a15c9bebc', '431d67c49c100d4c',
|
||||||
|
'4cc5d4becb3e42b6', '597f299cfc657e2a', '5fcb6fab3ad6faec', '6c44198c4a475817'
|
||||||
|
);
|
||||||
|
|
||||||
|
for ($i = 0; $i < 80; $i++) {
|
||||||
|
$k[$i] = new Math_BigInteger($k[$i], 16);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$hash = $this->l == 48 ? $init384 : $init512;
|
||||||
|
|
||||||
|
// Pre-processing
|
||||||
|
$length = strlen($m);
|
||||||
|
// to round to nearest 112 mod 128, we'll add 128 - (length + (128 - 112)) % 128
|
||||||
|
$m.= str_repeat(chr(0), 128 - (($length + 16) & 0x7F));
|
||||||
|
$m[$length] = chr(0x80);
|
||||||
|
// we don't support hashing strings 512MB long
|
||||||
|
$m.= pack('N4', 0, 0, 0, $length << 3);
|
||||||
|
|
||||||
|
// Process the message in successive 1024-bit chunks
|
||||||
|
$chunks = str_split($m, 128);
|
||||||
|
foreach ($chunks as $chunk) {
|
||||||
|
$w = array();
|
||||||
|
for ($i = 0; $i < 16; $i++) {
|
||||||
|
$temp = new Math_BigInteger($this->_string_shift($chunk, 8), 256);
|
||||||
|
$temp->setPrecision(64);
|
||||||
|
$w[] = $temp;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Extend the sixteen 32-bit words into eighty 32-bit words
|
||||||
|
for ($i = 16; $i < 80; $i++) {
|
||||||
|
$temp = array(
|
||||||
|
$w[$i - 15]->bitwise_rightRotate(1),
|
||||||
|
$w[$i - 15]->bitwise_rightRotate(8),
|
||||||
|
$w[$i - 15]->bitwise_rightShift(7)
|
||||||
|
);
|
||||||
|
$s0 = $temp[0]->bitwise_xor($temp[1]);
|
||||||
|
$s0 = $s0->bitwise_xor($temp[2]);
|
||||||
|
$temp = array(
|
||||||
|
$w[$i - 2]->bitwise_rightRotate(19),
|
||||||
|
$w[$i - 2]->bitwise_rightRotate(61),
|
||||||
|
$w[$i - 2]->bitwise_rightShift(6)
|
||||||
|
);
|
||||||
|
$s1 = $temp[0]->bitwise_xor($temp[1]);
|
||||||
|
$s1 = $s1->bitwise_xor($temp[2]);
|
||||||
|
$w[$i] = $w[$i - 16]->copy();
|
||||||
|
$w[$i] = $w[$i]->add($s0);
|
||||||
|
$w[$i] = $w[$i]->add($w[$i - 7]);
|
||||||
|
$w[$i] = $w[$i]->add($s1);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Initialize hash value for this chunk
|
||||||
|
$a = $hash[0]->copy();
|
||||||
|
$b = $hash[1]->copy();
|
||||||
|
$c = $hash[2]->copy();
|
||||||
|
$d = $hash[3]->copy();
|
||||||
|
$e = $hash[4]->copy();
|
||||||
|
$f = $hash[5]->copy();
|
||||||
|
$g = $hash[6]->copy();
|
||||||
|
$h = $hash[7]->copy();
|
||||||
|
|
||||||
|
// Main loop
|
||||||
|
for ($i = 0; $i < 80; $i++) {
|
||||||
|
$temp = array(
|
||||||
|
$a->bitwise_rightRotate(28),
|
||||||
|
$a->bitwise_rightRotate(34),
|
||||||
|
$a->bitwise_rightRotate(39)
|
||||||
|
);
|
||||||
|
$s0 = $temp[0]->bitwise_xor($temp[1]);
|
||||||
|
$s0 = $s0->bitwise_xor($temp[2]);
|
||||||
|
$temp = array(
|
||||||
|
$a->bitwise_and($b),
|
||||||
|
$a->bitwise_and($c),
|
||||||
|
$b->bitwise_and($c)
|
||||||
|
);
|
||||||
|
$maj = $temp[0]->bitwise_xor($temp[1]);
|
||||||
|
$maj = $maj->bitwise_xor($temp[2]);
|
||||||
|
$t2 = $s0->add($maj);
|
||||||
|
|
||||||
|
$temp = array(
|
||||||
|
$e->bitwise_rightRotate(14),
|
||||||
|
$e->bitwise_rightRotate(18),
|
||||||
|
$e->bitwise_rightRotate(41)
|
||||||
|
);
|
||||||
|
$s1 = $temp[0]->bitwise_xor($temp[1]);
|
||||||
|
$s1 = $s1->bitwise_xor($temp[2]);
|
||||||
|
$temp = array(
|
||||||
|
$e->bitwise_and($f),
|
||||||
|
$g->bitwise_and($e->bitwise_not())
|
||||||
|
);
|
||||||
|
$ch = $temp[0]->bitwise_xor($temp[1]);
|
||||||
|
$t1 = $h->add($s1);
|
||||||
|
$t1 = $t1->add($ch);
|
||||||
|
$t1 = $t1->add($k[$i]);
|
||||||
|
$t1 = $t1->add($w[$i]);
|
||||||
|
|
||||||
|
$h = $g->copy();
|
||||||
|
$g = $f->copy();
|
||||||
|
$f = $e->copy();
|
||||||
|
$e = $d->add($t1);
|
||||||
|
$d = $c->copy();
|
||||||
|
$c = $b->copy();
|
||||||
|
$b = $a->copy();
|
||||||
|
$a = $t1->add($t2);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Add this chunk's hash to result so far
|
||||||
|
$hash = array(
|
||||||
|
$hash[0]->add($a),
|
||||||
|
$hash[1]->add($b),
|
||||||
|
$hash[2]->add($c),
|
||||||
|
$hash[3]->add($d),
|
||||||
|
$hash[4]->add($e),
|
||||||
|
$hash[5]->add($f),
|
||||||
|
$hash[6]->add($g),
|
||||||
|
$hash[7]->add($h)
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Produce the final hash value (big-endian)
|
||||||
|
// (Crypt_Hash::hash() trims the output for hashes but not for HMACs. as such, we trim the output here)
|
||||||
|
$temp = $hash[0]->toBytes() . $hash[1]->toBytes() . $hash[2]->toBytes() . $hash[3]->toBytes() .
|
||||||
|
$hash[4]->toBytes() . $hash[5]->toBytes();
|
||||||
|
if ($this->l != 48) {
|
||||||
|
$temp.= $hash[6]->toBytes() . $hash[7]->toBytes();
|
||||||
|
}
|
||||||
|
|
||||||
|
return $temp;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Right Rotate
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param Integer $int
|
||||||
|
* @param Integer $amt
|
||||||
|
* @see _sha256()
|
||||||
|
* @return Integer
|
||||||
|
*/
|
||||||
|
function _rightRotate($int, $amt)
|
||||||
|
{
|
||||||
|
$invamt = 32 - $amt;
|
||||||
|
$mask = (1 << $invamt) - 1;
|
||||||
|
return (($int << $invamt) & 0xFFFFFFFF) | (($int >> $amt) & $mask);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Right Shift
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param Integer $int
|
||||||
|
* @param Integer $amt
|
||||||
|
* @see _sha256()
|
||||||
|
* @return Integer
|
||||||
|
*/
|
||||||
|
function _rightShift($int, $amt)
|
||||||
|
{
|
||||||
|
$mask = (1 << (32 - $amt)) - 1;
|
||||||
|
return ($int >> $amt) & $mask;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Not
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param Integer $int
|
||||||
|
* @see _sha256()
|
||||||
|
* @return Integer
|
||||||
|
*/
|
||||||
|
function _not($int)
|
||||||
|
{
|
||||||
|
return ~$int & 0xFFFFFFFF;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Add
|
||||||
|
*
|
||||||
|
* _sha256() adds multiple unsigned 32-bit integers. Since PHP doesn't support unsigned integers and since the
|
||||||
|
* possibility of overflow exists, care has to be taken. Math_BigInteger() could be used but this should be faster.
|
||||||
|
*
|
||||||
|
* @param Integer $...
|
||||||
|
* @return Integer
|
||||||
|
* @see _sha256()
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _add()
|
||||||
|
{
|
||||||
|
static $mod;
|
||||||
|
if (!isset($mod)) {
|
||||||
|
$mod = pow(2, 32);
|
||||||
|
}
|
||||||
|
|
||||||
|
$result = 0;
|
||||||
|
$arguments = func_get_args();
|
||||||
|
foreach ($arguments as $argument) {
|
||||||
|
$result+= $argument < 0 ? ($argument & 0x7FFFFFFF) + 0x80000000 : $argument;
|
||||||
|
}
|
||||||
|
|
||||||
|
return fmod($result, $mod);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* String Shift
|
||||||
|
*
|
||||||
|
* Inspired by array_shift
|
||||||
|
*
|
||||||
|
* @param String $string
|
||||||
|
* @param optional Integer $index
|
||||||
|
* @return String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _string_shift(&$string, $index = 1)
|
||||||
|
{
|
||||||
|
$substr = substr($string, 0, $index);
|
||||||
|
$string = substr($string, $index);
|
||||||
|
return $substr;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,652 @@
|
||||||
|
<?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);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @access private
|
||||||
|
* @see Crypt_RC2::Crypt_RC2()
|
||||||
|
*/
|
||||||
|
/**
|
||||||
|
* Toggles the internal implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_RC2_MODE_INTERNAL', CRYPT_MODE_INTERNAL);
|
||||||
|
/**
|
||||||
|
* Toggles the mcrypt implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_RC2_MODE_MCRYPT', CRYPT_MODE_MCRYPT);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* 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 = "\0";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* 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 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(
|
||||||
|
0xD9, 0x78, 0xF9, 0xC4, 0x19, 0xDD, 0xB5, 0xED,
|
||||||
|
0x28, 0xE9, 0xFD, 0x79, 0x4A, 0xA0, 0xD8, 0x9D,
|
||||||
|
0xC6, 0x7E, 0x37, 0x83, 0x2B, 0x76, 0x53, 0x8E,
|
||||||
|
0x62, 0x4C, 0x64, 0x88, 0x44, 0x8B, 0xFB, 0xA2,
|
||||||
|
0x17, 0x9A, 0x59, 0xF5, 0x87, 0xB3, 0x4F, 0x13,
|
||||||
|
0x61, 0x45, 0x6D, 0x8D, 0x09, 0x81, 0x7D, 0x32,
|
||||||
|
0xBD, 0x8F, 0x40, 0xEB, 0x86, 0xB7, 0x7B, 0x0B,
|
||||||
|
0xF0, 0x95, 0x21, 0x22, 0x5C, 0x6B, 0x4E, 0x82,
|
||||||
|
0x54, 0xD6, 0x65, 0x93, 0xCE, 0x60, 0xB2, 0x1C,
|
||||||
|
0x73, 0x56, 0xC0, 0x14, 0xA7, 0x8C, 0xF1, 0xDC,
|
||||||
|
0x12, 0x75, 0xCA, 0x1F, 0x3B, 0xBE, 0xE4, 0xD1,
|
||||||
|
0x42, 0x3D, 0xD4, 0x30, 0xA3, 0x3C, 0xB6, 0x26,
|
||||||
|
0x6F, 0xBF, 0x0E, 0xDA, 0x46, 0x69, 0x07, 0x57,
|
||||||
|
0x27, 0xF2, 0x1D, 0x9B, 0xBC, 0x94, 0x43, 0x03,
|
||||||
|
0xF8, 0x11, 0xC7, 0xF6, 0x90, 0xEF, 0x3E, 0xE7,
|
||||||
|
0x06, 0xC3, 0xD5, 0x2F, 0xC8, 0x66, 0x1E, 0xD7,
|
||||||
|
0x08, 0xE8, 0xEA, 0xDE, 0x80, 0x52, 0xEE, 0xF7,
|
||||||
|
0x84, 0xAA, 0x72, 0xAC, 0x35, 0x4D, 0x6A, 0x2A,
|
||||||
|
0x96, 0x1A, 0xD2, 0x71, 0x5A, 0x15, 0x49, 0x74,
|
||||||
|
0x4B, 0x9F, 0xD0, 0x5E, 0x04, 0x18, 0xA4, 0xEC,
|
||||||
|
0xC2, 0xE0, 0x41, 0x6E, 0x0F, 0x51, 0xCB, 0xCC,
|
||||||
|
0x24, 0x91, 0xAF, 0x50, 0xA1, 0xF4, 0x70, 0x39,
|
||||||
|
0x99, 0x7C, 0x3A, 0x85, 0x23, 0xB8, 0xB4, 0x7A,
|
||||||
|
0xFC, 0x02, 0x36, 0x5B, 0x25, 0x55, 0x97, 0x31,
|
||||||
|
0x2D, 0x5D, 0xFA, 0x98, 0xE3, 0x8A, 0x92, 0xAE,
|
||||||
|
0x05, 0xDF, 0x29, 0x10, 0x67, 0x6C, 0xBA, 0xC9,
|
||||||
|
0xD3, 0x00, 0xE6, 0xCF, 0xE1, 0x9E, 0xA8, 0x2C,
|
||||||
|
0x63, 0x16, 0x01, 0x3F, 0x58, 0xE2, 0x89, 0xA9,
|
||||||
|
0x0D, 0x38, 0x34, 0x1B, 0xAB, 0x33, 0xFF, 0xB0,
|
||||||
|
0xBB, 0x48, 0x0C, 0x5F, 0xB9, 0xB1, 0xCD, 0x2E,
|
||||||
|
0xC5, 0xF3, 0xDB, 0x47, 0xE5, 0xA5, 0x9C, 0x77,
|
||||||
|
0x0A, 0xA6, 0x20, 0x68, 0xFE, 0x7F, 0xC1, 0xAD,
|
||||||
|
0xD9, 0x78, 0xF9, 0xC4, 0x19, 0xDD, 0xB5, 0xED,
|
||||||
|
0x28, 0xE9, 0xFD, 0x79, 0x4A, 0xA0, 0xD8, 0x9D,
|
||||||
|
0xC6, 0x7E, 0x37, 0x83, 0x2B, 0x76, 0x53, 0x8E,
|
||||||
|
0x62, 0x4C, 0x64, 0x88, 0x44, 0x8B, 0xFB, 0xA2,
|
||||||
|
0x17, 0x9A, 0x59, 0xF5, 0x87, 0xB3, 0x4F, 0x13,
|
||||||
|
0x61, 0x45, 0x6D, 0x8D, 0x09, 0x81, 0x7D, 0x32,
|
||||||
|
0xBD, 0x8F, 0x40, 0xEB, 0x86, 0xB7, 0x7B, 0x0B,
|
||||||
|
0xF0, 0x95, 0x21, 0x22, 0x5C, 0x6B, 0x4E, 0x82,
|
||||||
|
0x54, 0xD6, 0x65, 0x93, 0xCE, 0x60, 0xB2, 0x1C,
|
||||||
|
0x73, 0x56, 0xC0, 0x14, 0xA7, 0x8C, 0xF1, 0xDC,
|
||||||
|
0x12, 0x75, 0xCA, 0x1F, 0x3B, 0xBE, 0xE4, 0xD1,
|
||||||
|
0x42, 0x3D, 0xD4, 0x30, 0xA3, 0x3C, 0xB6, 0x26,
|
||||||
|
0x6F, 0xBF, 0x0E, 0xDA, 0x46, 0x69, 0x07, 0x57,
|
||||||
|
0x27, 0xF2, 0x1D, 0x9B, 0xBC, 0x94, 0x43, 0x03,
|
||||||
|
0xF8, 0x11, 0xC7, 0xF6, 0x90, 0xEF, 0x3E, 0xE7,
|
||||||
|
0x06, 0xC3, 0xD5, 0x2F, 0xC8, 0x66, 0x1E, 0xD7,
|
||||||
|
0x08, 0xE8, 0xEA, 0xDE, 0x80, 0x52, 0xEE, 0xF7,
|
||||||
|
0x84, 0xAA, 0x72, 0xAC, 0x35, 0x4D, 0x6A, 0x2A,
|
||||||
|
0x96, 0x1A, 0xD2, 0x71, 0x5A, 0x15, 0x49, 0x74,
|
||||||
|
0x4B, 0x9F, 0xD0, 0x5E, 0x04, 0x18, 0xA4, 0xEC,
|
||||||
|
0xC2, 0xE0, 0x41, 0x6E, 0x0F, 0x51, 0xCB, 0xCC,
|
||||||
|
0x24, 0x91, 0xAF, 0x50, 0xA1, 0xF4, 0x70, 0x39,
|
||||||
|
0x99, 0x7C, 0x3A, 0x85, 0x23, 0xB8, 0xB4, 0x7A,
|
||||||
|
0xFC, 0x02, 0x36, 0x5B, 0x25, 0x55, 0x97, 0x31,
|
||||||
|
0x2D, 0x5D, 0xFA, 0x98, 0xE3, 0x8A, 0x92, 0xAE,
|
||||||
|
0x05, 0xDF, 0x29, 0x10, 0x67, 0x6C, 0xBA, 0xC9,
|
||||||
|
0xD3, 0x00, 0xE6, 0xCF, 0xE1, 0x9E, 0xA8, 0x2C,
|
||||||
|
0x63, 0x16, 0x01, 0x3F, 0x58, 0xE2, 0x89, 0xA9,
|
||||||
|
0x0D, 0x38, 0x34, 0x1B, 0xAB, 0x33, 0xFF, 0xB0,
|
||||||
|
0xBB, 0x48, 0x0C, 0x5F, 0xB9, 0xB1, 0xCD, 0x2E,
|
||||||
|
0xC5, 0xF3, 0xDB, 0x47, 0xE5, 0xA5, 0x9C, 0x77,
|
||||||
|
0x0A, 0xA6, 0x20, 0x68, 0xFE, 0x7F, 0xC1, 0xAD
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Inverse key expansion randomization table.
|
||||||
|
*
|
||||||
|
* @see Crypt_RC2::setKey()
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $invpitable = array(
|
||||||
|
0xD1, 0xDA, 0xB9, 0x6F, 0x9C, 0xC8, 0x78, 0x66,
|
||||||
|
0x80, 0x2C, 0xF8, 0x37, 0xEA, 0xE0, 0x62, 0xA4,
|
||||||
|
0xCB, 0x71, 0x50, 0x27, 0x4B, 0x95, 0xD9, 0x20,
|
||||||
|
0x9D, 0x04, 0x91, 0xE3, 0x47, 0x6A, 0x7E, 0x53,
|
||||||
|
0xFA, 0x3A, 0x3B, 0xB4, 0xA8, 0xBC, 0x5F, 0x68,
|
||||||
|
0x08, 0xCA, 0x8F, 0x14, 0xD7, 0xC0, 0xEF, 0x7B,
|
||||||
|
0x5B, 0xBF, 0x2F, 0xE5, 0xE2, 0x8C, 0xBA, 0x12,
|
||||||
|
0xE1, 0xAF, 0xB2, 0x54, 0x5D, 0x59, 0x76, 0xDB,
|
||||||
|
0x32, 0xA2, 0x58, 0x6E, 0x1C, 0x29, 0x64, 0xF3,
|
||||||
|
0xE9, 0x96, 0x0C, 0x98, 0x19, 0x8D, 0x3E, 0x26,
|
||||||
|
0xAB, 0xA5, 0x85, 0x16, 0x40, 0xBD, 0x49, 0x67,
|
||||||
|
0xDC, 0x22, 0x94, 0xBB, 0x3C, 0xC1, 0x9B, 0xEB,
|
||||||
|
0x45, 0x28, 0x18, 0xD8, 0x1A, 0x42, 0x7D, 0xCC,
|
||||||
|
0xFB, 0x65, 0x8E, 0x3D, 0xCD, 0x2A, 0xA3, 0x60,
|
||||||
|
0xAE, 0x93, 0x8A, 0x48, 0x97, 0x51, 0x15, 0xF7,
|
||||||
|
0x01, 0x0B, 0xB7, 0x36, 0xB1, 0x2E, 0x11, 0xFD,
|
||||||
|
0x84, 0x2D, 0x3F, 0x13, 0x88, 0xB3, 0x34, 0x24,
|
||||||
|
0x1B, 0xDE, 0xC5, 0x1D, 0x4D, 0x2B, 0x17, 0x31,
|
||||||
|
0x74, 0xA9, 0xC6, 0x43, 0x6D, 0x39, 0x90, 0xBE,
|
||||||
|
0xC3, 0xB0, 0x21, 0x6B, 0xF6, 0x0F, 0xD5, 0x99,
|
||||||
|
0x0D, 0xAC, 0x1F, 0x5C, 0x9E, 0xF5, 0xF9, 0x4C,
|
||||||
|
0xD6, 0xDF, 0x89, 0xE4, 0x8B, 0xFF, 0xC7, 0xAA,
|
||||||
|
0xE7, 0xED, 0x46, 0x25, 0xB6, 0x06, 0x5E, 0x35,
|
||||||
|
0xB5, 0xEC, 0xCE, 0xE8, 0x6C, 0x30, 0x55, 0x61,
|
||||||
|
0x4A, 0xFE, 0xA0, 0x79, 0x03, 0xF0, 0x10, 0x72,
|
||||||
|
0x7C, 0xCF, 0x52, 0xA6, 0xA7, 0xEE, 0x44, 0xD3,
|
||||||
|
0x9A, 0x57, 0x92, 0xD0, 0x5A, 0x7A, 0x41, 0x7F,
|
||||||
|
0x0E, 0x00, 0x63, 0xF2, 0x4F, 0x05, 0x83, 0xC9,
|
||||||
|
0xA1, 0xD4, 0xDD, 0xC4, 0x56, 0xF4, 0xD2, 0x77,
|
||||||
|
0x81, 0x09, 0x82, 0x33, 0x9F, 0x07, 0x86, 0x75,
|
||||||
|
0x38, 0x4E, 0x69, 0xF1, 0xAD, 0x23, 0x73, 0x87,
|
||||||
|
0x70, 0x02, 0xC2, 0x1E, 0xB8, 0x0A, 0xFC, 0xE6
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* 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);
|
||||||
|
$this->setKey('');
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* 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 >= 1 && $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)
|
||||||
|
{
|
||||||
|
if ($t1 <= 0) {
|
||||||
|
$t1 = $this->default_key_length;
|
||||||
|
} else if ($t1 > 1024) {
|
||||||
|
$t1 = 1024;
|
||||||
|
}
|
||||||
|
// Key byte count should be 1..128.
|
||||||
|
$key = strlen($key) ? substr($key, 0, 128) : "\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 >> (8 * $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 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 => 44, 44 => 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 => 20, 20 => 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);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates the key schedule
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::_setupKey()
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _setupKey()
|
||||||
|
{
|
||||||
|
// 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.
|
||||||
|
$keys = $this->keys;
|
||||||
|
if (count($lambda_functions) >= 10) {
|
||||||
|
foreach ($this->keys as $k => $v) {
|
||||||
|
$keys[$k] = '$keys[' . $k . ']';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$code_hash = md5(str_pad("Crypt_RC2, {$this->mode}, ", 32, "\0") . implode(',', $keys));
|
||||||
|
|
||||||
|
// 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;';
|
||||||
|
|
||||||
|
// $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 => 44, 44 => 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 => 20, 20 => 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];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,329 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of RC4.
|
||||||
|
*
|
||||||
|
* Uses mcrypt, if available, and an internal implementation, otherwise.
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* Useful resources are as follows:
|
||||||
|
*
|
||||||
|
* - {@link http://www.mozilla.org/projects/security/pki/nss/draft-kaukonen-cipher-arcfour-03.txt ARCFOUR Algorithm}
|
||||||
|
* - {@link http://en.wikipedia.org/wiki/RC4 - Wikipedia: RC4}
|
||||||
|
*
|
||||||
|
* RC4 is also known as ARCFOUR or ARC4. The reason is elaborated upon at Wikipedia. This class is named RC4 and not
|
||||||
|
* ARCFOUR or ARC4 because RC4 is how it is referred to in the SSH1 specification.
|
||||||
|
*
|
||||||
|
* Here's a short example of how to use this library:
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* include 'Crypt/RC4.php';
|
||||||
|
*
|
||||||
|
* $rc4 = new Crypt_RC4();
|
||||||
|
*
|
||||||
|
* $rc4->setKey('abcdefgh');
|
||||||
|
*
|
||||||
|
* $size = 10 * 1024;
|
||||||
|
* $plaintext = '';
|
||||||
|
* for ($i = 0; $i < $size; $i++) {
|
||||||
|
* $plaintext.= 'a';
|
||||||
|
* }
|
||||||
|
*
|
||||||
|
* echo $rc4->decrypt($rc4->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_RC4
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2007 Jim Wigginton
|
||||||
|
* @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 private
|
||||||
|
* @see Crypt_RC4::Crypt_RC4()
|
||||||
|
*/
|
||||||
|
/**
|
||||||
|
* Toggles the internal implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_RC4_MODE_INTERNAL', CRYPT_MODE_INTERNAL);
|
||||||
|
/**
|
||||||
|
* Toggles the mcrypt implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_RC4_MODE_MCRYPT', CRYPT_MODE_MCRYPT);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @access private
|
||||||
|
* @see Crypt_RC4::_crypt()
|
||||||
|
*/
|
||||||
|
define('CRYPT_RC4_ENCRYPT', 0);
|
||||||
|
define('CRYPT_RC4_DECRYPT', 1);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of RC4.
|
||||||
|
*
|
||||||
|
* @package Crypt_RC4
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class Crypt_RC4 extends Crypt_Base
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Block Length of the cipher
|
||||||
|
*
|
||||||
|
* RC4 is a stream cipher
|
||||||
|
* so we the block_size to 0
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::block_size
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $block_size = 0;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* 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 = 128; // = 1024 bits
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The namespace used by the cipher for its constants.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::const_namespace
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $const_namespace = 'RC4';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The mcrypt specific name of the cipher
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::cipher_name_mcrypt
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $cipher_name_mcrypt = 'arcfour';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Holds whether performance-optimized $inline_crypt() can/should be used.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::inline_crypt
|
||||||
|
* @var mixed
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $use_inline_crypt = false; // currently not available
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The Key
|
||||||
|
*
|
||||||
|
* @see Crypt_RC4::setKey()
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $key = "\0";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The Key Stream for decryption and encryption
|
||||||
|
*
|
||||||
|
* @see Crypt_RC4::setKey()
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $stream;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default Constructor.
|
||||||
|
*
|
||||||
|
* Determines whether or not the mcrypt extension should be used.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::Crypt_Base()
|
||||||
|
* @return Crypt_RC4
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function Crypt_RC4()
|
||||||
|
{
|
||||||
|
parent::Crypt_Base(CRYPT_MODE_STREAM);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Dummy function.
|
||||||
|
*
|
||||||
|
* Some protocols, such as WEP, prepend an "initialization vector" to the key, effectively creating a new key [1].
|
||||||
|
* If you need to use an initialization vector in this manner, feel free to prepend it to the key, yourself, before
|
||||||
|
* calling setKey().
|
||||||
|
*
|
||||||
|
* [1] WEP's initialization vectors (IV's) are used in a somewhat insecure way. Since, in that protocol,
|
||||||
|
* the IV's are relatively easy to predict, an attack described by
|
||||||
|
* {@link http://www.drizzle.com/~aboba/IEEE/rc4_ksaproc.pdf Scott Fluhrer, Itsik Mantin, and Adi Shamir}
|
||||||
|
* can be used to quickly guess at the rest of the key. The following links elaborate:
|
||||||
|
*
|
||||||
|
* {@link http://www.rsa.com/rsalabs/node.asp?id=2009 http://www.rsa.com/rsalabs/node.asp?id=2009}
|
||||||
|
* {@link http://en.wikipedia.org/wiki/Related_key_attack http://en.wikipedia.org/wiki/Related_key_attack}
|
||||||
|
*
|
||||||
|
* @param String $iv
|
||||||
|
* @see Crypt_RC4::setKey()
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function setIV($iv)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the key.
|
||||||
|
*
|
||||||
|
* Keys can be between 1 and 256 bytes long. If they are longer then 256 bytes, the first 256 bytes will
|
||||||
|
* be used. If no key is explicitly set, it'll be assumed to be a single null byte.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @see Crypt_Base::setKey()
|
||||||
|
* @param String $key
|
||||||
|
*/
|
||||||
|
function setKey($key)
|
||||||
|
{
|
||||||
|
parent::setKey(substr($key, 0, 256));
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Encrypts a message.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::decrypt()
|
||||||
|
* @see Crypt_RC4::_crypt()
|
||||||
|
* @access public
|
||||||
|
* @param String $plaintext
|
||||||
|
* @return String $ciphertext
|
||||||
|
*/
|
||||||
|
function encrypt($plaintext)
|
||||||
|
{
|
||||||
|
if ($this->engine == CRYPT_MODE_MCRYPT) {
|
||||||
|
return parent::encrypt($plaintext);
|
||||||
|
}
|
||||||
|
return $this->_crypt($plaintext, CRYPT_RC4_ENCRYPT);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Decrypts a message.
|
||||||
|
*
|
||||||
|
* $this->decrypt($this->encrypt($plaintext)) == $this->encrypt($this->encrypt($plaintext)).
|
||||||
|
* At least if the continuous buffer is disabled.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::encrypt()
|
||||||
|
* @see Crypt_RC4::_crypt()
|
||||||
|
* @access public
|
||||||
|
* @param String $ciphertext
|
||||||
|
* @return String $plaintext
|
||||||
|
*/
|
||||||
|
function decrypt($ciphertext)
|
||||||
|
{
|
||||||
|
if ($this->engine == CRYPT_MODE_MCRYPT) {
|
||||||
|
return parent::decrypt($ciphertext);
|
||||||
|
}
|
||||||
|
return $this->_crypt($ciphertext, CRYPT_RC4_DECRYPT);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Setup the key (expansion)
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::_setupKey()
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _setupKey()
|
||||||
|
{
|
||||||
|
$key = $this->key;
|
||||||
|
$keyLength = strlen($key);
|
||||||
|
$keyStream = range(0, 255);
|
||||||
|
$j = 0;
|
||||||
|
for ($i = 0; $i < 256; $i++) {
|
||||||
|
$j = ($j + $keyStream[$i] + ord($key[$i % $keyLength])) & 255;
|
||||||
|
$temp = $keyStream[$i];
|
||||||
|
$keyStream[$i] = $keyStream[$j];
|
||||||
|
$keyStream[$j] = $temp;
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->stream = array();
|
||||||
|
$this->stream[CRYPT_RC4_DECRYPT] = $this->stream[CRYPT_RC4_ENCRYPT] = array(
|
||||||
|
0, // index $i
|
||||||
|
0, // index $j
|
||||||
|
$keyStream
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Encrypts or decrypts a message.
|
||||||
|
*
|
||||||
|
* @see Crypt_RC4::encrypt()
|
||||||
|
* @see Crypt_RC4::decrypt()
|
||||||
|
* @access private
|
||||||
|
* @param String $text
|
||||||
|
* @param Integer $mode
|
||||||
|
* @return String $text
|
||||||
|
*/
|
||||||
|
function _crypt($text, $mode)
|
||||||
|
{
|
||||||
|
if ($this->changed) {
|
||||||
|
$this->_setup();
|
||||||
|
$this->changed = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$stream = &$this->stream[$mode];
|
||||||
|
if ($this->continuousBuffer) {
|
||||||
|
$i = &$stream[0];
|
||||||
|
$j = &$stream[1];
|
||||||
|
$keyStream = &$stream[2];
|
||||||
|
} else {
|
||||||
|
$i = $stream[0];
|
||||||
|
$j = $stream[1];
|
||||||
|
$keyStream = $stream[2];
|
||||||
|
}
|
||||||
|
|
||||||
|
$len = strlen($text);
|
||||||
|
for ($k = 0; $k < $len; ++$k) {
|
||||||
|
$i = ($i + 1) & 255;
|
||||||
|
$ksi = $keyStream[$i];
|
||||||
|
$j = ($j + $ksi) & 255;
|
||||||
|
$ksj = $keyStream[$j];
|
||||||
|
|
||||||
|
$keyStream[$i] = $ksj;
|
||||||
|
$keyStream[$j] = $ksi;
|
||||||
|
$text[$k] = $text[$k] ^ chr($keyStream[($ksj + $ksi) & 255]);
|
||||||
|
}
|
||||||
|
|
||||||
|
return $text;
|
||||||
|
}
|
||||||
|
}
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,300 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Random Number Generator
|
||||||
|
*
|
||||||
|
* The idea behind this function is that it can be easily replaced with your own crypt_random_string()
|
||||||
|
* function. eg. maybe you have a better source of entropy for creating the initial states or whatever.
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* Here's a short example of how to use this library:
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* include 'Crypt/Random.php';
|
||||||
|
*
|
||||||
|
* echo bin2hex(crypt_random_string(8));
|
||||||
|
* ?>
|
||||||
|
* </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_Random
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2007 Jim Wigginton
|
||||||
|
* @license http://www.opensource.org/licenses/mit-license.html MIT License
|
||||||
|
* @link http://phpseclib.sourceforge.net
|
||||||
|
*/
|
||||||
|
|
||||||
|
// laravel is a PHP framework that utilizes phpseclib. laravel workbenches may, independently,
|
||||||
|
// have phpseclib as a requirement as well. if you're developing such a program you may encounter
|
||||||
|
// a "Cannot redeclare crypt_random_string()" error.
|
||||||
|
if (!function_exists('crypt_random_string')) {
|
||||||
|
/**
|
||||||
|
* "Is Windows" test
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
define('CRYPT_RANDOM_IS_WINDOWS', strtoupper(substr(PHP_OS, 0, 3)) === 'WIN');
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Generate a random string.
|
||||||
|
*
|
||||||
|
* Although microoptimizations are generally discouraged as they impair readability this function is ripe with
|
||||||
|
* microoptimizations because this function has the potential of being called a huge number of times.
|
||||||
|
* eg. for RSA key generation.
|
||||||
|
*
|
||||||
|
* @param Integer $length
|
||||||
|
* @return String
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function crypt_random_string($length)
|
||||||
|
{
|
||||||
|
if (CRYPT_RANDOM_IS_WINDOWS) {
|
||||||
|
// method 1. prior to PHP 5.3 this would call rand() on windows hence the function_exists('class_alias') call.
|
||||||
|
// ie. class_alias is a function that was introduced in PHP 5.3
|
||||||
|
if (function_exists('mcrypt_create_iv') && function_exists('class_alias')) {
|
||||||
|
return mcrypt_create_iv($length);
|
||||||
|
}
|
||||||
|
// method 2. openssl_random_pseudo_bytes was introduced in PHP 5.3.0 but prior to PHP 5.3.4 there was,
|
||||||
|
// to quote <http://php.net/ChangeLog-5.php#5.3.4>, "possible blocking behavior". as of 5.3.4
|
||||||
|
// openssl_random_pseudo_bytes and mcrypt_create_iv do the exact same thing on Windows. ie. they both
|
||||||
|
// call php_win32_get_random_bytes():
|
||||||
|
//
|
||||||
|
// https://github.com/php/php-src/blob/7014a0eb6d1611151a286c0ff4f2238f92c120d6/ext/openssl/openssl.c#L5008
|
||||||
|
// https://github.com/php/php-src/blob/7014a0eb6d1611151a286c0ff4f2238f92c120d6/ext/mcrypt/mcrypt.c#L1392
|
||||||
|
//
|
||||||
|
// php_win32_get_random_bytes() is defined thusly:
|
||||||
|
//
|
||||||
|
// https://github.com/php/php-src/blob/7014a0eb6d1611151a286c0ff4f2238f92c120d6/win32/winutil.c#L80
|
||||||
|
//
|
||||||
|
// we're calling it, all the same, in the off chance that the mcrypt extension is not available
|
||||||
|
if (function_exists('openssl_random_pseudo_bytes') && version_compare(PHP_VERSION, '5.3.4', '>=')) {
|
||||||
|
return openssl_random_pseudo_bytes($length);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
// method 1. the fastest
|
||||||
|
if (function_exists('openssl_random_pseudo_bytes')) {
|
||||||
|
return openssl_random_pseudo_bytes($length);
|
||||||
|
}
|
||||||
|
// method 2
|
||||||
|
static $fp = true;
|
||||||
|
if ($fp === true) {
|
||||||
|
// warning's will be output unles the error suppression operator is used. errors such as
|
||||||
|
// "open_basedir restriction in effect", "Permission denied", "No such file or directory", etc.
|
||||||
|
$fp = @fopen('/dev/urandom', 'rb');
|
||||||
|
}
|
||||||
|
if ($fp !== true && $fp !== false) { // surprisingly faster than !is_bool() or is_resource()
|
||||||
|
return fread($fp, $length);
|
||||||
|
}
|
||||||
|
// method 3. pretty much does the same thing as method 2 per the following url:
|
||||||
|
// https://github.com/php/php-src/blob/7014a0eb6d1611151a286c0ff4f2238f92c120d6/ext/mcrypt/mcrypt.c#L1391
|
||||||
|
// surprisingly slower than method 2. maybe that's because mcrypt_create_iv does a bunch of error checking that we're
|
||||||
|
// not doing. regardless, this'll only be called if this PHP script couldn't open /dev/urandom due to open_basedir
|
||||||
|
// restrictions or some such
|
||||||
|
if (function_exists('mcrypt_create_iv')) {
|
||||||
|
return mcrypt_create_iv($length, MCRYPT_DEV_URANDOM);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// at this point we have no choice but to use a pure-PHP CSPRNG
|
||||||
|
|
||||||
|
// cascade entropy across multiple PHP instances by fixing the session and collecting all
|
||||||
|
// environmental variables, including the previous session data and the current session
|
||||||
|
// data.
|
||||||
|
//
|
||||||
|
// mt_rand seeds itself by looking at the PID and the time, both of which are (relatively)
|
||||||
|
// easy to guess at. linux uses mouse clicks, keyboard timings, etc, as entropy sources, but
|
||||||
|
// PHP isn't low level to be able to use those as sources and on a web server there's not likely
|
||||||
|
// going to be a ton of keyboard or mouse action. web servers do have one thing that we can use
|
||||||
|
// however, a ton of people visiting the website. obviously you don't want to base your seeding
|
||||||
|
// soley on parameters a potential attacker sends but (1) not everything in $_SERVER is controlled
|
||||||
|
// by the user and (2) this isn't just looking at the data sent by the current user - it's based
|
||||||
|
// on the data sent by all users. one user requests the page and a hash of their info is saved.
|
||||||
|
// another user visits the page and the serialization of their data is utilized along with the
|
||||||
|
// server envirnment stuff and a hash of the previous http request data (which itself utilizes
|
||||||
|
// a hash of the session data before that). certainly an attacker should be assumed to have
|
||||||
|
// full control over his own http requests. he, however, is not going to have control over
|
||||||
|
// everyone's http requests.
|
||||||
|
static $crypto = false, $v;
|
||||||
|
if ($crypto === false) {
|
||||||
|
// save old session data
|
||||||
|
$old_session_id = session_id();
|
||||||
|
$old_use_cookies = ini_get('session.use_cookies');
|
||||||
|
$old_session_cache_limiter = session_cache_limiter();
|
||||||
|
$_OLD_SESSION = isset($_SESSION) ? $_SESSION : false;
|
||||||
|
if ($old_session_id != '') {
|
||||||
|
session_write_close();
|
||||||
|
}
|
||||||
|
|
||||||
|
session_id(1);
|
||||||
|
ini_set('session.use_cookies', 0);
|
||||||
|
session_cache_limiter('');
|
||||||
|
session_start();
|
||||||
|
|
||||||
|
$v = $seed = $_SESSION['seed'] = pack('H*', sha1(
|
||||||
|
serialize($_SERVER) .
|
||||||
|
serialize($_POST) .
|
||||||
|
serialize($_GET) .
|
||||||
|
serialize($_COOKIE) .
|
||||||
|
serialize($GLOBALS) .
|
||||||
|
serialize($_SESSION) .
|
||||||
|
serialize($_OLD_SESSION)
|
||||||
|
));
|
||||||
|
if (!isset($_SESSION['count'])) {
|
||||||
|
$_SESSION['count'] = 0;
|
||||||
|
}
|
||||||
|
$_SESSION['count']++;
|
||||||
|
|
||||||
|
session_write_close();
|
||||||
|
|
||||||
|
// restore old session data
|
||||||
|
if ($old_session_id != '') {
|
||||||
|
session_id($old_session_id);
|
||||||
|
session_start();
|
||||||
|
ini_set('session.use_cookies', $old_use_cookies);
|
||||||
|
session_cache_limiter($old_session_cache_limiter);
|
||||||
|
} else {
|
||||||
|
if ($_OLD_SESSION !== false) {
|
||||||
|
$_SESSION = $_OLD_SESSION;
|
||||||
|
unset($_OLD_SESSION);
|
||||||
|
} else {
|
||||||
|
unset($_SESSION);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// in SSH2 a shared secret and an exchange hash are generated through the key exchange process.
|
||||||
|
// the IV client to server is the hash of that "nonce" with the letter A and for the encryption key it's the letter C.
|
||||||
|
// if the hash doesn't produce enough a key or an IV that's long enough concat successive hashes of the
|
||||||
|
// original hash and the current hash. we'll be emulating that. for more info see the following URL:
|
||||||
|
//
|
||||||
|
// http://tools.ietf.org/html/rfc4253#section-7.2
|
||||||
|
//
|
||||||
|
// see the is_string($crypto) part for an example of how to expand the keys
|
||||||
|
$key = pack('H*', sha1($seed . 'A'));
|
||||||
|
$iv = pack('H*', sha1($seed . 'C'));
|
||||||
|
|
||||||
|
// ciphers are used as per the nist.gov link below. also, see this link:
|
||||||
|
//
|
||||||
|
// http://en.wikipedia.org/wiki/Cryptographically_secure_pseudorandom_number_generator#Designs_based_on_cryptographic_primitives
|
||||||
|
switch (true) {
|
||||||
|
case phpseclib_resolve_include_path('Crypt/AES.php'):
|
||||||
|
if (!class_exists('Crypt_AES')) {
|
||||||
|
include_once 'AES.php';
|
||||||
|
}
|
||||||
|
$crypto = new Crypt_AES(CRYPT_AES_MODE_CTR);
|
||||||
|
break;
|
||||||
|
case phpseclib_resolve_include_path('Crypt/Twofish.php'):
|
||||||
|
if (!class_exists('Crypt_Twofish')) {
|
||||||
|
include_once 'Twofish.php';
|
||||||
|
}
|
||||||
|
$crypto = new Crypt_Twofish(CRYPT_TWOFISH_MODE_CTR);
|
||||||
|
break;
|
||||||
|
case phpseclib_resolve_include_path('Crypt/Blowfish.php'):
|
||||||
|
if (!class_exists('Crypt_Blowfish')) {
|
||||||
|
include_once 'Blowfish.php';
|
||||||
|
}
|
||||||
|
$crypto = new Crypt_Blowfish(CRYPT_BLOWFISH_MODE_CTR);
|
||||||
|
break;
|
||||||
|
case phpseclib_resolve_include_path('Crypt/TripleDES.php'):
|
||||||
|
if (!class_exists('Crypt_TripleDES')) {
|
||||||
|
include_once 'TripleDES.php';
|
||||||
|
}
|
||||||
|
$crypto = new Crypt_TripleDES(CRYPT_DES_MODE_CTR);
|
||||||
|
break;
|
||||||
|
case phpseclib_resolve_include_path('Crypt/DES.php'):
|
||||||
|
if (!class_exists('Crypt_DES')) {
|
||||||
|
include_once 'DES.php';
|
||||||
|
}
|
||||||
|
$crypto = new Crypt_DES(CRYPT_DES_MODE_CTR);
|
||||||
|
break;
|
||||||
|
case phpseclib_resolve_include_path('Crypt/RC4.php'):
|
||||||
|
if (!class_exists('Crypt_RC4')) {
|
||||||
|
include_once 'RC4.php';
|
||||||
|
}
|
||||||
|
$crypto = new Crypt_RC4();
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
user_error('crypt_random_string requires at least one symmetric cipher be loaded');
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$crypto->setKey($key);
|
||||||
|
$crypto->setIV($iv);
|
||||||
|
$crypto->enableContinuousBuffer();
|
||||||
|
}
|
||||||
|
|
||||||
|
//return $crypto->encrypt(str_repeat("\0", $length));
|
||||||
|
|
||||||
|
// the following is based off of ANSI X9.31:
|
||||||
|
//
|
||||||
|
// http://csrc.nist.gov/groups/STM/cavp/documents/rng/931rngext.pdf
|
||||||
|
//
|
||||||
|
// OpenSSL uses that same standard for it's random numbers:
|
||||||
|
//
|
||||||
|
// http://www.opensource.apple.com/source/OpenSSL/OpenSSL-38/openssl/fips-1.0/rand/fips_rand.c
|
||||||
|
// (do a search for "ANS X9.31 A.2.4")
|
||||||
|
$result = '';
|
||||||
|
while (strlen($result) < $length) {
|
||||||
|
$i = $crypto->encrypt(microtime()); // strlen(microtime()) == 21
|
||||||
|
$r = $crypto->encrypt($i ^ $v); // strlen($v) == 20
|
||||||
|
$v = $crypto->encrypt($r ^ $i); // strlen($r) == 20
|
||||||
|
$result.= $r;
|
||||||
|
}
|
||||||
|
return substr($result, 0, $length);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!function_exists('phpseclib_resolve_include_path')) {
|
||||||
|
/**
|
||||||
|
* Resolve filename against the include path.
|
||||||
|
*
|
||||||
|
* Wrapper around stream_resolve_include_path() (which was introduced in
|
||||||
|
* PHP 5.3.2) with fallback implementation for earlier PHP versions.
|
||||||
|
*
|
||||||
|
* @param string $filename
|
||||||
|
* @return mixed Filename (string) on success, false otherwise.
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function phpseclib_resolve_include_path($filename)
|
||||||
|
{
|
||||||
|
if (function_exists('stream_resolve_include_path')) {
|
||||||
|
return stream_resolve_include_path($filename);
|
||||||
|
}
|
||||||
|
|
||||||
|
// handle non-relative paths
|
||||||
|
if (file_exists($filename)) {
|
||||||
|
return realpath($filename);
|
||||||
|
}
|
||||||
|
|
||||||
|
$paths = PATH_SEPARATOR == ':' ?
|
||||||
|
preg_split('#(?<!phar):#', get_include_path()) :
|
||||||
|
explode(PATH_SEPARATOR, get_include_path());
|
||||||
|
foreach ($paths as $prefix) {
|
||||||
|
// path's specified in include_path don't always end in /
|
||||||
|
$ds = substr($prefix, -1) == DIRECTORY_SEPARATOR ? '' : DIRECTORY_SEPARATOR;
|
||||||
|
$file = $prefix . $ds . $filename;
|
||||||
|
if (file_exists($file)) {
|
||||||
|
return realpath($file);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,428 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of Triple DES.
|
||||||
|
*
|
||||||
|
* Uses mcrypt, if available, and an internal implementation, otherwise. Operates in the EDE3 mode (encrypt-decrypt-encrypt).
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* Here's a short example of how to use this library:
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* include 'Crypt/TripleDES.php';
|
||||||
|
*
|
||||||
|
* $des = new Crypt_TripleDES();
|
||||||
|
*
|
||||||
|
* $des->setKey('abcdefghijklmnopqrstuvwx');
|
||||||
|
*
|
||||||
|
* $size = 10 * 1024;
|
||||||
|
* $plaintext = '';
|
||||||
|
* for ($i = 0; $i < $size; $i++) {
|
||||||
|
* $plaintext.= 'a';
|
||||||
|
* }
|
||||||
|
*
|
||||||
|
* echo $des->decrypt($des->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_TripleDES
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2007 Jim Wigginton
|
||||||
|
* @license http://www.opensource.org/licenses/mit-license.html MIT License
|
||||||
|
* @link http://phpseclib.sourceforge.net
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Include Crypt_DES
|
||||||
|
*/
|
||||||
|
if (!class_exists('Crypt_DES')) {
|
||||||
|
include_once 'DES.php';
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Encrypt / decrypt using inner chaining
|
||||||
|
*
|
||||||
|
* Inner chaining is used by SSH-1 and is generally considered to be less secure then outer chaining (CRYPT_DES_MODE_CBC3).
|
||||||
|
*/
|
||||||
|
define('CRYPT_DES_MODE_3CBC', -2);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Encrypt / decrypt using outer chaining
|
||||||
|
*
|
||||||
|
* Outer chaining is used by SSH-2 and when the mode is set to CRYPT_DES_MODE_CBC.
|
||||||
|
*/
|
||||||
|
define('CRYPT_DES_MODE_CBC3', CRYPT_DES_MODE_CBC);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of Triple DES.
|
||||||
|
*
|
||||||
|
* @package Crypt_TripleDES
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class Crypt_TripleDES extends Crypt_DES
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* The default password key_size used by setPassword()
|
||||||
|
*
|
||||||
|
* @see Crypt_DES::password_key_size
|
||||||
|
* @see Crypt_Base::password_key_size
|
||||||
|
* @see Crypt_Base::setPassword()
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $password_key_size = 24;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The default salt used by setPassword()
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::password_default_salt
|
||||||
|
* @see Crypt_Base::setPassword()
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $password_default_salt = 'phpseclib';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The namespace used by the cipher for its constants.
|
||||||
|
*
|
||||||
|
* @see Crypt_DES::const_namespace
|
||||||
|
* @see Crypt_Base::const_namespace
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $const_namespace = 'DES';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The mcrypt specific name of the cipher
|
||||||
|
*
|
||||||
|
* @see Crypt_DES::cipher_name_mcrypt
|
||||||
|
* @see Crypt_Base::cipher_name_mcrypt
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $cipher_name_mcrypt = 'tripledes';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Optimizing value while CFB-encrypting
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::cfb_init_len
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $cfb_init_len = 750;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* max possible size of $key
|
||||||
|
*
|
||||||
|
* @see Crypt_TripleDES::setKey()
|
||||||
|
* @see Crypt_DES::setKey()
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $key_size_max = 24;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Internal flag whether using CRYPT_DES_MODE_3CBC or not
|
||||||
|
*
|
||||||
|
* @var Boolean
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $mode_3cbc;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The Crypt_DES objects
|
||||||
|
*
|
||||||
|
* Used only if $mode_3cbc === true
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $des;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default Constructor.
|
||||||
|
*
|
||||||
|
* Determines whether or not the mcrypt extension should be used.
|
||||||
|
*
|
||||||
|
* $mode could be:
|
||||||
|
*
|
||||||
|
* - CRYPT_DES_MODE_ECB
|
||||||
|
*
|
||||||
|
* - CRYPT_DES_MODE_CBC
|
||||||
|
*
|
||||||
|
* - CRYPT_DES_MODE_CTR
|
||||||
|
*
|
||||||
|
* - CRYPT_DES_MODE_CFB
|
||||||
|
*
|
||||||
|
* - CRYPT_DES_MODE_OFB
|
||||||
|
*
|
||||||
|
* - CRYPT_DES_MODE_3CBC
|
||||||
|
*
|
||||||
|
* If not explicitly set, CRYPT_DES_MODE_CBC will be used.
|
||||||
|
*
|
||||||
|
* @see Crypt_DES::Crypt_DES()
|
||||||
|
* @see Crypt_Base::Crypt_Base()
|
||||||
|
* @param optional Integer $mode
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function Crypt_TripleDES($mode = CRYPT_DES_MODE_CBC)
|
||||||
|
{
|
||||||
|
switch ($mode) {
|
||||||
|
// In case of CRYPT_DES_MODE_3CBC, we init as CRYPT_DES_MODE_CBC
|
||||||
|
// and additional flag us internally as 3CBC
|
||||||
|
case CRYPT_DES_MODE_3CBC:
|
||||||
|
parent::Crypt_Base(CRYPT_DES_MODE_CBC);
|
||||||
|
$this->mode_3cbc = true;
|
||||||
|
|
||||||
|
// This three $des'es will do the 3CBC work (if $key > 64bits)
|
||||||
|
$this->des = array(
|
||||||
|
new Crypt_DES(CRYPT_DES_MODE_CBC),
|
||||||
|
new Crypt_DES(CRYPT_DES_MODE_CBC),
|
||||||
|
new Crypt_DES(CRYPT_DES_MODE_CBC),
|
||||||
|
);
|
||||||
|
|
||||||
|
// we're going to be doing the padding, ourselves, so disable it in the Crypt_DES objects
|
||||||
|
$this->des[0]->disablePadding();
|
||||||
|
$this->des[1]->disablePadding();
|
||||||
|
$this->des[2]->disablePadding();
|
||||||
|
break;
|
||||||
|
// If not 3CBC, we init as usual
|
||||||
|
default:
|
||||||
|
parent::Crypt_Base($mode);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the initialization vector. (optional)
|
||||||
|
*
|
||||||
|
* SetIV is not required when CRYPT_DES_MODE_ECB is being used. If not explicitly set, it'll be assumed
|
||||||
|
* to be all zero's.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::setIV()
|
||||||
|
* @access public
|
||||||
|
* @param String $iv
|
||||||
|
*/
|
||||||
|
function setIV($iv)
|
||||||
|
{
|
||||||
|
parent::setIV($iv);
|
||||||
|
if ($this->mode_3cbc) {
|
||||||
|
$this->des[0]->setIV($iv);
|
||||||
|
$this->des[1]->setIV($iv);
|
||||||
|
$this->des[2]->setIV($iv);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the key.
|
||||||
|
*
|
||||||
|
* Keys can be of any length. Triple DES, itself, can use 128-bit (eg. strlen($key) == 16) or
|
||||||
|
* 192-bit (eg. strlen($key) == 24) keys. This function pads and truncates $key as appropriate.
|
||||||
|
*
|
||||||
|
* DES also requires that every eighth bit be a parity bit, however, we'll ignore that.
|
||||||
|
*
|
||||||
|
* If the key is not explicitly set, it'll be assumed to be all null bytes.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @see Crypt_DES::setKey()
|
||||||
|
* @see Crypt_Base::setKey()
|
||||||
|
* @param String $key
|
||||||
|
*/
|
||||||
|
function setKey($key)
|
||||||
|
{
|
||||||
|
$length = strlen($key);
|
||||||
|
if ($length > 8) {
|
||||||
|
$key = str_pad(substr($key, 0, 24), 24, chr(0));
|
||||||
|
// if $key is between 64 and 128-bits, use the first 64-bits as the last, per this:
|
||||||
|
// http://php.net/function.mcrypt-encrypt#47973
|
||||||
|
//$key = $length <= 16 ? substr_replace($key, substr($key, 0, 8), 16) : substr($key, 0, 24);
|
||||||
|
} else {
|
||||||
|
$key = str_pad($key, 8, chr(0));
|
||||||
|
}
|
||||||
|
parent::setKey($key);
|
||||||
|
|
||||||
|
// And in case of CRYPT_DES_MODE_3CBC:
|
||||||
|
// if key <= 64bits we not need the 3 $des to work,
|
||||||
|
// because we will then act as regular DES-CBC with just a <= 64bit key.
|
||||||
|
// So only if the key > 64bits (> 8 bytes) we will call setKey() for the 3 $des.
|
||||||
|
if ($this->mode_3cbc && $length > 8) {
|
||||||
|
$this->des[0]->setKey(substr($key, 0, 8));
|
||||||
|
$this->des[1]->setKey(substr($key, 8, 8));
|
||||||
|
$this->des[2]->setKey(substr($key, 16, 8));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Encrypts a message.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::encrypt()
|
||||||
|
* @access public
|
||||||
|
* @param String $plaintext
|
||||||
|
* @return String $cipertext
|
||||||
|
*/
|
||||||
|
function encrypt($plaintext)
|
||||||
|
{
|
||||||
|
// parent::en/decrypt() is able to do all the work for all modes and keylengths,
|
||||||
|
// except for: CRYPT_DES_MODE_3CBC (inner chaining CBC) with a key > 64bits
|
||||||
|
|
||||||
|
// if the key is smaller then 8, do what we'd normally do
|
||||||
|
if ($this->mode_3cbc && strlen($this->key) > 8) {
|
||||||
|
return $this->des[2]->encrypt(
|
||||||
|
$this->des[1]->decrypt(
|
||||||
|
$this->des[0]->encrypt(
|
||||||
|
$this->_pad($plaintext)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
return parent::encrypt($plaintext);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Decrypts a message.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::decrypt()
|
||||||
|
* @access public
|
||||||
|
* @param String $ciphertext
|
||||||
|
* @return String $plaintext
|
||||||
|
*/
|
||||||
|
function decrypt($ciphertext)
|
||||||
|
{
|
||||||
|
if ($this->mode_3cbc && strlen($this->key) > 8) {
|
||||||
|
return $this->_unpad(
|
||||||
|
$this->des[0]->decrypt(
|
||||||
|
$this->des[1]->encrypt(
|
||||||
|
$this->des[2]->decrypt(
|
||||||
|
str_pad($ciphertext, (strlen($ciphertext) + 7) & 0xFFFFFFF8, "\0")
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
return parent::decrypt($ciphertext);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Treat consecutive "packets" as if they are a continuous buffer.
|
||||||
|
*
|
||||||
|
* Say you have a 16-byte plaintext $plaintext. Using the default behavior, the two following code snippets
|
||||||
|
* will yield different outputs:
|
||||||
|
*
|
||||||
|
* <code>
|
||||||
|
* echo $des->encrypt(substr($plaintext, 0, 8));
|
||||||
|
* echo $des->encrypt(substr($plaintext, 8, 8));
|
||||||
|
* </code>
|
||||||
|
* <code>
|
||||||
|
* echo $des->encrypt($plaintext);
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* The solution is to enable the continuous buffer. Although this will resolve the above discrepancy, it creates
|
||||||
|
* another, as demonstrated with the following:
|
||||||
|
*
|
||||||
|
* <code>
|
||||||
|
* $des->encrypt(substr($plaintext, 0, 8));
|
||||||
|
* echo $des->decrypt($des->encrypt(substr($plaintext, 8, 8)));
|
||||||
|
* </code>
|
||||||
|
* <code>
|
||||||
|
* echo $des->decrypt($des->encrypt(substr($plaintext, 8, 8)));
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* With the continuous buffer disabled, these would yield the same output. With it enabled, they yield different
|
||||||
|
* outputs. The reason is due to the fact that the initialization vector's change after every encryption /
|
||||||
|
* decryption round when the continuous buffer is enabled. When it's disabled, they remain constant.
|
||||||
|
*
|
||||||
|
* Put another way, when the continuous buffer is enabled, the state of the Crypt_DES() object changes after each
|
||||||
|
* encryption / decryption round, whereas otherwise, it'd remain constant. For this reason, it's recommended that
|
||||||
|
* continuous buffers not be used. They do offer better security and are, in fact, sometimes required (SSH uses them),
|
||||||
|
* however, they are also less intuitive and more likely to cause you problems.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::enableContinuousBuffer()
|
||||||
|
* @see Crypt_TripleDES::disableContinuousBuffer()
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function enableContinuousBuffer()
|
||||||
|
{
|
||||||
|
parent::enableContinuousBuffer();
|
||||||
|
if ($this->mode_3cbc) {
|
||||||
|
$this->des[0]->enableContinuousBuffer();
|
||||||
|
$this->des[1]->enableContinuousBuffer();
|
||||||
|
$this->des[2]->enableContinuousBuffer();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Treat consecutive packets as if they are a discontinuous buffer.
|
||||||
|
*
|
||||||
|
* The default behavior.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::disableContinuousBuffer()
|
||||||
|
* @see Crypt_TripleDES::enableContinuousBuffer()
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function disableContinuousBuffer()
|
||||||
|
{
|
||||||
|
parent::disableContinuousBuffer();
|
||||||
|
if ($this->mode_3cbc) {
|
||||||
|
$this->des[0]->disableContinuousBuffer();
|
||||||
|
$this->des[1]->disableContinuousBuffer();
|
||||||
|
$this->des[2]->disableContinuousBuffer();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates the key schedule
|
||||||
|
*
|
||||||
|
* @see Crypt_DES::_setupKey()
|
||||||
|
* @see Crypt_Base::_setupKey()
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _setupKey()
|
||||||
|
{
|
||||||
|
switch (true) {
|
||||||
|
// if $key <= 64bits we configure our internal pure-php cipher engine
|
||||||
|
// to act as regular [1]DES, not as 3DES. mcrypt.so::tripledes does the same.
|
||||||
|
case strlen($this->key) <= 8:
|
||||||
|
$this->des_rounds = 1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
// otherwise, if $key > 64bits, we configure our engine to work as 3DES.
|
||||||
|
default:
|
||||||
|
$this->des_rounds = 3;
|
||||||
|
|
||||||
|
// (only) if 3CBC is used we have, of course, to setup the $des[0-2] keys also separately.
|
||||||
|
if ($this->mode_3cbc) {
|
||||||
|
$this->des[0]->_setupKey();
|
||||||
|
$this->des[1]->_setupKey();
|
||||||
|
$this->des[2]->_setupKey();
|
||||||
|
|
||||||
|
// because $des[0-2] will, now, do all the work we can return here
|
||||||
|
// not need unnecessary stress parent::_setupKey() with our, now unused, $key.
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// setup our key
|
||||||
|
parent::_setupKey();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,895 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of Twofish.
|
||||||
|
*
|
||||||
|
* Uses mcrypt, if available, and an internal implementation, otherwise.
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* Useful resources are as follows:
|
||||||
|
*
|
||||||
|
* - {@link http://en.wikipedia.org/wiki/Twofish Wikipedia description of Twofish}
|
||||||
|
*
|
||||||
|
* Here's a short example of how to use this library:
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* include 'Crypt/Twofish.php';
|
||||||
|
*
|
||||||
|
* $twofish = new Crypt_Twofish();
|
||||||
|
*
|
||||||
|
* $twofish->setKey('12345678901234567890123456789012');
|
||||||
|
*
|
||||||
|
* $plaintext = str_repeat('a', 1024);
|
||||||
|
*
|
||||||
|
* echo $twofish->decrypt($twofish->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_Twofish
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @author Hans-Juergen Petrich <petrich@tronic-media.com>
|
||||||
|
* @copyright 2007 Jim Wigginton
|
||||||
|
* @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_Twofish::encrypt()
|
||||||
|
* @see Crypt_Twofish::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_TWOFISH_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_TWOFISH_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_TWOFISH_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_TWOFISH_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_TWOFISH_MODE_OFB', CRYPT_MODE_OFB);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @access private
|
||||||
|
* @see Crypt_Base::Crypt_Base()
|
||||||
|
*/
|
||||||
|
/**
|
||||||
|
* Toggles the internal implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_TWOFISH_MODE_INTERNAL', CRYPT_MODE_INTERNAL);
|
||||||
|
/**
|
||||||
|
* Toggles the mcrypt implementation
|
||||||
|
*/
|
||||||
|
define('CRYPT_TWOFISH_MODE_MCRYPT', CRYPT_MODE_MCRYPT);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of Twofish.
|
||||||
|
*
|
||||||
|
* @package Crypt_Twofish
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @author Hans-Juergen Petrich <petrich@tronic-media.com>
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class Crypt_Twofish extends Crypt_Base
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* The namespace used by the cipher for its constants.
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::const_namespace
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $const_namespace = 'TWOFISH';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The mcrypt specific name of the cipher
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::cipher_name_mcrypt
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $cipher_name_mcrypt = 'twofish';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Optimizing value while CFB-encrypting
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::cfb_init_len
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $cfb_init_len = 800;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Q-Table
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $q0 = array (
|
||||||
|
0xA9, 0x67, 0xB3, 0xE8, 0x04, 0xFD, 0xA3, 0x76,
|
||||||
|
0x9A, 0x92, 0x80, 0x78, 0xE4, 0xDD, 0xD1, 0x38,
|
||||||
|
0x0D, 0xC6, 0x35, 0x98, 0x18, 0xF7, 0xEC, 0x6C,
|
||||||
|
0x43, 0x75, 0x37, 0x26, 0xFA, 0x13, 0x94, 0x48,
|
||||||
|
0xF2, 0xD0, 0x8B, 0x30, 0x84, 0x54, 0xDF, 0x23,
|
||||||
|
0x19, 0x5B, 0x3D, 0x59, 0xF3, 0xAE, 0xA2, 0x82,
|
||||||
|
0x63, 0x01, 0x83, 0x2E, 0xD9, 0x51, 0x9B, 0x7C,
|
||||||
|
0xA6, 0xEB, 0xA5, 0xBE, 0x16, 0x0C, 0xE3, 0x61,
|
||||||
|
0xC0, 0x8C, 0x3A, 0xF5, 0x73, 0x2C, 0x25, 0x0B,
|
||||||
|
0xBB, 0x4E, 0x89, 0x6B, 0x53, 0x6A, 0xB4, 0xF1,
|
||||||
|
0xE1, 0xE6, 0xBD, 0x45, 0xE2, 0xF4, 0xB6, 0x66,
|
||||||
|
0xCC, 0x95, 0x03, 0x56, 0xD4, 0x1C, 0x1E, 0xD7,
|
||||||
|
0xFB, 0xC3, 0x8E, 0xB5, 0xE9, 0xCF, 0xBF, 0xBA,
|
||||||
|
0xEA, 0x77, 0x39, 0xAF, 0x33, 0xC9, 0x62, 0x71,
|
||||||
|
0x81, 0x79, 0x09, 0xAD, 0x24, 0xCD, 0xF9, 0xD8,
|
||||||
|
0xE5, 0xC5, 0xB9, 0x4D, 0x44, 0x08, 0x86, 0xE7,
|
||||||
|
0xA1, 0x1D, 0xAA, 0xED, 0x06, 0x70, 0xB2, 0xD2,
|
||||||
|
0x41, 0x7B, 0xA0, 0x11, 0x31, 0xC2, 0x27, 0x90,
|
||||||
|
0x20, 0xF6, 0x60, 0xFF, 0x96, 0x5C, 0xB1, 0xAB,
|
||||||
|
0x9E, 0x9C, 0x52, 0x1B, 0x5F, 0x93, 0x0A, 0xEF,
|
||||||
|
0x91, 0x85, 0x49, 0xEE, 0x2D, 0x4F, 0x8F, 0x3B,
|
||||||
|
0x47, 0x87, 0x6D, 0x46, 0xD6, 0x3E, 0x69, 0x64,
|
||||||
|
0x2A, 0xCE, 0xCB, 0x2F, 0xFC, 0x97, 0x05, 0x7A,
|
||||||
|
0xAC, 0x7F, 0xD5, 0x1A, 0x4B, 0x0E, 0xA7, 0x5A,
|
||||||
|
0x28, 0x14, 0x3F, 0x29, 0x88, 0x3C, 0x4C, 0x02,
|
||||||
|
0xB8, 0xDA, 0xB0, 0x17, 0x55, 0x1F, 0x8A, 0x7D,
|
||||||
|
0x57, 0xC7, 0x8D, 0x74, 0xB7, 0xC4, 0x9F, 0x72,
|
||||||
|
0x7E, 0x15, 0x22, 0x12, 0x58, 0x07, 0x99, 0x34,
|
||||||
|
0x6E, 0x50, 0xDE, 0x68, 0x65, 0xBC, 0xDB, 0xF8,
|
||||||
|
0xC8, 0xA8, 0x2B, 0x40, 0xDC, 0xFE, 0x32, 0xA4,
|
||||||
|
0xCA, 0x10, 0x21, 0xF0, 0xD3, 0x5D, 0x0F, 0x00,
|
||||||
|
0x6F, 0x9D, 0x36, 0x42, 0x4A, 0x5E, 0xC1, 0xE0
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Q-Table
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $q1 = array (
|
||||||
|
0x75, 0xF3, 0xC6, 0xF4, 0xDB, 0x7B, 0xFB, 0xC8,
|
||||||
|
0x4A, 0xD3, 0xE6, 0x6B, 0x45, 0x7D, 0xE8, 0x4B,
|
||||||
|
0xD6, 0x32, 0xD8, 0xFD, 0x37, 0x71, 0xF1, 0xE1,
|
||||||
|
0x30, 0x0F, 0xF8, 0x1B, 0x87, 0xFA, 0x06, 0x3F,
|
||||||
|
0x5E, 0xBA, 0xAE, 0x5B, 0x8A, 0x00, 0xBC, 0x9D,
|
||||||
|
0x6D, 0xC1, 0xB1, 0x0E, 0x80, 0x5D, 0xD2, 0xD5,
|
||||||
|
0xA0, 0x84, 0x07, 0x14, 0xB5, 0x90, 0x2C, 0xA3,
|
||||||
|
0xB2, 0x73, 0x4C, 0x54, 0x92, 0x74, 0x36, 0x51,
|
||||||
|
0x38, 0xB0, 0xBD, 0x5A, 0xFC, 0x60, 0x62, 0x96,
|
||||||
|
0x6C, 0x42, 0xF7, 0x10, 0x7C, 0x28, 0x27, 0x8C,
|
||||||
|
0x13, 0x95, 0x9C, 0xC7, 0x24, 0x46, 0x3B, 0x70,
|
||||||
|
0xCA, 0xE3, 0x85, 0xCB, 0x11, 0xD0, 0x93, 0xB8,
|
||||||
|
0xA6, 0x83, 0x20, 0xFF, 0x9F, 0x77, 0xC3, 0xCC,
|
||||||
|
0x03, 0x6F, 0x08, 0xBF, 0x40, 0xE7, 0x2B, 0xE2,
|
||||||
|
0x79, 0x0C, 0xAA, 0x82, 0x41, 0x3A, 0xEA, 0xB9,
|
||||||
|
0xE4, 0x9A, 0xA4, 0x97, 0x7E, 0xDA, 0x7A, 0x17,
|
||||||
|
0x66, 0x94, 0xA1, 0x1D, 0x3D, 0xF0, 0xDE, 0xB3,
|
||||||
|
0x0B, 0x72, 0xA7, 0x1C, 0xEF, 0xD1, 0x53, 0x3E,
|
||||||
|
0x8F, 0x33, 0x26, 0x5F, 0xEC, 0x76, 0x2A, 0x49,
|
||||||
|
0x81, 0x88, 0xEE, 0x21, 0xC4, 0x1A, 0xEB, 0xD9,
|
||||||
|
0xC5, 0x39, 0x99, 0xCD, 0xAD, 0x31, 0x8B, 0x01,
|
||||||
|
0x18, 0x23, 0xDD, 0x1F, 0x4E, 0x2D, 0xF9, 0x48,
|
||||||
|
0x4F, 0xF2, 0x65, 0x8E, 0x78, 0x5C, 0x58, 0x19,
|
||||||
|
0x8D, 0xE5, 0x98, 0x57, 0x67, 0x7F, 0x05, 0x64,
|
||||||
|
0xAF, 0x63, 0xB6, 0xFE, 0xF5, 0xB7, 0x3C, 0xA5,
|
||||||
|
0xCE, 0xE9, 0x68, 0x44, 0xE0, 0x4D, 0x43, 0x69,
|
||||||
|
0x29, 0x2E, 0xAC, 0x15, 0x59, 0xA8, 0x0A, 0x9E,
|
||||||
|
0x6E, 0x47, 0xDF, 0x34, 0x35, 0x6A, 0xCF, 0xDC,
|
||||||
|
0x22, 0xC9, 0xC0, 0x9B, 0x89, 0xD4, 0xED, 0xAB,
|
||||||
|
0x12, 0xA2, 0x0D, 0x52, 0xBB, 0x02, 0x2F, 0xA9,
|
||||||
|
0xD7, 0x61, 0x1E, 0xB4, 0x50, 0x04, 0xF6, 0xC2,
|
||||||
|
0x16, 0x25, 0x86, 0x56, 0x55, 0x09, 0xBE, 0x91
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* M-Table
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $m0 = array (
|
||||||
|
0xBCBC3275, 0xECEC21F3, 0x202043C6, 0xB3B3C9F4, 0xDADA03DB, 0x02028B7B, 0xE2E22BFB, 0x9E9EFAC8,
|
||||||
|
0xC9C9EC4A, 0xD4D409D3, 0x18186BE6, 0x1E1E9F6B, 0x98980E45, 0xB2B2387D, 0xA6A6D2E8, 0x2626B74B,
|
||||||
|
0x3C3C57D6, 0x93938A32, 0x8282EED8, 0x525298FD, 0x7B7BD437, 0xBBBB3771, 0x5B5B97F1, 0x474783E1,
|
||||||
|
0x24243C30, 0x5151E20F, 0xBABAC6F8, 0x4A4AF31B, 0xBFBF4887, 0x0D0D70FA, 0xB0B0B306, 0x7575DE3F,
|
||||||
|
0xD2D2FD5E, 0x7D7D20BA, 0x666631AE, 0x3A3AA35B, 0x59591C8A, 0x00000000, 0xCDCD93BC, 0x1A1AE09D,
|
||||||
|
0xAEAE2C6D, 0x7F7FABC1, 0x2B2BC7B1, 0xBEBEB90E, 0xE0E0A080, 0x8A8A105D, 0x3B3B52D2, 0x6464BAD5,
|
||||||
|
0xD8D888A0, 0xE7E7A584, 0x5F5FE807, 0x1B1B1114, 0x2C2CC2B5, 0xFCFCB490, 0x3131272C, 0x808065A3,
|
||||||
|
0x73732AB2, 0x0C0C8173, 0x79795F4C, 0x6B6B4154, 0x4B4B0292, 0x53536974, 0x94948F36, 0x83831F51,
|
||||||
|
0x2A2A3638, 0xC4C49CB0, 0x2222C8BD, 0xD5D5F85A, 0xBDBDC3FC, 0x48487860, 0xFFFFCE62, 0x4C4C0796,
|
||||||
|
0x4141776C, 0xC7C7E642, 0xEBEB24F7, 0x1C1C1410, 0x5D5D637C, 0x36362228, 0x6767C027, 0xE9E9AF8C,
|
||||||
|
0x4444F913, 0x1414EA95, 0xF5F5BB9C, 0xCFCF18C7, 0x3F3F2D24, 0xC0C0E346, 0x7272DB3B, 0x54546C70,
|
||||||
|
0x29294CCA, 0xF0F035E3, 0x0808FE85, 0xC6C617CB, 0xF3F34F11, 0x8C8CE4D0, 0xA4A45993, 0xCACA96B8,
|
||||||
|
0x68683BA6, 0xB8B84D83, 0x38382820, 0xE5E52EFF, 0xADAD569F, 0x0B0B8477, 0xC8C81DC3, 0x9999FFCC,
|
||||||
|
0x5858ED03, 0x19199A6F, 0x0E0E0A08, 0x95957EBF, 0x70705040, 0xF7F730E7, 0x6E6ECF2B, 0x1F1F6EE2,
|
||||||
|
0xB5B53D79, 0x09090F0C, 0x616134AA, 0x57571682, 0x9F9F0B41, 0x9D9D803A, 0x111164EA, 0x2525CDB9,
|
||||||
|
0xAFAFDDE4, 0x4545089A, 0xDFDF8DA4, 0xA3A35C97, 0xEAEAD57E, 0x353558DA, 0xEDEDD07A, 0x4343FC17,
|
||||||
|
0xF8F8CB66, 0xFBFBB194, 0x3737D3A1, 0xFAFA401D, 0xC2C2683D, 0xB4B4CCF0, 0x32325DDE, 0x9C9C71B3,
|
||||||
|
0x5656E70B, 0xE3E3DA72, 0x878760A7, 0x15151B1C, 0xF9F93AEF, 0x6363BFD1, 0x3434A953, 0x9A9A853E,
|
||||||
|
0xB1B1428F, 0x7C7CD133, 0x88889B26, 0x3D3DA65F, 0xA1A1D7EC, 0xE4E4DF76, 0x8181942A, 0x91910149,
|
||||||
|
0x0F0FFB81, 0xEEEEAA88, 0x161661EE, 0xD7D77321, 0x9797F5C4, 0xA5A5A81A, 0xFEFE3FEB, 0x6D6DB5D9,
|
||||||
|
0x7878AEC5, 0xC5C56D39, 0x1D1DE599, 0x7676A4CD, 0x3E3EDCAD, 0xCBCB6731, 0xB6B6478B, 0xEFEF5B01,
|
||||||
|
0x12121E18, 0x6060C523, 0x6A6AB0DD, 0x4D4DF61F, 0xCECEE94E, 0xDEDE7C2D, 0x55559DF9, 0x7E7E5A48,
|
||||||
|
0x2121B24F, 0x03037AF2, 0xA0A02665, 0x5E5E198E, 0x5A5A6678, 0x65654B5C, 0x62624E58, 0xFDFD4519,
|
||||||
|
0x0606F48D, 0x404086E5, 0xF2F2BE98, 0x3333AC57, 0x17179067, 0x05058E7F, 0xE8E85E05, 0x4F4F7D64,
|
||||||
|
0x89896AAF, 0x10109563, 0x74742FB6, 0x0A0A75FE, 0x5C5C92F5, 0x9B9B74B7, 0x2D2D333C, 0x3030D6A5,
|
||||||
|
0x2E2E49CE, 0x494989E9, 0x46467268, 0x77775544, 0xA8A8D8E0, 0x9696044D, 0x2828BD43, 0xA9A92969,
|
||||||
|
0xD9D97929, 0x8686912E, 0xD1D187AC, 0xF4F44A15, 0x8D8D1559, 0xD6D682A8, 0xB9B9BC0A, 0x42420D9E,
|
||||||
|
0xF6F6C16E, 0x2F2FB847, 0xDDDD06DF, 0x23233934, 0xCCCC6235, 0xF1F1C46A, 0xC1C112CF, 0x8585EBDC,
|
||||||
|
0x8F8F9E22, 0x7171A1C9, 0x9090F0C0, 0xAAAA539B, 0x0101F189, 0x8B8BE1D4, 0x4E4E8CED, 0x8E8E6FAB,
|
||||||
|
0xABABA212, 0x6F6F3EA2, 0xE6E6540D, 0xDBDBF252, 0x92927BBB, 0xB7B7B602, 0x6969CA2F, 0x3939D9A9,
|
||||||
|
0xD3D30CD7, 0xA7A72361, 0xA2A2AD1E, 0xC3C399B4, 0x6C6C4450, 0x07070504, 0x04047FF6, 0x272746C2,
|
||||||
|
0xACACA716, 0xD0D07625, 0x50501386, 0xDCDCF756, 0x84841A55, 0xE1E15109, 0x7A7A25BE, 0x1313EF91
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* M-Table
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $m1 = array (
|
||||||
|
0xA9D93939, 0x67901717, 0xB3719C9C, 0xE8D2A6A6, 0x04050707, 0xFD985252, 0xA3658080, 0x76DFE4E4,
|
||||||
|
0x9A084545, 0x92024B4B, 0x80A0E0E0, 0x78665A5A, 0xE4DDAFAF, 0xDDB06A6A, 0xD1BF6363, 0x38362A2A,
|
||||||
|
0x0D54E6E6, 0xC6432020, 0x3562CCCC, 0x98BEF2F2, 0x181E1212, 0xF724EBEB, 0xECD7A1A1, 0x6C774141,
|
||||||
|
0x43BD2828, 0x7532BCBC, 0x37D47B7B, 0x269B8888, 0xFA700D0D, 0x13F94444, 0x94B1FBFB, 0x485A7E7E,
|
||||||
|
0xF27A0303, 0xD0E48C8C, 0x8B47B6B6, 0x303C2424, 0x84A5E7E7, 0x54416B6B, 0xDF06DDDD, 0x23C56060,
|
||||||
|
0x1945FDFD, 0x5BA33A3A, 0x3D68C2C2, 0x59158D8D, 0xF321ECEC, 0xAE316666, 0xA23E6F6F, 0x82165757,
|
||||||
|
0x63951010, 0x015BEFEF, 0x834DB8B8, 0x2E918686, 0xD9B56D6D, 0x511F8383, 0x9B53AAAA, 0x7C635D5D,
|
||||||
|
0xA63B6868, 0xEB3FFEFE, 0xA5D63030, 0xBE257A7A, 0x16A7ACAC, 0x0C0F0909, 0xE335F0F0, 0x6123A7A7,
|
||||||
|
0xC0F09090, 0x8CAFE9E9, 0x3A809D9D, 0xF5925C5C, 0x73810C0C, 0x2C273131, 0x2576D0D0, 0x0BE75656,
|
||||||
|
0xBB7B9292, 0x4EE9CECE, 0x89F10101, 0x6B9F1E1E, 0x53A93434, 0x6AC4F1F1, 0xB499C3C3, 0xF1975B5B,
|
||||||
|
0xE1834747, 0xE66B1818, 0xBDC82222, 0x450E9898, 0xE26E1F1F, 0xF4C9B3B3, 0xB62F7474, 0x66CBF8F8,
|
||||||
|
0xCCFF9999, 0x95EA1414, 0x03ED5858, 0x56F7DCDC, 0xD4E18B8B, 0x1C1B1515, 0x1EADA2A2, 0xD70CD3D3,
|
||||||
|
0xFB2BE2E2, 0xC31DC8C8, 0x8E195E5E, 0xB5C22C2C, 0xE9894949, 0xCF12C1C1, 0xBF7E9595, 0xBA207D7D,
|
||||||
|
0xEA641111, 0x77840B0B, 0x396DC5C5, 0xAF6A8989, 0x33D17C7C, 0xC9A17171, 0x62CEFFFF, 0x7137BBBB,
|
||||||
|
0x81FB0F0F, 0x793DB5B5, 0x0951E1E1, 0xADDC3E3E, 0x242D3F3F, 0xCDA47676, 0xF99D5555, 0xD8EE8282,
|
||||||
|
0xE5864040, 0xC5AE7878, 0xB9CD2525, 0x4D049696, 0x44557777, 0x080A0E0E, 0x86135050, 0xE730F7F7,
|
||||||
|
0xA1D33737, 0x1D40FAFA, 0xAA346161, 0xED8C4E4E, 0x06B3B0B0, 0x706C5454, 0xB22A7373, 0xD2523B3B,
|
||||||
|
0x410B9F9F, 0x7B8B0202, 0xA088D8D8, 0x114FF3F3, 0x3167CBCB, 0xC2462727, 0x27C06767, 0x90B4FCFC,
|
||||||
|
0x20283838, 0xF67F0404, 0x60784848, 0xFF2EE5E5, 0x96074C4C, 0x5C4B6565, 0xB1C72B2B, 0xAB6F8E8E,
|
||||||
|
0x9E0D4242, 0x9CBBF5F5, 0x52F2DBDB, 0x1BF34A4A, 0x5FA63D3D, 0x9359A4A4, 0x0ABCB9B9, 0xEF3AF9F9,
|
||||||
|
0x91EF1313, 0x85FE0808, 0x49019191, 0xEE611616, 0x2D7CDEDE, 0x4FB22121, 0x8F42B1B1, 0x3BDB7272,
|
||||||
|
0x47B82F2F, 0x8748BFBF, 0x6D2CAEAE, 0x46E3C0C0, 0xD6573C3C, 0x3E859A9A, 0x6929A9A9, 0x647D4F4F,
|
||||||
|
0x2A948181, 0xCE492E2E, 0xCB17C6C6, 0x2FCA6969, 0xFCC3BDBD, 0x975CA3A3, 0x055EE8E8, 0x7AD0EDED,
|
||||||
|
0xAC87D1D1, 0x7F8E0505, 0xD5BA6464, 0x1AA8A5A5, 0x4BB72626, 0x0EB9BEBE, 0xA7608787, 0x5AF8D5D5,
|
||||||
|
0x28223636, 0x14111B1B, 0x3FDE7575, 0x2979D9D9, 0x88AAEEEE, 0x3C332D2D, 0x4C5F7979, 0x02B6B7B7,
|
||||||
|
0xB896CACA, 0xDA583535, 0xB09CC4C4, 0x17FC4343, 0x551A8484, 0x1FF64D4D, 0x8A1C5959, 0x7D38B2B2,
|
||||||
|
0x57AC3333, 0xC718CFCF, 0x8DF40606, 0x74695353, 0xB7749B9B, 0xC4F59797, 0x9F56ADAD, 0x72DAE3E3,
|
||||||
|
0x7ED5EAEA, 0x154AF4F4, 0x229E8F8F, 0x12A2ABAB, 0x584E6262, 0x07E85F5F, 0x99E51D1D, 0x34392323,
|
||||||
|
0x6EC1F6F6, 0x50446C6C, 0xDE5D3232, 0x68724646, 0x6526A0A0, 0xBC93CDCD, 0xDB03DADA, 0xF8C6BABA,
|
||||||
|
0xC8FA9E9E, 0xA882D6D6, 0x2BCF6E6E, 0x40507070, 0xDCEB8585, 0xFE750A0A, 0x328A9393, 0xA48DDFDF,
|
||||||
|
0xCA4C2929, 0x10141C1C, 0x2173D7D7, 0xF0CCB4B4, 0xD309D4D4, 0x5D108A8A, 0x0FE25151, 0x00000000,
|
||||||
|
0x6F9A1919, 0x9DE01A1A, 0x368F9494, 0x42E6C7C7, 0x4AECC9C9, 0x5EFDD2D2, 0xC1AB7F7F, 0xE0D8A8A8
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* M-Table
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $m2 = array (
|
||||||
|
0xBC75BC32, 0xECF3EC21, 0x20C62043, 0xB3F4B3C9, 0xDADBDA03, 0x027B028B, 0xE2FBE22B, 0x9EC89EFA,
|
||||||
|
0xC94AC9EC, 0xD4D3D409, 0x18E6186B, 0x1E6B1E9F, 0x9845980E, 0xB27DB238, 0xA6E8A6D2, 0x264B26B7,
|
||||||
|
0x3CD63C57, 0x9332938A, 0x82D882EE, 0x52FD5298, 0x7B377BD4, 0xBB71BB37, 0x5BF15B97, 0x47E14783,
|
||||||
|
0x2430243C, 0x510F51E2, 0xBAF8BAC6, 0x4A1B4AF3, 0xBF87BF48, 0x0DFA0D70, 0xB006B0B3, 0x753F75DE,
|
||||||
|
0xD25ED2FD, 0x7DBA7D20, 0x66AE6631, 0x3A5B3AA3, 0x598A591C, 0x00000000, 0xCDBCCD93, 0x1A9D1AE0,
|
||||||
|
0xAE6DAE2C, 0x7FC17FAB, 0x2BB12BC7, 0xBE0EBEB9, 0xE080E0A0, 0x8A5D8A10, 0x3BD23B52, 0x64D564BA,
|
||||||
|
0xD8A0D888, 0xE784E7A5, 0x5F075FE8, 0x1B141B11, 0x2CB52CC2, 0xFC90FCB4, 0x312C3127, 0x80A38065,
|
||||||
|
0x73B2732A, 0x0C730C81, 0x794C795F, 0x6B546B41, 0x4B924B02, 0x53745369, 0x9436948F, 0x8351831F,
|
||||||
|
0x2A382A36, 0xC4B0C49C, 0x22BD22C8, 0xD55AD5F8, 0xBDFCBDC3, 0x48604878, 0xFF62FFCE, 0x4C964C07,
|
||||||
|
0x416C4177, 0xC742C7E6, 0xEBF7EB24, 0x1C101C14, 0x5D7C5D63, 0x36283622, 0x672767C0, 0xE98CE9AF,
|
||||||
|
0x441344F9, 0x149514EA, 0xF59CF5BB, 0xCFC7CF18, 0x3F243F2D, 0xC046C0E3, 0x723B72DB, 0x5470546C,
|
||||||
|
0x29CA294C, 0xF0E3F035, 0x088508FE, 0xC6CBC617, 0xF311F34F, 0x8CD08CE4, 0xA493A459, 0xCAB8CA96,
|
||||||
|
0x68A6683B, 0xB883B84D, 0x38203828, 0xE5FFE52E, 0xAD9FAD56, 0x0B770B84, 0xC8C3C81D, 0x99CC99FF,
|
||||||
|
0x580358ED, 0x196F199A, 0x0E080E0A, 0x95BF957E, 0x70407050, 0xF7E7F730, 0x6E2B6ECF, 0x1FE21F6E,
|
||||||
|
0xB579B53D, 0x090C090F, 0x61AA6134, 0x57825716, 0x9F419F0B, 0x9D3A9D80, 0x11EA1164, 0x25B925CD,
|
||||||
|
0xAFE4AFDD, 0x459A4508, 0xDFA4DF8D, 0xA397A35C, 0xEA7EEAD5, 0x35DA3558, 0xED7AEDD0, 0x431743FC,
|
||||||
|
0xF866F8CB, 0xFB94FBB1, 0x37A137D3, 0xFA1DFA40, 0xC23DC268, 0xB4F0B4CC, 0x32DE325D, 0x9CB39C71,
|
||||||
|
0x560B56E7, 0xE372E3DA, 0x87A78760, 0x151C151B, 0xF9EFF93A, 0x63D163BF, 0x345334A9, 0x9A3E9A85,
|
||||||
|
0xB18FB142, 0x7C337CD1, 0x8826889B, 0x3D5F3DA6, 0xA1ECA1D7, 0xE476E4DF, 0x812A8194, 0x91499101,
|
||||||
|
0x0F810FFB, 0xEE88EEAA, 0x16EE1661, 0xD721D773, 0x97C497F5, 0xA51AA5A8, 0xFEEBFE3F, 0x6DD96DB5,
|
||||||
|
0x78C578AE, 0xC539C56D, 0x1D991DE5, 0x76CD76A4, 0x3EAD3EDC, 0xCB31CB67, 0xB68BB647, 0xEF01EF5B,
|
||||||
|
0x1218121E, 0x602360C5, 0x6ADD6AB0, 0x4D1F4DF6, 0xCE4ECEE9, 0xDE2DDE7C, 0x55F9559D, 0x7E487E5A,
|
||||||
|
0x214F21B2, 0x03F2037A, 0xA065A026, 0x5E8E5E19, 0x5A785A66, 0x655C654B, 0x6258624E, 0xFD19FD45,
|
||||||
|
0x068D06F4, 0x40E54086, 0xF298F2BE, 0x335733AC, 0x17671790, 0x057F058E, 0xE805E85E, 0x4F644F7D,
|
||||||
|
0x89AF896A, 0x10631095, 0x74B6742F, 0x0AFE0A75, 0x5CF55C92, 0x9BB79B74, 0x2D3C2D33, 0x30A530D6,
|
||||||
|
0x2ECE2E49, 0x49E94989, 0x46684672, 0x77447755, 0xA8E0A8D8, 0x964D9604, 0x284328BD, 0xA969A929,
|
||||||
|
0xD929D979, 0x862E8691, 0xD1ACD187, 0xF415F44A, 0x8D598D15, 0xD6A8D682, 0xB90AB9BC, 0x429E420D,
|
||||||
|
0xF66EF6C1, 0x2F472FB8, 0xDDDFDD06, 0x23342339, 0xCC35CC62, 0xF16AF1C4, 0xC1CFC112, 0x85DC85EB,
|
||||||
|
0x8F228F9E, 0x71C971A1, 0x90C090F0, 0xAA9BAA53, 0x018901F1, 0x8BD48BE1, 0x4EED4E8C, 0x8EAB8E6F,
|
||||||
|
0xAB12ABA2, 0x6FA26F3E, 0xE60DE654, 0xDB52DBF2, 0x92BB927B, 0xB702B7B6, 0x692F69CA, 0x39A939D9,
|
||||||
|
0xD3D7D30C, 0xA761A723, 0xA21EA2AD, 0xC3B4C399, 0x6C506C44, 0x07040705, 0x04F6047F, 0x27C22746,
|
||||||
|
0xAC16ACA7, 0xD025D076, 0x50865013, 0xDC56DCF7, 0x8455841A, 0xE109E151, 0x7ABE7A25, 0x139113EF
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* M-Table
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $m3 = array (
|
||||||
|
0xD939A9D9, 0x90176790, 0x719CB371, 0xD2A6E8D2, 0x05070405, 0x9852FD98, 0x6580A365, 0xDFE476DF,
|
||||||
|
0x08459A08, 0x024B9202, 0xA0E080A0, 0x665A7866, 0xDDAFE4DD, 0xB06ADDB0, 0xBF63D1BF, 0x362A3836,
|
||||||
|
0x54E60D54, 0x4320C643, 0x62CC3562, 0xBEF298BE, 0x1E12181E, 0x24EBF724, 0xD7A1ECD7, 0x77416C77,
|
||||||
|
0xBD2843BD, 0x32BC7532, 0xD47B37D4, 0x9B88269B, 0x700DFA70, 0xF94413F9, 0xB1FB94B1, 0x5A7E485A,
|
||||||
|
0x7A03F27A, 0xE48CD0E4, 0x47B68B47, 0x3C24303C, 0xA5E784A5, 0x416B5441, 0x06DDDF06, 0xC56023C5,
|
||||||
|
0x45FD1945, 0xA33A5BA3, 0x68C23D68, 0x158D5915, 0x21ECF321, 0x3166AE31, 0x3E6FA23E, 0x16578216,
|
||||||
|
0x95106395, 0x5BEF015B, 0x4DB8834D, 0x91862E91, 0xB56DD9B5, 0x1F83511F, 0x53AA9B53, 0x635D7C63,
|
||||||
|
0x3B68A63B, 0x3FFEEB3F, 0xD630A5D6, 0x257ABE25, 0xA7AC16A7, 0x0F090C0F, 0x35F0E335, 0x23A76123,
|
||||||
|
0xF090C0F0, 0xAFE98CAF, 0x809D3A80, 0x925CF592, 0x810C7381, 0x27312C27, 0x76D02576, 0xE7560BE7,
|
||||||
|
0x7B92BB7B, 0xE9CE4EE9, 0xF10189F1, 0x9F1E6B9F, 0xA93453A9, 0xC4F16AC4, 0x99C3B499, 0x975BF197,
|
||||||
|
0x8347E183, 0x6B18E66B, 0xC822BDC8, 0x0E98450E, 0x6E1FE26E, 0xC9B3F4C9, 0x2F74B62F, 0xCBF866CB,
|
||||||
|
0xFF99CCFF, 0xEA1495EA, 0xED5803ED, 0xF7DC56F7, 0xE18BD4E1, 0x1B151C1B, 0xADA21EAD, 0x0CD3D70C,
|
||||||
|
0x2BE2FB2B, 0x1DC8C31D, 0x195E8E19, 0xC22CB5C2, 0x8949E989, 0x12C1CF12, 0x7E95BF7E, 0x207DBA20,
|
||||||
|
0x6411EA64, 0x840B7784, 0x6DC5396D, 0x6A89AF6A, 0xD17C33D1, 0xA171C9A1, 0xCEFF62CE, 0x37BB7137,
|
||||||
|
0xFB0F81FB, 0x3DB5793D, 0x51E10951, 0xDC3EADDC, 0x2D3F242D, 0xA476CDA4, 0x9D55F99D, 0xEE82D8EE,
|
||||||
|
0x8640E586, 0xAE78C5AE, 0xCD25B9CD, 0x04964D04, 0x55774455, 0x0A0E080A, 0x13508613, 0x30F7E730,
|
||||||
|
0xD337A1D3, 0x40FA1D40, 0x3461AA34, 0x8C4EED8C, 0xB3B006B3, 0x6C54706C, 0x2A73B22A, 0x523BD252,
|
||||||
|
0x0B9F410B, 0x8B027B8B, 0x88D8A088, 0x4FF3114F, 0x67CB3167, 0x4627C246, 0xC06727C0, 0xB4FC90B4,
|
||||||
|
0x28382028, 0x7F04F67F, 0x78486078, 0x2EE5FF2E, 0x074C9607, 0x4B655C4B, 0xC72BB1C7, 0x6F8EAB6F,
|
||||||
|
0x0D429E0D, 0xBBF59CBB, 0xF2DB52F2, 0xF34A1BF3, 0xA63D5FA6, 0x59A49359, 0xBCB90ABC, 0x3AF9EF3A,
|
||||||
|
0xEF1391EF, 0xFE0885FE, 0x01914901, 0x6116EE61, 0x7CDE2D7C, 0xB2214FB2, 0x42B18F42, 0xDB723BDB,
|
||||||
|
0xB82F47B8, 0x48BF8748, 0x2CAE6D2C, 0xE3C046E3, 0x573CD657, 0x859A3E85, 0x29A96929, 0x7D4F647D,
|
||||||
|
0x94812A94, 0x492ECE49, 0x17C6CB17, 0xCA692FCA, 0xC3BDFCC3, 0x5CA3975C, 0x5EE8055E, 0xD0ED7AD0,
|
||||||
|
0x87D1AC87, 0x8E057F8E, 0xBA64D5BA, 0xA8A51AA8, 0xB7264BB7, 0xB9BE0EB9, 0x6087A760, 0xF8D55AF8,
|
||||||
|
0x22362822, 0x111B1411, 0xDE753FDE, 0x79D92979, 0xAAEE88AA, 0x332D3C33, 0x5F794C5F, 0xB6B702B6,
|
||||||
|
0x96CAB896, 0x5835DA58, 0x9CC4B09C, 0xFC4317FC, 0x1A84551A, 0xF64D1FF6, 0x1C598A1C, 0x38B27D38,
|
||||||
|
0xAC3357AC, 0x18CFC718, 0xF4068DF4, 0x69537469, 0x749BB774, 0xF597C4F5, 0x56AD9F56, 0xDAE372DA,
|
||||||
|
0xD5EA7ED5, 0x4AF4154A, 0x9E8F229E, 0xA2AB12A2, 0x4E62584E, 0xE85F07E8, 0xE51D99E5, 0x39233439,
|
||||||
|
0xC1F66EC1, 0x446C5044, 0x5D32DE5D, 0x72466872, 0x26A06526, 0x93CDBC93, 0x03DADB03, 0xC6BAF8C6,
|
||||||
|
0xFA9EC8FA, 0x82D6A882, 0xCF6E2BCF, 0x50704050, 0xEB85DCEB, 0x750AFE75, 0x8A93328A, 0x8DDFA48D,
|
||||||
|
0x4C29CA4C, 0x141C1014, 0x73D72173, 0xCCB4F0CC, 0x09D4D309, 0x108A5D10, 0xE2510FE2, 0x00000000,
|
||||||
|
0x9A196F9A, 0xE01A9DE0, 0x8F94368F, 0xE6C742E6, 0xECC94AEC, 0xFDD25EFD, 0xAB7FC1AB, 0xD8A8E0D8
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The Key Schedule Array
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $K = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The Key depended S-Table 0
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $S0 = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The Key depended S-Table 1
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $S1 = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The Key depended S-Table 2
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $S2 = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The Key depended S-Table 3
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $S3 = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Holds the last used key
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $kl;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the key.
|
||||||
|
*
|
||||||
|
* Keys can be of any length. Twofish, itself, requires the use of a key that's 128, 192 or 256-bits long.
|
||||||
|
* If the key is less than 256-bits we round the length up to the closest valid key length,
|
||||||
|
* padding $key with null bytes. If the key is more than 256-bits, we trim the excess bits.
|
||||||
|
*
|
||||||
|
* If the key is not explicitly set, it'll be assumed a 128 bits key to be all null bytes.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @see Crypt_Base::setKey()
|
||||||
|
* @param String $key
|
||||||
|
*/
|
||||||
|
function setKey($key)
|
||||||
|
{
|
||||||
|
$keylength = strlen($key);
|
||||||
|
switch (true) {
|
||||||
|
case $keylength <= 16:
|
||||||
|
$key = str_pad($key, 16, "\0");
|
||||||
|
break;
|
||||||
|
case $keylength <= 24:
|
||||||
|
$key = str_pad($key, 24, "\0");
|
||||||
|
break;
|
||||||
|
case $keylength < 32:
|
||||||
|
$key = str_pad($key, 32, "\0");
|
||||||
|
break;
|
||||||
|
case $keylength > 32:
|
||||||
|
$key = substr($key, 0, 32);
|
||||||
|
}
|
||||||
|
parent::setKey($key);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Setup the key (expansion)
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::_setupKey()
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _setupKey()
|
||||||
|
{
|
||||||
|
if (isset($this->kl['key']) && $this->key === $this->kl['key']) {
|
||||||
|
// already expanded
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
$this->kl = array('key' => $this->key);
|
||||||
|
|
||||||
|
/* Key expanding and generating the key-depended s-boxes */
|
||||||
|
$le_longs = unpack('V*', $this->key);
|
||||||
|
$key = unpack('C*', $this->key);
|
||||||
|
$m0 = $this->m0;
|
||||||
|
$m1 = $this->m1;
|
||||||
|
$m2 = $this->m2;
|
||||||
|
$m3 = $this->m3;
|
||||||
|
$q0 = $this->q0;
|
||||||
|
$q1 = $this->q1;
|
||||||
|
|
||||||
|
$K = $S0 = $S1 = $S2 = $S3 = array();
|
||||||
|
|
||||||
|
switch (strlen($this->key)) {
|
||||||
|
case 16:
|
||||||
|
list ($s7, $s6, $s5, $s4) = $this->_mdsrem($le_longs[1], $le_longs[2]);
|
||||||
|
list ($s3, $s2, $s1, $s0) = $this->_mdsrem($le_longs[3], $le_longs[4]);
|
||||||
|
for ($i = 0, $j = 1; $i < 40; $i+= 2,$j+= 2) {
|
||||||
|
$A = $m0[$q0[$q0[$i] ^ $key[ 9]] ^ $key[1]] ^
|
||||||
|
$m1[$q0[$q1[$i] ^ $key[10]] ^ $key[2]] ^
|
||||||
|
$m2[$q1[$q0[$i] ^ $key[11]] ^ $key[3]] ^
|
||||||
|
$m3[$q1[$q1[$i] ^ $key[12]] ^ $key[4]];
|
||||||
|
$B = $m0[$q0[$q0[$j] ^ $key[13]] ^ $key[5]] ^
|
||||||
|
$m1[$q0[$q1[$j] ^ $key[14]] ^ $key[6]] ^
|
||||||
|
$m2[$q1[$q0[$j] ^ $key[15]] ^ $key[7]] ^
|
||||||
|
$m3[$q1[$q1[$j] ^ $key[16]] ^ $key[8]];
|
||||||
|
$B = ($B << 8) | ($B >> 24 & 0xff);
|
||||||
|
$K[] = $A+= $B;
|
||||||
|
$K[] = (($A+= $B) << 9 | $A >> 23 & 0x1ff);
|
||||||
|
}
|
||||||
|
for ($i = 0; $i < 256; ++$i) {
|
||||||
|
$S0[$i] = $m0[$q0[$q0[$i] ^ $s4] ^ $s0];
|
||||||
|
$S1[$i] = $m1[$q0[$q1[$i] ^ $s5] ^ $s1];
|
||||||
|
$S2[$i] = $m2[$q1[$q0[$i] ^ $s6] ^ $s2];
|
||||||
|
$S3[$i] = $m3[$q1[$q1[$i] ^ $s7] ^ $s3];
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 24:
|
||||||
|
list ($sb, $sa, $s9, $s8) = $this->_mdsrem($le_longs[1], $le_longs[2]);
|
||||||
|
list ($s7, $s6, $s5, $s4) = $this->_mdsrem($le_longs[3], $le_longs[4]);
|
||||||
|
list ($s3, $s2, $s1, $s0) = $this->_mdsrem($le_longs[5], $le_longs[6]);
|
||||||
|
for ($i = 0, $j = 1; $i < 40; $i+= 2, $j+= 2) {
|
||||||
|
$A = $m0[$q0[$q0[$q1[$i] ^ $key[17]] ^ $key[ 9]] ^ $key[1]] ^
|
||||||
|
$m1[$q0[$q1[$q1[$i] ^ $key[18]] ^ $key[10]] ^ $key[2]] ^
|
||||||
|
$m2[$q1[$q0[$q0[$i] ^ $key[19]] ^ $key[11]] ^ $key[3]] ^
|
||||||
|
$m3[$q1[$q1[$q0[$i] ^ $key[20]] ^ $key[12]] ^ $key[4]];
|
||||||
|
$B = $m0[$q0[$q0[$q1[$j] ^ $key[21]] ^ $key[13]] ^ $key[5]] ^
|
||||||
|
$m1[$q0[$q1[$q1[$j] ^ $key[22]] ^ $key[14]] ^ $key[6]] ^
|
||||||
|
$m2[$q1[$q0[$q0[$j] ^ $key[23]] ^ $key[15]] ^ $key[7]] ^
|
||||||
|
$m3[$q1[$q1[$q0[$j] ^ $key[24]] ^ $key[16]] ^ $key[8]];
|
||||||
|
$B = ($B << 8) | ($B >> 24 & 0xff);
|
||||||
|
$K[] = $A+= $B;
|
||||||
|
$K[] = (($A+= $B) << 9 | $A >> 23 & 0x1ff);
|
||||||
|
}
|
||||||
|
for ($i = 0; $i < 256; ++$i) {
|
||||||
|
$S0[$i] = $m0[$q0[$q0[$q1[$i] ^ $s8] ^ $s4] ^ $s0];
|
||||||
|
$S1[$i] = $m1[$q0[$q1[$q1[$i] ^ $s9] ^ $s5] ^ $s1];
|
||||||
|
$S2[$i] = $m2[$q1[$q0[$q0[$i] ^ $sa] ^ $s6] ^ $s2];
|
||||||
|
$S3[$i] = $m3[$q1[$q1[$q0[$i] ^ $sb] ^ $s7] ^ $s3];
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default: // 32
|
||||||
|
list ($sf, $se, $sd, $sc) = $this->_mdsrem($le_longs[1], $le_longs[2]);
|
||||||
|
list ($sb, $sa, $s9, $s8) = $this->_mdsrem($le_longs[3], $le_longs[4]);
|
||||||
|
list ($s7, $s6, $s5, $s4) = $this->_mdsrem($le_longs[5], $le_longs[6]);
|
||||||
|
list ($s3, $s2, $s1, $s0) = $this->_mdsrem($le_longs[7], $le_longs[8]);
|
||||||
|
for ($i = 0, $j = 1; $i < 40; $i+= 2, $j+= 2) {
|
||||||
|
$A = $m0[$q0[$q0[$q1[$q1[$i] ^ $key[25]] ^ $key[17]] ^ $key[ 9]] ^ $key[1]] ^
|
||||||
|
$m1[$q0[$q1[$q1[$q0[$i] ^ $key[26]] ^ $key[18]] ^ $key[10]] ^ $key[2]] ^
|
||||||
|
$m2[$q1[$q0[$q0[$q0[$i] ^ $key[27]] ^ $key[19]] ^ $key[11]] ^ $key[3]] ^
|
||||||
|
$m3[$q1[$q1[$q0[$q1[$i] ^ $key[28]] ^ $key[20]] ^ $key[12]] ^ $key[4]];
|
||||||
|
$B = $m0[$q0[$q0[$q1[$q1[$j] ^ $key[29]] ^ $key[21]] ^ $key[13]] ^ $key[5]] ^
|
||||||
|
$m1[$q0[$q1[$q1[$q0[$j] ^ $key[30]] ^ $key[22]] ^ $key[14]] ^ $key[6]] ^
|
||||||
|
$m2[$q1[$q0[$q0[$q0[$j] ^ $key[31]] ^ $key[23]] ^ $key[15]] ^ $key[7]] ^
|
||||||
|
$m3[$q1[$q1[$q0[$q1[$j] ^ $key[32]] ^ $key[24]] ^ $key[16]] ^ $key[8]];
|
||||||
|
$B = ($B << 8) | ($B >> 24 & 0xff);
|
||||||
|
$K[] = $A+= $B;
|
||||||
|
$K[] = (($A+= $B) << 9 | $A >> 23 & 0x1ff);
|
||||||
|
}
|
||||||
|
for ($i = 0; $i < 256; ++$i) {
|
||||||
|
$S0[$i] = $m0[$q0[$q0[$q1[$q1[$i] ^ $sc] ^ $s8] ^ $s4] ^ $s0];
|
||||||
|
$S1[$i] = $m1[$q0[$q1[$q1[$q0[$i] ^ $sd] ^ $s9] ^ $s5] ^ $s1];
|
||||||
|
$S2[$i] = $m2[$q1[$q0[$q0[$q0[$i] ^ $se] ^ $sa] ^ $s6] ^ $s2];
|
||||||
|
$S3[$i] = $m3[$q1[$q1[$q0[$q1[$i] ^ $sf] ^ $sb] ^ $s7] ^ $s3];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->K = $K;
|
||||||
|
$this->S0 = $S0;
|
||||||
|
$this->S1 = $S1;
|
||||||
|
$this->S2 = $S2;
|
||||||
|
$this->S3 = $S3;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* _mdsrem function using by the twofish cipher algorithm
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $A
|
||||||
|
* @param String $B
|
||||||
|
* @return Array
|
||||||
|
*/
|
||||||
|
function _mdsrem($A, $B)
|
||||||
|
{
|
||||||
|
// No gain by unrolling this loop.
|
||||||
|
for ($i = 0; $i < 8; ++$i) {
|
||||||
|
// Get most significant coefficient.
|
||||||
|
$t = 0xff & ($B >> 24);
|
||||||
|
|
||||||
|
// Shift the others up.
|
||||||
|
$B = ($B << 8) | (0xff & ($A >> 24));
|
||||||
|
$A<<= 8;
|
||||||
|
|
||||||
|
$u = $t << 1;
|
||||||
|
|
||||||
|
// Subtract the modular polynomial on overflow.
|
||||||
|
if ($t & 0x80) {
|
||||||
|
$u^= 0x14d;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Remove t * (a * x^2 + 1).
|
||||||
|
$B ^= $t ^ ($u << 16);
|
||||||
|
|
||||||
|
// Form u = a*t + t/a = t*(a + 1/a).
|
||||||
|
$u^= 0x7fffffff & ($t >> 1);
|
||||||
|
|
||||||
|
// Add the modular polynomial on underflow.
|
||||||
|
if ($t & 0x01) $u^= 0xa6 ;
|
||||||
|
|
||||||
|
// Remove t * (a + 1/a) * (x^3 + x).
|
||||||
|
$B^= ($u << 24) | ($u << 8);
|
||||||
|
}
|
||||||
|
|
||||||
|
return array(
|
||||||
|
0xff & $B >> 24,
|
||||||
|
0xff & $B >> 16,
|
||||||
|
0xff & $B >> 8,
|
||||||
|
0xff & $B);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Encrypts a block
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $in
|
||||||
|
* @return String
|
||||||
|
*/
|
||||||
|
function _encryptBlock($in)
|
||||||
|
{
|
||||||
|
$S0 = $this->S0;
|
||||||
|
$S1 = $this->S1;
|
||||||
|
$S2 = $this->S2;
|
||||||
|
$S3 = $this->S3;
|
||||||
|
$K = $this->K;
|
||||||
|
|
||||||
|
$in = unpack("V4", $in);
|
||||||
|
$R0 = $K[0] ^ $in[1];
|
||||||
|
$R1 = $K[1] ^ $in[2];
|
||||||
|
$R2 = $K[2] ^ $in[3];
|
||||||
|
$R3 = $K[3] ^ $in[4];
|
||||||
|
|
||||||
|
$ki = 7;
|
||||||
|
while ($ki < 39) {
|
||||||
|
$t0 = $S0[ $R0 & 0xff] ^
|
||||||
|
$S1[($R0 >> 8) & 0xff] ^
|
||||||
|
$S2[($R0 >> 16) & 0xff] ^
|
||||||
|
$S3[($R0 >> 24) & 0xff];
|
||||||
|
$t1 = $S0[($R1 >> 24) & 0xff] ^
|
||||||
|
$S1[ $R1 & 0xff] ^
|
||||||
|
$S2[($R1 >> 8) & 0xff] ^
|
||||||
|
$S3[($R1 >> 16) & 0xff];
|
||||||
|
$R2^= $t0 + $t1 + $K[++$ki];
|
||||||
|
$R2 = ($R2 >> 1 & 0x7fffffff) | ($R2 << 31);
|
||||||
|
$R3 = ((($R3 >> 31) & 1) | ($R3 << 1)) ^ ($t0 + ($t1 << 1) + $K[++$ki]);
|
||||||
|
|
||||||
|
$t0 = $S0[ $R2 & 0xff] ^
|
||||||
|
$S1[($R2 >> 8) & 0xff] ^
|
||||||
|
$S2[($R2 >> 16) & 0xff] ^
|
||||||
|
$S3[($R2 >> 24) & 0xff];
|
||||||
|
$t1 = $S0[($R3 >> 24) & 0xff] ^
|
||||||
|
$S1[ $R3 & 0xff] ^
|
||||||
|
$S2[($R3 >> 8) & 0xff] ^
|
||||||
|
$S3[($R3 >> 16) & 0xff];
|
||||||
|
$R0^= ($t0 + $t1 + $K[++$ki]);
|
||||||
|
$R0 = ($R0 >> 1 & 0x7fffffff) | ($R0 << 31);
|
||||||
|
$R1 = ((($R1 >> 31) & 1) | ($R1 << 1)) ^ ($t0 + ($t1 << 1) + $K[++$ki]);
|
||||||
|
}
|
||||||
|
|
||||||
|
// @codingStandardsIgnoreStart
|
||||||
|
return pack("V4", $K[4] ^ $R2,
|
||||||
|
$K[5] ^ $R3,
|
||||||
|
$K[6] ^ $R0,
|
||||||
|
$K[7] ^ $R1);
|
||||||
|
// @codingStandardsIgnoreEnd
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Decrypts a block
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param String $in
|
||||||
|
* @return String
|
||||||
|
*/
|
||||||
|
function _decryptBlock($in)
|
||||||
|
{
|
||||||
|
$S0 = $this->S0;
|
||||||
|
$S1 = $this->S1;
|
||||||
|
$S2 = $this->S2;
|
||||||
|
$S3 = $this->S3;
|
||||||
|
$K = $this->K;
|
||||||
|
|
||||||
|
$in = unpack("V4", $in);
|
||||||
|
$R0 = $K[4] ^ $in[1];
|
||||||
|
$R1 = $K[5] ^ $in[2];
|
||||||
|
$R2 = $K[6] ^ $in[3];
|
||||||
|
$R3 = $K[7] ^ $in[4];
|
||||||
|
|
||||||
|
$ki = 40;
|
||||||
|
while ($ki > 8) {
|
||||||
|
$t0 = $S0[$R0 & 0xff] ^
|
||||||
|
$S1[$R0 >> 8 & 0xff] ^
|
||||||
|
$S2[$R0 >> 16 & 0xff] ^
|
||||||
|
$S3[$R0 >> 24 & 0xff];
|
||||||
|
$t1 = $S0[$R1 >> 24 & 0xff] ^
|
||||||
|
$S1[$R1 & 0xff] ^
|
||||||
|
$S2[$R1 >> 8 & 0xff] ^
|
||||||
|
$S3[$R1 >> 16 & 0xff];
|
||||||
|
$R3^= $t0 + ($t1 << 1) + $K[--$ki];
|
||||||
|
$R3 = $R3 >> 1 & 0x7fffffff | $R3 << 31;
|
||||||
|
$R2 = ($R2 >> 31 & 0x1 | $R2 << 1) ^ ($t0 + $t1 + $K[--$ki]);
|
||||||
|
|
||||||
|
$t0 = $S0[$R2 & 0xff] ^
|
||||||
|
$S1[$R2 >> 8 & 0xff] ^
|
||||||
|
$S2[$R2 >> 16 & 0xff] ^
|
||||||
|
$S3[$R2 >> 24 & 0xff];
|
||||||
|
$t1 = $S0[$R3 >> 24 & 0xff] ^
|
||||||
|
$S1[$R3 & 0xff] ^
|
||||||
|
$S2[$R3 >> 8 & 0xff] ^
|
||||||
|
$S3[$R3 >> 16 & 0xff];
|
||||||
|
$R1^= $t0 + ($t1 << 1) + $K[--$ki];
|
||||||
|
$R1 = $R1 >> 1 & 0x7fffffff | $R1 << 31;
|
||||||
|
$R0 = ($R0 >> 31 & 0x1 | $R0 << 1) ^ ($t0 + $t1 + $K[--$ki]);
|
||||||
|
}
|
||||||
|
|
||||||
|
// @codingStandardsIgnoreStart
|
||||||
|
return pack("V4", $K[0] ^ $R2,
|
||||||
|
$K[1] ^ $R3,
|
||||||
|
$K[2] ^ $R0,
|
||||||
|
$K[3] ^ $R1);
|
||||||
|
// @codingStandardsIgnoreEnd
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Setup the performance-optimized function for de/encrypt()
|
||||||
|
*
|
||||||
|
* @see Crypt_Base::_setupInlineCrypt()
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _setupInlineCrypt()
|
||||||
|
{
|
||||||
|
$lambda_functions =& Crypt_Twofish::_getLambdaFunctions();
|
||||||
|
|
||||||
|
// Max. 10 Ultra-Hi-optimized inline-crypt functions. After that, we'll (still) create very fast code, but not the ultimate fast one.
|
||||||
|
$gen_hi_opt_code = (bool)( count($lambda_functions) < 10 );
|
||||||
|
|
||||||
|
switch (true) {
|
||||||
|
case $gen_hi_opt_code:
|
||||||
|
$code_hash = md5(str_pad("Crypt_Twofish, {$this->mode}, ", 32, "\0") . $this->key);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$code_hash = "Crypt_Twofish, {$this->mode}";
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!isset($lambda_functions[$code_hash])) {
|
||||||
|
switch (true) {
|
||||||
|
case $gen_hi_opt_code:
|
||||||
|
$K = $this->K;
|
||||||
|
|
||||||
|
$init_crypt = '
|
||||||
|
static $S0, $S1, $S2, $S3;
|
||||||
|
if (!$S0) {
|
||||||
|
for ($i = 0; $i < 256; ++$i) {
|
||||||
|
$S0[] = (int)$self->S0[$i];
|
||||||
|
$S1[] = (int)$self->S1[$i];
|
||||||
|
$S2[] = (int)$self->S2[$i];
|
||||||
|
$S3[] = (int)$self->S3[$i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
';
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$K = array();
|
||||||
|
for ($i = 0; $i < 40; ++$i) {
|
||||||
|
$K[] = '$K_' . $i;
|
||||||
|
}
|
||||||
|
|
||||||
|
$init_crypt = '
|
||||||
|
$S0 = $self->S0;
|
||||||
|
$S1 = $self->S1;
|
||||||
|
$S2 = $self->S2;
|
||||||
|
$S3 = $self->S3;
|
||||||
|
list(' . implode(',', $K) . ') = $self->K;
|
||||||
|
';
|
||||||
|
}
|
||||||
|
|
||||||
|
// Generating encrypt code:
|
||||||
|
$encrypt_block = '
|
||||||
|
$in = unpack("V4", $in);
|
||||||
|
$R0 = '.$K[0].' ^ $in[1];
|
||||||
|
$R1 = '.$K[1].' ^ $in[2];
|
||||||
|
$R2 = '.$K[2].' ^ $in[3];
|
||||||
|
$R3 = '.$K[3].' ^ $in[4];
|
||||||
|
';
|
||||||
|
for ($ki = 7, $i = 0; $i < 8; ++$i) {
|
||||||
|
$encrypt_block.= '
|
||||||
|
$t0 = $S0[ $R0 & 0xff] ^
|
||||||
|
$S1[($R0 >> 8) & 0xff] ^
|
||||||
|
$S2[($R0 >> 16) & 0xff] ^
|
||||||
|
$S3[($R0 >> 24) & 0xff];
|
||||||
|
$t1 = $S0[($R1 >> 24) & 0xff] ^
|
||||||
|
$S1[ $R1 & 0xff] ^
|
||||||
|
$S2[($R1 >> 8) & 0xff] ^
|
||||||
|
$S3[($R1 >> 16) & 0xff];
|
||||||
|
$R2^= ($t0 + $t1 + '.$K[++$ki].');
|
||||||
|
$R2 = ($R2 >> 1 & 0x7fffffff) | ($R2 << 31);
|
||||||
|
$R3 = ((($R3 >> 31) & 1) | ($R3 << 1)) ^ ($t0 + ($t1 << 1) + '.$K[++$ki].');
|
||||||
|
|
||||||
|
$t0 = $S0[ $R2 & 0xff] ^
|
||||||
|
$S1[($R2 >> 8) & 0xff] ^
|
||||||
|
$S2[($R2 >> 16) & 0xff] ^
|
||||||
|
$S3[($R2 >> 24) & 0xff];
|
||||||
|
$t1 = $S0[($R3 >> 24) & 0xff] ^
|
||||||
|
$S1[ $R3 & 0xff] ^
|
||||||
|
$S2[($R3 >> 8) & 0xff] ^
|
||||||
|
$S3[($R3 >> 16) & 0xff];
|
||||||
|
$R0^= ($t0 + $t1 + '.$K[++$ki].');
|
||||||
|
$R0 = ($R0 >> 1 & 0x7fffffff) | ($R0 << 31);
|
||||||
|
$R1 = ((($R1 >> 31) & 1) | ($R1 << 1)) ^ ($t0 + ($t1 << 1) + '.$K[++$ki].');
|
||||||
|
';
|
||||||
|
}
|
||||||
|
$encrypt_block.= '
|
||||||
|
$in = pack("V4", '.$K[4].' ^ $R2,
|
||||||
|
'.$K[5].' ^ $R3,
|
||||||
|
'.$K[6].' ^ $R0,
|
||||||
|
'.$K[7].' ^ $R1);
|
||||||
|
';
|
||||||
|
|
||||||
|
// Generating decrypt code:
|
||||||
|
$decrypt_block = '
|
||||||
|
$in = unpack("V4", $in);
|
||||||
|
$R0 = '.$K[4].' ^ $in[1];
|
||||||
|
$R1 = '.$K[5].' ^ $in[2];
|
||||||
|
$R2 = '.$K[6].' ^ $in[3];
|
||||||
|
$R3 = '.$K[7].' ^ $in[4];
|
||||||
|
';
|
||||||
|
for ($ki = 40, $i = 0; $i < 8; ++$i) {
|
||||||
|
$decrypt_block.= '
|
||||||
|
$t0 = $S0[$R0 & 0xff] ^
|
||||||
|
$S1[$R0 >> 8 & 0xff] ^
|
||||||
|
$S2[$R0 >> 16 & 0xff] ^
|
||||||
|
$S3[$R0 >> 24 & 0xff];
|
||||||
|
$t1 = $S0[$R1 >> 24 & 0xff] ^
|
||||||
|
$S1[$R1 & 0xff] ^
|
||||||
|
$S2[$R1 >> 8 & 0xff] ^
|
||||||
|
$S3[$R1 >> 16 & 0xff];
|
||||||
|
$R3^= $t0 + ($t1 << 1) + '.$K[--$ki].';
|
||||||
|
$R3 = $R3 >> 1 & 0x7fffffff | $R3 << 31;
|
||||||
|
$R2 = ($R2 >> 31 & 0x1 | $R2 << 1) ^ ($t0 + $t1 + '.$K[--$ki].');
|
||||||
|
|
||||||
|
$t0 = $S0[$R2 & 0xff] ^
|
||||||
|
$S1[$R2 >> 8 & 0xff] ^
|
||||||
|
$S2[$R2 >> 16 & 0xff] ^
|
||||||
|
$S3[$R2 >> 24 & 0xff];
|
||||||
|
$t1 = $S0[$R3 >> 24 & 0xff] ^
|
||||||
|
$S1[$R3 & 0xff] ^
|
||||||
|
$S2[$R3 >> 8 & 0xff] ^
|
||||||
|
$S3[$R3 >> 16 & 0xff];
|
||||||
|
$R1^= $t0 + ($t1 << 1) + '.$K[--$ki].';
|
||||||
|
$R1 = $R1 >> 1 & 0x7fffffff | $R1 << 31;
|
||||||
|
$R0 = ($R0 >> 31 & 0x1 | $R0 << 1) ^ ($t0 + $t1 + '.$K[--$ki].');
|
||||||
|
';
|
||||||
|
}
|
||||||
|
$decrypt_block.= '
|
||||||
|
$in = pack("V4", '.$K[0].' ^ $R2,
|
||||||
|
'.$K[1].' ^ $R3,
|
||||||
|
'.$K[2].' ^ $R0,
|
||||||
|
'.$K[3].' ^ $R1);
|
||||||
|
';
|
||||||
|
|
||||||
|
$lambda_functions[$code_hash] = $this->_createInlineCryptFunction(
|
||||||
|
array(
|
||||||
|
'init_crypt' => $init_crypt,
|
||||||
|
'init_encrypt' => '',
|
||||||
|
'init_decrypt' => '',
|
||||||
|
'encrypt_block' => $encrypt_block,
|
||||||
|
'decrypt_block' => $decrypt_block
|
||||||
|
)
|
||||||
|
);
|
||||||
|
}
|
||||||
|
$this->inline_crypt = $lambda_functions[$code_hash];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,559 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP ANSI Decoder
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* If you call read() in Net_SSH2 you may get {@link http://en.wikipedia.org/wiki/ANSI_escape_code ANSI escape codes} back.
|
||||||
|
* They'd look like chr(0x1B) . '[00m' or whatever (0x1B = ESC). They tell a
|
||||||
|
* {@link http://en.wikipedia.org/wiki/Terminal_emulator terminal emulator} how to format the characters, what
|
||||||
|
* color to display them in, etc. File_ANSI is a {@link http://en.wikipedia.org/wiki/VT100 VT100} terminal emulator.
|
||||||
|
*
|
||||||
|
* 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 File
|
||||||
|
* @package File_ANSI
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2012 Jim Wigginton
|
||||||
|
* @license http://www.opensource.org/licenses/mit-license.html MIT License
|
||||||
|
* @link http://phpseclib.sourceforge.net
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP ANSI Decoder
|
||||||
|
*
|
||||||
|
* @package File_ANSI
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class File_ANSI
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Max Width
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $max_x;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Max Height
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $max_y;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Max History
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $max_history;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* History
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $history;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* History Attributes
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $history_attrs;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Current Column
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $x;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Current Row
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $y;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Old Column
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $old_x;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Old Row
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $old_y;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* An empty attribute row
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $attr_row;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The current screen text
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $screen;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The current screen attributes
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $attrs;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The current foreground color
|
||||||
|
*
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $foreground;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The current background color
|
||||||
|
*
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $background;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Bold flag
|
||||||
|
*
|
||||||
|
* @var Boolean
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $bold;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Underline flag
|
||||||
|
*
|
||||||
|
* @var Boolean
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $underline;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Blink flag
|
||||||
|
*
|
||||||
|
* @var Boolean
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $blink;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reverse flag
|
||||||
|
*
|
||||||
|
* @var Boolean
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $reverse;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Color flag
|
||||||
|
*
|
||||||
|
* @var Boolean
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $color;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Current ANSI code
|
||||||
|
*
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $ansi;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default Constructor.
|
||||||
|
*
|
||||||
|
* @return File_ANSI
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function File_ANSI()
|
||||||
|
{
|
||||||
|
$this->setHistory(200);
|
||||||
|
$this->setDimensions(80, 24);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set terminal width and height
|
||||||
|
*
|
||||||
|
* Resets the screen as well
|
||||||
|
*
|
||||||
|
* @param Integer $x
|
||||||
|
* @param Integer $y
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function setDimensions($x, $y)
|
||||||
|
{
|
||||||
|
$this->max_x = $x - 1;
|
||||||
|
$this->max_y = $y - 1;
|
||||||
|
$this->x = $this->y = 0;
|
||||||
|
$this->history = $this->history_attrs = array();
|
||||||
|
$this->attr_row = array_fill(0, $this->max_x + 1, '');
|
||||||
|
$this->screen = array_fill(0, $this->max_y + 1, '');
|
||||||
|
$this->attrs = array_fill(0, $this->max_y + 1, $this->attr_row);
|
||||||
|
$this->foreground = 'white';
|
||||||
|
$this->background = 'black';
|
||||||
|
$this->bold = false;
|
||||||
|
$this->underline = false;
|
||||||
|
$this->blink = false;
|
||||||
|
$this->reverse = false;
|
||||||
|
$this->color = false;
|
||||||
|
|
||||||
|
$this->ansi = '';
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set the number of lines that should be logged past the terminal height
|
||||||
|
*
|
||||||
|
* @param Integer $x
|
||||||
|
* @param Integer $y
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function setHistory($history)
|
||||||
|
{
|
||||||
|
$this->max_history = $history;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Load a string
|
||||||
|
*
|
||||||
|
* @param String $source
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function loadString($source)
|
||||||
|
{
|
||||||
|
$this->setDimensions($this->max_x + 1, $this->max_y + 1);
|
||||||
|
$this->appendString($source);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Appdend a string
|
||||||
|
*
|
||||||
|
* @param String $source
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function appendString($source)
|
||||||
|
{
|
||||||
|
for ($i = 0; $i < strlen($source); $i++) {
|
||||||
|
if (strlen($this->ansi)) {
|
||||||
|
$this->ansi.= $source[$i];
|
||||||
|
$chr = ord($source[$i]);
|
||||||
|
// http://en.wikipedia.org/wiki/ANSI_escape_code#Sequence_elements
|
||||||
|
// single character CSI's not currently supported
|
||||||
|
switch (true) {
|
||||||
|
case $this->ansi == "\x1B=":
|
||||||
|
$this->ansi = '';
|
||||||
|
continue 2;
|
||||||
|
case strlen($this->ansi) == 2 && $chr >= 64 && $chr <= 95 && $chr != ord('['):
|
||||||
|
case strlen($this->ansi) > 2 && $chr >= 64 && $chr <= 126:
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
continue 2;
|
||||||
|
}
|
||||||
|
// http://ascii-table.com/ansi-escape-sequences-vt-100.php
|
||||||
|
switch ($this->ansi) {
|
||||||
|
case "\x1B[H": // Move cursor to upper left corner
|
||||||
|
$this->old_x = $this->x;
|
||||||
|
$this->old_y = $this->y;
|
||||||
|
$this->x = $this->y = 0;
|
||||||
|
break;
|
||||||
|
case "\x1B[J": // Clear screen from cursor down
|
||||||
|
$this->history = array_merge($this->history, array_slice(array_splice($this->screen, $this->y + 1), 0, $this->old_y));
|
||||||
|
$this->screen = array_merge($this->screen, array_fill($this->y, $this->max_y, ''));
|
||||||
|
|
||||||
|
$this->history_attrs = array_merge($this->history_attrs, array_slice(array_splice($this->attrs, $this->y + 1), 0, $this->old_y));
|
||||||
|
$this->attrs = array_merge($this->attrs, array_fill($this->y, $this->max_y, $this->attr_row));
|
||||||
|
|
||||||
|
if (count($this->history) == $this->max_history) {
|
||||||
|
array_shift($this->history);
|
||||||
|
array_shift($this->history_attrs);
|
||||||
|
}
|
||||||
|
case "\x1B[K": // Clear screen from cursor right
|
||||||
|
$this->screen[$this->y] = substr($this->screen[$this->y], 0, $this->x);
|
||||||
|
|
||||||
|
array_splice($this->attrs[$this->y], $this->x + 1);
|
||||||
|
break;
|
||||||
|
case "\x1B[2K": // Clear entire line
|
||||||
|
$this->screen[$this->y] = str_repeat(' ', $this->x);
|
||||||
|
$this->attrs[$this->y] = $this->attr_row;
|
||||||
|
break;
|
||||||
|
case "\x1B[?1h": // set cursor key to application
|
||||||
|
case "\x1B[?25h": // show the cursor
|
||||||
|
break;
|
||||||
|
case "\x1BE": // Move to next line
|
||||||
|
$this->_newLine();
|
||||||
|
$this->x = 0;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
switch (true) {
|
||||||
|
case preg_match('#\x1B\[(\d+);(\d+)H#', $this->ansi, $match): // Move cursor to screen location v,h
|
||||||
|
$this->old_x = $this->x;
|
||||||
|
$this->old_y = $this->y;
|
||||||
|
$this->x = $match[2] - 1;
|
||||||
|
$this->y = $match[1] - 1;
|
||||||
|
break;
|
||||||
|
case preg_match('#\x1B\[(\d+)C#', $this->ansi, $match): // Move cursor right n lines
|
||||||
|
$this->old_x = $this->x;
|
||||||
|
$x = $match[1] - 1;
|
||||||
|
break;
|
||||||
|
case preg_match('#\x1B\[(\d+);(\d+)r#', $this->ansi, $match): // Set top and bottom lines of a window
|
||||||
|
break;
|
||||||
|
case preg_match('#\x1B\[(\d*(?:;\d*)*)m#', $this->ansi, $match): // character attributes
|
||||||
|
$mods = explode(';', $match[1]);
|
||||||
|
foreach ($mods as $mod) {
|
||||||
|
switch ($mod) {
|
||||||
|
case 0: // Turn off character attributes
|
||||||
|
$this->attrs[$this->y][$this->x] = '';
|
||||||
|
|
||||||
|
if ($this->bold) $this->attrs[$this->y][$this->x].= '</b>';
|
||||||
|
if ($this->underline) $this->attrs[$this->y][$this->x].= '</u>';
|
||||||
|
if ($this->blink) $this->attrs[$this->y][$this->x].= '</blink>';
|
||||||
|
if ($this->color) $this->attrs[$this->y][$this->x].= '</span>';
|
||||||
|
|
||||||
|
if ($this->reverse) {
|
||||||
|
$temp = $this->background;
|
||||||
|
$this->background = $this->foreground;
|
||||||
|
$this->foreground = $temp;
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->bold = $this->underline = $this->blink = $this->color = $this->reverse = false;
|
||||||
|
break;
|
||||||
|
case 1: // Turn bold mode on
|
||||||
|
if (!$this->bold) {
|
||||||
|
$this->attrs[$this->y][$this->x] = '<b>';
|
||||||
|
$this->bold = true;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 4: // Turn underline mode on
|
||||||
|
if (!$this->underline) {
|
||||||
|
$this->attrs[$this->y][$this->x] = '<u>';
|
||||||
|
$this->underline = true;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 5: // Turn blinking mode on
|
||||||
|
if (!$this->blink) {
|
||||||
|
$this->attrs[$this->y][$this->x] = '<blink>';
|
||||||
|
$this->blink = true;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 7: // Turn reverse video on
|
||||||
|
$this->reverse = !$this->reverse;
|
||||||
|
$temp = $this->background;
|
||||||
|
$this->background = $this->foreground;
|
||||||
|
$this->foreground = $temp;
|
||||||
|
$this->attrs[$this->y][$this->x] = '<span style="color: ' . $this->foreground . '; background: ' . $this->background . '">';
|
||||||
|
if ($this->color) {
|
||||||
|
$this->attrs[$this->y][$this->x] = '</span>' . $this->attrs[$this->y][$this->x];
|
||||||
|
}
|
||||||
|
$this->color = true;
|
||||||
|
break;
|
||||||
|
default: // set colors
|
||||||
|
//$front = $this->reverse ? &$this->background : &$this->foreground;
|
||||||
|
$front = &$this->{ $this->reverse ? 'background' : 'foreground' };
|
||||||
|
//$back = $this->reverse ? &$this->foreground : &$this->background;
|
||||||
|
$back = &$this->{ $this->reverse ? 'foreground' : 'background' };
|
||||||
|
switch ($mod) {
|
||||||
|
case 30: $front = 'black'; break;
|
||||||
|
case 31: $front = 'red'; break;
|
||||||
|
case 32: $front = 'green'; break;
|
||||||
|
case 33: $front = 'yellow'; break;
|
||||||
|
case 34: $front = 'blue'; break;
|
||||||
|
case 35: $front = 'magenta'; break;
|
||||||
|
case 36: $front = 'cyan'; break;
|
||||||
|
case 37: $front = 'white'; break;
|
||||||
|
|
||||||
|
case 40: $back = 'black'; break;
|
||||||
|
case 41: $back = 'red'; break;
|
||||||
|
case 42: $back = 'green'; break;
|
||||||
|
case 43: $back = 'yellow'; break;
|
||||||
|
case 44: $back = 'blue'; break;
|
||||||
|
case 45: $back = 'magenta'; break;
|
||||||
|
case 46: $back = 'cyan'; break;
|
||||||
|
case 47: $back = 'white'; break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
user_error('Unsupported attribute: ' . $mod);
|
||||||
|
$this->ansi = '';
|
||||||
|
break 2;
|
||||||
|
}
|
||||||
|
|
||||||
|
unset($temp);
|
||||||
|
$this->attrs[$this->y][$this->x] = '<span style="color: ' . $this->foreground . '; background: ' . $this->background . '">';
|
||||||
|
if ($this->color) {
|
||||||
|
$this->attrs[$this->y][$this->x] = '</span>' . $this->attrs[$this->y][$this->x];
|
||||||
|
}
|
||||||
|
$this->color = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
user_error("{$this->ansi} unsupported\r\n");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->ansi = '';
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
switch ($source[$i]) {
|
||||||
|
case "\r":
|
||||||
|
$this->x = 0;
|
||||||
|
break;
|
||||||
|
case "\n":
|
||||||
|
$this->_newLine();
|
||||||
|
break;
|
||||||
|
case "\x0F": // shift
|
||||||
|
break;
|
||||||
|
case "\x1B": // start ANSI escape code
|
||||||
|
$this->ansi.= "\x1B";
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$this->screen[$this->y] = substr_replace(
|
||||||
|
$this->screen[$this->y],
|
||||||
|
$source[$i],
|
||||||
|
$this->x,
|
||||||
|
1
|
||||||
|
);
|
||||||
|
|
||||||
|
if ($this->x > $this->max_x) {
|
||||||
|
$this->x = 0;
|
||||||
|
$this->y++;
|
||||||
|
} else {
|
||||||
|
$this->x++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Add a new line
|
||||||
|
*
|
||||||
|
* Also update the $this->screen and $this->history buffers
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _newLine()
|
||||||
|
{
|
||||||
|
//if ($this->y < $this->max_y) {
|
||||||
|
// $this->y++;
|
||||||
|
//}
|
||||||
|
|
||||||
|
while ($this->y >= $this->max_y) {
|
||||||
|
$this->history = array_merge($this->history, array(array_shift($this->screen)));
|
||||||
|
$this->screen[] = '';
|
||||||
|
|
||||||
|
$this->history_attrs = array_merge($this->history_attrs, array(array_shift($this->attrs)));
|
||||||
|
$this->attrs[] = $this->attr_row;
|
||||||
|
|
||||||
|
if (count($this->history) >= $this->max_history) {
|
||||||
|
array_shift($this->history);
|
||||||
|
array_shift($this->history_attrs);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->y--;
|
||||||
|
}
|
||||||
|
$this->y++;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the current screen without preformating
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @return String
|
||||||
|
*/
|
||||||
|
function _getScreen()
|
||||||
|
{
|
||||||
|
$output = '';
|
||||||
|
for ($i = 0; $i <= $this->max_y; $i++) {
|
||||||
|
for ($j = 0; $j <= $this->max_x + 1; $j++) {
|
||||||
|
if (isset($this->attrs[$i][$j])) {
|
||||||
|
$output.= $this->attrs[$i][$j];
|
||||||
|
}
|
||||||
|
if (isset($this->screen[$i][$j])) {
|
||||||
|
$output.= htmlspecialchars($this->screen[$i][$j]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$output.= "\r\n";
|
||||||
|
}
|
||||||
|
return rtrim($output);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the current screen
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return String
|
||||||
|
*/
|
||||||
|
function getScreen()
|
||||||
|
{
|
||||||
|
return '<pre style="color: white; background: black" width="' . ($this->max_x + 1) . '">' . $this->_getScreen() . '</pre>';
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the current screen and the x previous lines
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return String
|
||||||
|
*/
|
||||||
|
function getHistory()
|
||||||
|
{
|
||||||
|
$scrollback = '';
|
||||||
|
for ($i = 0; $i < count($this->history); $i++) {
|
||||||
|
for ($j = 0; $j <= $this->max_x + 1; $j++) {
|
||||||
|
if (isset($this->history_attrs[$i][$j])) {
|
||||||
|
$scrollback.= $this->history_attrs[$i][$j];
|
||||||
|
}
|
||||||
|
if (isset($this->history[$i][$j])) {
|
||||||
|
$scrollback.= htmlspecialchars($this->history[$i][$j]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$scrollback.= "\r\n";
|
||||||
|
}
|
||||||
|
$scrollback.= $this->_getScreen();
|
||||||
|
|
||||||
|
return '<pre style="color: white; background: black" width="' . ($this->max_x + 1) . '">' . $scrollback . '</pre>';
|
||||||
|
}
|
||||||
|
}
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,360 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementation of SCP.
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* The API for this library is modeled after the API from PHP's {@link http://php.net/book.ftp FTP extension}.
|
||||||
|
*
|
||||||
|
* Here's a short example of how to use this library:
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* include 'Net/SCP.php';
|
||||||
|
* include 'Net/SSH2.php';
|
||||||
|
*
|
||||||
|
* $ssh = new Net_SSH2('www.domain.tld');
|
||||||
|
* if (!$ssh->login('username', 'password')) {
|
||||||
|
* exit('bad login');
|
||||||
|
* }
|
||||||
|
|
||||||
|
* $scp = new Net_SCP($ssh);
|
||||||
|
* $scp->put('abcd', str_repeat('x', 1024*1024));
|
||||||
|
* ?>
|
||||||
|
* </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 Net
|
||||||
|
* @package Net_SCP
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2010 Jim Wigginton
|
||||||
|
* @license http://www.opensource.org/licenses/mit-license.html MIT License
|
||||||
|
* @link http://phpseclib.sourceforge.net
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @access public
|
||||||
|
* @see Net_SCP::put()
|
||||||
|
*/
|
||||||
|
/**
|
||||||
|
* Reads data from a local file.
|
||||||
|
*/
|
||||||
|
define('NET_SCP_LOCAL_FILE', 1);
|
||||||
|
/**
|
||||||
|
* Reads data from a string.
|
||||||
|
*/
|
||||||
|
define('NET_SCP_STRING', 2);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @access private
|
||||||
|
* @see Net_SCP::_send()
|
||||||
|
* @see Net_SCP::_receive()
|
||||||
|
*/
|
||||||
|
/**
|
||||||
|
* SSH1 is being used.
|
||||||
|
*/
|
||||||
|
define('NET_SCP_SSH1', 1);
|
||||||
|
/**
|
||||||
|
* SSH2 is being used.
|
||||||
|
*/
|
||||||
|
define('NET_SCP_SSH2', 2);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP implementations of SCP.
|
||||||
|
*
|
||||||
|
* @package Net_SCP
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class Net_SCP
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* SSH Object
|
||||||
|
*
|
||||||
|
* @var Object
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $ssh;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Packet Size
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $packet_size;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Mode
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $mode;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default Constructor.
|
||||||
|
*
|
||||||
|
* Connects to an SSH server
|
||||||
|
*
|
||||||
|
* @param String $host
|
||||||
|
* @param optional Integer $port
|
||||||
|
* @param optional Integer $timeout
|
||||||
|
* @return Net_SCP
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function Net_SCP($ssh)
|
||||||
|
{
|
||||||
|
if (!is_object($ssh)) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
switch (strtolower(get_class($ssh))) {
|
||||||
|
case 'net_ssh2':
|
||||||
|
$this->mode = NET_SCP_SSH2;
|
||||||
|
break;
|
||||||
|
case 'net_ssh1':
|
||||||
|
$this->packet_size = 50000;
|
||||||
|
$this->mode = NET_SCP_SSH1;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->ssh = $ssh;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Uploads a file to the SCP server.
|
||||||
|
*
|
||||||
|
* By default, Net_SCP::put() does not read from the local filesystem. $data is dumped directly into $remote_file.
|
||||||
|
* So, for example, if you set $data to 'filename.ext' and then do Net_SCP::get(), you will get a file, twelve bytes
|
||||||
|
* long, containing 'filename.ext' as its contents.
|
||||||
|
*
|
||||||
|
* Setting $mode to NET_SCP_LOCAL_FILE will change the above behavior. With NET_SCP_LOCAL_FILE, $remote_file will
|
||||||
|
* contain as many bytes as filename.ext does on your local filesystem. If your filename.ext is 1MB then that is how
|
||||||
|
* large $remote_file will be, as well.
|
||||||
|
*
|
||||||
|
* Currently, only binary mode is supported. As such, if the line endings need to be adjusted, you will need to take
|
||||||
|
* care of that, yourself.
|
||||||
|
*
|
||||||
|
* @param String $remote_file
|
||||||
|
* @param String $data
|
||||||
|
* @param optional Integer $mode
|
||||||
|
* @param optional Callable $callback
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function put($remote_file, $data, $mode = NET_SCP_STRING, $callback = null)
|
||||||
|
{
|
||||||
|
if (!isset($this->ssh)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$this->ssh->exec('scp -t ' . escapeshellarg($remote_file), false)) { // -t = to
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$temp = $this->_receive();
|
||||||
|
if ($temp !== chr(0)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->mode == NET_SCP_SSH2) {
|
||||||
|
$this->packet_size = $this->ssh->packet_size_client_to_server[NET_SSH2_CHANNEL_EXEC] - 4;
|
||||||
|
}
|
||||||
|
|
||||||
|
$remote_file = basename($remote_file);
|
||||||
|
|
||||||
|
if ($mode == NET_SCP_STRING) {
|
||||||
|
$size = strlen($data);
|
||||||
|
} else {
|
||||||
|
if (!is_file($data)) {
|
||||||
|
user_error("$data is not a valid file", E_USER_NOTICE);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$fp = @fopen($data, 'rb');
|
||||||
|
if (!$fp) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$size = filesize($data);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->_send('C0644 ' . $size . ' ' . $remote_file . "\n");
|
||||||
|
|
||||||
|
$temp = $this->_receive();
|
||||||
|
if ($temp !== chr(0)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$sent = 0;
|
||||||
|
while ($sent < $size) {
|
||||||
|
$temp = $mode & NET_SCP_STRING ? substr($data, $sent, $this->packet_size) : fread($fp, $this->packet_size);
|
||||||
|
$this->_send($temp);
|
||||||
|
$sent+= strlen($temp);
|
||||||
|
|
||||||
|
if (is_callable($callback)) {
|
||||||
|
call_user_func($callback, $sent);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->_close();
|
||||||
|
|
||||||
|
if ($mode != NET_SCP_STRING) {
|
||||||
|
fclose($fp);
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Downloads a file from the SCP server.
|
||||||
|
*
|
||||||
|
* Returns a string containing the contents of $remote_file if $local_file is left undefined or a boolean false if
|
||||||
|
* the operation was unsuccessful. If $local_file is defined, returns true or false depending on the success of the
|
||||||
|
* operation
|
||||||
|
*
|
||||||
|
* @param String $remote_file
|
||||||
|
* @param optional String $local_file
|
||||||
|
* @return Mixed
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function get($remote_file, $local_file = false)
|
||||||
|
{
|
||||||
|
if (!isset($this->ssh)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$this->ssh->exec('scp -f ' . escapeshellarg($remote_file), false)) { // -f = from
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->_send("\0");
|
||||||
|
|
||||||
|
if (!preg_match('#(?<perms>[^ ]+) (?<size>\d+) (?<name>.+)#', rtrim($this->_receive()), $info)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->_send("\0");
|
||||||
|
|
||||||
|
$size = 0;
|
||||||
|
|
||||||
|
if ($local_file !== false) {
|
||||||
|
$fp = @fopen($local_file, 'wb');
|
||||||
|
if (!$fp) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$content = '';
|
||||||
|
while ($size < $info['size']) {
|
||||||
|
$data = $this->_receive();
|
||||||
|
// SCP usually seems to split stuff out into 16k chunks
|
||||||
|
$size+= strlen($data);
|
||||||
|
|
||||||
|
if ($local_file === false) {
|
||||||
|
$content.= $data;
|
||||||
|
} else {
|
||||||
|
fputs($fp, $data);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->_close();
|
||||||
|
|
||||||
|
if ($local_file !== false) {
|
||||||
|
fclose($fp);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $content;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sends a packet to an SSH server
|
||||||
|
*
|
||||||
|
* @param String $data
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _send($data)
|
||||||
|
{
|
||||||
|
switch ($this->mode) {
|
||||||
|
case NET_SCP_SSH2:
|
||||||
|
$this->ssh->_send_channel_packet(NET_SSH2_CHANNEL_EXEC, $data);
|
||||||
|
break;
|
||||||
|
case NET_SCP_SSH1:
|
||||||
|
$data = pack('CNa*', NET_SSH1_CMSG_STDIN_DATA, strlen($data), $data);
|
||||||
|
$this->ssh->_send_binary_packet($data);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Receives a packet from an SSH server
|
||||||
|
*
|
||||||
|
* @return String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _receive()
|
||||||
|
{
|
||||||
|
switch ($this->mode) {
|
||||||
|
case NET_SCP_SSH2:
|
||||||
|
return $this->ssh->_get_channel_packet(NET_SSH2_CHANNEL_EXEC, true);
|
||||||
|
case NET_SCP_SSH1:
|
||||||
|
if (!$this->ssh->bitmap) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
while (true) {
|
||||||
|
$response = $this->ssh->_get_binary_packet();
|
||||||
|
switch ($response[NET_SSH1_RESPONSE_TYPE]) {
|
||||||
|
case NET_SSH1_SMSG_STDOUT_DATA:
|
||||||
|
extract(unpack('Nlength', $response[NET_SSH1_RESPONSE_DATA]));
|
||||||
|
return $this->ssh->_string_shift($response[NET_SSH1_RESPONSE_DATA], $length);
|
||||||
|
case NET_SSH1_SMSG_STDERR_DATA:
|
||||||
|
break;
|
||||||
|
case NET_SSH1_SMSG_EXITSTATUS:
|
||||||
|
$this->ssh->_send_binary_packet(chr(NET_SSH1_CMSG_EXIT_CONFIRMATION));
|
||||||
|
fclose($this->ssh->fsock);
|
||||||
|
$this->ssh->bitmap = 0;
|
||||||
|
return false;
|
||||||
|
default:
|
||||||
|
user_error('Unknown packet received', E_USER_NOTICE);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Closes the connection to an SSH server
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _close()
|
||||||
|
{
|
||||||
|
switch ($this->mode) {
|
||||||
|
case NET_SCP_SSH2:
|
||||||
|
$this->ssh->_close_channel(NET_SSH2_CHANNEL_EXEC, true);
|
||||||
|
break;
|
||||||
|
case NET_SCP_SSH1:
|
||||||
|
$this->ssh->disconnect();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,801 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/**
|
||||||
|
* SFTP Stream Wrapper
|
||||||
|
*
|
||||||
|
* Creates an sftp:// protocol handler that can be used with, for example, fopen(), dir(), etc.
|
||||||
|
*
|
||||||
|
* PHP version 5
|
||||||
|
*
|
||||||
|
* 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 Net
|
||||||
|
* @package Net_SFTP_Stream
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2013 Jim Wigginton
|
||||||
|
* @license http://www.opensource.org/licenses/mit-license.html MIT License
|
||||||
|
* @link http://phpseclib.sourceforge.net
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* SFTP Stream Wrapper
|
||||||
|
*
|
||||||
|
* @package Net_SFTP_Stream
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class Net_SFTP_Stream
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* SFTP instances
|
||||||
|
*
|
||||||
|
* Rather than re-create the connection we re-use instances if possible
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
*/
|
||||||
|
static $instances;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* SFTP instance
|
||||||
|
*
|
||||||
|
* @var Object
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $sftp;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Path
|
||||||
|
*
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $path;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Mode
|
||||||
|
*
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $mode;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Position
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $pos;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Size
|
||||||
|
*
|
||||||
|
* @var Integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $size;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Directory entries
|
||||||
|
*
|
||||||
|
* @var Array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $entries;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* EOF flag
|
||||||
|
*
|
||||||
|
* @var Boolean
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $eof;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Context resource
|
||||||
|
*
|
||||||
|
* Technically this needs to be publically accessible so PHP can set it directly
|
||||||
|
*
|
||||||
|
* @var Resource
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
var $context;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Notification callback function
|
||||||
|
*
|
||||||
|
* @var Callable
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
var $notification;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Registers this class as a URL wrapper.
|
||||||
|
*
|
||||||
|
* @param optional String $protocol The wrapper name to be registered.
|
||||||
|
* @return Boolean True on success, false otherwise.
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
static function register($protocol = 'sftp')
|
||||||
|
{
|
||||||
|
if (in_array($protocol, stream_get_wrappers(), true)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$class = function_exists('get_called_class') ? get_called_class() : __CLASS__;
|
||||||
|
return stream_wrapper_register($protocol, $class);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The Constructor
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function Net_SFTP_Stream()
|
||||||
|
{
|
||||||
|
if (defined('NET_SFTP_STREAM_LOGGING')) {
|
||||||
|
echo "__construct()\r\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!class_exists('Net_SFTP')) {
|
||||||
|
include_once 'Net/SFTP.php';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Path Parser
|
||||||
|
*
|
||||||
|
* Extract a path from a URI and actually connect to an SSH server if appropriate
|
||||||
|
*
|
||||||
|
* If "notification" is set as a context parameter the message code for successful login is
|
||||||
|
* NET_SSH2_MSG_USERAUTH_SUCCESS. For a failed login it's NET_SSH2_MSG_USERAUTH_FAILURE.
|
||||||
|
*
|
||||||
|
* @param String $path
|
||||||
|
* @return String
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _parse_path($path)
|
||||||
|
{
|
||||||
|
extract(parse_url($path) + array('port' => 22));
|
||||||
|
|
||||||
|
if (!isset($host)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($this->context)) {
|
||||||
|
$context = stream_context_get_params($this->context);
|
||||||
|
if (isset($context['notification'])) {
|
||||||
|
$this->notification = $context['notification'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($host[0] == '$') {
|
||||||
|
$host = substr($host, 1);
|
||||||
|
global $$host;
|
||||||
|
if (!is_object($$host) || get_class($$host) != 'Net_SFTP') {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$this->sftp = $$host;
|
||||||
|
} else {
|
||||||
|
if (isset($this->context)) {
|
||||||
|
$context = stream_context_get_options($this->context);
|
||||||
|
}
|
||||||
|
if (isset($context[$scheme]['session'])) {
|
||||||
|
$sftp = $context[$scheme]['session'];
|
||||||
|
}
|
||||||
|
if (isset($context[$scheme]['sftp'])) {
|
||||||
|
$sftp = $context[$scheme]['sftp'];
|
||||||
|
}
|
||||||
|
if (isset($sftp) && is_object($sftp) && get_class($sftp) == 'Net_SFTP') {
|
||||||
|
$this->sftp = $sftp;
|
||||||
|
return $path;
|
||||||
|
}
|
||||||
|
if (isset($context[$scheme]['username'])) {
|
||||||
|
$user = $context[$scheme]['username'];
|
||||||
|
}
|
||||||
|
if (isset($context[$scheme]['password'])) {
|
||||||
|
$pass = $context[$scheme]['password'];
|
||||||
|
}
|
||||||
|
if (isset($context[$scheme]['privkey']) && is_object($context[$scheme]['privkey']) && get_Class($context[$scheme]['privkey']) == 'Crypt_RSA') {
|
||||||
|
$pass = $context[$scheme]['privkey'];
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!isset($user) || !isset($pass)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// casting $pass to a string is necessary in the event that it's a Crypt_RSA object
|
||||||
|
if (isset(self::$instances[$host][$port][$user][(string) $pass])) {
|
||||||
|
$this->sftp = self::$instances[$host][$port][$user][(string) $pass];
|
||||||
|
} else {
|
||||||
|
$this->sftp = new Net_SFTP($host, $port);
|
||||||
|
$this->sftp->disableStatCache();
|
||||||
|
if (isset($this->notification) && is_callable($this->notification)) {
|
||||||
|
/* if !is_callable($this->notification) we could do this:
|
||||||
|
|
||||||
|
user_error('fopen(): failed to call user notifier', E_USER_WARNING);
|
||||||
|
|
||||||
|
the ftp wrapper gives errors like that when the notifier isn't callable.
|
||||||
|
i've opted not to do that, however, since the ftp wrapper gives the line
|
||||||
|
on which the fopen occurred as the line number - not the line that the
|
||||||
|
user_error is on.
|
||||||
|
*/
|
||||||
|
call_user_func($this->notification, STREAM_NOTIFY_CONNECT, STREAM_NOTIFY_SEVERITY_INFO, '', 0, 0, 0);
|
||||||
|
call_user_func($this->notification, STREAM_NOTIFY_AUTH_REQUIRED, STREAM_NOTIFY_SEVERITY_INFO, '', 0, 0, 0);
|
||||||
|
if (!$this->sftp->login($user, $pass)) {
|
||||||
|
call_user_func($this->notification, STREAM_NOTIFY_AUTH_RESULT, STREAM_NOTIFY_SEVERITY_ERR, 'Login Failure', NET_SSH2_MSG_USERAUTH_FAILURE, 0, 0);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
call_user_func($this->notification, STREAM_NOTIFY_AUTH_RESULT, STREAM_NOTIFY_SEVERITY_INFO, 'Login Success', NET_SSH2_MSG_USERAUTH_SUCCESS, 0, 0);
|
||||||
|
} else {
|
||||||
|
if (!$this->sftp->login($user, $pass)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
self::$instances[$host][$port][$user][(string) $pass] = $this->sftp;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $path;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Opens file or URL
|
||||||
|
*
|
||||||
|
* @param String $path
|
||||||
|
* @param String $mode
|
||||||
|
* @param Integer $options
|
||||||
|
* @param String $opened_path
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_open($path, $mode, $options, &$opened_path)
|
||||||
|
{
|
||||||
|
$path = $this->_parse_path($path);
|
||||||
|
|
||||||
|
if ($path === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$this->path = $path;
|
||||||
|
|
||||||
|
$this->size = $this->sftp->size($path);
|
||||||
|
$this->mode = preg_replace('#[bt]$#', '', $mode);
|
||||||
|
$this->eof = false;
|
||||||
|
|
||||||
|
if ($this->size === false) {
|
||||||
|
if ($this->mode[0] == 'r') {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
switch ($this->mode[0]) {
|
||||||
|
case 'x':
|
||||||
|
return false;
|
||||||
|
case 'w':
|
||||||
|
case 'c':
|
||||||
|
$this->sftp->truncate($path, 0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->pos = $this->mode[0] != 'a' ? 0 : $this->size;
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Read from stream
|
||||||
|
*
|
||||||
|
* @param Integer $count
|
||||||
|
* @return Mixed
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_read($count)
|
||||||
|
{
|
||||||
|
switch ($this->mode) {
|
||||||
|
case 'w':
|
||||||
|
case 'a':
|
||||||
|
case 'x':
|
||||||
|
case 'c':
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// commented out because some files - eg. /dev/urandom - will say their size is 0 when in fact it's kinda infinite
|
||||||
|
//if ($this->pos >= $this->size) {
|
||||||
|
// $this->eof = true;
|
||||||
|
// return false;
|
||||||
|
//}
|
||||||
|
|
||||||
|
$result = $this->sftp->get($this->path, false, $this->pos, $count);
|
||||||
|
if (isset($this->notification) && is_callable($this->notification)) {
|
||||||
|
if ($result === false) {
|
||||||
|
call_user_func($this->notification, STREAM_NOTIFY_FAILURE, STREAM_NOTIFY_SEVERITY_ERR, $this->sftp->getLastSFTPError(), NET_SFTP_OPEN, 0, 0);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
// seems that PHP calls stream_read in 8k chunks
|
||||||
|
call_user_func($this->notification, STREAM_NOTIFY_PROGRESS, STREAM_NOTIFY_SEVERITY_INFO, '', 0, strlen($result), $this->size);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (empty($result)) { // ie. false or empty string
|
||||||
|
$this->eof = true;
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$this->pos+= strlen($result);
|
||||||
|
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Write to stream
|
||||||
|
*
|
||||||
|
* @param String $data
|
||||||
|
* @return Mixed
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_write($data)
|
||||||
|
{
|
||||||
|
switch ($this->mode) {
|
||||||
|
case 'r':
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$result = $this->sftp->put($this->path, $data, NET_SFTP_STRING, $this->pos);
|
||||||
|
if (isset($this->notification) && is_callable($this->notification)) {
|
||||||
|
if (!$result) {
|
||||||
|
call_user_func($this->notification, STREAM_NOTIFY_FAILURE, STREAM_NOTIFY_SEVERITY_ERR, $this->sftp->getLastSFTPError(), NET_SFTP_OPEN, 0, 0);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
// seems that PHP splits up strings into 8k blocks before calling stream_write
|
||||||
|
call_user_func($this->notification, STREAM_NOTIFY_PROGRESS, STREAM_NOTIFY_SEVERITY_INFO, '', 0, strlen($data), strlen($data));
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($result === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$this->pos+= strlen($data);
|
||||||
|
if ($this->pos > $this->size) {
|
||||||
|
$this->size = $this->pos;
|
||||||
|
}
|
||||||
|
$this->eof = false;
|
||||||
|
return strlen($data);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Retrieve the current position of a stream
|
||||||
|
*
|
||||||
|
* @return Integer
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_tell()
|
||||||
|
{
|
||||||
|
return $this->pos;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Tests for end-of-file on a file pointer
|
||||||
|
*
|
||||||
|
* In my testing there are four classes functions that normally effect the pointer:
|
||||||
|
* fseek, fputs / fwrite, fgets / fread and ftruncate.
|
||||||
|
*
|
||||||
|
* Only fgets / fread, however, results in feof() returning true. do fputs($fp, 'aaa') on a blank file and feof()
|
||||||
|
* will return false. do fread($fp, 1) and feof() will then return true. do fseek($fp, 10) on ablank file and feof()
|
||||||
|
* will return false. do fread($fp, 1) and feof() will then return true.
|
||||||
|
*
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_eof()
|
||||||
|
{
|
||||||
|
return $this->eof;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Seeks to specific location in a stream
|
||||||
|
*
|
||||||
|
* @param Integer $offset
|
||||||
|
* @param Integer $whence
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_seek($offset, $whence)
|
||||||
|
{
|
||||||
|
switch ($whence) {
|
||||||
|
case SEEK_SET:
|
||||||
|
if ($offset >= $this->size || $offset < 0) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case SEEK_CUR:
|
||||||
|
$offset+= $this->pos;
|
||||||
|
break;
|
||||||
|
case SEEK_END:
|
||||||
|
$offset+= $this->size;
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->pos = $offset;
|
||||||
|
$this->eof = false;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Change stream options
|
||||||
|
*
|
||||||
|
* @param String $path
|
||||||
|
* @param Integer $option
|
||||||
|
* @param Mixed $var
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_metadata($path, $option, $var)
|
||||||
|
{
|
||||||
|
$path = $this->_parse_path($path);
|
||||||
|
if ($path === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// stream_metadata was introduced in PHP 5.4.0 but as of 5.4.11 the constants haven't been defined
|
||||||
|
// see http://www.php.net/streamwrapper.stream-metadata and https://bugs.php.net/64246
|
||||||
|
// and https://github.com/php/php-src/blob/master/main/php_streams.h#L592
|
||||||
|
switch ($option) {
|
||||||
|
case 1: // PHP_STREAM_META_TOUCH
|
||||||
|
return $this->sftp->touch($path, $var[0], $var[1]);
|
||||||
|
case 2: // PHP_STREAM_OWNER_NAME
|
||||||
|
case 3: // PHP_STREAM_GROUP_NAME
|
||||||
|
return false;
|
||||||
|
case 4: // PHP_STREAM_META_OWNER
|
||||||
|
return $this->sftp->chown($path, $var);
|
||||||
|
case 5: // PHP_STREAM_META_GROUP
|
||||||
|
return $this->sftp->chgrp($path, $var);
|
||||||
|
case 6: // PHP_STREAM_META_ACCESS
|
||||||
|
return $this->sftp->chmod($path, $var) !== false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Retrieve the underlaying resource
|
||||||
|
*
|
||||||
|
* @param Integer $cast_as
|
||||||
|
* @return Resource
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_cast($cast_as)
|
||||||
|
{
|
||||||
|
return $this->sftp->fsock;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Advisory file locking
|
||||||
|
*
|
||||||
|
* @param Integer $operation
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_lock($operation)
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Renames a file or directory
|
||||||
|
*
|
||||||
|
* Attempts to rename oldname to newname, moving it between directories if necessary.
|
||||||
|
* If newname exists, it will be overwritten. This is a departure from what Net_SFTP
|
||||||
|
* does.
|
||||||
|
*
|
||||||
|
* @param String $path_from
|
||||||
|
* @param String $path_to
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _rename($path_from, $path_to)
|
||||||
|
{
|
||||||
|
$path1 = parse_url($path_from);
|
||||||
|
$path2 = parse_url($path_to);
|
||||||
|
unset($path1['path'], $path2['path']);
|
||||||
|
if ($path1 != $path2) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$path_from = $this->_parse_path($path_from);
|
||||||
|
$path_to = parse_url($path_to);
|
||||||
|
if ($path_from == false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$path_to = $path_to['path']; // the $component part of parse_url() was added in PHP 5.1.2
|
||||||
|
// "It is an error if there already exists a file with the name specified by newpath."
|
||||||
|
// -- http://tools.ietf.org/html/draft-ietf-secsh-filexfer-02#section-6.5
|
||||||
|
if (!$this->sftp->rename($path_from, $path_to)) {
|
||||||
|
if ($this->sftp->stat($path_to)) {
|
||||||
|
return $this->sftp->delete($path_to, true) && $this->sftp->rename($path_from, $path_to);
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Open directory handle
|
||||||
|
*
|
||||||
|
* The only $options is "whether or not to enforce safe_mode (0x04)". Since safe mode was deprecated in 5.3 and
|
||||||
|
* removed in 5.4 I'm just going to ignore it.
|
||||||
|
*
|
||||||
|
* Also, nlist() is the best that this function is realistically going to be able to do. When an SFTP client
|
||||||
|
* sends a SSH_FXP_READDIR packet you don't generally get info on just one file but on multiple files. Quoting
|
||||||
|
* the SFTP specs:
|
||||||
|
*
|
||||||
|
* The SSH_FXP_NAME response has the following format:
|
||||||
|
*
|
||||||
|
* uint32 id
|
||||||
|
* uint32 count
|
||||||
|
* repeats count times:
|
||||||
|
* string filename
|
||||||
|
* string longname
|
||||||
|
* ATTRS attrs
|
||||||
|
*
|
||||||
|
* @param String $path
|
||||||
|
* @param Integer $options
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _dir_opendir($path, $options)
|
||||||
|
{
|
||||||
|
$path = $this->_parse_path($path);
|
||||||
|
if ($path === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$this->pos = 0;
|
||||||
|
$this->entries = $this->sftp->nlist($path);
|
||||||
|
return $this->entries !== false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Read entry from directory handle
|
||||||
|
*
|
||||||
|
* @return Mixed
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _dir_readdir()
|
||||||
|
{
|
||||||
|
if (isset($this->entries[$this->pos])) {
|
||||||
|
return $this->entries[$this->pos++];
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Rewind directory handle
|
||||||
|
*
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _dir_rewinddir()
|
||||||
|
{
|
||||||
|
$this->pos = 0;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Close directory handle
|
||||||
|
*
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _dir_closedir()
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Create a directory
|
||||||
|
*
|
||||||
|
* Only valid $options is STREAM_MKDIR_RECURSIVE
|
||||||
|
*
|
||||||
|
* @param String $path
|
||||||
|
* @param Integer $mode
|
||||||
|
* @param Integer $options
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _mkdir($path, $mode, $options)
|
||||||
|
{
|
||||||
|
$path = $this->_parse_path($path);
|
||||||
|
if ($path === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $this->sftp->mkdir($path, $mode, $options & STREAM_MKDIR_RECURSIVE);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Removes a directory
|
||||||
|
*
|
||||||
|
* Only valid $options is STREAM_MKDIR_RECURSIVE per <http://php.net/streamwrapper.rmdir>, however,
|
||||||
|
* <http://php.net/rmdir> does not have a $recursive parameter as mkdir() does so I don't know how
|
||||||
|
* STREAM_MKDIR_RECURSIVE is supposed to be set. Also, when I try it out with rmdir() I get 8 as
|
||||||
|
* $options. What does 8 correspond to?
|
||||||
|
*
|
||||||
|
* @param String $path
|
||||||
|
* @param Integer $mode
|
||||||
|
* @param Integer $options
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _rmdir($path, $options)
|
||||||
|
{
|
||||||
|
$path = $this->_parse_path($path);
|
||||||
|
if ($path === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $this->sftp->rmdir($path);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Flushes the output
|
||||||
|
*
|
||||||
|
* See <http://php.net/fflush>. Always returns true because Net_SFTP doesn't cache stuff before writing
|
||||||
|
*
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_flush()
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Retrieve information about a file resource
|
||||||
|
*
|
||||||
|
* @return Mixed
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_stat()
|
||||||
|
{
|
||||||
|
$results = $this->sftp->stat($this->path);
|
||||||
|
if ($results === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return $results;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Delete a file
|
||||||
|
*
|
||||||
|
* @param String $path
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _unlink($path)
|
||||||
|
{
|
||||||
|
$path = $this->_parse_path($path);
|
||||||
|
if ($path === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $this->sftp->delete($path, false);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Retrieve information about a file
|
||||||
|
*
|
||||||
|
* Ignores the STREAM_URL_STAT_QUIET flag because the entirety of Net_SFTP_Stream is quiet by default
|
||||||
|
* might be worthwhile to reconstruct bits 12-16 (ie. the file type) if mode doesn't have them but we'll
|
||||||
|
* cross that bridge when and if it's reached
|
||||||
|
*
|
||||||
|
* @param String $path
|
||||||
|
* @param Integer $flags
|
||||||
|
* @return Mixed
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _url_stat($path, $flags)
|
||||||
|
{
|
||||||
|
$path = $this->_parse_path($path);
|
||||||
|
if ($path === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$results = $flags & STREAM_URL_STAT_LINK ? $this->sftp->lstat($path) : $this->sftp->stat($path);
|
||||||
|
if ($results === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $results;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Truncate stream
|
||||||
|
*
|
||||||
|
* @param Integer $new_size
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_truncate($new_size)
|
||||||
|
{
|
||||||
|
if (!$this->sftp->truncate($this->path, $new_size)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->eof = false;
|
||||||
|
$this->size = $new_size;
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Change stream options
|
||||||
|
*
|
||||||
|
* STREAM_OPTION_WRITE_BUFFER isn't supported for the same reason stream_flush isn't.
|
||||||
|
* The other two aren't supported because of limitations in Net_SFTP.
|
||||||
|
*
|
||||||
|
* @param Integer $option
|
||||||
|
* @param Integer $arg1
|
||||||
|
* @param Integer $arg2
|
||||||
|
* @return Boolean
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_set_option($option, $arg1, $arg2)
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Close an resource
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _stream_close()
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* __call Magic Method
|
||||||
|
*
|
||||||
|
* When you're utilizing an SFTP stream you're not calling the methods in this class directly - PHP is calling them for you.
|
||||||
|
* Which kinda begs the question... what methods is PHP calling and what parameters is it passing to them? This function
|
||||||
|
* lets you figure that out.
|
||||||
|
*
|
||||||
|
* If NET_SFTP_STREAM_LOGGING is defined all calls will be output on the screen and then (regardless of whether or not
|
||||||
|
* NET_SFTP_STREAM_LOGGING is enabled) the parameters will be passed through to the appropriate method.
|
||||||
|
*
|
||||||
|
* @param String
|
||||||
|
* @param Array
|
||||||
|
* @return Mixed
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function __call($name, $arguments)
|
||||||
|
{
|
||||||
|
if (defined('NET_SFTP_STREAM_LOGGING')) {
|
||||||
|
echo $name . '(';
|
||||||
|
$last = count($arguments) - 1;
|
||||||
|
foreach ($arguments as $i => $argument) {
|
||||||
|
var_export($argument);
|
||||||
|
if ($i != $last) {
|
||||||
|
echo ',';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
echo ")\r\n";
|
||||||
|
}
|
||||||
|
$name = '_' . $name;
|
||||||
|
if (!method_exists($this, $name)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return call_user_func_array(array($this, $name), $arguments);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
Net_SFTP_Stream::register();
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,313 @@
|
||||||
|
<?php
|
||||||
|
/**
|
||||||
|
* Pure-PHP ssh-agent client.
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* Here are some examples of how to use this library:
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* include 'System/SSH/Agent.php';
|
||||||
|
* include 'Net/SSH2.php';
|
||||||
|
*
|
||||||
|
* $agent = new System_SSH_Agent();
|
||||||
|
*
|
||||||
|
* $ssh = new Net_SSH2('www.domain.tld');
|
||||||
|
* if (!$ssh->login('username', $agent)) {
|
||||||
|
* exit('Login Failed');
|
||||||
|
* }
|
||||||
|
*
|
||||||
|
* echo $ssh->exec('pwd');
|
||||||
|
* echo $ssh->exec('ls -la');
|
||||||
|
* ?>
|
||||||
|
* </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 System
|
||||||
|
* @package System_SSH_Agent
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2014 Jim Wigginton
|
||||||
|
* @license http://www.opensource.org/licenses/mit-license.html MIT License
|
||||||
|
* @link http://phpseclib.sourceforge.net
|
||||||
|
* @internal See http://api.libssh.org/rfc/PROTOCOL.agent
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* Message numbers
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
// to request SSH1 keys you have to use SSH_AGENTC_REQUEST_RSA_IDENTITIES (1)
|
||||||
|
define('SYSTEM_SSH_AGENTC_REQUEST_IDENTITIES', 11);
|
||||||
|
// this is the SSH2 response; the SSH1 response is SSH_AGENT_RSA_IDENTITIES_ANSWER (2).
|
||||||
|
define('SYSTEM_SSH_AGENT_IDENTITIES_ANSWER', 12);
|
||||||
|
define('SYSTEM_SSH_AGENT_FAILURE', 5);
|
||||||
|
// the SSH1 request is SSH_AGENTC_RSA_CHALLENGE (3)
|
||||||
|
define('SYSTEM_SSH_AGENTC_SIGN_REQUEST', 13);
|
||||||
|
// the SSH1 response is SSH_AGENT_RSA_RESPONSE (4)
|
||||||
|
define('SYSTEM_SSH_AGENT_SIGN_RESPONSE', 14);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP ssh-agent client identity object
|
||||||
|
*
|
||||||
|
* Instantiation should only be performed by System_SSH_Agent class.
|
||||||
|
* This could be thought of as implementing an interface that Crypt_RSA
|
||||||
|
* implements. ie. maybe a Net_SSH_Auth_PublicKey interface or something.
|
||||||
|
* The methods in this interface would be getPublicKey, setSignatureMode
|
||||||
|
* and sign since those are the methods phpseclib looks for to perform
|
||||||
|
* public key authentication.
|
||||||
|
*
|
||||||
|
* @package System_SSH_Agent
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @access internal
|
||||||
|
*/
|
||||||
|
class System_SSH_Agent_Identity
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Key Object
|
||||||
|
*
|
||||||
|
* @var Crypt_RSA
|
||||||
|
* @access private
|
||||||
|
* @see System_SSH_Agent_Identity::getPublicKey()
|
||||||
|
*/
|
||||||
|
var $key;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Key Blob
|
||||||
|
*
|
||||||
|
* @var String
|
||||||
|
* @access private
|
||||||
|
* @see System_SSH_Agent_Identity::sign()
|
||||||
|
*/
|
||||||
|
var $key_blob;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Socket Resource
|
||||||
|
*
|
||||||
|
* @var Resource
|
||||||
|
* @access private
|
||||||
|
* @see System_SSH_Agent_Identity::sign()
|
||||||
|
*/
|
||||||
|
var $fsock;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default Constructor.
|
||||||
|
*
|
||||||
|
* @param Resource $fsock
|
||||||
|
* @return System_SSH_Agent_Identity
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function System_SSH_Agent_Identity($fsock)
|
||||||
|
{
|
||||||
|
$this->fsock = $fsock;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set Public Key
|
||||||
|
*
|
||||||
|
* Called by System_SSH_Agent::requestIdentities()
|
||||||
|
*
|
||||||
|
* @param Crypt_RSA $key
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function setPublicKey($key)
|
||||||
|
{
|
||||||
|
$this->key = $key;
|
||||||
|
$this->key->setPublicKey();
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set Public Key
|
||||||
|
*
|
||||||
|
* Called by System_SSH_Agent::requestIdentities(). The key blob could be extracted from $this->key
|
||||||
|
* but this saves a small amount of computation.
|
||||||
|
*
|
||||||
|
* @param String $key_blob
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function setPublicKeyBlob($key_blob)
|
||||||
|
{
|
||||||
|
$this->key_blob = $key_blob;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get Public Key
|
||||||
|
*
|
||||||
|
* Wrapper for $this->key->getPublicKey()
|
||||||
|
*
|
||||||
|
* @param Integer $format optional
|
||||||
|
* @return Mixed
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getPublicKey($format = null)
|
||||||
|
{
|
||||||
|
return !isset($format) ? $this->key->getPublicKey() : $this->key->getPublicKey($format);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set Signature Mode
|
||||||
|
*
|
||||||
|
* Doesn't do anything as ssh-agent doesn't let you pick and choose the signature mode. ie.
|
||||||
|
* ssh-agent's only supported mode is CRYPT_RSA_SIGNATURE_PKCS1
|
||||||
|
*
|
||||||
|
* @param Integer $mode
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function setSignatureMode($mode)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Create a signature
|
||||||
|
*
|
||||||
|
* See "2.6.2 Protocol 2 private key signature request"
|
||||||
|
*
|
||||||
|
* @param String $message
|
||||||
|
* @return String
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function sign($message)
|
||||||
|
{
|
||||||
|
// the last parameter (currently 0) is for flags and ssh-agent only defines one flag (for ssh-dss): SSH_AGENT_OLD_SIGNATURE
|
||||||
|
$packet = pack('CNa*Na*N', SYSTEM_SSH_AGENTC_SIGN_REQUEST, strlen($this->key_blob), $this->key_blob, strlen($message), $message, 0);
|
||||||
|
$packet = pack('Na*', strlen($packet), $packet);
|
||||||
|
if (strlen($packet) != fputs($this->fsock, $packet)) {
|
||||||
|
user_error('Connection closed during signing');
|
||||||
|
}
|
||||||
|
|
||||||
|
$length = current(unpack('N', fread($this->fsock, 4)));
|
||||||
|
$type = ord(fread($this->fsock, 1));
|
||||||
|
if ($type != SYSTEM_SSH_AGENT_SIGN_RESPONSE) {
|
||||||
|
user_error('Unable to retreive signature');
|
||||||
|
}
|
||||||
|
|
||||||
|
$signature_blob = fread($this->fsock, $length - 1);
|
||||||
|
// the only other signature format defined - ssh-dss - is the same length as ssh-rsa
|
||||||
|
// the + 12 is for the other various SSH added length fields
|
||||||
|
return substr($signature_blob, strlen('ssh-rsa') + 12);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pure-PHP ssh-agent client identity factory
|
||||||
|
*
|
||||||
|
* requestIdentities() method pumps out System_SSH_Agent_Identity objects
|
||||||
|
*
|
||||||
|
* @package System_SSH_Agent
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @access internal
|
||||||
|
*/
|
||||||
|
class System_SSH_Agent
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Socket Resource
|
||||||
|
*
|
||||||
|
* @var Resource
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $fsock;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default Constructor
|
||||||
|
*
|
||||||
|
* @return System_SSH_Agent
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function System_SSH_Agent()
|
||||||
|
{
|
||||||
|
switch (true) {
|
||||||
|
case isset($_SERVER['SSH_AUTH_SOCK']):
|
||||||
|
$address = $_SERVER['SSH_AUTH_SOCK'];
|
||||||
|
break;
|
||||||
|
case isset($_ENV['SSH_AUTH_SOCK']):
|
||||||
|
$address = $_ENV['SSH_AUTH_SOCK'];
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
user_error('SSH_AUTH_SOCK not found');
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->fsock = fsockopen('unix://' . $address, 0, $errno, $errstr);
|
||||||
|
if (!$this->fsock) {
|
||||||
|
user_error("Unable to connect to ssh-agent (Error $errno: $errstr)");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Request Identities
|
||||||
|
*
|
||||||
|
* See "2.5.2 Requesting a list of protocol 2 keys"
|
||||||
|
* Returns an array containing zero or more System_SSH_Agent_Identity objects
|
||||||
|
*
|
||||||
|
* @return Array
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function requestIdentities()
|
||||||
|
{
|
||||||
|
if (!$this->fsock) {
|
||||||
|
return array();
|
||||||
|
}
|
||||||
|
|
||||||
|
$packet = pack('NC', 1, SYSTEM_SSH_AGENTC_REQUEST_IDENTITIES);
|
||||||
|
if (strlen($packet) != fputs($this->fsock, $packet)) {
|
||||||
|
user_error('Connection closed while requesting identities');
|
||||||
|
}
|
||||||
|
|
||||||
|
$length = current(unpack('N', fread($this->fsock, 4)));
|
||||||
|
$type = ord(fread($this->fsock, 1));
|
||||||
|
if ($type != SYSTEM_SSH_AGENT_IDENTITIES_ANSWER) {
|
||||||
|
user_error('Unable to request identities');
|
||||||
|
}
|
||||||
|
|
||||||
|
$identities = array();
|
||||||
|
$keyCount = current(unpack('N', fread($this->fsock, 4)));
|
||||||
|
for ($i = 0; $i < $keyCount; $i++) {
|
||||||
|
$length = current(unpack('N', fread($this->fsock, 4)));
|
||||||
|
$key_blob = fread($this->fsock, $length);
|
||||||
|
$length = current(unpack('N', fread($this->fsock, 4)));
|
||||||
|
$key_comment = fread($this->fsock, $length);
|
||||||
|
$length = current(unpack('N', substr($key_blob, 0, 4)));
|
||||||
|
$key_type = substr($key_blob, 4, $length);
|
||||||
|
switch ($key_type) {
|
||||||
|
case 'ssh-rsa':
|
||||||
|
if (!class_exists('Crypt_RSA')) {
|
||||||
|
include_once 'Crypt/RSA.php';
|
||||||
|
}
|
||||||
|
$key = new Crypt_RSA();
|
||||||
|
$key->loadKey('ssh-rsa ' . base64_encode($key_blob) . ' ' . $key_comment);
|
||||||
|
break;
|
||||||
|
case 'ssh-dss':
|
||||||
|
// not currently supported
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
// resources are passed by reference by default
|
||||||
|
if (isset($key)) {
|
||||||
|
$identity = new System_SSH_Agent_Identity($this->fsock);
|
||||||
|
$identity->setPublicKey($key);
|
||||||
|
$identity->setPublicKeyBlob($key_blob);
|
||||||
|
$identities[] = $identity;
|
||||||
|
unset($key);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $identities;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,39 @@
|
||||||
|
<?php
|
||||||
|
/**
|
||||||
|
* Pure-PHP ssh-agent client wrapper
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* Originally System_SSH_Agent was accessed as System/SSH_Agent.php instead of
|
||||||
|
* System/SSH/Agent.php. The problem with this is that PSR0 compatible autoloaders
|
||||||
|
* don't support that kind of directory layout hence the package being moved and
|
||||||
|
* this "alias" being created to maintain backwards compatibility.
|
||||||
|
*
|
||||||
|
* 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 System
|
||||||
|
* @package System_SSH_Agent
|
||||||
|
* @author Jim Wigginton <terrafrost@php.net>
|
||||||
|
* @copyright 2014 Jim Wigginton
|
||||||
|
* @license http://www.opensource.org/licenses/mit-license.html MIT License
|
||||||
|
* @link http://phpseclib.sourceforge.net
|
||||||
|
* @internal See http://api.libssh.org/rfc/PROTOCOL.agent
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once 'SSH/Agent.php';
|
||||||
|
|
@ -0,0 +1,6 @@
|
||||||
|
# minimalist openssl.cnf file for use with phpseclib
|
||||||
|
|
||||||
|
HOME = .
|
||||||
|
RANDFILE = $ENV::HOME/.rnd
|
||||||
|
|
||||||
|
[ v3_ca ]
|
||||||
|
|
@ -0,0 +1,2 @@
|
||||||
|
* Arto Bendiken <arto.bendiken@gmail.com>
|
||||||
|
* Stephen Paul Weber <singpolyma@singpolyma.net>
|
||||||
|
|
@ -0,0 +1,57 @@
|
||||||
|
OpenPGP.php: OpenPGP for PHP
|
||||||
|
============================
|
||||||
|
|
||||||
|
This is a pure-PHP implementation of the OpenPGP Message Format (RFC 4880).
|
||||||
|
|
||||||
|
* <http://github.com/bendiken/openpgp-php>
|
||||||
|
|
||||||
|
### About OpenPGP
|
||||||
|
|
||||||
|
OpenPGP is the most widely-used e-mail encryption standard in the world. It
|
||||||
|
is defined by the OpenPGP Working Group of the Internet Engineering Task
|
||||||
|
Force (IETF) Proposed Standard RFC 4880. The OpenPGP standard was originally
|
||||||
|
derived from PGP (Pretty Good Privacy), first created by Phil Zimmermann in
|
||||||
|
1991.
|
||||||
|
|
||||||
|
* <http://tools.ietf.org/html/rfc4880>
|
||||||
|
* <http://www.openpgp.org/>
|
||||||
|
|
||||||
|
Features
|
||||||
|
--------
|
||||||
|
|
||||||
|
* Encodes and decodes ASCII-armored OpenPGP messages.
|
||||||
|
* Parses OpenPGP messages into their constituent packets.
|
||||||
|
* Supports both old-format (PGP 2.6.x) and new-format (RFC 4880) packets.
|
||||||
|
* Helper class for verifying, signing, encrypting, and decrypting messages using Crypt_RSA from <http://phpseclib.sourceforge.net>
|
||||||
|
* Helper class for encrypting and decrypting messages and keys using Crypt_AES and Crypt_TripleDES from <http://phpseclib.sourceforge.net>
|
||||||
|
|
||||||
|
Users
|
||||||
|
-----
|
||||||
|
|
||||||
|
OpenPGP.php is currently being used in the following projects:
|
||||||
|
|
||||||
|
* <http://drupal.org/project/openpgp>
|
||||||
|
|
||||||
|
Download
|
||||||
|
--------
|
||||||
|
|
||||||
|
To get a local working copy of the development repository, do:
|
||||||
|
|
||||||
|
% git clone git://github.com/bendiken/openpgp-php.git
|
||||||
|
|
||||||
|
Alternatively, you can download the latest development version as a tarball
|
||||||
|
as follows:
|
||||||
|
|
||||||
|
% wget http://github.com/bendiken/openpgp-php/tarball/master
|
||||||
|
|
||||||
|
Authors
|
||||||
|
-------
|
||||||
|
|
||||||
|
* [Arto Bendiken](mailto:arto.bendiken@gmail.com) - <http://ar.to/>
|
||||||
|
* [Stephen Paul Weber](mailto:singpolyma@singpolyma.net) - <http://singpolyma.net/>
|
||||||
|
|
||||||
|
License
|
||||||
|
-------
|
||||||
|
|
||||||
|
OpenPGP.php is free and unencumbered public domain software. For more
|
||||||
|
information, see <http://unlicense.org/> or the accompanying UNLICENSE file.
|
||||||
|
|
@ -0,0 +1,24 @@
|
||||||
|
This is free and unencumbered software released into the public domain.
|
||||||
|
|
||||||
|
Anyone is free to copy, modify, publish, use, compile, sell, or
|
||||||
|
distribute this software, either in source code form or as a compiled
|
||||||
|
binary, for any purpose, commercial or non-commercial, and by any
|
||||||
|
means.
|
||||||
|
|
||||||
|
In jurisdictions that recognize copyright laws, the author or authors
|
||||||
|
of this software dedicate any and all copyright interest in the
|
||||||
|
software to the public domain. We make this dedication for the benefit
|
||||||
|
of the public at large and to the detriment of our heirs and
|
||||||
|
successors. We intend this dedication to be an overt act of
|
||||||
|
relinquishment in perpetuity of all present and future rights to this
|
||||||
|
software under copyright law.
|
||||||
|
|
||||||
|
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 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.
|
||||||
|
|
||||||
|
For more information, please refer to <http://unlicense.org/>
|
||||||
|
|
@ -0,0 +1 @@
|
||||||
|
0.0.1
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,261 @@
|
||||||
|
<?php
|
||||||
|
// This is free and unencumbered software released into the public domain.
|
||||||
|
/**
|
||||||
|
* OpenPGP_Crypt_RSA.php is a wrapper for using the classes from OpenPGP.php with Crypt_RSA
|
||||||
|
*
|
||||||
|
* @package OpenPGP
|
||||||
|
*/
|
||||||
|
|
||||||
|
// From http://phpseclib.sourceforge.net/
|
||||||
|
require_once 'Crypt/RSA.php';
|
||||||
|
|
||||||
|
require_once dirname(__FILE__).'/openpgp.php';
|
||||||
|
@include_once dirname(__FILE__).'/openpgp_crypt_symmetric.php'; /* For encrypt/decrypt */
|
||||||
|
|
||||||
|
class OpenPGP_Crypt_RSA {
|
||||||
|
protected $key, $message;
|
||||||
|
|
||||||
|
// Construct a wrapper object from a key or a message packet
|
||||||
|
function __construct($packet) {
|
||||||
|
if(!is_object($packet)) $packet = OpenPGP_Message::parse($packet);
|
||||||
|
if($packet instanceof OpenPGP_PublicKeyPacket || $packet[0] instanceof OpenPGP_PublicKeyPacket) { // If it's a key (other keys are subclasses of this one)
|
||||||
|
$this->key = $packet;
|
||||||
|
} else {
|
||||||
|
$this->message = $packet;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
function key($keyid=NULL) {
|
||||||
|
if(!$this->key) return NULL; // No key
|
||||||
|
if($this->key instanceof OpenPGP_Message) {
|
||||||
|
foreach($this->key as $p) {
|
||||||
|
if($p instanceof OpenPGP_PublicKeyPacket) {
|
||||||
|
if(!$keyid || strtoupper(substr($p->fingerprint, strlen($keyid)*-1)) == strtoupper($keyid)) return $p;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $this->key;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Get Crypt_RSA for the public key
|
||||||
|
function public_key($keyid=NULL) {
|
||||||
|
return self::convert_public_key($this->key($keyid));
|
||||||
|
}
|
||||||
|
|
||||||
|
// Get Crypt_RSA for the private key
|
||||||
|
function private_key($keyid=NULL) {
|
||||||
|
return self::convert_private_key($this->key($keyid));
|
||||||
|
}
|
||||||
|
|
||||||
|
// Pass a message to verify with this key, or a key (OpenPGP or Crypt_RSA) to check this message with
|
||||||
|
// Second optional parameter to specify which signature to verify (if there is more than one)
|
||||||
|
function verify($packet) {
|
||||||
|
$self = $this; // For old PHP
|
||||||
|
if(!is_object($packet)) $packet = OpenPGP_Message::parse($packet);
|
||||||
|
if(!$this->message) {
|
||||||
|
$m = $packet;
|
||||||
|
$verifier = function($m, $s) use($self) {
|
||||||
|
$key = $self->public_key($s->issuer());
|
||||||
|
if(!$key) return false;
|
||||||
|
$key->setHash(strtolower($s->hash_algorithm_name()));
|
||||||
|
return $key->verify($m, reset($s->data));
|
||||||
|
};
|
||||||
|
} else {
|
||||||
|
if(!($packet instanceof Crypt_RSA)) {
|
||||||
|
$packet = new self($packet);
|
||||||
|
}
|
||||||
|
|
||||||
|
$m = $this->message;
|
||||||
|
$verifier = function($m, $s) use($self, $packet) {
|
||||||
|
if(!($packet instanceof Crypt_RSA)) {
|
||||||
|
$key = $packet->public_key($s->issuer());
|
||||||
|
}
|
||||||
|
if(!$key) return false;
|
||||||
|
$key->setHash(strtolower($s->hash_algorithm_name()));
|
||||||
|
return $key->verify($m, reset($s->data));
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
||||||
|
return $m->verified_signatures(array('RSA' => array(
|
||||||
|
'MD5' => $verifier,
|
||||||
|
'SHA1' => $verifier,
|
||||||
|
'SHA224' => $verifier,
|
||||||
|
'SHA256' => $verifier,
|
||||||
|
'SHA384' => $verifier,
|
||||||
|
'SHA512' => $verifier
|
||||||
|
)));
|
||||||
|
}
|
||||||
|
|
||||||
|
// Pass a message to sign with this key, or a secret key to sign this message with
|
||||||
|
// Second parameter is hash algorithm to use (default SHA256)
|
||||||
|
// Third parameter is the 16-digit key ID to use... defaults to the key id in the key packet
|
||||||
|
function sign($packet, $hash='SHA256', $keyid=NULL) {
|
||||||
|
if(!is_object($packet)) {
|
||||||
|
if($this->key) {
|
||||||
|
$packet = new OpenPGP_LiteralDataPacket($packet);
|
||||||
|
} else {
|
||||||
|
$packet = OpenPGP_Message::parse($packet);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if($packet instanceof OpenPGP_SecretKeyPacket || $packet instanceof Crypt_RSA
|
||||||
|
|| ($packet instanceof ArrayAccess && $packet[0] instanceof OpenPGP_SecretKeyPacket)) {
|
||||||
|
$key = $packet;
|
||||||
|
$message = $this->message;
|
||||||
|
} else {
|
||||||
|
$key = $this->key;
|
||||||
|
$message = $packet;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(!$key || !$message) return NULL; // Missing some data
|
||||||
|
|
||||||
|
if($message instanceof OpenPGP_Message) {
|
||||||
|
$sign = $message->signatures();
|
||||||
|
$message = $sign[0][0];
|
||||||
|
}
|
||||||
|
|
||||||
|
if(!($key instanceof Crypt_RSA)) {
|
||||||
|
$key = new self($key);
|
||||||
|
if(!$keyid) $keyid = substr($key->key()->fingerprint, -16, 16);
|
||||||
|
$key = $key->private_key($keyid);
|
||||||
|
}
|
||||||
|
$key->setHash(strtolower($hash));
|
||||||
|
|
||||||
|
$sig = new OpenPGP_SignaturePacket($message, 'RSA', strtoupper($hash));
|
||||||
|
$sig->hashed_subpackets[] = new OpenPGP_SignaturePacket_IssuerPacket($keyid);
|
||||||
|
$sig->sign_data(array('RSA' => array($hash => function($data) use($key) {return array($key->sign($data));})));
|
||||||
|
|
||||||
|
return new OpenPGP_Message(array($sig, $message));
|
||||||
|
}
|
||||||
|
|
||||||
|
/** Pass a message with a key and userid packet to sign */
|
||||||
|
// TODO: merge this with the normal sign function
|
||||||
|
function sign_key_userid($packet, $hash='SHA256', $keyid=NULL) {
|
||||||
|
if(is_array($packet)) {
|
||||||
|
$packet = new OpenPGP_Message($packet);
|
||||||
|
} else if(!is_object($packet)) {
|
||||||
|
$packet = OpenPGP_Message::parse($packet);
|
||||||
|
}
|
||||||
|
|
||||||
|
$key = $this->private_key($keyid);
|
||||||
|
if(!$key || !$packet) return NULL; // Missing some data
|
||||||
|
|
||||||
|
if(!$keyid) $keyid = substr($this->key->fingerprint, -16);
|
||||||
|
$key->setHash(strtolower($hash));
|
||||||
|
|
||||||
|
$sig = NULL;
|
||||||
|
foreach($packet as $p) {
|
||||||
|
if($p instanceof OpenPGP_SignaturePacket) $sig = $p;
|
||||||
|
}
|
||||||
|
if(!$sig) {
|
||||||
|
$sig = new OpenPGP_SignaturePacket($packet, 'RSA', strtoupper($hash));
|
||||||
|
$sig->signature_type = 0x13;
|
||||||
|
$sig->hashed_subpackets[] = new OpenPGP_SignaturePacket_KeyFlagsPacket(array(0x01, 0x02));
|
||||||
|
$sig->hashed_subpackets[] = new OpenPGP_SignaturePacket_IssuerPacket($keyid);
|
||||||
|
$packet[] = $sig;
|
||||||
|
}
|
||||||
|
|
||||||
|
$sig->sign_data(array('RSA' => array($hash => function($data) use($key) {return array($key->sign($data));})));
|
||||||
|
|
||||||
|
return $packet;
|
||||||
|
}
|
||||||
|
|
||||||
|
function decrypt($packet) {
|
||||||
|
if(!is_object($packet)) $packet = OpenPGP_Message::parse($packet);
|
||||||
|
|
||||||
|
if($packet instanceof OpenPGP_SecretKeyPacket || $packet instanceof Crypt_RSA
|
||||||
|
|| ($packet instanceof ArrayAccess && $packet[0] instanceof OpenPGP_SecretKeyPacket)) {
|
||||||
|
$keys = $packet;
|
||||||
|
$message = $this->message;
|
||||||
|
} else {
|
||||||
|
$keys = $this->key;
|
||||||
|
$message = $packet;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(!$keys || !$message) return NULL; // Missing some data
|
||||||
|
|
||||||
|
if(!($keys instanceof Crypt_RSA)) {
|
||||||
|
$keys = new self($keys);
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach($message as $p) {
|
||||||
|
if($p instanceof OpenPGP_AsymmetricSessionKeyPacket) {
|
||||||
|
if($keys instanceof Crypt_RSA) {
|
||||||
|
$sk = self::try_decrypt_session($keys, substr($p->encrypted_data, 2));
|
||||||
|
} else if(strlen(str_replace('0', '', $p->keyid)) < 1) {
|
||||||
|
foreach($keys->key as $k) {
|
||||||
|
$sk = self::try_decrypt_session(self::convert_private_key($k), substr($p->encrypted_data, 2));
|
||||||
|
if($sk) break;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$key = $keys->private_key($p->keyid);
|
||||||
|
$sk = self::try_decrypt_session($key, substr($p->encrypted_data, 2));
|
||||||
|
}
|
||||||
|
|
||||||
|
if(!$sk) continue;
|
||||||
|
|
||||||
|
$r = OpenPGP_Crypt_Symmetric::decryptPacket(OpenPGP_Crypt_Symmetric::getEncryptedData($message), $sk[0], $sk[1]);
|
||||||
|
if($r) return $r;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return NULL; /* Failed */
|
||||||
|
}
|
||||||
|
|
||||||
|
static function try_decrypt_session($key, $edata) {
|
||||||
|
$key->setEncryptionMode(CRYPT_RSA_ENCRYPTION_PKCS1);
|
||||||
|
$data = $key->decrypt($edata);
|
||||||
|
$sk = substr($data, 1, strlen($data)-3);
|
||||||
|
$chk = unpack('n', substr($data, -2));
|
||||||
|
$chk = reset($chk);
|
||||||
|
|
||||||
|
$sk_chk = 0;
|
||||||
|
for($i = 0; $i < strlen($sk); $i++) {
|
||||||
|
$sk_chk = ($sk_chk + ord($sk{$i})) % 65536;
|
||||||
|
}
|
||||||
|
|
||||||
|
if($sk_chk != $chk) return NULL;
|
||||||
|
return array(ord($data{0}), $sk);
|
||||||
|
}
|
||||||
|
|
||||||
|
static function crypt_rsa_key($mod, $exp, $hash='SHA256') {
|
||||||
|
$rsa = new Crypt_RSA();
|
||||||
|
$rsa->setSignatureMode(CRYPT_RSA_SIGNATURE_PKCS1);
|
||||||
|
$rsa->setHash(strtolower($hash));
|
||||||
|
$rsa->modulus = new Math_BigInteger($mod, 256);
|
||||||
|
$rsa->k = strlen($rsa->modulus->toBytes());
|
||||||
|
$rsa->exponent = new Math_BigInteger($exp, 256);
|
||||||
|
$rsa->setPublicKey();
|
||||||
|
return $rsa;
|
||||||
|
}
|
||||||
|
|
||||||
|
static function convert_key($packet, $private=false) {
|
||||||
|
if(!is_object($packet)) $packet = OpenPGP_Message::parse($packet);
|
||||||
|
if($packet instanceof OpenPGP_Message) $packet = $packet[0];
|
||||||
|
|
||||||
|
$mod = $packet->key['n'];
|
||||||
|
$exp = $packet->key['e'];
|
||||||
|
if($private) $exp = $packet->key['d'];
|
||||||
|
if(!$exp) return NULL; // Packet doesn't have needed data
|
||||||
|
|
||||||
|
$rsa = self::crypt_rsa_key($mod, $exp);
|
||||||
|
|
||||||
|
if($private) {
|
||||||
|
if($packet->key['p'] && $packet->key['q']) $rsa->primes = array($packet->key['p'], $packet->key['q']);
|
||||||
|
if($packet->key['u']) $rsa->coefficients = array($packet->key['u']);
|
||||||
|
}
|
||||||
|
|
||||||
|
return $rsa;
|
||||||
|
}
|
||||||
|
|
||||||
|
static function convert_public_key($packet) {
|
||||||
|
return self::convert_key($packet, false);
|
||||||
|
}
|
||||||
|
|
||||||
|
static function convert_private_key($packet) {
|
||||||
|
return self::convert_key($packet, true);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,196 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
require_once dirname(__FILE__).'/openpgp.php';
|
||||||
|
@include_once dirname(__FILE__).'/openpgp_crypt_rsa.php';
|
||||||
|
@include_once dirname(__FILE__).'/openpgp_mcrypt_wrapper.php';
|
||||||
|
@include_once 'Crypt/AES.php';
|
||||||
|
@include_once 'Crypt/TripleDES.php';
|
||||||
|
require_once 'Crypt/Random.php'; // part of phpseclib is absolutely required
|
||||||
|
|
||||||
|
class OpenPGP_Crypt_Symmetric {
|
||||||
|
public static function encrypt($passphrases_and_keys, $message, $symmetric_algorithm=9) {
|
||||||
|
list($cipher, $key_bytes, $key_block_bytes) = self::getCipher($symmetric_algorithm);
|
||||||
|
if(!$cipher) throw new Exception("Unsupported cipher");
|
||||||
|
$prefix = crypt_random_string($key_block_bytes);
|
||||||
|
$prefix .= substr($prefix, -2);
|
||||||
|
|
||||||
|
$key = crypt_random_string($key_bytes);
|
||||||
|
$cipher->setKey($key);
|
||||||
|
|
||||||
|
$to_encrypt = $prefix . $message->to_bytes();
|
||||||
|
$mdc = new OpenPGP_ModificationDetectionCodePacket(hash('sha1', $to_encrypt . "\xD3\x14", true));
|
||||||
|
$to_encrypt .= $mdc->to_bytes();
|
||||||
|
$encrypted = array(new OpenPGP_IntegrityProtectedDataPacket($cipher->encrypt($to_encrypt)));
|
||||||
|
|
||||||
|
if(!is_array($passphrases_and_keys) && !($passphrases_and_keys instanceof IteratorAggregate)) {
|
||||||
|
$passphrases_and_keys = (array)$passphrases_and_keys;
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach($passphrases_and_keys as $pass) {
|
||||||
|
if($pass instanceof OpenPGP_PublicKeyPacket) {
|
||||||
|
if(!in_array($pass->algorithm, array(1,2,3))) throw new Exception("Only RSA keys are supported.");
|
||||||
|
$crypt_rsa = new OpenPGP_Crypt_RSA($pass);
|
||||||
|
$rsa = $crypt_rsa->public_key();
|
||||||
|
$rsa->setEncryptionMode(CRYPT_RSA_ENCRYPTION_PKCS1);
|
||||||
|
$esk = $rsa->encrypt(chr($symmetric_algorithm) . $key . pack('n', self::checksum($key)));
|
||||||
|
$esk = pack('n', OpenPGP::bitlength($esk)) . $esk;
|
||||||
|
array_unshift($encrypted, new OpenPGP_AsymmetricSessionKeyPacket($pass->algorithm, $pass->fingerprint(), $esk));
|
||||||
|
} else if(is_string($pass)) {
|
||||||
|
$s2k = new OpenPGP_S2K(crypt_random_string(10));
|
||||||
|
$cipher->setKey($s2k->make_key($pass, $key_bytes));
|
||||||
|
$esk = $cipher->encrypt(chr($symmetric_algorithm) . $key);
|
||||||
|
array_unshift($encrypted, new OpenPGP_SymmetricSessionKeyPacket($s2k, $esk, $symmetric_algorithm));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return new OpenPGP_Message($encrypted);
|
||||||
|
}
|
||||||
|
|
||||||
|
public static function decryptSymmetric($pass, $m) {
|
||||||
|
$epacket = self::getEncryptedData($m);
|
||||||
|
|
||||||
|
foreach($m as $p) {
|
||||||
|
if($p instanceof OpenPGP_SymmetricSessionKeyPacket) {
|
||||||
|
if(strlen($p->encrypted_data) > 0) {
|
||||||
|
list($cipher, $key_bytes, $key_block_bytes) = self::getCipher($p->symmetric_algorithm);
|
||||||
|
if(!$cipher) continue;
|
||||||
|
$cipher->setKey($p->s2k->make_key($pass, $key_bytes));
|
||||||
|
|
||||||
|
$padAmount = $key_block_bytes - (strlen($p->encrypted_data) % $key_block_bytes);
|
||||||
|
$data = substr($cipher->decrypt($p->encrypted_data . str_repeat("\0", $padAmount)), 0, strlen($p->encrypted_data));
|
||||||
|
$decrypted = self::decryptPacket($epacket, ord($data{0}), substr($data, 1));
|
||||||
|
} else {
|
||||||
|
list($cipher, $key_bytes, $key_block_bytes) = self::getCipher($p->symmetric_algorithm);
|
||||||
|
$decrypted = self::decryptPacket($epacket, $p->symmetric_algorithm, $p->s2k->make_key($pass, $key_bytes));
|
||||||
|
}
|
||||||
|
|
||||||
|
if($decrypted) return $decrypted;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return NULL; /* If we get here, we failed */
|
||||||
|
}
|
||||||
|
|
||||||
|
public static function decryptSecretKey($pass, $packet) {
|
||||||
|
$packet = clone $packet; // Do not mutate orinigal
|
||||||
|
|
||||||
|
list($cipher, $key_bytes, $key_block_bytes) = self::getCipher($packet->symmetric_algorithm);
|
||||||
|
if(!$cipher) throw new Exception("Unsupported cipher");
|
||||||
|
$cipher->setKey($packet->s2k->make_key($pass, $key_bytes));
|
||||||
|
$cipher->setIV(substr($packet->encrypted_data, 0, $key_block_bytes));
|
||||||
|
$material = $cipher->decrypt(substr($packet->encrypted_data, $key_block_bytes));
|
||||||
|
|
||||||
|
if($packet->s2k_useage == 254) {
|
||||||
|
$chk = substr($material, -20);
|
||||||
|
$material = substr($material, 0, -20);
|
||||||
|
if($chk != hash('sha1', $material, true)) return NULL;
|
||||||
|
} else {
|
||||||
|
$chk = unpack('n', substr($material, -2));
|
||||||
|
$chk = reset($chk);
|
||||||
|
$material = substr($material, 0, -2);
|
||||||
|
|
||||||
|
$mkChk = self::checksum($material);
|
||||||
|
if($chk != $mkChk) return NULL;
|
||||||
|
}
|
||||||
|
|
||||||
|
$packet->s2k_useage = 0;
|
||||||
|
$packet->symmetric_algorithm = 0;
|
||||||
|
$packet->encrypted_data = NULL;
|
||||||
|
$packet->input = $material;
|
||||||
|
$packet->key_from_input();
|
||||||
|
unset($packet->input);
|
||||||
|
return $packet;
|
||||||
|
}
|
||||||
|
|
||||||
|
public static function decryptPacket($epacket, $symmetric_algorithm, $key) {
|
||||||
|
list($cipher, $key_bytes, $key_block_bytes) = self::getCipher($symmetric_algorithm);
|
||||||
|
if(!$cipher) return NULL;
|
||||||
|
$cipher->setKey($key);
|
||||||
|
|
||||||
|
if($epacket instanceof OpenPGP_IntegrityProtectedDataPacket) {
|
||||||
|
$padAmount = $key_block_bytes - (strlen($epacket->data) % $key_block_bytes);
|
||||||
|
$data = substr($cipher->decrypt($epacket->data . str_repeat("\0", $padAmount)), 0, strlen($epacket->data));
|
||||||
|
$prefix = substr($data, 0, $key_block_bytes + 2);
|
||||||
|
$mdc = substr(substr($data, -22, 22), 2);
|
||||||
|
$data = substr($data, $key_block_bytes + 2, -22);
|
||||||
|
|
||||||
|
$mkMDC = hash("sha1", $prefix . $data . "\xD3\x14", true);
|
||||||
|
if($mkMDC !== $mdc) return false;
|
||||||
|
|
||||||
|
try {
|
||||||
|
$msg = OpenPGP_Message::parse($data);
|
||||||
|
} catch (Exception $ex) { $msg = NULL; }
|
||||||
|
if($msg) return $msg; /* Otherwise keep trying */
|
||||||
|
} else {
|
||||||
|
// No MDC mean decrypt with resync
|
||||||
|
$iv = substr($epacket->data, 2, $key_block_bytes);
|
||||||
|
$edata = substr($epacket->data, $key_block_bytes + 2);
|
||||||
|
$padAmount = $key_block_bytes - (strlen($edata) % $key_block_bytes);
|
||||||
|
|
||||||
|
$cipher->setIV($iv);
|
||||||
|
$data = substr($cipher->decrypt($edata . str_repeat("\0", $padAmount)), 0, strlen($edata));
|
||||||
|
|
||||||
|
try {
|
||||||
|
$msg = OpenPGP_Message::parse($data);
|
||||||
|
} catch (Exception $ex) { $msg = NULL; }
|
||||||
|
if($msg) return $msg; /* Otherwise keep trying */
|
||||||
|
}
|
||||||
|
|
||||||
|
return NULL; /* Failed */
|
||||||
|
}
|
||||||
|
|
||||||
|
public static function getCipher($algo) {
|
||||||
|
$cipher = NULL;
|
||||||
|
switch($algo) {
|
||||||
|
case 2:
|
||||||
|
if(class_exists('Crypt_TripleDES')) {
|
||||||
|
$cipher = new Crypt_TripleDES(CRYPT_DES_MODE_CFB);
|
||||||
|
$key_bytes = 24;
|
||||||
|
$key_block_bytes = 8;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
if(defined('MCRYPT_CAST_128')) {
|
||||||
|
$cipher = new MCryptWrapper(MCRYPT_CAST_128);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 7:
|
||||||
|
if(class_exists('Crypt_AES')) {
|
||||||
|
$cipher = new Crypt_AES(CRYPT_AES_MODE_CFB);
|
||||||
|
$cipher->setKeyLength(128);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 8:
|
||||||
|
if(class_exists('Crypt_AES')) {
|
||||||
|
$cipher = new Crypt_AES(CRYPT_AES_MODE_CFB);
|
||||||
|
$cipher->setKeyLength(192);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 9:
|
||||||
|
if(class_exists('Crypt_AES')) {
|
||||||
|
$cipher = new Crypt_AES(CRYPT_AES_MODE_CFB);
|
||||||
|
$cipher->setKeyLength(256);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if(!$cipher) return array(NULL, NULL, NULL); // Unsupported cipher
|
||||||
|
if(!isset($key_bytes)) $key_bytes = $cipher->key_size;
|
||||||
|
if(!isset($key_block_bytes)) $key_block_bytes = $cipher->block_size;
|
||||||
|
return array($cipher, $key_bytes, $key_block_bytes);
|
||||||
|
}
|
||||||
|
|
||||||
|
public static function getEncryptedData($m) {
|
||||||
|
foreach($m as $p) {
|
||||||
|
if($p instanceof OpenPGP_EncryptedDataPacket) return $p;
|
||||||
|
}
|
||||||
|
throw new Exception("Can only decrypt EncryptedDataPacket");
|
||||||
|
}
|
||||||
|
|
||||||
|
public static function checksum($s) {
|
||||||
|
$mkChk = 0;
|
||||||
|
for($i = 0; $i < strlen($s); $i++) {
|
||||||
|
$mkChk = ($mkChk + ord($s{$i})) % 65536;
|
||||||
|
}
|
||||||
|
return $mkChk;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,31 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
if(function_exists('mcrypt_encrypt') && defined('MCRYPT_MODE_CFB')) {
|
||||||
|
class MCryptWrapper {
|
||||||
|
public $cipher, $key, $iv, $key_size, $block_size;
|
||||||
|
|
||||||
|
|
||||||
|
function __construct($cipher) {
|
||||||
|
$this->cipher = $cipher;
|
||||||
|
$this->key_size = mcrypt_module_get_algo_key_size($cipher);
|
||||||
|
$this->block_size = mcrypt_module_get_algo_block_size($cipher);
|
||||||
|
$this->iv = str_repeat("\0", mcrypt_get_iv_size($cipher, 'ncfb'));
|
||||||
|
}
|
||||||
|
|
||||||
|
function setKey($key) {
|
||||||
|
$this->key = $key;
|
||||||
|
}
|
||||||
|
|
||||||
|
function setIV($iv) {
|
||||||
|
$this->iv = $iv;
|
||||||
|
}
|
||||||
|
|
||||||
|
function encrypt($data) {
|
||||||
|
return mcrypt_encrypt($this->cipher, $this->key, $data, 'ncfb', $this->iv);
|
||||||
|
}
|
||||||
|
|
||||||
|
function decrypt($data) {
|
||||||
|
return mcrypt_decrypt($this->cipher, $this->key, $data, 'ncfb', $this->iv);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue
Block a user