site_iri: web/drupal/modules/openid/openid.inc@0ff3ba646492 (annotated)

74 0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	1	<?php
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	2	// $Id: openid.inc,v 1.8 2008/01/30 22:11:22 goba Exp $
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	3
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	4	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	5	* @file
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	6	* OpenID utility functions.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	7	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	8
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	9	// Diffie-Hellman Key Exchange Default Value.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	10	define('OPENID_DH_DEFAULT_MOD', '155172898181473697471232257763715539915724801'.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	11	'966915404479707795314057629378541917580651227423698188993727816152646631'.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	12	'438561595825688188889951272158842675419950341258706556549803580104870537'.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	13	'681476726513255747040765857479291291572334510643245094715007229621094194'.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	14	'349783925984760375594985848253359305585439638443');
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	15
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	16	// Constants for Diffie-Hellman key exchange computations.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	17	define('OPENID_DH_DEFAULT_GEN', '2');
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	18	define('OPENID_SHA1_BLOCKSIZE', 64);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	19	define('OPENID_RAND_SOURCE', '/dev/urandom');
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	20
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	21	// OpenID namespace URLs
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	22	define('OPENID_NS_2_0', 'http://specs.openid.net/auth/2.0');
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	23	define('OPENID_NS_1_1', 'http://openid.net/signon/1.1');
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	24	define('OPENID_NS_1_0', 'http://openid.net/signon/1.0');
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	25
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	26	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	27	* Performs an HTTP 302 redirect (for the 1.x protocol).
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	28	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	29	function openid_redirect_http($url, $message) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	30	$query = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	31	foreach ($message as $key => $val) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	32	$query[] = $key .'='. urlencode($val);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	33	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	34
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	35	$sep = (strpos($url, '?') === FALSE) ? '?' : '&';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	36	header('Location: '. $url . $sep . implode('&', $query), TRUE, 302);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	37	exit;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	38	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	39
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	40	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	41	* Creates a js auto-submit redirect for (for the 2.x protocol)
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	42	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	43	function openid_redirect($url, $message) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	44	$output = '<html><head><title>'. t('OpenID redirect') ."</title></head>\n<body>";
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	45	$output .= drupal_get_form('openid_redirect_form', $url, $message);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	46	$output .= '<script type="text/javascript">document.getElementById("openid-redirect-form").submit();</script>';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	47	$output .= "</body></html>\n";
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	48	print $output;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	49	exit;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	50	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	51
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	52	function openid_redirect_form(&$form_state, $url, $message) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	53	$form = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	54	$form['#action'] = $url;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	55	$form['#method'] = "post";
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	56	foreach ($message as $key => $value) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	57	$form[$key] = array(
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	58	'#type' => 'hidden',
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	59	'#name' => $key,
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	60	'#value' => $value,
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	61	);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	62	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	63	$form['submit'] = array(
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	64	'#type' => 'submit',
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	65	'#prefix' => '<noscript>',
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	66	'#suffix' => '</noscript>',
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	67	'#value' => t('Send'),
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	68	);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	69
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	70	return $form;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	71	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	72
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	73	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	74	* Determine if the given identifier is an XRI ID.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	75	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	76	function _openid_is_xri($identifier) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	77	$firstchar = substr($identifier, 0, 1);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	78	if ($firstchar == "@" \|\| $firstchar == "=")
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	79	return TRUE;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	80
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	81	if (stristr($identifier, 'xri://') !== FALSE) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	82	return TRUE;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	83	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	84
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	85	return FALSE;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	86	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	87
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	88	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	89	* Normalize the given identifier as per spec.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	90	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	91	function _openid_normalize($identifier) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	92	if (_openid_is_xri($identifier)) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	93	return _openid_normalize_xri($identifier);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	94	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	95	else {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	96	return _openid_normalize_url($identifier);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	97	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	98	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	99
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	100	function _openid_normalize_xri($xri) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	101	$normalized_xri = $xri;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	102	if (stristr($xri, 'xri://') !== FALSE) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	103	$normalized_xri = substr($xri, 6);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	104	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	105	return $normalized_xri;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	106	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	107
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	108	function _openid_normalize_url($url) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	109	$normalized_url = $url;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	110
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	111	if (stristr($url, '://') === FALSE) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	112	$normalized_url = 'http://'. $url;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	113	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	114
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	115	if (substr_count($normalized_url, '/') < 3) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	116	$normalized_url .= '/';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	117	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	118
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	119	return $normalized_url;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	120	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	121
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	122	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	123	* Create a serialized message packet as per spec: $key:$value\n .
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	124	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	125	function _openid_create_message($data) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	126	$serialized = '';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	127
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	128	foreach ($data as $key => $value) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	129	if ((strpos($key, ':') !== FALSE) \|\| (strpos($key, "\n") !== FALSE) \|\| (strpos($value, "\n") !== FALSE)) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	130	return null;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	131	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	132	$serialized .= "$key:$value\n";
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	133	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	134	return $serialized;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	135	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	136
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	137	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	138	* Encode a message from _openid_create_message for HTTP Post
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	139	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	140	function _openid_encode_message($message) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	141	$encoded_message = '';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	142
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	143	$items = explode("\n", $message);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	144	foreach ($items as $item) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	145	$parts = explode(':', $item, 2);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	146
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	147	if (count($parts) == 2) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	148	if ($encoded_message != '') {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	149	$encoded_message .= '&';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	150	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	151	$encoded_message .= rawurlencode(trim($parts[0])) .'='. rawurlencode(trim($parts[1]));
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	152	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	153	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	154
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	155	return $encoded_message;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	156	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	157
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	158	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	159	* Convert a direct communication message
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	160	* into an associative array.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	161	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	162	function _openid_parse_message($message) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	163	$parsed_message = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	164
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	165	$items = explode("\n", $message);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	166	foreach ($items as $item) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	167	$parts = explode(':', $item, 2);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	168
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	169	if (count($parts) == 2) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	170	$parsed_message[$parts[0]] = $parts[1];
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	171	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	172	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	173
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	174	return $parsed_message;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	175	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	176
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	177	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	178	* Return a nonce value - formatted per OpenID spec.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	179	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	180	function _openid_nonce() {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	181	// YYYY-MM-DDThh:mm:ssTZD UTC, plus some optional extra unique chars
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	182	return gmstrftime('%Y-%m-%dT%H:%M:%S%Z') .
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	183	chr(mt_rand(0, 25) + 65) .
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	184	chr(mt_rand(0, 25) + 65) .
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	185	chr(mt_rand(0, 25) + 65) .
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	186	chr(mt_rand(0, 25) + 65);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	187	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	188
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	189	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	190	* Pull the href attribute out of an html link element.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	191	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	192	function _openid_link_href($rel, $html) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	193	$rel = preg_quote($rel);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	194	preg_match('\|<link\s+rel=["\'](.)'. $rel .'(.)["\'](.*)/?>\|iUs', $html, $matches);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	195	if (isset($matches[3])) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	196	preg_match('\|href=["\']([^"]+)["\']\|iU', $matches[3], $href);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	197	return trim($href[1]);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	198	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	199	return FALSE;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	200	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	201
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	202	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	203	* Pull the http-equiv attribute out of an html meta element
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	204	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	205	function _openid_meta_httpequiv($equiv, $html) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	206	preg_match('\|<meta\s+http-equiv=["\']'. $equiv .'["\'](.*)/?>\|iUs', $html, $matches);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	207	if (isset($matches[1])) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	208	preg_match('\|content=["\']([^"]+)["\']\|iUs', $matches[1], $content);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	209	if (isset($content[1])) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	210	return $content[1];
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	211	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	212	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	213	return FALSE;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	214	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	215
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	216	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	217	* Sign certain keys in a message
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	218	* @param $association - object loaded from openid_association or openid_server_association table
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	219	* - important fields are ->assoc_type and ->mac_key
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	220	* @param $message_array - array of entire message about to be sent
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	221	* @param $keys_to_sign - keys in the message to include in signature (without
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	222	* 'openid.' appended)
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	223	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	224	function _openid_signature($association, $message_array, $keys_to_sign) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	225	$signature = '';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	226	$sign_data = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	227
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	228	foreach ($keys_to_sign as $key) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	229	if (isset($message_array['openid.'. $key])) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	230	$sign_data[$key] = $message_array['openid.'. $key];
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	231	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	232	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	233
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	234	$message = _openid_create_message($sign_data);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	235	$secret = base64_decode($association->mac_key);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	236	$signature = _openid_hmac($secret, $message);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	237
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	238	return base64_encode($signature);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	239	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	240
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	241	function _openid_hmac($key, $text) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	242	if (strlen($key) > OPENID_SHA1_BLOCKSIZE) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	243	$key = _openid_sha1($key, true);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	244	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	245
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	246	$key = str_pad($key, OPENID_SHA1_BLOCKSIZE, chr(0x00));
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	247	$ipad = str_repeat(chr(0x36), OPENID_SHA1_BLOCKSIZE);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	248	$opad = str_repeat(chr(0x5c), OPENID_SHA1_BLOCKSIZE);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	249	$hash1 = _openid_sha1(($key ^ $ipad) . $text, true);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	250	$hmac = _openid_sha1(($key ^ $opad) . $hash1, true);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	251
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	252	return $hmac;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	253	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	254
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	255	function _openid_sha1($text) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	256	$hex = sha1($text);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	257	$raw = '';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	258	for ($i = 0; $i < 40; $i += 2) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	259	$hexcode = substr($hex, $i, 2);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	260	$charcode = (int)base_convert($hexcode, 16, 10);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	261	$raw .= chr($charcode);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	262	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	263	return $raw;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	264	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	265
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	266	function _openid_dh_base64_to_long($str) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	267	$b64 = base64_decode($str);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	268
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	269	return _openid_dh_binary_to_long($b64);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	270	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	271
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	272	function _openid_dh_long_to_base64($str) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	273	return base64_encode(_openid_dh_long_to_binary($str));
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	274	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	275
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	276	function _openid_dh_binary_to_long($str) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	277	$bytes = array_merge(unpack('C*', $str));
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	278
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	279	$n = 0;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	280	foreach ($bytes as $byte) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	281	$n = bcmul($n, pow(2, 8));
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	282	$n = bcadd($n, $byte);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	283	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	284
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	285	return $n;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	286	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	287
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	288	function _openid_dh_long_to_binary($long) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	289	$cmp = bccomp($long, 0);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	290	if ($cmp < 0) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	291	return FALSE;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	292	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	293
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	294	if ($cmp == 0) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	295	return "\x00";
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	296	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	297
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	298	$bytes = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	299
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	300	while (bccomp($long, 0) > 0) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	301	array_unshift($bytes, bcmod($long, 256));
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	302	$long = bcdiv($long, pow(2, 8));
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	303	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	304
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	305	if ($bytes && ($bytes[0] > 127)) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	306	array_unshift($bytes, 0);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	307	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	308
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	309	$string = '';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	310	foreach ($bytes as $byte) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	311	$string .= pack('C', $byte);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	312	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	313
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	314	return $string;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	315	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	316
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	317	function _openid_dh_xorsecret($shared, $secret) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	318	$dh_shared_str = _openid_dh_long_to_binary($shared);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	319	$sha1_dh_shared = _openid_sha1($dh_shared_str);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	320	$xsecret = "";
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	321	for ($i = 0; $i < strlen($secret); $i++) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	322	$xsecret .= chr(ord($secret[$i]) ^ ord($sha1_dh_shared[$i]));
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	323	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	324
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	325	return $xsecret;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	326	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	327
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	328	function _openid_dh_rand($stop) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	329	static $duplicate_cache = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	330
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	331	// Used as the key for the duplicate cache
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	332	$rbytes = _openid_dh_long_to_binary($stop);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	333
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	334	if (array_key_exists($rbytes, $duplicate_cache)) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	335	list($duplicate, $nbytes) = $duplicate_cache[$rbytes];
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	336	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	337	else {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	338	if ($rbytes[0] == "\x00") {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	339	$nbytes = strlen($rbytes) - 1;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	340	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	341	else {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	342	$nbytes = strlen($rbytes);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	343	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	344
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	345	$mxrand = bcpow(256, $nbytes);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	346
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	347	// If we get a number less than this, then it is in the
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	348	// duplicated range.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	349	$duplicate = bcmod($mxrand, $stop);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	350
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	351	if (count($duplicate_cache) > 10) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	352	$duplicate_cache = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	353	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	354
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	355	$duplicate_cache[$rbytes] = array($duplicate, $nbytes);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	356	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	357
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	358	do {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	359	$bytes = "\x00". _openid_get_bytes($nbytes);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	360	$n = _openid_dh_binary_to_long($bytes);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	361	// Keep looping if this value is in the low duplicated range.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	362	} while (bccomp($n, $duplicate) < 0);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	363
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	364	return bcmod($n, $stop);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	365	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	366
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	367	function _openid_get_bytes($num_bytes) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	368	static $f = null;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	369	$bytes = '';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	370	if (!isset($f)) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	371	$f = @fopen(OPENID_RAND_SOURCE, "r");
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	372	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	373	if (!$f) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	374	// pseudorandom used
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	375	$bytes = '';
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	376	for ($i = 0; $i < $num_bytes; $i += 4) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	377	$bytes .= pack('L', mt_rand());
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	378	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	379	$bytes = substr($bytes, 0, $num_bytes);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	380	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	381	else {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	382	$bytes = fread($f, $num_bytes);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	383	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	384	return $bytes;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	385	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	386
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	387	function _openid_response($str = NULL) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	388	$data = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	389
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	390	if (isset($_SERVER['REQUEST_METHOD'])) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	391	$data = _openid_get_params($_SERVER['QUERY_STRING']);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	392
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	393	if ($_SERVER['REQUEST_METHOD'] == 'POST') {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	394	$str = file_get_contents('php://input');
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	395
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	396	$post = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	397	if ($str !== false) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	398	$post = _openid_get_params($str);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	399	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	400
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	401	$data = array_merge($data, $post);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	402	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	403	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	404
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	405	return $data;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	406	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	407
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	408	function _openid_get_params($str) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	409	$chunks = explode("&", $str);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	410
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	411	$data = array();
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	412	foreach ($chunks as $chunk) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	413	$parts = explode("=", $chunk, 2);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	414
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	415	if (count($parts) == 2) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	416	list($k, $v) = $parts;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	417	$data[$k] = urldecode($v);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	418	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	419	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	420	return $data;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	421	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	422
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	423	/**
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	424	* Provide bcpowmod support for PHP4.
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	425	*/
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	426	if (!function_exists('bcpowmod')) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	427	function bcpowmod($base, $exp, $mod) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	428	$square = bcmod($base, $mod);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	429	$result = 1;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	430	while (bccomp($exp, 0) > 0) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	431	if (bcmod($exp, 2)) {
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	432	$result = bcmod(bcmul($result, $square), $mod);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	433	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	434	$square = bcmod(bcmul($square, $square), $mod);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	435	$exp = bcdiv($exp, 2);
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	436	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	437	return $result;
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	438	}
0ff3ba646492 Create branch for drupal with first commit from local working copy cavaliet@caf4f556-3d62-0410-8435-a86758001935 parents: diff changeset	439	}

author	cavaliet@caf4f556-3d62-0410-8435-a86758001935
	Fri, 21 Aug 2009 16:26:26 +0000
branch	drupal
changeset 74	0ff3ba646492
permissions	-rw-r--r--