@echo off&setlocal enabledelayedexpansion&cd /d "%~dp0"
set "n=0"
for /l %%i in (2 1 1000) do (
  set "a=%%i"
  set /a "b=a/2+1"
  if !b! gtr 32  set /a "b=32"
  call :1
  if  "!c!"=="!b!"  set /a "n+=1"&echo !n!:!a!
)
pause
:1
  for /l %%a in (2 1 !b!) do (
    set "c=%%a"
    set /a "d=a%%c"
    if "!d!"=="0" goto :eof
  )
复制代码

Input: an integer n > 1
 
Let A be an array of Boolean values, indexed by integers 2 to n,
initially all set to true.
 
for i = 2, 3, 4, ..., while i ≤ n/2:
  if A[i] is true:
    for j = 2i, 3i, 4i, ..., while j ≤ n:
      A[j] = false
 
Now all i such that A[i] is true are prime.
复制代码

@echo off
SETLOCAL EnablEdElayEdExpansion

for /l  %%a in (3,1,100) do (
    set /a flag=1
    set /a  n=%%a-1
    for /l %%A in (2,1,!n!) do (
        set /a r=%%a %% %%A
        if !r! equ 0 ( set /a flag=0 )
    )
    if !flag! equ 1  set "s=!s! %%a"
)
echo %s%
pause
复制代码

@echo off&setlocal enabledelayedexpansion&echo 2 是质数&(for /l %%a in (3,2,1000) do call:1 %%a)&echo 计算完成&pause>nul&exit
:1
set a=32&if %1 lss 32 set /a a=%1-1
for /l %%b in (3,2,!a!) do (
  set /a i=%1%%%%b
  if "!i!"=="0" (set $%1=.&goto 2)
)
:2
if not defined $%1 echo %1 是质数
复制代码

@echo off&setlocal Enabledelayedexpansion
set/a MinShu=10
set/a MaxShu=1000
set/a N=0
for /l %%i in (%MinShu%,1,%MaxShu%) do (
set/a JShu=%%i
call:AA
)
echo %MinShu% ~ %MaxShu% 有 %N% 个质数
pause
exit
:AA

for %%i in (2,3,5,7,11) do (
set/a b=%JShu%%%%%i
if "!b!"=="0" GOTO:eof
)

set/a MinShu2=%JShu%/10
for /l %%i in (12,1,%MinShu2%) do (
set/a d=%JShu%%%%%i
if "!d!"=="0" GOTO:eof
)
echo 质数%N%.素数:%JShu%
set/a N+=1
GOTO:eof
复制代码

 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57
59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99
复制代码

 
2 是质数
37 是质数
41 是质数
43 是质数
47 是质数
复制代码

质数0.素数:13
质数1.素数:17
质数2.素数:19
质数3.素数:23
质数4.素数:29
质数5.素数:31
质数6.素数:37
复制代码

@echo off&setlocal enabledelayedexpansion&echo 2 是质数&(for /l %%a in (3,2,1000) do call:1 %%a)&echo 计算完成&pause>nul&exit
:1
set a=32&if %1 lss 32 set /a a=%1-1
for /l %%b in (3,2,!a!) do (
  set /a i=%1%%%%b
  if "!i!"=="0" (set $%1=.&goto 2)
)
:2
if not defined $%1 echo %1 是质数
复制代码

@echo off&setlocal enabledelayedexpansion&echo 2 是质数&(for /l %%a in (3,2,1000) do call:1 %%a)&echo 计算完成&pause>nul&exit
:1
set a=32&if %1 lss 32 set /a a=%1-1
for /l %%b in (3,2,!a!) do (
  set /a i=%1%%%%b
  if "!i!"=="0" (set $%1=.&goto 2)
)
:2
if not defined $%1 echo %1 是质数
复制代码

@echo off&setlocal Enabledelayedexpansion

set/a MinShu=2
set/a MaxShu=1000
set/a N=0
for /l %%i in (%MinShu%,1,%MaxShu%) do (
set/a JShu=%%i
call:AA
)
echo %MinShu% ~ %MaxShu% 有 %N% 个质数
pause
exit
:AA

set/a MinShu2=%JShu%/2
for /l %%i in (2,1,%MinShu2%) do (
set/a d=%JShu%%%%%i
if "!d!"=="0" GOTO:eof
)
echo 质数%N%.素数:%JShu%
set/a N+=1
GOTO:eof
复制代码

比如 23 和 29 ；
复制代码

n=23*29=667 
复制代码

f(n)=（23-1）*（29-1）=22*28=616
复制代码

与616互质并小于616的数E为：615——相邻的两个自然数是互质数。
这个数作为密码的私钥。
其实，用f(n)-1即可得到E。这个f(n)实际上用n表示就可以了——数学盲的人可以这样理解。
与其相邻的质素：607 、613 、617 、619 、631
复制代码

令：p=3  q=11
得：n=p×q=3×11=33；
     f(n)=(p-1)(q-1)=2×10=20；
     取e=3 （3与20互质）
     则e×d≡1 mod f(n)
     即3×d≡1 mod 20。
复制代码

    
复制代码

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
SET PRIME=2  3  5  7  11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101
SET CHARS=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
SET PASSWORDVALUE=1
SET INPUT=
SET /P INPUT=Insert password:
IF "%INPUT%"=="" "%~0"
ECHO Authenticating...
:OVERLOOP
SET CURRENTPOSITION=0
:SUBLOOP
IF /I "!INPUT:~%CHARACTERPOSITION%,1!"=="!CHARS:~%CURRENTPOSITION%,1!" SET /A PASSWORDVALUE*=!PRIME:~%CURRENTPOSITION%,3!
SET /A CURRENTPOSITION+=3
IF NOT %CURRENTPOSITION%==78 GOTO :SUBLOOP
SET /A CHARACTERPOSITION+=1
IF NOT "!INPUT:~%CHARACTERPOSITION%,1!"=="" GOTO :OVERLOOP
:END
ENDLOCAL&IF NOT %PASSWORDVALUE%==1065435274 GOTO :ACCESSDENIED
ECHO You have been authenticated. Welcome aboard!
GOTO :SILENTPAUSE
:ACCESSDENIED
ECHO Access denied!
:SILENTPAUSE
PAUSE > NUL
复制代码