Base24 Algorithmus decodieren mit Batch?

@echo off &setlocal
if "%~1"==":doWhile" call :doWhile  

setlocal EnableDelayedExpansion
:: HEX String lesen
for /f "tokens=3" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "DigitalProductId"') do set "hex=%%i"  

:: Länge des HEX Strings
set "str=A%hex%"  
set "len=0"  
for /l %%i in (12,-1,0) do (
    set /a "len |= 1 << %%i"  
    for %%j in (!len!) do if "!str:~%%j,1!"=="" set /a "len &= ~1 << %%i"  
)

:: Pseudo-Array anlegen
set /a "len -= 2"  
for /l %%i in (0,2,%len%) do (
  set /a "n = %%i / 2"  
  set /a "Key_!n! = 0x!hex:~%%i,2!"  
)

:: Do While simulieren
for /f %%K in ('cmd /c "%~f0" :doWhile') do (endlocal &set "WinProdKey=%%K")  

echo Windows Product Key: %WinProdKey%
echo(
pause
goto :eof

:doWhile
setlocal EnableDelayedExpansion
set "KeyOffset=52"  
set "Chars=BCDFGHJKMPQRTVWXY2346789"  
set "i=28"  
for /l %%# in (0) do (
  set "Cur=0"  
  for /l %%x in (14,-1,0) do (
    set /a "Cur *= 256 , el = KeyOffset + %%x"  
    for %%j in (!el!) do (
      set /a "Cur = !Key_%%j! + Cur , Key_%%j = (Cur / 24) & 255 , Cur %%= 24"  
    )
  )
  set /a "i -= 1 , z = (29 - i) %% 6"  
  for %%j in (!Cur!) do set "KeyOutput=!Chars:~%%j,1!!KeyOutput!"  
  if !z!==0 if !i! neq -1 (
    set /a "i -= 1"  
    set "KeyOutput=-!KeyOutput!"  
  )
  if !i! lss 0 (echo !KeyOutput!&exit)
)

Const sKeyChar = "BCDFGHJKMPQRTVWXY2346789"  
Const sRegKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"  

MsgBox GetProductKey(CreateObject("WScript.Shell").RegRead(sRegKey)), 64, "Windows Product Key"  

Function GetProductKey(ByRef aRegValue)
    Dim sProductKey, b, c, i
    
    For b = 24 To 0 Step -1
        c = 0
        For i = 66 To 52 Step -1
            c = c * 256 + aRegValue(i)
            aRegValue(i) = CByte(c \ 24)
            c = c Mod 24
        Next
        
        sProductKey = Mid(sKeyChar, c + 1, 1) & sProductKey
        
        If b And b Mod 5 = 0 Then sProductKey = "-" & sProductKey  
    Next
    
    GetProductKey = sProductKey
End Function

@echo off &setlocal
call :GetProductKey sWinProdKey
echo Windows Product Key: %sWinProdKey%
echo(
pause
goto :eof

:GetProductKey outVarName
setlocal EnableDelayedExpansion
set "sKeyChar=BCDFGHJKMPQRTVWXY2346789"  
set "sRegKey=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"  
set "sRegVal=DigitalProductId"  

for /f "tokens=3" %%i in ('reg query "%sRegKey%" /v "%sRegVal%"') do set "sHex=%%i"  

set /a "n = 52"  
for /l %%i in (104,2,132) do set /a "aRegValue_!n! = 0x!sHex:~%%i,2! , n += 1"  

for /l %%b in (24,-1,0) do (
  set /a "c = 0 , n = %%b %% 5"  
  for /l %%i in (66,-1,52) do set /a "c = c * 256 ^^ !aRegValue_%%i! , aRegValue_%%i = c / 24 , c %%= 24"  
  for %%j in (!c!) do set "sProductKey=!sKeyChar:~%%j,1!!sProductKey!"  
  if %%b neq 0 if !n!==0 set "sProductKey=-!sProductKey!"  
)
endlocal &set "%~1=%sProductKey%" &goto :eof  

          High-Byte Low-Byte
5         00000000  00000101
* 256     00000101  00000000
+ 60      00000101  00111100

5         00000000  00000101
<< 8      00000101  00000000

0 XOR 0 = 0
1 XOR 0 = 1
0 XOR 1 = 1
1 XOR 1 = 0