身份证号码信息查询器[07-3-6更新]

namejm

　　使用方法：请把附件中的date.txt与本代码保存在同一目录下使用。
　　注意事项：本数据库源于中华人民共和国国家统计局2006年12月31日的最新数据，在此之前，若因行政区划有变动而造成原有的行政区划代码被取消、变更，会导致部分合法ID被认为非法。

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

复制代码

[ 本帖最后由 namejm 于 2007-3-6 09:55 PM 编辑 ]

weylmann

收下，谢谢

老毛桃

是个好咚咚，收藏先

难以忘记你

那自己试了下哈哈！正确！

luqicai

怎么用的？我把上面的代码保存为TXT文件后改为BAT文件放在了同一目录下，晕了，查不了。我试了几个福建的，都是非法，

huangwenjia

以前用VB做过两个，只做了升位和查信息，没有做生成的，地区代码分别用.INI和.MDB保存，关键处是在于校验位的生成。

xypcmac

这种批处理值得学习

namejm

原帖由 huangwenjia 于 2007-3-8 02:07 PM 发表
关键处是在于校验位的生成。

　　确实是这样。因为我不知道 加权因子 是如何通过一系列的算术运算得来的，只能采用现成的校验码序列，按照数位来提取对应的校验码，从而导致生成ID的时候，速度比较慢。希望有知道的兄弟能告诉我 加权因子 是怎么求出来的。

jioncy

这个做了有啥用途呢~

wiseror

呵呵 不错 我下过 有点不是很准

namejm

原帖由 wiseror 于 2007-3-11 10:13 AM 发表
呵呵 不错 我下过 有点不是很准

　　哪个地方不是很准？是不是因为我在顶楼所说的那种情况？

aassdd

好东西一点都不嫌多.....下来先.

龙啸

好东西，收起了！

tuxw

批处理功底不错

SunTB

原帖由 namejm 于 2007-3-8 06:06 PM 发表

　　确实是这样。因为我不知道 加权因子 是如何通过一系列的算术运算得来的，只能采用现成的校验码序列，按照数位来提取对应的校验码，从而导致生成ID的时候，速度比较慢。希望有知道的兄弟能告诉我 加权因子 ...

百度搜索下好象有，反正我就是参考网上帖子介绍的自己作了了XLS文档来实现同样功能

sddylyd

下载看看

6618

支持原创，学习一下里面的批处理。

sensensen

不知有啥用途，下来看看!

zhangxhliu

下来看看。。

rghost

这个是什么哦

xkyt

是的，我原先也下过一个，好像不是很准

maalone

好东西，下了试试

bingxiao20

不错  好东西。。收下来了

mfkwgij

是个好咚咚，收藏先

michael_xm

批处理写的不错. 学习了

finove

收下了。慢慢学习！:)

太阳上的鱼

试试看,这个也有专门的身份证生成软件,有界面看起来应该舒服一点

cqswat

不会吧，这种东西都有

任我行之狂风

虽然查了一下我自己的身份证出现个“非法”，但楼主玩批处理的深度很值得学习。佩服与感谢-ing……:victory:

shamobaiyang

下载下来学学，
:) :) :)