Foro de elhacker.net

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
ECHO VERIFICADOR DE NUMEROS PRIMOS POR 79137913
ECHO EJEMPLO:
ECHO Entrada 1 2 3 4 5 6 7 8 9 10 11 12 13
ECHO Salida: 1 1 1 0 1 0 1 0 0 0 1 0 1
SET /P N=INSERTE UNA CADENA DE NUMEROS A VERIFICAR SEPARADOS POR UN ESPACIO:
:NEXTNUM
IF "%FIN%"=="1" GOTO SHOWNUMS
SET RN=
:NEXTCHAR
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%" EQU " " (GOTO EMPIEZA)
IF "%CHAR%" EQU "" SET FIN=1
IF "%CHAR%" EQU "" (GOTO EMPIEZA)
SET RN=%RN%%CHAR%
GOTO NEXTCHAR
:EMPIEZA
SET X=%RN%
SET Y=%X%
SET CT=0
:LOOP
SET /A Y=%Y%-1
IF !Y!==0 GOTO ISPRIME
SET /A CHECK= %X% %% Y
IF !CHECK!==0 (SET /A CT=%CT%+1)
IF !CT!==2 GOTO NOTPRIME
GOTO LOOP
:NOTPRIME
SET OUTP=%OUTP% 0
GOTO NEXTNUM
:ISPRIME
SET OUTP=%OUTP% 1
GOTO NEXTNUM
:SHOWNUMS
ECHO %OUTP%
PAUSE

@echo off
::Generar números primos aleatoriamente by batchiano :)
setlocal enabledelayedexpansion
 
:Secuencia
set /a HIGHLIMIT=100
for /l %%S in (2,1,!HIGHLIMIT!) do (
	call :NumeroPrimo %%S
	if "!PRIMO!"=="TRUE" (
		echo Secuencia: %%S es PRIMO
	)
)
 
pause&echo.
 
:Aleatorio
::La arbitrariedad de aparición de los primos no es equiprobable.
set /a key=%random:~0,2%
call :NumeroPrimo !key!
if "!PRIMO!"=="TRUE" (
	echo Aleatorio: !key! es PRIMO
	pause>nul
)
goto Aleatorio
 
:NumeroPrimo
set /a NUMERO=%1
set PRIMO=TRUE
set /a ICM=1
	:EsPrimo
	set /a ICM+=1
	set /a MOD = %NUMERO% %% !ICM!
	if !MOD! EQU 0 (
		if !ICM! LSS !NUMERO! (
			set PRIMO=FALSE
		)
	) else (
		goto EsPrimo
	)