includes/hmac.php
author Dan Fuhry <dan@enanocms.org>
Mon, 28 Jun 2010 13:33:09 -0400
changeset 1255 98954eecc5f8
parent 1227 bdac73ed481e
permissions -rw-r--r--
Oops, maybe I could set English back to LTR :)

<?php

/*
 * Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between
 * Copyright (C) 2006-2009 Dan Fuhry
 * hmac.php - HMAC cryptographic functions
 *
 * This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for details.
 */

function hmac_core($message, $key, $hashfunc)
{
	if ( strlen($key) % 2 == 1 )
		$key .= '0';
	
	if ( strlen($key) > 128 )
		$key = $hashfunc($key);
	
	while ( strlen($key) < 128 )
	{
		$key .= '00';
	}
	$opad = hmac_hexbytearray($key);
	$ipad = $opad;
	for ( $i = 0; $i < count($ipad); $i++ )
	{
		$opad[$i] = $opad[$i] ^ 0x5c;
		$ipad[$i] = $ipad[$i] ^ 0x36;
	}
	$opad = hmac_bytearraytostring($opad);
	$ipad = hmac_bytearraytostring($ipad);
	return $hashfunc($opad . hexdecode($hashfunc($ipad . $message)));
}

function hmac_hexbytearray($val)
{
	$val = hexdecode($val);
	return hmac_bytearray($val);
}

function hmac_bytearray($val)
{
	$val = str_split($val, 1);
	foreach ( $val as &$char )
	{
		$char = ord($char);
	}
	return $val;
}

function hmac_bytearraytostring($val)
{
	foreach ( $val as &$char )
	{
		$char = chr($char);
	}
	return implode('', $val);
}

function hmac_md5($message, $key)
{
	return hmac_core($message, $key, 'md5');
}

function hmac_sha1($message, $key)
{
	return hmac_core($message, $key, 'sha1');
}

function hmac_sha256($message, $key)
{
	require_once(ENANO_ROOT . '/includes/math.php');
	require_once(ENANO_ROOT . '/includes/diffiehellman.php');
	return hmac_core($message, $key, 'sha256');
}

?>