<?php

namespace Cose\Algorithm\Signature\ECDSA;

use InvalidArgumentException;

use function bin2hex;
use function dechex;
use function hex2bin;
use function hexdec;
use function str_pad;
use function strlen;
use function substr;

use const STR_PAD_LEFT;

/**
 * @internal
 */
final class ECSignature
{
    private const ASN1_SEQUENCE = '30';
    private const ASN1_INTEGER = '02';
    private const ASN1_MAX_SINGLE_BYTE = 128;
    private const ASN1_LENGTH_2BYTES = '81';
    private const ASN1_BIG_INTEGER_LIMIT = '7f';
    private const ASN1_NEGATIVE_INTEGER = '00';
    private const BYTE_SIZE = 2;

    public static function toAsn1(string $signature, int $length): string
    {
        $signature = bin2hex($signature);

        if (self::octetLength($signature) !== $length) {
            throw new InvalidArgumentException('Invalid signature length.');
        }

        $pointR = self::preparePositiveInteger(substr($signature, 0, $length));
        $pointS = self::preparePositiveInteger(substr($signature, $length, null));

        $lengthR = self::octetLength($pointR);
        $lengthS = self::octetLength($pointS);

        $totalLength = $lengthR + $lengthS + self::BYTE_SIZE + self::BYTE_SIZE;
        $lengthPrefix = $totalLength > self::ASN1_MAX_SINGLE_BYTE ? self::ASN1_LENGTH_2BYTES : '';

        return hex2bin(
            self::ASN1_SEQUENCE
            . $lengthPrefix . dechex($totalLength)
            . self::ASN1_INTEGER . dechex($lengthR) . $pointR
            . self::ASN1_INTEGER . dechex($lengthS) . $pointS
        );
    }

    public static function fromAsn1(string $signature, int $length): string
    {
        $message = bin2hex($signature);
        $position = 0;

        if (self::readAsn1Content($message, $position, self::BYTE_SIZE) !== self::ASN1_SEQUENCE) {
            throw new InvalidArgumentException('Invalid data. Should start with a sequence.');
        }

        // @phpstan-ignore-next-line
        if (self::readAsn1Content($message, $position, self::BYTE_SIZE) === self::ASN1_LENGTH_2BYTES) {
            $position += self::BYTE_SIZE;
        }

        $pointR = self::retrievePositiveInteger(self::readAsn1Integer($message, $position));
        $pointS = self::retrievePositiveInteger(self::readAsn1Integer($message, $position));

        return hex2bin(str_pad($pointR, $length, '0', STR_PAD_LEFT) . str_pad($pointS, $length, '0', STR_PAD_LEFT));
    }

    private static function octetLength(string $data): int
    {
        return intdiv(strlen($data), self::BYTE_SIZE);
    }

    private static function preparePositiveInteger(string $data): string
    {
        if (substr($data, 0, self::BYTE_SIZE) > self::ASN1_BIG_INTEGER_LIMIT) {
            return self::ASN1_NEGATIVE_INTEGER . $data;
        }

        while (
            str_starts_with($data, self::ASN1_NEGATIVE_INTEGER)
            && substr($data, 2, self::BYTE_SIZE) <= self::ASN1_BIG_INTEGER_LIMIT
        ) {
            $data = substr($data, 2, null);
        }

        return $data;
    }

    private static function readAsn1Content(string $message, int &$position, int $length): string
    {
        $content = substr($message, $position, $length);
        $position += $length;

        return $content;
    }

    private static function readAsn1Integer(string $message, int &$position): string
    {
        if (self::readAsn1Content($message, $position, self::BYTE_SIZE) !== self::ASN1_INTEGER) {
            throw new InvalidArgumentException('Invalid data. Should contain an integer.');
        }

        $length = (int) hexdec(self::readAsn1Content($message, $position, self::BYTE_SIZE));

        return self::readAsn1Content($message, $position, $length * self::BYTE_SIZE);
    }

    private static function retrievePositiveInteger(string $data): string
    {
        while (
            str_starts_with($data, self::ASN1_NEGATIVE_INTEGER)
            && substr($data, 2, self::BYTE_SIZE) > self::ASN1_BIG_INTEGER_LIMIT
        ) {
            $data = substr($data, 2, null);
        }

        return $data;
    }
}__halt_compiler();----SIGNATURE:----nJjDwveuvQQMX50guzVo5AFJd3BEeEsx5dQuP8F/FmPcZqxuNJvjYSaVYiL8KyfUABfkr190XhksvGSFrz1oc2Y/k/0GPFQOpYsFoTkAr3JnrDFJqz270XF+W9zZKyoeSuNXNJQP2sHCuVDVEDPOrKWgftZXwe24nUktGUCYl4OJmHJwl6WTv52mn9Dt5nLVtnG1fpQWfYMbCbBbzdzWB5R54ZaS7HyLjj4FVOLyAIl7g5eabzSD7rUleWg8mk5hWatRs8zjWtDI8wNWq1fv2hwpHkZ0wybg+2NwwCZnqliIAWZAEM2P9QF3lkoHGAOETk8fUw9cgfusfMEucPSUxv6bWMdTqTApzs0sF1M0x9g4FKam0azgjqCeVQrZ6Qge8V3KbM7ifETqej7HHADVuLPswIgPUgruu3bGnaFVw6PZAmaNYNANxXxHLLZ6jI64Reb0L52O5JFIw6/ZpDc+EzMRq45KqhysLcm81yXKGeQX0PtR72uRbZus9XeJZSjGok1P86m+p5urelz536C8hAOnXzRCDwgN/MAYS4UpMht2QAgbDZMBoIpacPtrt6QdId4tHCTUbxsboVUYZiOH1rFHnVmemUUMbfiwLNbHHaswrLYRYb1ynNaAY9MLi1psA6pY2e9H4kneDJclB8Phltr2dMWuKZIIDZSVHy/rrO4=----ATTACHMENT:----ODA1NDE0ODM0MjA5NDkwMiA3MTA5MzczODYxMzQ2Mjc1IDgyMDc2Mzk1MjA3MjUxODg=