From 3a5f406ff59a05c0eddda191127d58b39cb8049b Mon Sep 17 00:00:00 2001
From: cassiopc <cassiopc@gmail.com>
Date: Wed, 24 Oct 2012 09:56:07 +0200
Subject: open dir for 1.5.2. I still must split devel and master in different
 branches to properly use git...

---
 boca-1.5.2/src/hex.php | 150 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 150 insertions(+)
 create mode 100644 boca-1.5.2/src/hex.php

(limited to 'boca-1.5.2/src/hex.php')

diff --git a/boca-1.5.2/src/hex.php b/boca-1.5.2/src/hex.php
new file mode 100644
index 0000000..4fa4c16
--- /dev/null
+++ b/boca-1.5.2/src/hex.php
@@ -0,0 +1,150 @@
+<?php
+////////////////////////////////////////////////////////////////////////////////
+//BOCA Online Contest Administrator
+//    Copyright (C) 2003-2012 by BOCA Development Team (bocasystem@gmail.com)
+//
+//    This program is free software: you can redistribute it and/or modify
+//    it under the terms of the GNU General Public License as published by
+//    the Free Software Foundation, either version 3 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 more details.
+//    You should have received a copy of the GNU General Public License
+//    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+////////////////////////////////////////////////////////////////////////////////
+// Last modified: 21/july/2012 by cassio@ime.usp.br
+function myshorthash($k) {
+	return hash('sha1',$k);
+}
+function myhash($k) {
+	return hash('sha256',$k);
+}
+function myhmac($k,$d) {
+	return hash_hmac('sha256',$k,$d);
+}
+
+function encryptData($text,$key,$compress=true) {
+	if(!function_exists('mcrypt_get_iv_size')) {
+		MSGError("Encryption error -- mcrypt not installed -- contact an admin (" . getFunctionName() .")");
+		LogError("Encryption error -- mcrypt not installed -- contact an admin (" . getFunctionName() .")");
+		return "";
+	}
+	$iv_size = mcrypt_get_iv_size(MCRYPT_RIJNDAEL_256, MCRYPT_MODE_CBC);
+	$iv = mcrypt_create_iv($iv_size, MCRYPT_RAND);
+	$key = myhash($key . "123456789012345678901234567890"); // . myhash($key);
+	$grade='##';
+	if($compress) {
+		$text = zipstr($text);
+		$grade = '@#';
+	}
+	$crypttext = mcrypt_encrypt(MCRYPT_RIJNDAEL_256, substr(pack("H*", $key),0,32), $text . myshorthash($text) . $grade, MCRYPT_MODE_CBC, $iv);
+	return base64_encode($crypttext . $iv);
+}
+
+function decryptData($crypttext,$key,$txt='') {
+	$crypttext = base64_decode($crypttext);
+	$iv_size = mcrypt_get_iv_size(MCRYPT_RIJNDAEL_256, MCRYPT_MODE_CBC);
+	$test1='';
+	$test2='x';
+	$clen = strlen($crypttext);
+	if($clen > $iv_size) {
+		$iv = substr($crypttext, $clen-$iv_size, $iv_size);
+		$crypttext = substr($crypttext, 0, $clen-$iv_size);
+		$key = myhash($key . "123456789012345678901234567890"); // . myhash($key);
+		$decrypttext = mcrypt_decrypt(MCRYPT_RIJNDAEL_256, substr(pack("H*", $key),0,32), $crypttext, MCRYPT_MODE_CBC, $iv);
+		$pos = strrpos($decrypttext,"#");
+		$iscompressed=false;
+		if(substr($decrypttext,$pos-1,1)=='@') $iscompressed=true;
+		$ll=strlen(myshorthash("x"));
+		$test2 = substr($decrypttext,$pos-1-$ll, $ll);
+		$decrypttext = substr($decrypttext,0,$pos-1-$ll);
+		$test1 = myshorthash($decrypttext);
+	}
+	if($test1 != $test2) {
+		if($txt=='')
+			MSGError("Decryption error -- contact an admin now (" . getFunctionName() .")");
+		LogError("Decryption error -- contact an admin, possibly password wrong (" . getFunctionName() .",$txt)");
+		return "";
+	}
+	if($iscompressed) return unzipstr($decrypttext);
+	return $decrypttext;
+}
+
+//hex1 e hex2 sao strings hexa
+//devolve a soma das duas
+function bighexsoma ($hex1, $hex2){ 
+	if (strlen($hex1) > strlen($hex2)) {
+		$a = $hex2;
+		$hex2 = $hex1;
+		$hex1 = $a;
+	}
+	while (strlen($hex1) < strlen($hex2))
+		$hex1 = '0' . $hex1;
+
+	$sobra = 0;
+	$resultado = '';
+	for($x = strlen($hex1)-1; $x>=0; $x--){ 
+		
+		$op1 = (int) hexdec(substr($hex1,$x,1)); 
+		$op2 = (int) hexdec(substr($hex2,$x,1));
+
+		$r = $op1 + $op2 + $sobra;
+		if ($r > 15) {
+			$r -= 16;
+			$sobra = 1;
+		} else $sobra = 0;
+
+		$resultado = dechex($r) . $resultado;
+	} 
+	if ($sobra == 1) 
+		$resultado = '1' . $resultado;
+	return $resultado;
+}
+//hex1 e hex2 sao strings hexa
+//devolve a string que representa hex1 - hex2
+function bighexsub ($hex1, $hex2) { 
+	$h1 = strlen($hex1);
+	$h2 = strlen($hex2);
+	while ($h1 < $h2) {
+		$hex1 = '0' . $hex1;
+		$h1++;
+	}
+	while ($h2 < $h1) {
+		$hex2 = '0' . $hex2;
+		$h2++;
+	}
+
+	$i=0;
+	while ($hex1[$i] == $hex2[$i] && $i<$h1) $i++;
+	if ($i>=$h1) return '0';
+
+	if ($hex1[$i] > $hex2[$i]) {
+		$sinal='';
+	} else {
+		$sinal = '-';
+		$a = $hex2;
+		$hex2 = $hex1;
+		$hex1 = $a;
+	}
+
+	$sobra = 0;
+	$resultado = '';
+	for($x = $h1-1; $x>=0; $x--) { 
+		$op1 = (int) hexdec(substr($hex1,$x,1)); 
+		$op2 = (int) hexdec(substr($hex2,$x,1));
+
+		$r = $op1 - $op2 - $sobra;
+		if ($r < 0) {
+			$r += 16;
+			$sobra = 1;
+		} else $sobra = 0;
+		if($x > 0 || dechex($r) != '0')
+			$resultado = dechex($r) . $resultado;
+	} 
+	return $sinal . $resultado;
+}
+// eof
+?>
-- 
cgit v1.2.3