<?php
/*
全网首发ppv wasm算法，懒得加密了，首发地址：https://t.me/iptvorganization，转载或转化代码必须注明出处否则全家多病多灾多难，谢谢！
使用方法：/php?id=rally-tv
*/
const PPV_STREAMS = 'https://api.ppv.to/api/streams';
const POO_FETCH = 'https://pooembed.eu/fetch';
const POO_ORIGIN = 'https://pooembed.eu';
const BROWSER_UA = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/148.0.0.0 Safari/537.36';
const DEFAULT_ID = 'rally-tv';
const ROOM_TTL = 600;
const SOURCE_TTL = 300;
const TOKEN_MARGIN = 90;

function starts_with(string $s, string $prefix): bool
{
    return strncmp($s, $prefix, strlen($prefix)) === 0;
}

function ends_with(string $s, string $suffix): bool
{
    $n = strlen($suffix);
    return $n === 0 || substr($s, -$n) === $suffix;
}

function has_text(string $s, string $needle): bool
{
    return strpos($s, $needle) !== false;
}

function die_soft(int $code, string $text): void
{
    http_response_code($code);
    header('Content-Type: text/plain; charset=utf-8');
    echo $text;
    exit;
}

function http_call(string $url, string $method = 'GET', ?string $body = null, array $headers = []): array
{
    $ch = curl_init($url);
    $bag = [];
    curl_setopt_array($ch, [
        CURLOPT_RETURNTRANSFER => true,
        CURLOPT_FOLLOWLOCATION => true,
        CURLOPT_CONNECTTIMEOUT => 8,
        CURLOPT_TIMEOUT => 18,
        CURLOPT_USERAGENT => BROWSER_UA,
        CURLOPT_SSL_VERIFYPEER => false,
        CURLOPT_SSL_VERIFYHOST => false,
        CURLOPT_HEADERFUNCTION => static function ($ch, string $line) use (&$bag): int {
            $p = strpos($line, ':');
            if ($p !== false) {
                $bag[strtolower(trim(substr($line, 0, (int)$p)))] = trim(substr($line, (int)$p + 1));
            }
            return strlen($line);
        },
    ]);
    if ($method !== 'GET') {
        curl_setopt($ch, CURLOPT_CUSTOMREQUEST, $method);
        curl_setopt($ch, CURLOPT_POSTFIELDS, $body ?? '');
    }
    if ($headers) {
        curl_setopt($ch, CURLOPT_HTTPHEADER, $headers);
    }
    $raw = curl_exec($ch);
    $err = curl_error($ch);
    $code = curl_getinfo($ch, CURLINFO_RESPONSE_CODE);
    curl_close($ch);
    if ($raw === false || $code < 200 || $code >= 300) {
        throw new RuntimeException($err !== '' ? $err : "http {$code}");
    }
    return [$raw, $bag, $code];
}

function cache_dir(): string
{
    $dir = sys_get_temp_dir() . '/ppv_fetch_cache';
    if (!is_dir($dir)) {
        mkdir($dir, 0775, true);
    }
    return $dir;
}

function cache_path(string $kind, string $key): string
{
    return cache_dir() . '/' . $kind . '-' . sha1($key) . '.json';
}

function cache_get(string $kind, string $key)
{
    $file = cache_path($kind, $key);
    if (!is_file($file)) {
        return null;
    }
    $raw = file_get_contents($file);
    $box = is_string($raw) ? json_decode($raw, true) : null;
    if (!is_array($box) || ($box['until'] ?? 0) <= time()) {
        @unlink($file);
        return null;
    }
    return $box['data'] ?? null;
}

function cache_set(string $kind, string $key, $data, int $until): void
{
    if ($until <= time()) {
        return;
    }
    $file = cache_path($kind, $key);
    $tmp = $file . '.' . getmypid() . '.tmp';
    file_put_contents($tmp, json_encode(['until' => $until, 'data' => $data], JSON_UNESCAPED_SLASHES), LOCK_EX);
    rename($tmp, $file);
}

function enc_varint(int $n): string
{
    $s = '';
    while (true) {
        $b = $n & 0x7f;
        $n >>= 7;
        if ($n === 0) {
            return $s . chr($b);
        }
        $s .= chr($b | 0x80);
    }
}

function get_varint(string $s, int &$i): int
{
    $n = 0;
    $shift = 0;
    $len = strlen($s);
    while ($i < $len) {
        $b = ord($s[$i++]);
        $n |= ($b & 0x7f) << $shift;
        if ($b < 0x80) {
            return $n;
        }
        $shift += 7;
        if ($shift > 63) {
            throw new RuntimeException('bad varint');
        }
    }
    throw new RuntimeException('short varint');
}

function pb_put(int $field, string $value): string
{
    return enc_varint(($field << 3) | 2) . enc_varint(strlen($value)) . $value;
}

function pb_read(string $s): array
{
    $i = 0;
    $out = [];
    $len = strlen($s);
    while ($i < $len) {
        $tag = get_varint($s, $i);
        $field = $tag >> 3;
        $wire = $tag & 7;
        if ($wire !== 2) {
            throw new RuntimeException('bad wire');
        }
        $n = get_varint($s, $i);
        if ($i + $n > $len) {
            throw new RuntimeException('short field');
        }
        $out[$field] = substr($s, (int)$i, (int)$n);
        $i += $n;
    }
    return $out;
}

function shift_payload(string $s): string
{
    $s = trim($s);
    $o = '';
    $len = strlen($s);
    for ($i = 0; $i < $len; $i++) {
        $c = ord($s[$i]);
        $o .= ($c >= 33 && $c <= 126) ? chr((($c - 33 + 71) % 94) + 33) : $s[$i];
    }
    return $o;
}

function u32(int $n): int
{
    return $n & 0xffffffff;
}

function le32(string $s, int $i): int
{
    return ord($s[$i]) | (ord($s[$i + 1]) << 8) | (ord($s[$i + 2]) << 16) | (ord($s[$i + 3]) << 24);
}

function put32(int $n): string
{
    return pack('V', u32($n));
}

function rotl32(int $n, int $bits): int
{
    $n = u32($n);
    return u32(($n << $bits) | ($n >> (32 - $bits)));
}

function chacha_qr(array &$x, int $a, int $b, int $c, int $d): void
{
    $x[$a] = u32($x[$a] + $x[$b]);
    $x[$d] = rotl32($x[$d] ^ $x[$a], 16);
    $x[$c] = u32($x[$c] + $x[$d]);
    $x[$b] = rotl32($x[$b] ^ $x[$c], 12);
    $x[$a] = u32($x[$a] + $x[$b]);
    $x[$d] = rotl32($x[$d] ^ $x[$a], 8);
    $x[$c] = u32($x[$c] + $x[$d]);
    $x[$b] = rotl32($x[$b] ^ $x[$c], 7);
}

function chacha_block(string $key, string $nonce, int $counter): string
{
    $c = 'expand 32-byte k';
    $s = [
        le32($c, 0), le32($c, 4), le32($c, 8), le32($c, 12),
        le32($key, 0), le32($key, 4), le32($key, 8), le32($key, 12),
        le32($key, 16), le32($key, 20), le32($key, 24), le32($key, 28),
        u32($counter), le32($nonce, 0), le32($nonce, 4), le32($nonce, 8),
    ];
    $x = $s;
    for ($i = 0; $i < 10; $i++) {
        chacha_qr($x, 0, 4, 8, 12);
        chacha_qr($x, 1, 5, 9, 13);
        chacha_qr($x, 2, 6, 10, 14);
        chacha_qr($x, 3, 7, 11, 15);
        chacha_qr($x, 0, 5, 10, 15);
        chacha_qr($x, 1, 6, 11, 12);
        chacha_qr($x, 2, 7, 8, 13);
        chacha_qr($x, 3, 4, 9, 14);
    }
    $out = '';
    for ($i = 0; $i < 16; $i++) {
        $out .= put32($x[$i] + $s[$i]);
    }
    return $out;
}

function chacha_stream(string $key, string $nonce, int $len, int $counter): string
{
    $out = '';
    while (strlen($out) < $len) {
        $out .= chacha_block($key, $nonce, $counter);
        $counter = u32($counter + 1);
    }
    return substr($out, 0, $len);
}

function pad16(string $s): string
{
    $n = strlen($s) % 16;
    return $n === 0 ? '' : str_repeat("\0", 16 - $n);
}

function le64(int $n): string
{
    $lo = $n & 0xffffffff;
    $hi = intdiv($n, 4294967296);
    return pack('V2', $lo, $hi);
}

function poly1305_mac(string $msg, string $key): string
{
    if (PHP_INT_SIZE < 8) {
        throw new RuntimeException('need 64-bit php');
    }
    $t0 = le32($key, 0);
    $t1 = le32($key, 4);
    $t2 = le32($key, 8);
    $t3 = le32($key, 12);
    $r0 = $t0 & 0x3ffffff;
    $r1 = (($t0 >> 26) | ($t1 << 6)) & 0x3ffff03;
    $r2 = (($t1 >> 20) | ($t2 << 12)) & 0x3ffc0ff;
    $r3 = (($t2 >> 14) | ($t3 << 18)) & 0x3f03fff;
    $r4 = ($t3 >> 8) & 0x00fffff;
    $s1 = $r1 * 5;
    $s2 = $r2 * 5;
    $s3 = $r3 * 5;
    $s4 = $r4 * 5;
    $h0 = 0;
    $h1 = 0;
    $h2 = 0;
    $h3 = 0;
    $h4 = 0;
    $mask = 0x3ffffff;
    $len = strlen($msg);
    for ($pos = 0; $pos < $len; $pos += 16) {
        $n = min(16, $len - $pos);
        $block = substr($msg, $pos, $n);
        $hibit = 1 << 24;
        if ($n < 16) {
            $block .= "\x01" . str_repeat("\0", 15 - $n);
            $hibit = 0;
        }
        $t0 = le32($block, 0);
        $t1 = le32($block, 4);
        $t2 = le32($block, 8);
        $t3 = le32($block, 12);
        $h0 += $t0 & $mask;
        $h1 += (($t0 >> 26) | ($t1 << 6)) & $mask;
        $h2 += (($t1 >> 20) | ($t2 << 12)) & $mask;
        $h3 += (($t2 >> 14) | ($t3 << 18)) & $mask;
        $h4 += (($t3 >> 8) & 0x00ffffff) | $hibit;
        $d0 = ($h0 * $r0) + ($h1 * $s4) + ($h2 * $s3) + ($h3 * $s2) + ($h4 * $s1);
        $d1 = ($h0 * $r1) + ($h1 * $r0) + ($h2 * $s4) + ($h3 * $s3) + ($h4 * $s2);
        $d2 = ($h0 * $r2) + ($h1 * $r1) + ($h2 * $r0) + ($h3 * $s4) + ($h4 * $s3);
        $d3 = ($h0 * $r3) + ($h1 * $r2) + ($h2 * $r1) + ($h3 * $r0) + ($h4 * $s4);
        $d4 = ($h0 * $r4) + ($h1 * $r3) + ($h2 * $r2) + ($h3 * $r1) + ($h4 * $r0);
        $c = $d0 >> 26;
        $h0 = $d0 & $mask;
        $d1 += $c;
        $c = $d1 >> 26;
        $h1 = $d1 & $mask;
        $d2 += $c;
        $c = $d2 >> 26;
        $h2 = $d2 & $mask;
        $d3 += $c;
        $c = $d3 >> 26;
        $h3 = $d3 & $mask;
        $d4 += $c;
        $c = $d4 >> 26;
        $h4 = $d4 & $mask;
        $h0 += $c * 5;
        $c = $h0 >> 26;
        $h0 &= $mask;
        $h1 += $c;
    }
    $c = $h1 >> 26;
    $h1 &= $mask;
    $h2 += $c;
    $c = $h2 >> 26;
    $h2 &= $mask;
    $h3 += $c;
    $c = $h3 >> 26;
    $h3 &= $mask;
    $h4 += $c;
    $c = $h4 >> 26;
    $h4 &= $mask;
    $h0 += $c * 5;
    $c = $h0 >> 26;
    $h0 &= $mask;
    $h1 += $c;
    $g0 = $h0 + 5;
    $c = $g0 >> 26;
    $g0 &= $mask;
    $g1 = $h1 + $c;
    $c = $g1 >> 26;
    $g1 &= $mask;
    $g2 = $h2 + $c;
    $c = $g2 >> 26;
    $g2 &= $mask;
    $g3 = $h3 + $c;
    $c = $g3 >> 26;
    $g3 &= $mask;
    $g4 = $h4 + $c - (1 << 26);
    if ($g4 >= 0) {
        $h0 = $g0;
        $h1 = $g1;
        $h2 = $g2;
        $h3 = $g3;
        $h4 = $g4;
    }
    $f0 = (($h0 | ($h1 << 26)) & 0xffffffff) + le32($key, 16);
    $w0 = $f0 & 0xffffffff;
    $f1 = ((($h1 >> 6) | ($h2 << 20)) & 0xffffffff) + le32($key, 20) + ($f0 >> 32);
    $w1 = $f1 & 0xffffffff;
    $f2 = ((($h2 >> 12) | ($h3 << 14)) & 0xffffffff) + le32($key, 24) + ($f1 >> 32);
    $w2 = $f2 & 0xffffffff;
    $f3 = ((($h3 >> 18) | ($h4 << 8)) & 0xffffffff) + le32($key, 28) + ($f2 >> 32);
    $w3 = $f3 & 0xffffffff;
    return put32($w0) . put32($w1) . put32($w2) . put32($w3);
}

function aead_input(string $aad, string $ciphertext): string
{
    return $aad . pad16($aad) . $ciphertext . pad16($ciphertext) . le64(strlen($aad)) . le64(strlen($ciphertext));
}

function bxor_stream(string $a, string $b): string
{
    $out = '';
    $len = strlen($a);
    for ($i = 0; $i < $len; $i++) {
        $out .= chr(ord($a[$i]) ^ ord($b[$i]));
    }
    return $out;
}

function open_payload(string $payload, string $island): string
{
    $packed = base64_decode(shift_payload($payload), true);
    if ($packed === false || strlen($packed) < 28) {
        throw new RuntimeException('bad payload');
    }
    $nonce = substr($packed, 0, 12);
    $box = substr($packed, 12);
    $key = substr($island, 0, 32);
    $key = str_pad($key, 32, "\0");
    $tag = substr($box, -16);
    $ciphertext = substr($box, 0, -16);
    $poly_key = chacha_stream($key, $nonce, 32, 0);
    $got = poly1305_mac(aead_input('', $ciphertext), $poly_key);
    if (!hash_equals($got, $tag)) {
        throw new RuntimeException('bad tag');
    }
    return bxor_stream($ciphertext, chacha_stream($key, $nonce, strlen($ciphertext), 1));
}

function room_slug(string $id): string
{
    $hit = cache_get('room', $id);
    if (is_string($hit) && $hit !== '') {
        return $hit;
    }
    [$json] = http_call(PPV_STREAMS);
    $data = json_decode($json, true);
    if (!is_array($data)) {
        throw new RuntimeException('bad streams json');
    }
    $want = preg_replace('/^ppv-/', '', trim($id));
    foreach (($data['streams'] ?? []) as $cat) {
        foreach (($cat['streams'] ?? []) as $item) {
            $num = isset($item['id']) ? (string)$item['id'] : '';
            if ($num === $want || ('ppv-' . $num) === $id || (($item['uri_name'] ?? '') === $id)) {
                $slug = trim((string)($item['uri_name'] ?? ''));
                if ($slug !== '') {
                    cache_set('room', $id, $slug, time() + ROOM_TTL);
                    return $slug;
                }
            }
        }
    }
    throw new RuntimeException('room not found');
}

function fresh_url(string $slug): string
{
    $body = pb_put(1, $slug);
    [$bin, $headers] = http_call(POO_FETCH, 'POST', $body, [
        'Content-Type: application/octet-stream',
        'Origin: ' . POO_ORIGIN,
        'Referer: ' . POO_ORIGIN . '/embed/' . rawurlencode($slug),
        'Accept: */*',
        'User-Agent: ' . BROWSER_UA,
    ]);
    $island = $headers['island'] ?? '';
    if ($island === '') {
        throw new RuntimeException('no island');
    }
    $fields = pb_read($bin);
    if (!isset($fields[1])) {
        throw new RuntimeException('no payload');
    }
    return open_payload($fields[1], $island);
}

function hls_get(string $url, string $slug): string
{
    [$text] = http_call($url, 'GET', null, [
        'Origin: ' . POO_ORIGIN,
        'Referer: ' . POO_ORIGIN . '/embed/' . rawurlencode($slug),
        'Accept: */*',
        'User-Agent: ' . BROWSER_UA,
    ]);
    if (!starts_with(ltrim($text), '#EXTM3U')) {
        throw new RuntimeException('not m3u8');
    }
    return $text;
}

function dot_path(string $path): string
{
    $lead = starts_with($path, '/');
    $tail = ends_with($path, '/');
    $stack = [];
    foreach (explode('/', $path) as $part) {
        if ($part === '' || $part === '.') {
            continue;
        }
        if ($part === '..') {
            array_pop($stack);
            continue;
        }
        $stack[] = $part;
    }
    $out = ($lead ? '/' : '') . implode('/', $stack);
    return $tail && $out !== '/' ? $out . '/' : ($out === '' ? ($lead ? '/' : '') : $out);
}

function url_join(string $base, string $ref): string
{
    $ref = trim($ref);
    if ($ref === '' || preg_match('~^[a-z][a-z0-9+.-]*:~i', $ref)) {
        return $ref;
    }
    $b = parse_url($base);
    if (!$b || empty($b['scheme']) || empty($b['host'])) {
        throw new RuntimeException('bad base url');
    }
    if (starts_with($ref, '//')) {
        return $b['scheme'] . ':' . $ref;
    }
    $scheme = $b['scheme'];
    $host = $b['host'];
    $port = isset($b['port']) ? ':' . $b['port'] : '';
    if (starts_with($ref, '/')) {
        return "{$scheme}://{$host}{$port}" . dot_path($ref);
    }
    $dir = isset($b['path']) ? preg_replace('~/[^/]*$~', '/', $b['path']) : '/';
    return "{$scheme}://{$host}{$port}" . dot_path($dir . $ref);
}

function quote_uris(string $line, string $base): string
{
    return preg_replace_callback('/URI="([^"]+)"/', static function (array $m) use ($base): string {
        return 'URI="' . url_join($base, $m[1]) . '"';
    }, $line);
}

function maybe_m3u8(string $uri): bool
{
    $path = parse_url($uri, PHP_URL_PATH);
    return stripos($path !== false && $path !== null ? $path : $uri, '.m3u8') !== false;
}

function stream_score(string $line): int
{
    $score = 0;
    if (preg_match('/BANDWIDTH=(\d+)/', $line, $m)) {
        $score += (int)$m[1];
    }
    if (preg_match('/RESOLUTION=(\d+)x(\d+)/', $line, $m)) {
        $score += ((int)$m[1] * (int)$m[2]) * 10;
    }
    return $score;
}

function m3u8_refs(string $text, string $base): array
{
    $refs = [];
    $pending = 0;
    foreach (explode("\n", str_replace(["\r\n", "\r"], "\n", $text)) as $line) {
        $trim = trim($line);
        if ($trim === '') {
            continue;
        }
        if (starts_with($trim, '#')) {
            if (starts_with($trim, '#EXT-X-STREAM-INF')) {
                $pending = stream_score($trim);
            }
            if (has_text($line, 'URI="')) {
                preg_match_all('/URI="([^"]+)"/', $line, $hits);
                foreach ($hits[1] ?? [] as $uri) {
                    if (maybe_m3u8($uri)) {
                        $refs[] = [
                            'url' => url_join($base, $uri),
                            'rank' => has_text($trim, 'I-FRAME') ? 0 : 1,
                            'score' => stream_score($trim),
                        ];
                    }
                }
            }
            continue;
        }
        if (maybe_m3u8($trim)) {
            $refs[] = [
                'url' => url_join($base, $trim),
                'rank' => $pending > 0 ? 3 : 2,
                'score' => $pending,
            ];
        }
        $pending = 0;
    }
    usort($refs, static function (array $a, array $b): int {
        return ($b['rank'] <=> $a['rank']) ?: ($b['score'] <=> $a['score']);
    });
    return $refs;
}

function final_m3u8(string $url, string $slug): array
{
    $seen = [];
    for ($i = 0; $i < 8; $i++) {
        if (isset($seen[$url])) {
            throw new RuntimeException('m3u8 loop');
        }
        $seen[$url] = true;
        $text = hls_get($url, $slug);
        $refs = m3u8_refs($text, $url);
        if (!$refs) {
            return [$text, $url];
        }
        $url = $refs[0]['url'];
    }
    throw new RuntimeException('m3u8 too deep');
}

function secure_until(string $url): ?int
{
    $path = parse_url($url, PHP_URL_PATH);
    if (!is_string($path)) {
        return null;
    }
    $parts = explode('/', $path);
    $n = count($parts);
    for ($i = 0; $i < $n; $i++) {
        if ($parts[$i] === 'secure' && isset($parts[$i + 3]) && ctype_digit($parts[$i + 3])) {
            return ((int)$parts[$i + 3]) - TOKEN_MARGIN;
        }
    }
    return null;
}

function source_until(string $source, string $final): int
{
    $until = time() + SOURCE_TTL;
    foreach ([$source, $final] as $url) {
        $end = secure_until($url);
        if ($end !== null) {
            $until = min($until, $end);
        }
    }
    return max(time() + 20, $until);
}

function live_m3u8(string $slug): array
{
    $hit = cache_get('source', $slug);
    if (is_array($hit) && isset($hit['final']) && is_string($hit['final'])) {
        try {
            $text = hls_get($hit['final'], $slug);
            if (!m3u8_refs($text, $hit['final'])) {
                return [$text, $hit['final'], 'HIT'];
            }
        } catch (Throwable $e) {
        }
    }
    $source = fresh_url($slug);
    [$text, $final] = final_m3u8($source, $slug);
    cache_set('source', $slug, ['source' => $source, 'final' => $final], source_until($source, $final));
    return [$text, $final, 'MISS'];
}

function abs_m3u8(string $text, string $base): string
{
    $text = str_replace(["\r\n", "\r"], "\n", $text);
    $out = [];
    foreach (explode("\n", $text) as $line) {
        $trim = trim($line);
        if ($trim === '') {
            $out[] = $line;
        } elseif (starts_with($trim, '#')) {
            $out[] = has_text($line, 'URI="') ? quote_uris($line, $base) : $line;
        } else {
            $out[] = url_join($base, $trim);
        }
    }
    return rtrim(implode("\n", $out)) . "\n";
}

$id = isset($_GET['id']) ? trim((string)$_GET['id']) : DEFAULT_ID;
if ($id === '') {
    $id = DEFAULT_ID;
}

try {
    $slug = room_slug($id);
    [$m3u8, $base, $cache] = live_m3u8($slug);
    header('Content-Type: application/vnd.apple.mpegurl; charset=utf-8');
    header('Cache-Control: no-store');
    header('X-PPV-Cache: ' . $cache);
    echo abs_m3u8($m3u8, $base);
} catch (Throwable $e) {
    die_soft(502, $e->getMessage());
}