mirror of
https://git.friendi.ca/friendica/friendica-addons.git
synced 2024-11-17 15:03:46 +00:00
New experimental plugin 'secure mail'
This commit is contained in:
fabrixxm
parent
9aefbf3def
commit
e17cb70379
14 changed files with 3199 additions and 0 deletions
11
securemail/README.md
Normal file
11
securemail/README.md
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
Secure Mail
|
||||||
|
-----------
|
||||||
|
|
||||||
|
Send notification mails to user encrypted with GPG.
|
||||||
|
Each user can enable it and submit his public key under Settings-> Addon
|
||||||
|
-> "Secure Mail" Settings.
|
||||||
|
|
||||||
|
Use 'php-gpg' library, a pure PHP implementation of GPG/PGP, released
|
||||||
|
under GPL. See [project repo](https://github.com/jasonhinkle/php-gpg).
|
||||||
|
|
||||||
|
This plugin need Friendica version > 3.3.2 to work.
|
||||||
3
securemail/php-gpg/.gitignore
vendored
Normal file
3
securemail/php-gpg/.gitignore
vendored
Normal file
|
|
@ -0,0 +1,3 @@
|
||||||
|
/.buildpath
|
||||||
|
/.settings
|
||||||
|
.DS_Store
|
||||||
39
securemail/php-gpg/README.md
Normal file
39
securemail/php-gpg/README.md
Normal file
|
|
@ -0,0 +1,39 @@
|
||||||
|
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.
|
||||||
186
securemail/php-gpg/libs/GPG.php
Normal file
186
securemail/php-gpg/libs/GPG.php
Normal file
|
|
@ -0,0 +1,186 @@
|
||||||
|
<?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;
|
||||||
|
$i = 0;
|
||||||
|
$len = strlen($text);
|
||||||
|
$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)
|
||||||
|
{
|
||||||
|
if ($len > 0xff) $tag += 1;
|
||||||
|
$h = chr($tag);
|
||||||
|
if ($len > 0xff) $h .= chr($len / 0x100);
|
||||||
|
$h .= chr($len % 0x100);
|
||||||
|
|
||||||
|
return $h;
|
||||||
|
}
|
||||||
|
|
||||||
|
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, 60, "\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";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
63
securemail/php-gpg/libs/GPG/AES.php
Normal file
63
securemail/php-gpg/libs/GPG/AES.php
Normal file
|
|
@ -0,0 +1,63 @@
|
||||||
|
<?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);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
335
securemail/php-gpg/libs/GPG/Cipher.php
Normal file
335
securemail/php-gpg/libs/GPG/Cipher.php
Normal file
|
|
@ -0,0 +1,335 @@
|
||||||
|
<?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);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
?>
|
||||||
105
securemail/php-gpg/libs/GPG/Expanded_Key.php
Normal file
105
securemail/php-gpg/libs/GPG/Expanded_Key.php
Normal file
|
|
@ -0,0 +1,105 @@
|
||||||
|
<?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;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
217
securemail/php-gpg/libs/GPG/Public_Key.php
Normal file
217
securemail/php-gpg/libs/GPG/Public_Key.php
Normal file
|
|
@ -0,0 +1,217 @@
|
||||||
|
<?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";
|
||||||
|
|
||||||
|
$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);
|
||||||
|
|
||||||
|
$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);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
131
securemail/php-gpg/libs/GPG/Utility.php
Normal file
131
securemail/php-gpg/libs/GPG/Utility.php
Normal file
|
|
@ -0,0 +1,131 @@
|
||||||
|
<?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));
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
?>
|
||||||
403
securemail/php-gpg/libs/GPG/globals.php
Normal file
403
securemail/php-gpg/libs/GPG/globals.php
Normal file
|
|
@ -0,0 +1,403 @@
|
||||||
|
<?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);
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
135
securemail/php-gpg/tests/gpg/EncryptTest.php
Normal file
135
securemail/php-gpg/tests/gpg/EncryptTest.php
Normal file
|
|
@ -0,0 +1,135 @@
|
||||||
|
<?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');
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
1474
securemail/php-gpg/tests/gpg/KeyTest.php
Normal file
1474
securemail/php-gpg/tests/gpg/KeyTest.php
Normal file
File diff suppressed because it is too large
Load diff
4
securemail/php-gpg/tests/runtests.sh
Normal file
4
securemail/php-gpg/tests/runtests.sh
Normal file
|
|
@ -0,0 +1,4 @@
|
||||||
|
##
|
||||||
|
# Test runner for Phreeze
|
||||||
|
##
|
||||||
|
phpunit gpg/
|
||||||
93
securemail/securemail.php
Normal file
93
securemail/securemail.php
Normal file
|
|
@ -0,0 +1,93 @@
|
||||||
|
<?php
|
||||||
|
/**
|
||||||
|
* Name: Secure Mail
|
||||||
|
* Description: Send notification mail encrypted with user-defined public GPG key
|
||||||
|
* Version: 1.0
|
||||||
|
* Author: Fabio Comuni <http://kirgroup.com/profile/fabrixxm>
|
||||||
|
*/
|
||||||
|
require_once 'php-gpg/libs/GPG.php';
|
||||||
|
|
||||||
|
function securemail_install() {
|
||||||
|
register_hook('plugin_settings', 'addon/securemail/securemail.php', 'securemail_settings');
|
||||||
|
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');
|
||||||
|
|
||||||
|
logger("installed securemail");
|
||||||
|
}
|
||||||
|
|
||||||
|
function securemail_uninstall() {
|
||||||
|
unregister_hook('plugin_settings', 'addon/securemail/securemail.php', 'securemail_settings');
|
||||||
|
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');
|
||||||
|
|
||||||
|
logger("removed securemail");
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
function securemail_settings(&$a,&$s){
|
||||||
|
if(! local_user())
|
||||||
|
return;
|
||||||
|
|
||||||
|
$enable_checked = (intval(get_pconfig(local_user(),'securemail','enable')) ? ' checked="checked"' : '');
|
||||||
|
$publickey = get_pconfig(local_user(),'securemail','pkey');
|
||||||
|
|
||||||
|
# all of this should be in a template...
|
||||||
|
$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>';
|
||||||
|
$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>';
|
||||||
|
$s .= '</span>';
|
||||||
|
$s .= '<div id="securemail-wrapper">';
|
||||||
|
|
||||||
|
$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>';
|
||||||
|
|
||||||
|
$s .= '<div class="clear"></div>';
|
||||||
|
$s .= '<label id="securemail-label" for="securemail-pkey">'.t('Public key').' </label>';
|
||||||
|
$s .= '<textarea id="securemail-pkey" name="securemail-pkey">'.$publickey.'</textarea>';
|
||||||
|
$s .= '</div><div class="clear"></div>';
|
||||||
|
|
||||||
|
$s .= '<div class="settings-submit-wrapper" ><input type="submit" id="securemail-submit" name="securemail-submit" class="settings-submit" value="' . t('Save Settings') . '" /></div>';
|
||||||
|
$s .= '</div>';
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
function securemail_settings_post(&$a, &$b){
|
||||||
|
|
||||||
|
if(! local_user())
|
||||||
|
return;
|
||||||
|
|
||||||
|
if($_POST['securemail-submit']) {
|
||||||
|
set_pconfig(local_user(),'securemail','pkey',trim($_POST['securemail-pkey']));
|
||||||
|
$enable = ((x($_POST,'securemail-enable')) ? 1 : 0);
|
||||||
|
set_pconfig(local_user(),'securemail','enable', $enable);
|
||||||
|
info( t('Secure Mail Settings saved.') . 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');
|
||||||
|
|
||||||
|
$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
|
||||||
|
$txt_encrypted = $gpg->encrypt($pub_key,$b['textVersion']);
|
||||||
|
$html_encrypted = $gpg->encrypt($pub_key,$b['htmlVersion']);
|
||||||
|
|
||||||
|
$b['textVersion'] = $txt_encrypted;
|
||||||
|
$b['htmlVersion'] = $html_encrypted;
|
||||||
|
#var_dump($b);
|
||||||
|
}
|
||||||
Loading…
Reference in a new issue