<?php
require_once "vendor/autoload.php";
use Mdanter\Ecc\Crypto\Signature\SignHasher;
use Mdanter\Ecc\Crypto\Key\PublicKey;
use Mdanter\Ecc\Primitives\Point;
use Mdanter\Ecc\EccFactory;
use Mdanter\Ecc\Crypto\Signature\Signer;
use Mdanter\Ecc\Serializer\PrivateKey\DerPrivateKeySerializer;
use Mdanter\Ecc\Serializer\Signature\DerSignatureSerializer;
use Mdanter\Ecc\Math;
use Mdanter\Ecc\Primitives\CurveFp;
use Mdanter\Ecc\Crypto\Signature;
use Mdanter\Ecc\Math\GmpMath;
$adapter = EccFactory::getAdapter();
$curve = EccFactory::getNistCurves()->curve384();
$generator = EccFactory::getNistCurves()->generator384();
$useDerandomizedSignatures = true;
$algorithm = 'sha384';
$math = new GmpMath();
function sec1parse ($in) {
	switch ($in[0]) {
		case "\x02":
			$isOdd = false;
			break;
		case "\x03":
			$isOdd = true;
			break;
		default:
			return null;
	}
	global $math;
	global $curve;
	$x = $math->stringToInt(substr($in, 1, 48));
	$y = $curve->recoverYfromX($isOdd, $x);
	global $adapter;
	global $generator;
	return new PublicKey($adapter, $generator, new Point($adapter, $curve, $x, $y));
}
class Transaction {
	public $sender;
	public $recipient;
	public $amount;
	public $comment;
	public $nonce;
	public $r;
	public $s;
	public function parse ($in) {
		$this->sender = substr($in, 0, 49);
		$this->recipient = substr($in, 49, 49);
		$amount = substr($in, 49*2, 4);
		$this->amount = unpack("N", $amount)[1];
		$this->comment = substr($in, 49*2+4, 256);
		$this->nonce = substr($in, 49*2+4+256, 32);
		$this->r = substr($in, 49*2+4+256+32, 48);
		$this->s = substr($in, 49*2+4+256+32+48, 48);
	}
	public function serialize ($without_signature = false) {
		return str_pad($this->sender, 49, "\0") . str_pad($this->recipient, 49, "\0") . pack("N", $this->amount) . str_pad($this->comment, 256, "\0") . str_pad($this->nonce, 32, "\0") . ($without_signature ? "" : (str_pad($this->r, 48, "\0") . str_pad($this->s, 48, "\0")));
	}
	public function verify () {
		global $adapter;
		global $generator;
		global $algorithm;
		global $math;
		$signer = new Signer($adapter);
		$publickey = sec1parse($this->sender);
		$hasher = new SignHasher($algorithm, $adapter);
		$hash = $hasher->makeHash($this->serialize(true), $generator);
		return $signer->verify($publickey, new \Mdanter\Ecc\Crypto\Signature\Signature($math->stringToInt($this->r), $math->stringToInt($this->s)), $hash);
	}
	public function hash () {
		return hash("sha256", $this->serialize(), true);
	}
}
function tx_from_row($row) {
	$tx = new Transaction();
	$tx->sender = $row["sender"];
	$tx->recipient = $row["recipient"];
	$tx->amount = $row["amount"];
	$tx->comment = $row["comment"];
	$tx->nonce = $row["nonce"];
	$tx->r = $row["r"];
	$tx->s = $row["s"];
	return $tx;
}
function last_tx ($db) {
	foreach ($db->query("select * from transactions order by id desc limit 1") as $row);
	if ($row)
		return tx_from_row($row);
	return;
}
if (!empty($_REQUEST["src"])) {
	header("Content-Type: text/plain");
	die(file_get_contents($_SERVER["SCRIPT_FILENAME"]));
}
if ($_SERVER["REQUEST_METHOD"] == "OPTIONS") {
	http_response_code(204);
	header("Access-Control-Allow-Origin: *");
	header("Access-Control-Allow-Methods: *");
	header("Access-Control-Allow-Headers: *");
	header("Access-Control-Max-Age: 86400");
	die();
}
define("TEXT", "text/plain");
function response ($code, $body="", $type="application/octet-stream") {
	http_response_code($code);
	header("Content-Type: " . $type);
	header("Access-Control-Allow-Origin: *");
	header("Access-Control-Allow-Methods: *");
	header("Access-Control-Allow-Headers: *");
	header("Access-Control-Max-Age: 86400");
	echo $body;
}
if (($ret = @file_get_contents("error_status.txt")) !== false) {
	response(500, $ret, TEXT);
	die();
}
function computers_post_handler ($in, $db, $forcepost=false) {
	$numcomp = sizeof($db->query("select url from computers"));
	if (strlen($in) % 256) {
		return [413, "content length should've been divisible by 256", TEXT];
	}
	$in = str_split($in, 256);
	$stmt = $db->prepare("insert or ignore into computers (url) values (:url)");
	foreach ($in as $url) {
		$stmt->bindParam(":url", $url, PDO::PARAM_LOB);
		$stmt->execute();
	}
	$stmt = null;
	$computers = [];
	foreach ($db->query("select url from computers") as $url)
		$computers[] = $url;
	if ($numcomp != sizeof($computers) || $forcepost) {
		foreach ($computers as $url) // this would be better with curl parallel/multi
			file_get_contents(explode("\0", $url)[0] . "computers", false, stream_context_create(["http" => ["method" => "POST", "content" => implode("", $computers), "timeout" => 1]]));
		return [201];
	} else {
		return [202];
	}
}
function transactions_post_handler ($in, $db) {
	$tx = new Transaction();
	$txlen = strlen($tx->serialize());
	if (strlen($in) % $txlen) {
		return [469, "body length should've been divisible by $txlen", TEXT];
	}
	$in = str_split($in, $txlen);
	foreach ($in as $txstr) {
		$tx->parse($txstr);
		if (!$tx->verify())
			continue;
		$stmt = $db->prepare("select * from transactions where hash=:hash");
		$txhash = $tx->hash();
		$stmt->bindParam(":hash", $txhash, PDO::PARAM_LOB);
		$stmt->execute();
		if ($stmt->rowCount())
			continue;
		$stmt = null;
		$stmt = $db->prepare("insert or ignore into transactions (sender, recipient, amount, comment, nonce, r, s, hash) values (:sender, :recipient, :amount, :comment, :nonce, :r, :s, :hash)");
		$stmt->bindParam(":sender", $tx->sender, PDO::PARAM_LOB);
		$stmt->bindParam(":recipient", $tx->recipient, PDO::PARAM_LOB);
		$stmt->bindParam(":amount", $tx->amount, PDO::PARAM_LOB);
		$stmt->bindParam(":comment", $tx->comment, PDO::PARAM_LOB);
		$stmt->bindParam(":nonce", $tx->nonce, PDO::PARAM_LOB);
		$stmt->bindParam(":r", $tx->r, PDO::PARAM_LOB);
		$stmt->bindParam(":s", $tx->s, PDO::PARAM_LOB);
		$stmt->bindParam(":hash", $txhash, PDO::PARAM_LOB);
		$stmt->execute();
		$stmt = null;
		$computers = [];
		foreach ($db->query("select url from computers") as $url)
			$computers[] = $url;
		foreach ($computers as $url)
			file_get_contents(explode("\0", $url)[0] . "transaction", false, stream_context_create(["http" => ["method" => "POST", "content" => $in, "timeout" => 1]]));
	}
	return [200];
} 
function transactions_get_handler ($db, $after) {
	$response = "";
	$ret = $db->query("select * from transactions order by id");
	$hash = null;
	$stmt = $db->prepare("select * from transactions where hash=:hash");
	$stmt->bindParam(":hash", $after, PDO::PARAM_LOB);
	$stmt->execute();
	if ($stmt->fetch())
		$hash = $after;
	$stmt = null;
	foreach ($ret as $row)
		if ($hash) {
			if ($hash == tx_from_row($row)->hash())
				$hash = null;
		} else
			$response .= tx_from_row($row)->serialize();
	if ($response == "")
		return [204];
	return [200, $response];
}
function sync_checkpoint_computer ($db, $url) {
	$stmt = $db->prepare("select last_hash from computers where url=:url");
	$stmt->bindParam(":url", $url, PDO::PARAM_LOB);
	$stmt->execute();
	return $stmt->fetchColumn(0);
}
# create table computers (url TEXT NOT NULL UNIQUE CHECK(length(url) == 256), last_hash TEXT NOT NULL UNIQUE CHECK(length(last_hash) == 32), date default CURRENT_TIMESTAMP);
# create table transactions (id integer primary key autoincrement, sender TEXT NOT NULL CHECK(length(sender) == 49), recipient TEXT NOT NULL CHECK(length(recipient) == 49), amount INTEGER NOT NULL CHECK(amount >= 0), comment TEXT NOT NULL CHECK(length(comment) == 256), nonce TEXT NOT NULL CHECK(length(nonce) == 32), r TEXT NOT NULL CHECK(length(r) == 48), s TEXT NOT NULL CHECK(length(s) == 48), hash TEXT NOT NULL UNIQUE CHECK(length(hash) == 32), date default CURRENT_TIMESTAMP);
$db = new PDO("sqlite:db", null, null, [PDO::ATTR_ERRMODE => PDO::ERRMODE_EXCEPTION]);
if (!$db)
	response(503, "db: " . $e->getMessage(), TEXT);
switch ($_REQUEST["e"] . "-" . $_SERVER["REQUEST_METHOD"]) {
	case "sec1decompress-GET":
		$x = $math->intToString(sec1parse(hex2bin($_REQUEST["s"]))->getPoint()->getX());
		$y = $math->intToString(sec1parse(hex2bin($_REQUEST["s"]))->getPoint()->getY());
		response(200, "\x04$x$y");
		break;
	case "sec1decompress-POST":
		$in = file_get_contents("php://input");
		global $math;
		$x = $math->intToString(sec1parse($in)->getPoint()->getX());
		$y = $math->intToString(sec1parse($in)->getPoint()->getY());
		response(200, "\x04$x$y");
		break;
	case "push-POST":
		$in = file_get_contents("php://input");
		for ($i = 0; $i < 60; $i++) {
			$resp = transactions_get_handler($db, $in);
			if ($resp[0] == 200) {
				response(...$resp);
				break;
			}
			usleep(250000);
		}
		if ($resp[0] != 200)
			response(204);
		break;
	case "jutro-GET":
		$computers = [];
		foreach ($db->query("select url from computers") as $url)
			$computers[] = $url;
		$send = "";
		foreach ($computers as $url) {
			$recvd = file_get_contents(explode("\0", $url)[0] . "computers");
			if (strlen($recvd) % 256) {
				error_log("server $url returned non mod256 computers get response length", 3, "log");
				continue;
			}
			$send .= $recvd;
		}
		computers_post_handler($send, $db, true);
		$computers = [];
		foreach ($db->query("select url from computers") as $url)
			$computers[] = $url;
		foreach ($computers as $url) {
			$transactions = file_get_contents(explode("\0", $url[0])[0] . "transactions", false, stream_context_create(["http" => ["header" => "After: " . bin2hex(sync_checkpoint_computer($db, $url)) . "\r\n", "timeout" => 1]]));
			$tx = new Transaction();
			if (strlen($transactions) % strlen($tx->serialize())) {
				error_log("server $url returned not correct mod for transactions response length", 3, "log");
				continue;
			}
			foreach (str_split($transactions, strlen($tx->serialize())) as $transaction) {
				$tx->parse($transaction);
				$txhash = $tx->hash;
				$stmt = $db->prepare("update computers set last_hash=:last_hash where url=:url");
				$stmt->bindParam(":last_hash", $txhash, PDO::PARAM_LOB);
				$stmt->bindParam(":url", $url, PDO::PARAM_LOB);
				$stmt->execute();
				transactions_post_handler($transaction);
			}
		}
		break;
	case "computers-GET":
		$ret = $db->query("select url from computers");
		response(200);
		foreach ($ret as $row)
			echo $row[0];
		break;
	case "computers-POST":
		$in = file_get_contents("php://input");
		response(...computers_post_handler($in, $db));
		break;
	case "transactions-POST":
		$in = file_get_contents("php://input");
		response(...transactions_post_handler($in, $db));
		break;
	case "transactions-GET":
		response(...transactions_get_handler($db, hex2bin($_SERVER["HTTP_AFTER"])));
		break;
	case "state-GET":
		$ret = $db->query("select * from transactions order by id");
		$out = "";
		$balances = [];
		foreach ($ret as $row) {
			$tx = tx_from_row($row);
			if (!$tx->verify()) {
				$message = "transaction with internal id {$row["id"]} has an invalid signature.";
				file_put_contents("error_status.txt", $message);
				response(500, $message);
				break 2;
			}
			@$balances[$tx->sender] -= $tx->amount;
			@$balances[$tx->recipient] += $tx->amount;
		}
		response(200);
		foreach ($balances as $key => $value) {	// do not trust balances provided by this API, since they
			$packed = pack("q", $value);	// are cast to machine dependent int by php
			if (pack("Q", 123) === pack("P", 123)) // machine is little endian
				$packed = strrev($packed);
			echo $key . $packed;
		}
		break;
	default:
		response(400, "unknown endpoint or method not allowed", TEXT);
		break;
}