Board logo

标题: [其他] 批处理版身份证号码信息查询器[2007-3-6] [打印本页]

作者: namejm    时间: 2008-10-12 00:23     标题: 批处理版身份证号码信息查询器[2007-3-6]

这是本人2007.3.5首发于cn-dos的一个代码,原帖地址:http://www.cn-dos.net/forum/viewthread.php?tid=28127。转帖于此,是希望做为资料留存备用,更希望后来者能从中得到一些有益的提示,或发现其中的不足并完善之。

  使用方法:请把附件中的date.txt与本代码保存在同一目录下使用。
  注意事项:本数据库源于中华人民共和国国家统计局2006年12月31日的最新数据,在此之前,若因行政区划有变动而造成原有的行政区划代码被取消、变更,会导致部分合法ID被认为非法。
  1. @echo off
  2. :: 功能:
  3. ::     1、根据号码查询性别、出生日期和户籍所在地
  4. ::     2、15位号码升18位
  5. ::     3、根据户籍所在地和出生日期批量生成身份证号码
  6. ::
  7. ::  已知bug:
  8. ::      1、输入检测不严格
  9. ::      2、生成ID的速度较慢
  10. ::
  11. :: Code by JM 2007-3-4 CMD@XP
  12. ::
  13. :: 更新历史:
  14. ::
  15. :: 07.3.6
  16. ::   更正了15位号码升18位时始终显示非法号码的错误;
  17. mode con lines=20 cols=50
  18. title 身份证号码信息查询器
  19. setlocal enabledelayedexpansion
  20. set check_num=10X98765432
  21. :Main
  22. cls
  23. set flag=
  24. set IDflag=
  25. echo.&echo.&echo.&echo.
  26. echo             1、通过18位号码查询基本信息
  27. echo.
  28. echo             2、15位号码升18位
  29. echo.
  30. echo             3、生成指定地区的身份证号码
  31. echo.&echo.&echo.
  32. echo __________________________________________________
  33. echo.
  34. set choice=
  35. set /p choice=       请输入功能代码(退出请直接回车):
  36. if "%choice%"=="1" goto Get_Info
  37. if "%choice%"=="2" goto UpDate
  38. if "%choice%"=="3" goto Creat_ID
  39. if defined choice goto Main
  40. exit
  41. :Get_Info
  42. cls
  43. echo.&echo.&echo.&echo.&echo.
  44. set ID=
  45. set /p ID=      请输入18位身份证号码:
  46. call :Check_ID %ID%
  47. if defined flag (
  48.     call :PickUp_Info
  49. ) else call :ERR
  50. echo                 按任意键返回主界面...
  51. pause>nul
  52. goto Main
  53. :UpDate
  54. cls
  55. echo.&echo.&echo.&echo.&echo.
  56. set IDflag=15
  57. set ID=
  58. set /p ID=      请输入15位身份证号码:
  59. set ID_15=%ID%
  60. set ID=%ID:~0,6%19%ID:~6%
  61. call :Check_ID %ID%
  62. if defined flag (
  63.     call :PickUp_Info
  64. ) else call :ERR
  65. echo                 按任意键返回主界面...
  66. pause>nul
  67. goto Main
  68. :Creat_ID
  69. cls
  70. echo.&echo.
  71. echo     地名只能检索到县级及其之上的行政区划;必须
  72. echo.
  73. echo   按照行政级别的顺序输入,可以跳级输入,多个关键
  74. echo.
  75. echo   字用空格分隔。比如:四川  成都 青羊区 或者
  76. echo.
  77. echo   四川 青羊区 或者 成都 。
  78. echo.
  79. echo    生日必须是6位数字的格式,比如:20070130 。
  80. echo.
  81. echo __________________________________________________
  82. echo.
  83. set place=
  84. set birthday=
  85. set exp=
  86. set /p place= 请输入地区关键字:
  87. echo.
  88. set /p birthday=  请输入8位格式的出生日期:
  89. if "%birthday:~7,1%"=="" (call :ERR & pause & goto Main)
  90. if not "%birthday:~0,8%"=="%birthday%" (call :ERR & pause & goto Main)
  91. set /a day=1%birthday% 2>nul||(call :ERR & pause & goto Main)
  92. if not "%day:~1%"=="%birthday%" (call :ERR & pause & goto Main)
  93. cls
  94. echo.&echo.
  95. echo     符合条件的号码有^(中途可按 Ctrl^+C 暂停执行^):
  96. echo.
  97. for %%i in (%place%) do set exp=!exp!.*%%i
  98. for /f "tokens=1*" %%i in ('findstr "%exp:~2%" date.txt') do (
  99.     set ID_place=%%i
  100.     set ID_tmp=!ID_place:~0,1!
  101.     for /l %%j in (1,1,9) do (
  102.         if !ID_tmp! equ %%j call :IDs
  103.     )
  104. )
  105. if not defined flag (
  106.     echo.&echo.&echo.
  107.     echo          数据库中检索不到关键字为 %place% 的地名!
  108.     echo.&echo.&echo.
  109. )
  110. echo                 按任意键返回主界面...
  111. pause>nul
  112. goto Main
  113. rem ==== 检测号码是否合法 ====
  114. :Check_ID
  115. set ID=%1
  116. set ID_tmp=%1
  117. if defined IDflag (
  118.     if "%ID:~16,1%"=="" set flag=&goto :eof
  119.     if not "%ID:~0,17%"=="%1" set flag=&goto :eof
  120. ) else (
  121.     if "%ID:~17,1%"=="" set flag=&goto :eof
  122.     if not "%ID:~0,18%"=="%1" set flag=&goto :eof
  123.     if /i "%ID:~-1%"=="x" set ID_tmp=%ID:~0,-1%
  124. )
  125. set /a ID_tmp_1=1!ID_tmp:~0,6! 2>nul||(set flag=&goto :eof)
  126. set /a ID_tmp_2=1!ID_tmp:~6,8! 2>nul||(set flag=&goto :eof)
  127. set /a ID_tmp_3=1!ID_tmp:~14! 2>nul||(set flag=&goto :eof)
  128. if not "!ID_tmp_1:~1!!ID_tmp_2:~1!!ID_tmp_3:~1!"=="!ID_tmp!" set flag=&goto :eof
  129. set sum=0
  130. set str_wi=7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1
  131. for /l %%i in (0,1,16) do (
  132.     set ai=!ID:~%%i,1!
  133.     call :Get_Num %%i !str_wi!
  134.     set /a product=!ai!*!wi! 2>nul
  135.     set /a sum+=!product!
  136. )
  137. set /a mod=%sum%%%11
  138. set last_num=!check_num:~%mod%,1!
  139. if defined IDflag (
  140.     set ID=%ID%%last_num%
  141.     set flag=1
  142.     goto :eof
  143. )
  144. if /i "%ID:~-1%"=="%last_num%" (
  145.     set flag=1
  146. ) else set flag=
  147. goto :eof
  148. :Get_Num
  149. :: 提取 %str_wi% 中对应位置上的数值
  150. for /l %%i in (1,1,%1) do shift
  151. set wi=%2
  152. goto :eof
  153. :PickUp_Info
  154. set char=%ID:~-2,1%
  155. set /a mod=%char%%%2
  156. if %mod% equ 0 (
  157.     set SEX=女
  158. ) else set SEX=男
  159. for /f "tokens=1*" %%i in ('findstr "%ID:~0,6%" date.txt') do (
  160.     set flag=exist
  161.     cls
  162.     echo.&echo.&echo.&echo.
  163.     if defined IDflag (
  164.         echo     身份证号码:%ID_15%
  165.         echo.
  166.         echo     升位后号码:%ID%
  167.     ) else echo     身份证号码:%ID%
  168.     echo.
  169.     echo     性      别:      %SEX%
  170.     echo.
  171.     echo     出生日期:%ID:~6,4% 年 %ID:~10,2% 月 %ID:~12,2% 日
  172.     echo.
  173.     echo     户籍所在地:%%j
  174.     echo.&echo.&echo.&echo.
  175. )
  176. if not "%flag%"=="exist" call :ERR
  177. goto :eof
  178. rem ==== 生成合法的号码 ====
  179. :IDs
  180. for /l %%i in (0,1,999) do (
  181.     for %%j in (0 1 2 3 4 5 6 7 8 9 X) do (
  182.         set ID=00%%i%%j
  183.         call :Check_ID %ID_place%%birthday%!ID:~-4!
  184.         if defined flag echo                 %ID_place%%birthday%!ID:~-4!
  185.     )
  186. )
  187. goto :eof
  188. rem ==== 出错提示 ====
  189. :ERR
  190. echo.&echo.
  191. echo                 非法号码
  192. echo.&echo.&echo.
  193. goto :eof
复制代码
链接: https://pan.baidu.com/s/1-kI1LwbJu40ZeoLs6jeV-g 提取码: eruv




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2