Bat - случайная запись в реестре

@echo off
rem Псевдорандом - вывод n-разрядного числа в m знаков
rem Нет ограничений рандома cmd в 32768
rem примеры запуска:
rem run.bat "10" "10"
rem run.bat 10 0xF
rem run.bat
rem Параметр 1 - количество символов в выводе 
rem Параметр 2 - разрядность
 
set x=
set y=
set m=
set n=
set num=
echo.%~1|>nul findstr /rc:"[^0-9]"&&(
    echo Параметр 1 может быть только десятичным числом либо его не должно быть
    pause&exit /b
)
echo.%~2|>nul findstr /rc:"[^0-9A-Fa-fx]"&&(
    echo Параметр 2 может быть десятичным, либо шестнадцатеричным или ^
восьмеричным числом, либо его не должно быть
    pause&exit /b
)
 
if "%~1" equ "" (set /a x=16) else (set /a x=%~1)
if "%~2" equ "" (set /a y=16) else (set /a y=%~2)
if %y% gtr 16 echo Параметр 2 ^(разрядность^) не может превышать ^
число символов, записанных в переменной chr&pause&exit /b
 
set "m=%x%" &: количество цифр в выводе
set "n=%y%" &: разрядность
set chr=0 1 2 3 4 5 6 7 8 9 A B C D E F &: символы используемые в выводе
 
:loop
set /a k=1+n*%random%/32768
for /f "tokens=%k%" %%i in ("%chr%") do (set num=%%i%num%)
set /a m-=1
if %m% gtr 0 goto loop
echo %num%
pause

@echo off
setlocal enabledelayedexpansion
cls
 
@echo.
@echo.
 
rem 1q2w3e4r5t6y7u8i9o0p1q2w3e4r5t6y
call :randomizeSequence 32 sequence
@echo sequence = '%sequence%'
exit /b
 
rem =========================================================================
rem =========================================================================
 
:randomize
    set MIN=%1
    set MAX=%2
    set /A %3=%MIN% + (%MAX% - %MIN% + 1) * %random% / 32768
exit /b
 
:fillArray
    set "array[!cnt!]=%~1"
    set /a cnt +=1
exit /b
 
:initialRandomize
    if defined ALREADYINIT (exit /b)
    set ALREADYINIT=true
    rem         00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 
    for %%a in ( a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  0  1  2  3  4  5  6  7  8  9) do (
        call :fillArray %%a  
    )
exit /b
 
:accumulate
    call :randomize 0 35 index
    call set char=%%array[%index%]%%
    call set "%dst%=%%%dst%%%%char%"    
exit /b
 
:randomizeSequence
    set len=%1
    set dst=%2
    call :initialRandomize
    for /L %%a in (1 1 %len%) do (
        call :accumulate %%a
    )
exit /b
 
rem =========================================================================
rem =========================================================================

@echo off
 
REG ADD HKLM\Software\Prog /v Gorp /t REG_SZ /d 00000000000000000000000000000000 /f
 
exit /b

@echo off
cls
 
@echo.
@echo.
 
call :randomizeSequence 32 sequence
@echo sequence = '%sequence%'
 
REG ADD HKLM\Software\Prog /v Gorp /t REG_SZ /d %sequence% /f
 
exit /b
 
rem =========================================================================
rem =========================================================================
 
:randomize
    set MIN=%1
    set MAX=%2
    set /A %3=%MIN% + (%MAX% - %MIN% + 1) * %random% / 32768
exit /b
 
:fillArray
    set "array[%cnt%]=%1"
    set /a cnt +=1
exit /b
 
:initialRandomize
    if defined ALREADYINIT (exit /b)
    set ALREADYINIT=true
    rem         00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 
    for %%a in ( a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  0  1  2  3  4  5  6  7  8  9) do (
        call :fillArray %%a  
    )
exit /b
 
:accumulate
    call :randomize 0 35 index
    call set "char=%%array[%index%]%%"
    call set "%dst%=%%%dst%%%%char%"    
exit /b
 
:randomizeSequence
    set len=%1
    set dst=%2
    call :initialRandomize
    for /L %%a in (1 1 %len%) do (
        call :accumulate %%a
    )
exit /b
 
rem =========================================================================
rem =========================================================================

0</* :
@echo off
  setlocal
    for /f %%i in ('cscript /nologo /e:jscript "%~f0"') do (
      set "rnd=%%i" % rem :захватили случайное значение
    )
    rem можно просто отобразить это значение
    echo:%rnd%
  endlocal
exit /b*/
 
(function() {
  WScript.echo((
      new ActiveXObject('Scriptlet.TypeLib')
    ).Guid.toLowerCase().replace(/[-\{\}]/g, '')
  );
})();

@    PERL6 -e ('а'...'z',0...9).roll(32).join.say >seq
@    SET /P seq=<seq
@    REG ADD HKLM\Software\Prog /v Gorp /t REG_SZ /d %seq% /f
@    DEL seq

            for /f %%i in ('cscript /nologo /e:jscript "%~f0"') do (

echo.a
0</* :
echo.b

echo.a
0</* rem
echo.b