El procesamiento por lotes genera números aleatorios (*** tres, la recompensa máxima para Baidu es 250)

@echo off& setlocal enableelayeexpansion

modo con cols=60 líneas=10& color 0a& título .

del smile.txt 2>nul& echo.1.Pure Número 2. Número Inglés 3. Número Símbolo Inglés

set /p wind=Seleccione el número de serie: & echo & set /p snow=Ingrese el número de combinaciones generadas:

para. %% 1 in (0 1 2 3 4 5 6 7 8 9 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 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)do (set /a x+=1&& set x!x!=%%1)

if "%wind% "= ="1" (para /l %%1 en (1 1 %nieve%)hacer (para /l %%2 en (1 1 10)hacer (set /a n%%2=!aleatorio! %% ​​10

establecer m%%1=!m%%1!!n%%2!)

cls& echo %%1/%snow%& echo !m%% 1!>> smile.txt))

if "%viento%"=="2" (para /l %%1 en (1 1 %nieve%)hacer (para /l %%2 en (1 1 10)hacer (set /a n%%2=!random! %% ​​​​62 +1

llamar a set m%%1=!m%%1!%%x!n %%2!%% )

cls& echo %%1/%snow%& echo !m%%1!>>smile.txt))

if "%wind% "=="3" (más +14 "%~F0">smile.vbs& smile.vbs %snow%&& del smile.vbs)

si existe smile.txt (inicia "" "smile. txt")else mshta vbscript :msgbox("Error de entrada") (cerrar)

salir

x=array("0","1","2","3 ","4", "5","6","7","8","9","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","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","~","!","@","#", "$","% ","^","&","*","(",")","_","+","|","[","]","{ ","}", ";","'",":",",",".","/","<",">","?")

para i = 1 a argumentos wscript(0)<

/p>

para j = 1 a 10

Aleatorio

y=int(1000000*rnd mod 89)

n=n & x( y): siguiente

n=n & vbcrlf: siguiente

createobject("scripting.filesystemobject").opentextfile("smile.txt",2,true).writeline n