WHY

PowerShell 脚本
2023/02/22 简化脚本。我测试没有发现问题

$file1 = '01.txt';
$file2 = 'basetik.tik';          #修改前的文件名
$file3 = 'basetik_001.tik';      #修改后的文件名 

$text  = [IO.File]::ReadAllText($file1, [Text.Encoding]::Default);
$bytes = [IO.File]::ReadAllBytes($file2);

Function Set-ByteValue($key, [int]$offSet){
    $reg = '(?i)(?<=' + $key + ' *)[a-f0-9]+';
    $s = ([regex]::Match($text, $reg)).Value;
    for ($i = 0; $i -lt $s.Length; $i+=2) {
        $x = $i / 2 + $offSet;
        $bytes[$x] = [byte][int]('0x' + $s.SubString($i, 2));
    }
}

Set-ByteValue -key 'Using title id:' -offSet 0x01DC;
Set-ByteValue -key 'generated encrypted:' -offSet 0x01BF;

[IO.File]::WriteAllBytes($file3, $bytes);

echo 'Done';
[Console]::ReadLine();
复制代码

WHY

HexTool.exe下载

@echo off
setlocal enabledelayedexpansion

set "file1=01.txt"
set "file2=basetik.tik"

for /f "tokens=1-2 delims=:" %%i in ('type "%file1%"') do (
    if /i "%%i" == "Using title id" (
        set "HexNum1=%%j"
    ) else if /i "%%i" == "generated encrypted" (
        set "HexNum2=%%j"
    )
)

set "tmp1=%HexNum1: =%"
set "tmp2=%HexNum2: =%"
for %%i in (256, 128, 64, 32, 16, 8, 4, 2, 1) do (
    if "!tmp1:~%%i!" NEQ "" (set "tmp1=!tmp1:~%%i!" & set /a Len1 += %%i)
    if "!tmp2:~%%i!" NEQ "" (set "tmp2=!tmp2:~%%i!" & set /a Len2 += %%i)
)

set /a "offSet1=0x01DC, offSet2=0x01BF, Len1=(Len1+1)/2, Len2=(Len2+1)/2"

HexTool "%file2%" %offSet1% %Len1% %HexNum1%
HexTool "%file2%" %offSet2% %Len2% %HexNum2%
pause
复制代码