| 1 |  |  | <?php | 
            
                                                                                                            
                            
            
                                    
            
            
                | 2 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 3 |  |  | require_once ( __DIR__ . "/../Tiqr/Random.php"); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 4 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 5 |  |  | class OATH_OCRAParser { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 6 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 7 |  |  | 	private $key = NULL; | 
                            
                    |  |  |  | 
                                                                                        
                                                                                     | 
            
                                                                                                            
                            
            
                                    
            
            
                | 8 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 9 |  |  | 	private $OCRASuite = NULL; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 10 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 11 |  |  | 	private $OCRAVersion = NULL; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 12 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 13 |  |  | 	private $CryptoFunctionType = NULL; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 14 |  |  | 	private $CryptoFunctionHash = NULL; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 15 |  |  | 	private $CryptoFunctionHashLength = NULL; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 16 |  |  | 	private $CryptoFunctionTruncation = NULL; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 17 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 18 |  |  | 	private $C = FALSE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 19 |  |  | 	private $Q = FALSE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 20 |  |  | 	private $QType = 'N'; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 21 |  |  | 	private $QLength = 8; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 22 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 23 |  |  | 	private $P = FALSE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 24 |  |  | 	private $PType = 'SHA1'; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 25 |  |  | 	private $PLength = 20; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 26 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 27 |  |  | 	private $S = FALSE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 28 |  |  | 	private $SLength = 64; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 29 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 30 |  |  | 	private $T = FALSE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 31 |  |  | 	private $TLength = 60; // 1M | 
            
                                                                                                            
                            
            
                                    
            
            
                | 32 |  |  | 	private $TPeriods = array('H' => 3600, 'M' => 60, 'S' => 1); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 33 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 34 |  |  | 	private $supportedHashFunctions = array('SHA1' => 20, 'SHA256' => 32, 'SHA512' => 64); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 35 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 36 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 37 | 8 |  | 	public function __construct($ocraSuite) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 38 | 8 |  | 		$this->parseOCRASuite($ocraSuite); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 39 | 8 |  | 	} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 40 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 41 |  |  | 	/** | 
            
                                                                                                            
                            
            
                                    
            
            
                | 42 |  |  | 	 * Inspired by https://github.com/bdauvergne/python-oath | 
            
                                                                                                            
                            
            
                                    
            
            
                | 43 |  |  | 	 */ | 
            
                                                                                                            
                            
            
                                    
            
            
                | 44 | 8 |  | 	private function parseOCRASuite($ocraSuite) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 45 | 8 |  | 		if (!is_string($ocraSuite)) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 46 |  |  | 			throw new Exception('OCRASuite not in string format: ' . var_export($ocraSuite, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 47 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 48 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 49 | 8 |  | 		$ocraSuite = strtoupper($ocraSuite); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 50 | 8 |  | 		$this->OCRASuite = $ocraSuite; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 51 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 52 | 8 |  | 		$s = explode(':', $ocraSuite); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 53 | 8 |  | 		if (count($s) != 3) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 54 |  |  | 			throw new Exception('Invalid OCRASuite format: ' . var_export($ocraSuite, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 55 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 56 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 57 | 8 |  | 		$algo = explode('-', $s[0]); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 58 | 8 |  | 		if (count($algo) != 2) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 59 |  |  | 			throw new Exception('Invalid OCRA version: ' . var_export($s[0], TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 60 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 61 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 62 | 8 |  | 		if ($algo[0] !== 'OCRA') { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 63 |  |  | 			throw new Exception('Unsupported OCRA algorithm: ' . var_export($algo[0], TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 64 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 65 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 66 | 8 |  | 		if ($algo[1] !== '1') { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 67 |  |  | 			throw new Exception('Unsupported OCRA version: ' . var_export($algo[1], TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 68 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 69 | 8 |  | 		$this->OCRAVersion = $algo[1]; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 70 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 71 | 8 |  | 		$cf = explode('-', $s[1]); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 72 | 8 |  | 		if (count($cf) != 3) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 73 |  |  | 			throw new Exception('Invalid OCRA suite crypto function: ' . var_export($s[1], TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 74 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 75 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 76 | 8 |  | 		if ($cf[0] !== 'HOTP') { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 77 |  |  | 			throw new Exception('Unsupported OCRA suite crypto function: ' . var_export($cf[0], TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 78 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 79 | 8 |  | 		$this->CryptoFunctionType = $cf[0]; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 80 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 81 | 8 |  | 		if (!array_key_exists($cf[1], $this->supportedHashFunctions)) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 82 |  |  | 			throw new Exception('Unsupported hash function in OCRA suite crypto function: ' . var_export($cf[1], TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 83 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 84 | 8 |  | 		$this->CryptoFunctionHash = $cf[1]; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 85 | 8 |  | 		$this->CryptoFunctionHashLength = $this->supportedHashFunctions[$cf[1]]; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 86 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 87 | 8 |  | 		if (!preg_match('/^\d+$/', $cf[2]) || (($cf[2] < 4 || $cf[2] > 10) && $cf[2] != 0)) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 88 |  |  | 			throw new Exception('Invalid OCRA suite crypto function truncation length: ' . var_export($cf[2], TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 89 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 90 | 8 |  | 		$this->CryptoFunctionTruncation = intval($cf[2]); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 91 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 92 | 8 |  | 		$di = explode('-', $s[2]); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 93 | 8 |  | 		if (count($cf) == 0) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 94 |  |  | 			throw new Exception('Invalid OCRA suite data input: ' . var_export($s[2], TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 95 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 96 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 97 | 8 |  | 		$data_input = array(); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 98 | 8 |  | 		foreach($di as $elem) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 99 | 8 |  | 			$letter = $elem[0]; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 100 | 8 |  | 			if (array_key_exists($letter, $data_input)) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 101 |  |  | 				throw new Exception('Duplicate field in OCRA suite data input: ' . var_export($elem, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 102 |  |  | 			} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 103 | 8 |  | 			$data_input[$letter] = 1; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 104 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 105 | 8 |  | 			if ($letter === 'C' && strlen($elem) == 1) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 106 |  |  | 				$this->C = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 107 | 8 |  | 			} elseif ($letter === 'Q') { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 108 | 8 |  | 				if (strlen($elem) == 1) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 109 |  |  | 					$this->Q = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 110 | 8 |  | 				} elseif (preg_match('/^Q([AHN])(\d+)$/', $elem, $match)) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 111 | 8 |  | 					$q_len = intval($match[2]); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 112 | 8 |  | 					if ($q_len < 4 || $q_len > 64) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 113 |  |  | 						throw new Exception('Invalid OCRA suite data input question length: ' . var_export($q_len, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 114 |  |  | 					} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 115 | 8 |  | 					$this->Q = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 116 | 8 |  | 					$this->QType = $match[1]; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 117 | 8 |  | 					$this->QLength = $q_len; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 118 |  |  | 				} else { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 119 | 8 |  | 					throw new Exception('Invalid OCRA suite data input question: ' . var_export($elem, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 120 |  |  | 				} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 121 | 8 |  | 			} elseif ($letter === 'P') { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 122 |  |  | 				if (strlen($elem) == 1) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 123 |  |  | 					$this->P = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 124 |  |  | 				} else { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 125 |  |  | 					$p_algo = substr($elem, 1); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 126 |  |  | 					if (!array_key_exists($p_algo, $this->supportedHashFunctions)) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 127 |  |  | 						throw new Exception('Unsupported OCRA suite PIN hash function: ' . var_export($elem, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 128 |  |  | 					} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 129 |  |  | 					$this->P = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 130 |  |  | 					$this->PType = $p_algo; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 131 |  |  | 					$this->PLength = $this->supportedHashFunctions[$p_algo]; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 132 |  |  | 				} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 133 | 8 |  | 			} elseif ($letter === 'S') { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 134 | 8 |  | 				if (strlen($elem) == 1) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 135 | 8 |  | 					$this->S = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 136 |  |  | 				} elseif (preg_match('/^S(\d+)$/', $elem, $match)) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 137 |  |  | 					$s_len = intval($match[1]); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 138 |  |  | 					if ($s_len <= 0 || $s_len > 512) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 139 |  |  | 						throw new Exception('Invalid OCRA suite data input session information length: ' . var_export($s_len, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 140 |  |  | 					} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 141 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 142 |  |  | 					$this->S = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 143 |  |  | 					$this->SLength = $s_len; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 144 |  |  | 				} else { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 145 | 8 |  | 					throw new Exception('Invalid OCRA suite data input session information length: ' . var_export($elem, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 146 |  |  | 				} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 147 |  |  | 			} elseif ($letter === 'T') { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 148 |  |  | 				if (strlen($elem) == 1) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 149 |  |  | 					$this->T = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 150 |  |  | 				} elseif (preg_match('/^T(\d+[HMS])+$/', $elem)) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 151 |  |  | 					preg_match_all('/(\d+)([HMS])/', $elem, $match); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 152 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 153 |  |  | 					if (count($match[1]) !== count(array_unique($match[2]))) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 154 |  |  | 						throw new Exception('Duplicate definitions in OCRA suite data input timestamp: ' . var_export($elem, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 155 |  |  | 					} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 156 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 157 |  |  | 					$length = 0; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 158 |  |  | 					for ($i = 0; $i < count($match[1]); $i++) { | 
                            
                    |  |  |  | 
                                                                                        
                                                                                     | 
            
                                                                                                            
                            
            
                                    
            
            
                | 159 |  |  | 						$length += intval($match[1][$i]) * $this->TPeriods[$match[2][$i]]; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 160 |  |  | 					} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 161 |  |  | 					if ($length <= 0) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 162 |  |  | 						throw new Exception('Invalid OCRA suite data input timestamp: ' . var_export($elem, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 163 |  |  | 					} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 164 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 165 |  |  | 					$this->T = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 166 |  |  | 					$this->TLength = $length; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 167 |  |  | 				} else { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 168 |  |  | 					throw new Exception('Invalid OCRA suite data input timestamp: ' . var_export($elem, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 169 |  |  | 				} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 170 |  |  | 			} else { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 171 | 8 |  | 				throw new Exception('Unsupported OCRA suite data input field: ' . var_export($elem, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 172 |  |  | 			} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 173 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 174 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 175 | 8 |  | 		if (!$this->Q) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 176 |  |  | 			throw new Exception('OCRA suite data input question not defined: ' . var_export($s[2], TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 177 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 178 | 8 |  | 	} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 179 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 180 | 2 |  | 	public function generateChallenge() { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 181 | 2 |  | 		$q_length = $this->QLength; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 182 | 2 |  | 		$q_type = $this->QType; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 183 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 184 | 2 |  |         $bytes = Tiqr_Random::randomBytes($q_length); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 185 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 186 | 2 |  | 		switch($q_type) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 187 | 2 |  | 			case 'A': | 
            
                                                                                                            
                            
            
                                    
            
            
                | 188 |  |  | 				$challenge = base64_encode($bytes); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 189 |  |  | 				$tr = implode("", unpack('H*', $bytes)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 190 |  |  | 				$challenge = rtrim(strtr($challenge, '+/', $tr), '='); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 191 |  |  | 				break; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 192 | 2 |  | 			case 'H': | 
            
                                                                                                            
                            
            
                                    
            
            
                | 193 | 2 |  | 				$challenge = implode("", unpack('H*', $bytes)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 194 | 2 |  | 				break; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 195 |  |  | 			case 'N': | 
            
                                                                                                            
                            
            
                                    
            
            
                | 196 |  |  | 				$challenge = implode("", unpack('N*', $bytes)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 197 |  |  | 				break; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 198 |  |  | 			default: | 
            
                                                                                                            
                            
            
                                    
            
            
                | 199 |  |  | 				throw new Exception('Unsupported OCRASuite challenge type: ' . var_export($q_type, TRUE)); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 200 |  |  | 				break; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 201 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 202 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 203 | 2 |  | 		$challenge = substr($challenge, 0, $q_length); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 204 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 205 | 2 |  | 		return $challenge; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 206 |  |  | 	} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 207 |  |  |  | 
            
                                                                                                            
                                                                
            
                                    
            
            
                | 208 |  |  |  | 
            
                                                                        
                            
            
                                    
            
            
                | 209 | 4 |  | 	public function generateSessionInformation() { | 
            
                                                                        
                            
            
                                    
            
            
                | 210 | 4 |  | 		if (!$this->S) { | 
            
                                                                        
                            
            
                                    
            
            
                | 211 |  |  | 			throw new Exception('Session information not defined in OCRASuite: ' . var_export($this->OCRASuite, TRUE)); | 
            
                                                                        
                            
            
                                    
            
            
                | 212 |  |  | 		} | 
            
                                                                        
                            
            
                                    
            
            
                | 213 |  |  |  | 
            
                                                                        
                            
            
                                    
            
            
                | 214 | 4 |  | 		$s_length = $this->SLength; | 
            
                                                                        
                            
            
                                    
            
            
                | 215 | 4 |  |         $bytes = Tiqr_Random::randomBytes($s_length); | 
            
                                                                        
                            
            
                                    
            
            
                | 216 |  |  |  | 
            
                                                                        
                            
            
                                    
            
            
                | 217 |  |  | 		// The OCRA spec doesn't specify that the session data should be hexadecimal. | 
            
                                                                        
                            
            
                                    
            
            
                | 218 |  |  | 		// However the reference implementation in the RFC does treat it as hex. | 
            
                                                                        
                            
            
                                    
            
            
                | 219 | 4 |  | 		$session = bin2hex($bytes); | 
            
                                                                        
                            
            
                                    
            
            
                | 220 |  |  | 		 | 
            
                                                                        
                            
            
                                    
            
            
                | 221 | 4 |  | 		$session = substr($session, 0, $s_length); | 
            
                                                                        
                            
            
                                    
            
            
                | 222 |  |  | 		 | 
            
                                                                        
                            
            
                                    
            
            
                | 223 | 4 |  | 		return $session; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 224 |  |  | 	} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 225 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 226 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 227 |  |  | 	/** | 
            
                                                                                                            
                            
            
                                    
            
            
                | 228 |  |  | 	 * Constant time string comparison, see http://codahale.com/a-lesson-in-timing-attacks/ | 
            
                                                                                                            
                            
            
                                    
            
            
                | 229 |  |  | 	 */ | 
            
                                                                                                            
                            
            
                                    
            
            
                | 230 | 3 |  | 	public static function constEqual($s1, $s2) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 231 | 3 |  | 		if (strlen($s1) != strlen($s2)) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 232 | 1 |  | 			return FALSE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 233 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 234 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 235 | 3 |  | 		$result = TRUE; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 236 | 3 |  | 		$length = strlen($s1); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 237 | 3 |  | 		for ($i = 0; $i < $length; $i++) { | 
            
                                                                                                            
                            
            
                                    
            
            
                | 238 | 3 |  | 			$result &= ($s1[$i] == $s2[$i]); | 
            
                                                                                                            
                            
            
                                    
            
            
                | 239 |  |  | 		} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 240 |  |  |  | 
            
                                                                                                            
                            
            
                                    
            
            
                | 241 | 3 |  | 		return (boolean)$result; | 
            
                                                                                                            
                            
            
                                    
            
            
                | 242 |  |  | 	} | 
            
                                                                                                            
                            
            
                                    
            
            
                | 243 |  |  |  | 
            
                                                                                                            
                                                                
            
                                    
            
            
                | 244 |  |  | } | 
            
                                                        
            
                                    
            
            
                | 245 |  |  |  |