[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
多个循环了
  1. @echo off & setlocal enabledelayedexpansion
  2. set "s=10X98765432"
  3. set "sx=79a584216379a5842"
  4. for /l %%i in (0,1,10) do set #!s:~%%i,1!=%%i
  5. for /f "delims=#" %%i in ('findstr /ib # %0') do (
  6.     set id=%%i
  7.     set e=!id:~-1!
  8.     set n=0&set "?="
  9.     for /l %%k in (0,1,16) do (
  10.         set /a n+=!id:~%%k,1!*0x!sx:~%%k,1!
  11.         set "!id:~%%k,1!=!sx:~%%k,1!"
  12.     )
  13.     set /a n%%=11
  14.     if defined ? for /l %%i in (0,1,9) do (
  15.        set/a "x=(%%i*?+n) %% 11"
  16.        for %%j in (!e!) do if !x! equ !#%%j! set "id=!id:?=%%i!"
  17.     )
  18.     echo;!id!
  19. )
  20. pause & exit
  21. #15?923198804239619
  22. #3700001989091894?0
  23. #4313021981042877?1
  24. #5301021920050801?X
  25. #611?25199006287480
复制代码
1

评分人数

TOP

返回列表