happy886rr

回复 15# 渣白
用机器码做种子

渣白

回复 16# happy886rr


    不明白，怎么用做
可否给个小实例

pcl_test

回复 8# happy886rr

如果超出位数会有点问题吧

老刘1号

Echo off&cls&setlocal   ENABLEDELAYEDEXPANSION
for /l %%a in (1,1,8) do set pattern=!pattern![0-9]
Set/pn=
For /l %%a in (1,1,6) do (
        set /a tmp=8*%%a-8
Call echo %%n:~!tmp!,8%%|Findstr "^%pattern%$" >nul || Set bool=False
)
If "!bool!" Equ "False" (Echo !bool!) Else Echo True
Pause
123456789012345678901234567890123456789012345678
-12345678901234567890123456789012345678901234567
000000000000000000000000000000000000000000000000
1 3456789012345678901234567890123456789012345678

老刘1号

'&start Wscript -e:vbscript "%~0"
Set a=New RegExp
a.Pattern="^\d{48}$"
MsgBox a.Test(InputBox(""))

happy886rr

回复 18# pcl_test
感谢大师提醒，已完善。