@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
复制代码

<# : PS
@echo off
powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"
pause & exit 
#>
$filename = ls '.\01.txt'
$file = ls 'basetik.tik';
$offset = @(0x01DC,0x01BF);
$text = [IO.File]::ReadAllText($filename);
[regex]$reg = '(?i)(?<=Using title id: *|generated encrypted: *)([0-9a-f]{2})+';
$group = $reg.Matches($text);
$fs=new-object io.filestream $file,open;
(0..($group.Count-1)).ForEach({
     [void]$fs.seek($offset[$_],0);
     $Group[$_].Groups[1].Captures.Value.ForEach({$fs.writebyte( "0x$_" )});
})
$fs.flush();
$fs.close();
复制代码