[数值计算] 批处理中RANDOM生成的是真随机数吗？

@echo off
:reset
if %random% lss 20000 (echo ok&&pause&&goto :reset) else goto :reset
复制代码

@echo off
:reset
if %random% lss 20000 (goto :reset) else (echo ok&&pause&&goto :reset)
复制代码

@echo off
:reset
if %random% lss 20000 (goto :eof) else (echo ok&&pause&&goto :reset)
复制代码

@echo off
setlocal enabledelayedexpansion
set /a x = !random!
echo !x!
echo;
call :time t
for /l %%i in (%t%, -1, 0) do (
    set /a y = ((%%i * 214013 + 2531011^) ^>^> 16^) ^& 0x7fff
    if !y! equ !x! (
        echo %%i
        call :srand %%i
        call :rand z
        echo !z!
        echo;
        for /l %%j in (1, 1, 10) do (
            call :rand z
            echo !z! !random!
        )
    )
    echo;
    pause & exit
)

:time
setlocal
for /f %%x in ('wmic path win32_utctime get /format:list ^| findstr .') do set %%x
set /a year = year - 1900, t = (year - 70) * 365 + ((year - 1) ^>^> 2) - 17, leap = year ^& 3
for /f "tokens=%month%" %%i in ("-1 30 58 89 119 150 180 211 242 272 303 333 364") do set /a t += %%i
if %leap% equ 0 if %month% gtr 1 set /a t += 1
set /a t += day, t *= 24, t += hour, t *= 60, t += minute, t *= 60, t += second
endlocal & set %1=%t%
goto :eof

:srand
set /a _holdrand = %1
goto :eof

:rand
set /a _holdrand = _holdrand * 214013 + 2531011
set /a %1 = (_holdrand ^>^> 16) ^& 0x7fff
goto :eof
复制代码

下面我们到msvcrt.dll里看看这个rand函数到底做了什么. 下面这个就是rand函数

msvcrt&rand()函数  ;以下就是msvcrt&rand函数，简化下给大家看
push 1
call FlsGetValue  ;返回值eax 是一个结构的指针（这个结构与纤程有关，我们不管其具体含义）
mov ecx,[eax + 14h]  ;[eax + 14h]对我们的随机数 至关重要 ！从计算过程可以看出,它直接影响随机数的计算！
imul ecx,ecx,343FDh  ;ecx里就是从[eax + 14h]取出来的值，看它在计算了
add ecx,269EC3h
mov [eax + 14h],ecx  ;这里更新了 [eax + 14h]，这样下次我们再取随机数，再用到[eax + 14h]，那么他已经不是原来的值了
mov eax,ecx   ;这样每一次的数值才可能不同
shr eax,10h
and eax,7FFFh  ;与运算保证了随机数的范围0~32767。此时的eax中的值就是 我们最后 得到的%random%的值
复制代码

@echo off
call :time t
echo %t%
pause & exit

:time
setlocal
for /f "skip=1 tokens=1-9" %%a in ('wmic path win32_utctime ^| findstr .') do set /a m=%%e+9,m%%=12,y=%%i-m/10,t=365*y+y/4-y/100+y/400+(m*306+5)/10+%%a-719469,t=t*86400+%%c*3600+%%d*60+%%g
endlocal & set %1=%t% & goto :eof
复制代码