PKHeX/PKHeX.Core/Saves/Substructures/Battle Videos/BVRequestUtil.cs

using System;
using System.Diagnostics;
using static System.Buffers.Binary.BinaryPrimitives;

namespace PKHeX.Core;

public static class BVRequestUtil
{
    public static string GetSMBattleVideoURL(string code)
    {
        code = code.Replace("-", string.Empty);
        Debug.Assert(code.Length == 16);
        var video_id = StrToU64(code, out bool valid);
        if (!valid)
            return string.Empty;
        return $"https://ctr-bnda-live.s3.amazonaws.com/10.CTR_BNDA_datastore/ds/1/data/{video_id:D11}-00001"; // Sun datastore
    }

    public static ulong StrToU64(string input, out bool valid)
    {
        var chk = Pull(0, 4) >> 4; // first four chars are checksum bits
        var result = Pull(4, input.Length); // next 12 chars are the 70 value bits

        Span<byte> temp = stackalloc byte[8];
        WriteUInt64LittleEndian(temp, result);
        var actual = Checksums.CRC16_CCITT(temp);
        valid = chk == actual;
        return result;

        ulong Pull(int start, int count)
        {
            ulong val = 0;
            for (int i = start; i < count; i++)
            {
                var c = input[i];
                if (c == '-')
                    continue;

                val <<= 5;
                val |= Get5BitFromChar(c) & 0b11111;
            }
            return val;
        }
    }

    public static string U64ToStr(ulong input, bool insertDash)
    {
        Span<byte> temp = stackalloc byte[8];
        WriteUInt64LittleEndian(temp, input);
        uint chk = Checksums.CRC16_CCITT(temp);
        var buff = new char[16];
        int ctr = 15;
        Push(input, 12); // store value bits
        Push(chk << 4, 4); // store checksum bits
        return !insertDash ? string.Concat(buff) : GetStringWithDashesEvery(buff, 4);

        void Push(ulong v, int count)
        {
            for (int i = 0; i < count; i++)
            {
                buff[ctr--] = Set5BitToChar((char)(v & 0b11111));
                v >>= 5;
            }
        }
    }

    private static string GetStringWithDashesEvery(char[] buff, int spacer)
    {
        var buff2 = new char[buff.Length + ((buff.Length / spacer) - 1)];
        for (int i = 0, ctr = 0; i < buff.Length; i++)
        {
            buff2[ctr++] = buff[i];
            if (i % spacer == 3 && ctr < buff2.Length)
                buff2[ctr++] = '-'; // add dash between every chunk of size {spacer}
        }
        return string.Concat(buff2);
    }

    private static char Set5BitToChar(char c)
    {
        var shift = c > 9 ? '7' : '0';
        c += shift;
        return MapToChar(c);
    }

    private static uint Get5BitFromChar(char c)
    {
        c = MapFromChar(c);
        var shift = c >= 'A' ? '7' : '0';
        return (uint)(c - shift);
    }

    private static char MapToChar(char c) => c switch
    {
        '0' => 'W',
        '1' => 'X',
        'I' => 'Y',
        'O' => 'Z',
        _ => c,
    };

    private static char MapFromChar(char c) => c switch
    {
        'W' => '0',
        'X' => '1',
        'Y' => 'I',
        'Z' => 'O',
        _ => c,
    };
}