@rem = '
@echo off
color d
mode con cols=125 lines=25
echo.&echo.&echo.&echo.
C:\strawberry\perl\bin\perl.exe -S a.bat
ping 127.0.0.1 >nul
goto end_perl
:end_perl
exit
@rem ';

@a=(a..z,A..Z);
@result=@a[map {int(rand(26))} 1..8];
print "@result\n";
复制代码

@echo off
setlocal enabledelayedexpansion
set #=abcdefghijklmnopqrstuvwxyz
for /l %%i in (1 1 8) do (
    set /a _ = !random! %% 26
    for %%_ in (!_!) do set $=!$!!#:~%%_,1!
)
echo %$%
pause
复制代码

@echo off
setlocal enabledelayedexpansion
:1
set $=
set #=abcdefghijklmnopqrstuvwxyz
for /l %%i in (1 1 8) do (
    set /a _ = !random! %% 26
    for %%_ in (!_!) do set $=!$!!#:~%%_,1!
)
echo %$%>>1.txt
set/a a+=1
if %a% lss 21 goto 1
复制代码