forked from GNUsocial/gnu-social
Merge branch 'master' of gitorious.org:statusnet/mainline
This commit is contained in:
commit
a0c669808e
104
extlib/Auth/SASL.php
Normal file
104
extlib/Auth/SASL.php
Normal file
@ -0,0 +1,104 @@
|
|||||||
|
<?php
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 2002-2003 Richard Heyes |
|
||||||
|
// | All rights reserved. |
|
||||||
|
// | |
|
||||||
|
// | Redistribution and use in source and binary forms, with or without |
|
||||||
|
// | modification, are permitted provided that the following conditions |
|
||||||
|
// | are met: |
|
||||||
|
// | |
|
||||||
|
// | o Redistributions of source code must retain the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer. |
|
||||||
|
// | o Redistributions in binary form must reproduce the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer in the |
|
||||||
|
// | documentation and/or other materials provided with the distribution.|
|
||||||
|
// | o The names of the authors may not be used to endorse or promote |
|
||||||
|
// | products derived from this software without specific prior written |
|
||||||
|
// | permission. |
|
||||||
|
// | |
|
||||||
|
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
||||||
|
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
||||||
|
// | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
||||||
|
// | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
||||||
|
// | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
||||||
|
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
||||||
|
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
||||||
|
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
||||||
|
// | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
||||||
|
// | |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Author: Richard Heyes <richard@php.net> |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: SASL.php 286825 2009-08-05 06:23:42Z cweiske $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Client implementation of various SASL mechanisms
|
||||||
|
*
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @access public
|
||||||
|
* @version 1.0
|
||||||
|
* @package Auth_SASL
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once('PEAR.php');
|
||||||
|
|
||||||
|
class Auth_SASL
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Factory class. Returns an object of the request
|
||||||
|
* type.
|
||||||
|
*
|
||||||
|
* @param string $type One of: Anonymous
|
||||||
|
* Plain
|
||||||
|
* CramMD5
|
||||||
|
* DigestMD5
|
||||||
|
* Types are not case sensitive
|
||||||
|
*/
|
||||||
|
function &factory($type)
|
||||||
|
{
|
||||||
|
switch (strtolower($type)) {
|
||||||
|
case 'anonymous':
|
||||||
|
$filename = 'Auth/SASL/Anonymous.php';
|
||||||
|
$classname = 'Auth_SASL_Anonymous';
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'login':
|
||||||
|
$filename = 'Auth/SASL/Login.php';
|
||||||
|
$classname = 'Auth_SASL_Login';
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'plain':
|
||||||
|
$filename = 'Auth/SASL/Plain.php';
|
||||||
|
$classname = 'Auth_SASL_Plain';
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'external':
|
||||||
|
$filename = 'Auth/SASL/External.php';
|
||||||
|
$classname = 'Auth_SASL_External';
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'crammd5':
|
||||||
|
$filename = 'Auth/SASL/CramMD5.php';
|
||||||
|
$classname = 'Auth_SASL_CramMD5';
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'digestmd5':
|
||||||
|
$filename = 'Auth/SASL/DigestMD5.php';
|
||||||
|
$classname = 'Auth_SASL_DigestMD5';
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
return PEAR::raiseError('Invalid SASL mechanism type');
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
require_once($filename);
|
||||||
|
$obj = new $classname();
|
||||||
|
return $obj;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
71
extlib/Auth/SASL/Anonymous.php
Normal file
71
extlib/Auth/SASL/Anonymous.php
Normal file
@ -0,0 +1,71 @@
|
|||||||
|
<?php
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 2002-2003 Richard Heyes |
|
||||||
|
// | All rights reserved. |
|
||||||
|
// | |
|
||||||
|
// | Redistribution and use in source and binary forms, with or without |
|
||||||
|
// | modification, are permitted provided that the following conditions |
|
||||||
|
// | are met: |
|
||||||
|
// | |
|
||||||
|
// | o Redistributions of source code must retain the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer. |
|
||||||
|
// | o Redistributions in binary form must reproduce the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer in the |
|
||||||
|
// | documentation and/or other materials provided with the distribution.|
|
||||||
|
// | o The names of the authors may not be used to endorse or promote |
|
||||||
|
// | products derived from this software without specific prior written |
|
||||||
|
// | permission. |
|
||||||
|
// | |
|
||||||
|
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
||||||
|
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
||||||
|
// | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
||||||
|
// | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
||||||
|
// | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
||||||
|
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
||||||
|
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
||||||
|
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
||||||
|
// | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
||||||
|
// | |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Author: Richard Heyes <richard@php.net> |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Anonymous.php 286825 2009-08-05 06:23:42Z cweiske $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implmentation of ANONYMOUS SASL mechanism
|
||||||
|
*
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @access public
|
||||||
|
* @version 1.0
|
||||||
|
* @package Auth_SASL
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once('Auth/SASL/Common.php');
|
||||||
|
|
||||||
|
class Auth_SASL_Anonymous extends Auth_SASL_Common
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Not much to do here except return the token supplied.
|
||||||
|
* No encoding, hashing or encryption takes place for this
|
||||||
|
* mechanism, simply one of:
|
||||||
|
* o An email address
|
||||||
|
* o An opaque string not containing "@" that can be interpreted
|
||||||
|
* by the sysadmin
|
||||||
|
* o Nothing
|
||||||
|
*
|
||||||
|
* We could have some logic here for the second option, but this
|
||||||
|
* would by no means create something interpretable.
|
||||||
|
*
|
||||||
|
* @param string $token Optional email address or string to provide
|
||||||
|
* as trace information.
|
||||||
|
* @return string The unaltered input token
|
||||||
|
*/
|
||||||
|
function getResponse($token = '')
|
||||||
|
{
|
||||||
|
return $token;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
74
extlib/Auth/SASL/Common.php
Normal file
74
extlib/Auth/SASL/Common.php
Normal file
@ -0,0 +1,74 @@
|
|||||||
|
<?php
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 2002-2003 Richard Heyes |
|
||||||
|
// | All rights reserved. |
|
||||||
|
// | |
|
||||||
|
// | Redistribution and use in source and binary forms, with or without |
|
||||||
|
// | modification, are permitted provided that the following conditions |
|
||||||
|
// | are met: |
|
||||||
|
// | |
|
||||||
|
// | o Redistributions of source code must retain the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer. |
|
||||||
|
// | o Redistributions in binary form must reproduce the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer in the |
|
||||||
|
// | documentation and/or other materials provided with the distribution.|
|
||||||
|
// | o The names of the authors may not be used to endorse or promote |
|
||||||
|
// | products derived from this software without specific prior written |
|
||||||
|
// | permission. |
|
||||||
|
// | |
|
||||||
|
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
||||||
|
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
||||||
|
// | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
||||||
|
// | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
||||||
|
// | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
||||||
|
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
||||||
|
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
||||||
|
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
||||||
|
// | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
||||||
|
// | |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Author: Richard Heyes <richard@php.net> |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Common.php 286825 2009-08-05 06:23:42Z cweiske $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Common functionality to SASL mechanisms
|
||||||
|
*
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @access public
|
||||||
|
* @version 1.0
|
||||||
|
* @package Auth_SASL
|
||||||
|
*/
|
||||||
|
|
||||||
|
class Auth_SASL_Common
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Function which implements HMAC MD5 digest
|
||||||
|
*
|
||||||
|
* @param string $key The secret key
|
||||||
|
* @param string $data The data to protect
|
||||||
|
* @return string The HMAC MD5 digest
|
||||||
|
*/
|
||||||
|
function _HMAC_MD5($key, $data)
|
||||||
|
{
|
||||||
|
if (strlen($key) > 64) {
|
||||||
|
$key = pack('H32', md5($key));
|
||||||
|
}
|
||||||
|
|
||||||
|
if (strlen($key) < 64) {
|
||||||
|
$key = str_pad($key, 64, chr(0));
|
||||||
|
}
|
||||||
|
|
||||||
|
$k_ipad = substr($key, 0, 64) ^ str_repeat(chr(0x36), 64);
|
||||||
|
$k_opad = substr($key, 0, 64) ^ str_repeat(chr(0x5C), 64);
|
||||||
|
|
||||||
|
$inner = pack('H32', md5($k_ipad . $data));
|
||||||
|
$digest = md5($k_opad . $inner);
|
||||||
|
|
||||||
|
return $digest;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
68
extlib/Auth/SASL/CramMD5.php
Normal file
68
extlib/Auth/SASL/CramMD5.php
Normal file
@ -0,0 +1,68 @@
|
|||||||
|
<?php
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 2002-2003 Richard Heyes |
|
||||||
|
// | All rights reserved. |
|
||||||
|
// | |
|
||||||
|
// | Redistribution and use in source and binary forms, with or without |
|
||||||
|
// | modification, are permitted provided that the following conditions |
|
||||||
|
// | are met: |
|
||||||
|
// | |
|
||||||
|
// | o Redistributions of source code must retain the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer. |
|
||||||
|
// | o Redistributions in binary form must reproduce the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer in the |
|
||||||
|
// | documentation and/or other materials provided with the distribution.|
|
||||||
|
// | o The names of the authors may not be used to endorse or promote |
|
||||||
|
// | products derived from this software without specific prior written |
|
||||||
|
// | permission. |
|
||||||
|
// | |
|
||||||
|
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
||||||
|
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
||||||
|
// | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
||||||
|
// | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
||||||
|
// | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
||||||
|
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
||||||
|
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
||||||
|
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
||||||
|
// | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
||||||
|
// | |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Author: Richard Heyes <richard@php.net> |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: CramMD5.php 286825 2009-08-05 06:23:42Z cweiske $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implmentation of CRAM-MD5 SASL mechanism
|
||||||
|
*
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @access public
|
||||||
|
* @version 1.0
|
||||||
|
* @package Auth_SASL
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once('Auth/SASL/Common.php');
|
||||||
|
|
||||||
|
class Auth_SASL_CramMD5 extends Auth_SASL_Common
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Implements the CRAM-MD5 SASL mechanism
|
||||||
|
* This DOES NOT base64 encode the return value,
|
||||||
|
* you will need to do that yourself.
|
||||||
|
*
|
||||||
|
* @param string $user Username
|
||||||
|
* @param string $pass Password
|
||||||
|
* @param string $challenge The challenge supplied by the server.
|
||||||
|
* this should be already base64_decoded.
|
||||||
|
*
|
||||||
|
* @return string The string to pass back to the server, of the form
|
||||||
|
* "<user> <digest>". This is NOT base64_encoded.
|
||||||
|
*/
|
||||||
|
function getResponse($user, $pass, $challenge)
|
||||||
|
{
|
||||||
|
return $user . ' ' . $this->_HMAC_MD5($pass, $challenge);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
197
extlib/Auth/SASL/DigestMD5.php
Normal file
197
extlib/Auth/SASL/DigestMD5.php
Normal file
@ -0,0 +1,197 @@
|
|||||||
|
<?php
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 2002-2003 Richard Heyes |
|
||||||
|
// | All rights reserved. |
|
||||||
|
// | |
|
||||||
|
// | Redistribution and use in source and binary forms, with or without |
|
||||||
|
// | modification, are permitted provided that the following conditions |
|
||||||
|
// | are met: |
|
||||||
|
// | |
|
||||||
|
// | o Redistributions of source code must retain the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer. |
|
||||||
|
// | o Redistributions in binary form must reproduce the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer in the |
|
||||||
|
// | documentation and/or other materials provided with the distribution.|
|
||||||
|
// | o The names of the authors may not be used to endorse or promote |
|
||||||
|
// | products derived from this software without specific prior written |
|
||||||
|
// | permission. |
|
||||||
|
// | |
|
||||||
|
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
||||||
|
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
||||||
|
// | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
||||||
|
// | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
||||||
|
// | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
||||||
|
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
||||||
|
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
||||||
|
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
||||||
|
// | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
||||||
|
// | |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Author: Richard Heyes <richard@php.net> |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: DigestMD5.php 294702 2010-02-07 16:03:55Z cweiske $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implmentation of DIGEST-MD5 SASL mechanism
|
||||||
|
*
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @access public
|
||||||
|
* @version 1.0
|
||||||
|
* @package Auth_SASL
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once('Auth/SASL/Common.php');
|
||||||
|
|
||||||
|
class Auth_SASL_DigestMD5 extends Auth_SASL_Common
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Provides the (main) client response for DIGEST-MD5
|
||||||
|
* requires a few extra parameters than the other
|
||||||
|
* mechanisms, which are unavoidable.
|
||||||
|
*
|
||||||
|
* @param string $authcid Authentication id (username)
|
||||||
|
* @param string $pass Password
|
||||||
|
* @param string $challenge The digest challenge sent by the server
|
||||||
|
* @param string $hostname The hostname of the machine you're connecting to
|
||||||
|
* @param string $service The servicename (eg. imap, pop, acap etc)
|
||||||
|
* @param string $authzid Authorization id (username to proxy as)
|
||||||
|
* @return string The digest response (NOT base64 encoded)
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getResponse($authcid, $pass, $challenge, $hostname, $service, $authzid = '')
|
||||||
|
{
|
||||||
|
$challenge = $this->_parseChallenge($challenge);
|
||||||
|
$authzid_string = '';
|
||||||
|
if ($authzid != '') {
|
||||||
|
$authzid_string = ',authzid="' . $authzid . '"';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!empty($challenge)) {
|
||||||
|
$cnonce = $this->_getCnonce();
|
||||||
|
$digest_uri = sprintf('%s/%s', $service, $hostname);
|
||||||
|
$response_value = $this->_getResponseValue($authcid, $pass, $challenge['realm'], $challenge['nonce'], $cnonce, $digest_uri, $authzid);
|
||||||
|
|
||||||
|
if ($challenge['realm']) {
|
||||||
|
return sprintf('username="%s",realm="%s"' . $authzid_string .
|
||||||
|
',nonce="%s",cnonce="%s",nc=00000001,qop=auth,digest-uri="%s",response=%s,maxbuf=%d', $authcid, $challenge['realm'], $challenge['nonce'], $cnonce, $digest_uri, $response_value, $challenge['maxbuf']);
|
||||||
|
} else {
|
||||||
|
return sprintf('username="%s"' . $authzid_string . ',nonce="%s",cnonce="%s",nc=00000001,qop=auth,digest-uri="%s",response=%s,maxbuf=%d', $authcid, $challenge['nonce'], $cnonce, $digest_uri, $response_value, $challenge['maxbuf']);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return PEAR::raiseError('Invalid digest challenge');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Parses and verifies the digest challenge*
|
||||||
|
*
|
||||||
|
* @param string $challenge The digest challenge
|
||||||
|
* @return array The parsed challenge as an assoc
|
||||||
|
* array in the form "directive => value".
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _parseChallenge($challenge)
|
||||||
|
{
|
||||||
|
$tokens = array();
|
||||||
|
while (preg_match('/^([a-z-]+)=("[^"]+(?<!\\\)"|[^,]+)/i', $challenge, $matches)) {
|
||||||
|
|
||||||
|
// Ignore these as per rfc2831
|
||||||
|
if ($matches[1] == 'opaque' OR $matches[1] == 'domain') {
|
||||||
|
$challenge = substr($challenge, strlen($matches[0]) + 1);
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Allowed multiple "realm" and "auth-param"
|
||||||
|
if (!empty($tokens[$matches[1]]) AND ($matches[1] == 'realm' OR $matches[1] == 'auth-param')) {
|
||||||
|
if (is_array($tokens[$matches[1]])) {
|
||||||
|
$tokens[$matches[1]][] = preg_replace('/^"(.*)"$/', '\\1', $matches[2]);
|
||||||
|
} else {
|
||||||
|
$tokens[$matches[1]] = array($tokens[$matches[1]], preg_replace('/^"(.*)"$/', '\\1', $matches[2]));
|
||||||
|
}
|
||||||
|
|
||||||
|
// Any other multiple instance = failure
|
||||||
|
} elseif (!empty($tokens[$matches[1]])) {
|
||||||
|
$tokens = array();
|
||||||
|
break;
|
||||||
|
|
||||||
|
} else {
|
||||||
|
$tokens[$matches[1]] = preg_replace('/^"(.*)"$/', '\\1', $matches[2]);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Remove the just parsed directive from the challenge
|
||||||
|
$challenge = substr($challenge, strlen($matches[0]) + 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Defaults and required directives
|
||||||
|
*/
|
||||||
|
// Realm
|
||||||
|
if (empty($tokens['realm'])) {
|
||||||
|
$tokens['realm'] = "";
|
||||||
|
}
|
||||||
|
|
||||||
|
// Maxbuf
|
||||||
|
if (empty($tokens['maxbuf'])) {
|
||||||
|
$tokens['maxbuf'] = 65536;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Required: nonce, algorithm
|
||||||
|
if (empty($tokens['nonce']) OR empty($tokens['algorithm'])) {
|
||||||
|
return array();
|
||||||
|
}
|
||||||
|
|
||||||
|
return $tokens;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates the response= part of the digest response
|
||||||
|
*
|
||||||
|
* @param string $authcid Authentication id (username)
|
||||||
|
* @param string $pass Password
|
||||||
|
* @param string $realm Realm as provided by the server
|
||||||
|
* @param string $nonce Nonce as provided by the server
|
||||||
|
* @param string $cnonce Client nonce
|
||||||
|
* @param string $digest_uri The digest-uri= value part of the response
|
||||||
|
* @param string $authzid Authorization id
|
||||||
|
* @return string The response= part of the digest response
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _getResponseValue($authcid, $pass, $realm, $nonce, $cnonce, $digest_uri, $authzid = '')
|
||||||
|
{
|
||||||
|
if ($authzid == '') {
|
||||||
|
$A1 = sprintf('%s:%s:%s', pack('H32', md5(sprintf('%s:%s:%s', $authcid, $realm, $pass))), $nonce, $cnonce);
|
||||||
|
} else {
|
||||||
|
$A1 = sprintf('%s:%s:%s:%s', pack('H32', md5(sprintf('%s:%s:%s', $authcid, $realm, $pass))), $nonce, $cnonce, $authzid);
|
||||||
|
}
|
||||||
|
$A2 = 'AUTHENTICATE:' . $digest_uri;
|
||||||
|
return md5(sprintf('%s:%s:00000001:%s:auth:%s', md5($A1), $nonce, $cnonce, md5($A2)));
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates the client nonce for the response
|
||||||
|
*
|
||||||
|
* @return string The cnonce value
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _getCnonce()
|
||||||
|
{
|
||||||
|
if (@file_exists('/dev/urandom') && $fd = @fopen('/dev/urandom', 'r')) {
|
||||||
|
return base64_encode(fread($fd, 32));
|
||||||
|
|
||||||
|
} elseif (@file_exists('/dev/random') && $fd = @fopen('/dev/random', 'r')) {
|
||||||
|
return base64_encode(fread($fd, 32));
|
||||||
|
|
||||||
|
} else {
|
||||||
|
$str = '';
|
||||||
|
for ($i=0; $i<32; $i++) {
|
||||||
|
$str .= chr(mt_rand(0, 255));
|
||||||
|
}
|
||||||
|
|
||||||
|
return base64_encode($str);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
63
extlib/Auth/SASL/External.php
Normal file
63
extlib/Auth/SASL/External.php
Normal file
@ -0,0 +1,63 @@
|
|||||||
|
<?php
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 2008 Christoph Schulz |
|
||||||
|
// | All rights reserved. |
|
||||||
|
// | |
|
||||||
|
// | Redistribution and use in source and binary forms, with or without |
|
||||||
|
// | modification, are permitted provided that the following conditions |
|
||||||
|
// | are met: |
|
||||||
|
// | |
|
||||||
|
// | o Redistributions of source code must retain the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer. |
|
||||||
|
// | o Redistributions in binary form must reproduce the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer in the |
|
||||||
|
// | documentation and/or other materials provided with the distribution.|
|
||||||
|
// | o The names of the authors may not be used to endorse or promote |
|
||||||
|
// | products derived from this software without specific prior written |
|
||||||
|
// | permission. |
|
||||||
|
// | |
|
||||||
|
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
||||||
|
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
||||||
|
// | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
||||||
|
// | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
||||||
|
// | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
||||||
|
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
||||||
|
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
||||||
|
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
||||||
|
// | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
||||||
|
// | |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Author: Christoph Schulz <develop@kristov.de> |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: External.php 286825 2009-08-05 06:23:42Z cweiske $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implmentation of EXTERNAL SASL mechanism
|
||||||
|
*
|
||||||
|
* @author Christoph Schulz <develop@kristov.de>
|
||||||
|
* @access public
|
||||||
|
* @version 1.0.3
|
||||||
|
* @package Auth_SASL
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once('Auth/SASL/Common.php');
|
||||||
|
|
||||||
|
class Auth_SASL_External extends Auth_SASL_Common
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Returns EXTERNAL response
|
||||||
|
*
|
||||||
|
* @param string $authcid Authentication id (username)
|
||||||
|
* @param string $pass Password
|
||||||
|
* @param string $authzid Autorization id
|
||||||
|
* @return string EXTERNAL Response
|
||||||
|
*/
|
||||||
|
function getResponse($authcid, $pass, $authzid = '')
|
||||||
|
{
|
||||||
|
return $authzid;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
65
extlib/Auth/SASL/Login.php
Normal file
65
extlib/Auth/SASL/Login.php
Normal file
@ -0,0 +1,65 @@
|
|||||||
|
<?php
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 2002-2003 Richard Heyes |
|
||||||
|
// | All rights reserved. |
|
||||||
|
// | |
|
||||||
|
// | Redistribution and use in source and binary forms, with or without |
|
||||||
|
// | modification, are permitted provided that the following conditions |
|
||||||
|
// | are met: |
|
||||||
|
// | |
|
||||||
|
// | o Redistributions of source code must retain the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer. |
|
||||||
|
// | o Redistributions in binary form must reproduce the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer in the |
|
||||||
|
// | documentation and/or other materials provided with the distribution.|
|
||||||
|
// | o The names of the authors may not be used to endorse or promote |
|
||||||
|
// | products derived from this software without specific prior written |
|
||||||
|
// | permission. |
|
||||||
|
// | |
|
||||||
|
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
||||||
|
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
||||||
|
// | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
||||||
|
// | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
||||||
|
// | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
||||||
|
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
||||||
|
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
||||||
|
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
||||||
|
// | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
||||||
|
// | |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Author: Richard Heyes <richard@php.net> |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Login.php 286825 2009-08-05 06:23:42Z cweiske $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This is technically not a SASL mechanism, however
|
||||||
|
* it's used by Net_Sieve, Net_Cyrus and potentially
|
||||||
|
* other protocols , so here is a good place to abstract
|
||||||
|
* it.
|
||||||
|
*
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @access public
|
||||||
|
* @version 1.0
|
||||||
|
* @package Auth_SASL
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once('Auth/SASL/Common.php');
|
||||||
|
|
||||||
|
class Auth_SASL_Login extends Auth_SASL_Common
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Pseudo SASL LOGIN mechanism
|
||||||
|
*
|
||||||
|
* @param string $user Username
|
||||||
|
* @param string $pass Password
|
||||||
|
* @return string LOGIN string
|
||||||
|
*/
|
||||||
|
function getResponse($user, $pass)
|
||||||
|
{
|
||||||
|
return sprintf('LOGIN %s %s', $user, $pass);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
63
extlib/Auth/SASL/Plain.php
Normal file
63
extlib/Auth/SASL/Plain.php
Normal file
@ -0,0 +1,63 @@
|
|||||||
|
<?php
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 2002-2003 Richard Heyes |
|
||||||
|
// | All rights reserved. |
|
||||||
|
// | |
|
||||||
|
// | Redistribution and use in source and binary forms, with or without |
|
||||||
|
// | modification, are permitted provided that the following conditions |
|
||||||
|
// | are met: |
|
||||||
|
// | |
|
||||||
|
// | o Redistributions of source code must retain the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer. |
|
||||||
|
// | o Redistributions in binary form must reproduce the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer in the |
|
||||||
|
// | documentation and/or other materials provided with the distribution.|
|
||||||
|
// | o The names of the authors may not be used to endorse or promote |
|
||||||
|
// | products derived from this software without specific prior written |
|
||||||
|
// | permission. |
|
||||||
|
// | |
|
||||||
|
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
||||||
|
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
||||||
|
// | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
||||||
|
// | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
||||||
|
// | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
||||||
|
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
||||||
|
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
||||||
|
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
||||||
|
// | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
||||||
|
// | |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Author: Richard Heyes <richard@php.net> |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Plain.php 286825 2009-08-05 06:23:42Z cweiske $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implmentation of PLAIN SASL mechanism
|
||||||
|
*
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @access public
|
||||||
|
* @version 1.0
|
||||||
|
* @package Auth_SASL
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once('Auth/SASL/Common.php');
|
||||||
|
|
||||||
|
class Auth_SASL_Plain extends Auth_SASL_Common
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Returns PLAIN response
|
||||||
|
*
|
||||||
|
* @param string $authcid Authentication id (username)
|
||||||
|
* @param string $pass Password
|
||||||
|
* @param string $authzid Autorization id
|
||||||
|
* @return string PLAIN Response
|
||||||
|
*/
|
||||||
|
function getResponse($authcid, $pass, $authzid = '')
|
||||||
|
{
|
||||||
|
return $authzid . chr(0) . $authcid . chr(0) . $pass;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
Loading…
Reference in New Issue
Block a user