Lazarus for 中国居民身份证号码信息查询工具（Lazarus中文社区首发）

猫工

作者：东兰梦舞
开发工具：FreePascal 2.6.0 + Lazarus 0.9.30.4







网盘直接下载：
http://filemarkets.com/file/bugxiong/c260a700/

猫工

是的，没用。。。。

1234567

??没用数据库

ti9er

源码不发布?

lofanmi

这是怎么做到的?

gllzch

/*
1.身份证号码具有唯一性，这样有利于人口统计及公民的社会信息管理的标准化、数字化；
2.身份证的编码规则——

AABBCCYYYYMMDDNNNC

AABBCC——所属区域编码
YYYY——出生年份
MMDD——出生月日
NNN——编号
C——校验位

居民身份证的号码是按照国家的标准编制的，由18位组成：前六位为行政区划代码，第七至第十四位为出生日期码，
第15至17位为顺序码，第18位为校验码。作为尾号的校验码，是由号码编制单位按统一的公式计算出来的，如果某人
的尾号是0-9，都不会出现X，但如果尾号是10，那么就得用X来代替，因为如果用10做尾号，那么此人的身份证就变成
了19位，而19位的号码违反了国家标准，并且我国的计算机应用系统也不承认19位的身份证号码。Ⅹ是罗马数字的10，
用X来代替10，可以保证公民的身份证符合国家标准。

介绍18位身份证号码最后一位校验码的计算方法

公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为：六位数字地址码，
八位数字出生日期码，三位数字顺序码和一位数字校验码。

校验方法：
（1）十七位数字本体码加权求和公式
        S = Sum(Ai * Wi), i = 0, ... , 16 ，先对前17位数字的权求和
        Ai:表示第i位置上的身份证号码数字值
        Wi:表示第i位置上的加权因子
        Wi: 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
（2）计算模
        Y = mod(S, 11)
（3）通过模得到对应的校验码
             Y: 0 1 2 3 4 5 6 7 8 9 10
        校验码: 1 0 X 9 8 7 6 5 4 3 2


身份证校验码生成算法

根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七
位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字
顺序码和一位数字校验码。……顺序码的奇数分给男性，偶数分给女性。校验码 是根据前面十七位数字码，按照
ISO 7064:1983.MOD 11-2校验码计算出来的检验码。

先引入公式：
∑(a*W) mod 11 ( i = 2, 3, ..., 18 ) (1)

"*" 表示乘号
i--------表示身份证号码每一位的序号，从右至左，最左侧为18，最右侧为1。
a-----表示身份证号码第 i 位上的号码
W-----表示第 i 位上的权值 W = 2^(i-1) mod 11

计算公式 (1) 令结果为 R

根据下表找出 R 对应的校验码即为要求身份证号码的校验码C。
R 0 1 2 3 4 5 6 7 8 9 10
C 1 0 X 9 8 7 6 5 4 3 2

gllzch

*/        
// 六位地區編碼對象
var objs={"110000":"北京市","110100":"市辖区","110101":"东城区","110102":"西城区","110103":"崇文区","110104":"宣武区","110105":"朝阳区","110106":"丰台区","110107":"石景山区","110108":"海淀区","110109":"门头沟区","110111":"房山区","110112":"通州区","110113":"顺义区","110114":"昌平区","110115":"大兴区","110116":"怀柔区","110117":"平谷区","110200":"县","110228":"密云县","110229":"延庆县","120000":"天津市","120100":"市辖区","120101":"和平区","120102":"河东区","120103":"河西区","120104":"南开区","120105":"河北区","120106":"红桥区","120107":"塘沽区","120108":"汉沽区","120109":"大港区","120110":"东丽区","120111":"西青区","120112":"津南区","120113":"北辰区","120114":"武清区","120115":"宝坻区","120200":"县","120221":"宁河县","120223":"静海县","120225":"蓟 县","130000":"河北省","130100":"石家庄市","130101":"市辖区","130102":"长安区","130103":"桥东区","130104":"桥西区","130105":"新华区","130107":"井陉矿区","130108":"裕华区","130121":"井陉县","130123":"正定县","130124":"栾城县","130125":"行唐县","130126":"灵寿县","130127":"高邑县","130128":"深泽县","130129":"赞皇县","130130":"无极县","130131":"平山县","130132":"元氏县","130133":"赵 县","130181":"辛集市","130182":"藁城市","130183":"晋州市","130184":"新乐市","130185":"鹿泉市","130200":"唐山市","130201":"市辖区","130202":"路南区","130203":"路北区","130204":"古冶区","130205":"开平区","130207":"丰南区","130208":"丰润区","130223":"滦 县","130224":"滦南县","130225":"乐亭县","130227":"迁西县","130229":"玉田县","130230":"唐海县","130281":"遵化市","130283":"迁安市","130300":"秦皇岛市","130301":"市辖区","130302":"海港区","130303":"山海关区","130304":"北戴河区","130321":"青龙满族自治县","130322":"昌黎县","130323":"抚宁县","130324":"卢龙县","130400":"邯郸市","130401":"市辖区","130402":"邯山区","130403":"丛台区","130404":"复兴区","130406":"峰峰矿区","130421":"邯郸县","130423":"临漳县","130424":"成安县","130425":"大名县","130426":"涉 县","130427":"磁 县","130428":"肥乡县","130429":"永年县","130430":"邱 县","130431":"鸡泽县","130432":"广平县","130433":"馆陶县","130434":"魏 县","130435":"曲周县","130481":"武安市","130500":"邢台市","130501":"市辖区","130502":"桥东区","130503":"桥西区","130521":"邢台县","130522":"临城县","130523":"内丘县","130524":"柏乡县","130525":"隆尧县","130526":"任 县","130527":"南和县","130528":"宁晋县","130529":"巨鹿县","130530":"新河县","130531":"广宗县","130532":"平乡县","130533":"威 县","130534":"清河县","130535":"临西县","130581":"南宫市","130582":"沙河市","130600":"保定市","130601":"市辖区","130602":"新市区","130603":"北市区","130604":"南市区","130621":"满城县","130622":"清苑县","130623":"涞水县","130624":"阜平县","130625":"徐水县","130626":"定兴县","130627":"唐 县","130628":"高阳县","130629":"容城县","130630":"涞源县","130631":"望都县","130632":"安新县","130633":"易 县","130634":"曲阳县","130635":"蠡 县","130636":"顺平县","130637":"博野县","130638":"雄 县","130681":"涿州市","130682":"定州市","130683":"安国市","130684":"高碑店市","130700":"张家口市","130701":"市辖区","130702":"桥东区","130703":"桥西区","130705":"宣化区","130706":"下花园区","130721":"宣化县","130722":"张北县","130723":"康保县","130724":"沽源县","130725":"尚义县","130726":"蔚 县","130727":"阳原县","130728":"怀安县","130729":"万全县","130730":"怀来县","130731":"涿鹿县","130732":"赤城县","130733":"崇礼县","130800":"承德市","130801":"市辖区","130802":"双桥区","130803":"双滦区","130804":"鹰手营子矿区","130821":"承德县","130822":"兴隆县","130823":"平泉县","130824":"滦平县","130825":"隆化县","130826":"丰宁满族自治县","130827":"宽城满族自治县","130828":"围场满族蒙古族自治县","130900":"沧州市","130901":"市辖区","130902":"新华区","130903":"运河区","130921":"沧 县","130922":"青 县","130923":"东光县","130924":"海兴县","130925":"盐山县","130926":"肃宁县","130927":"南皮县","130928":"吴桥县","130929":"献 县","130930":"孟村回族自治县","130981":"泊头市","130982":"任丘市","130983":"黄骅市","130984":"河间市","131000":"廊坊市","131001":"市辖区","131002":"安次区","131003":"广阳区","131022":"固安县","131023":"永清县","131024":"香河县","131025":"大城县","131026":"文安县","131028":"大厂回族自治县","131081":"霸州市","131082":"三河市","131100":"衡水市","131101":"市辖区","131102":"桃城区","131121":"枣强县","131122":"武邑县","131123":"武强县","131124":"饶阳县","131125":"安平县","131126":"故城县","131127":"景 县","131128":"阜城县","131181":"冀州市","131182":"深州市","140000":"山西省","140100":"太原市","140101":"市辖区","140105":"小店区","140106":"迎泽区","140107":"杏花岭区","140108":"尖草坪区","140109":"万柏林区","140110":"晋源区","140121":"清徐县","140122":"阳曲县","140123":"娄烦县","140181":"古交市","140200":"大同市","140201":"市辖区","140202":"城 区","140203":"矿 区","140211":"南郊区","140212":"新荣区","140221":"阳高县","140222":"天镇县","140223":"广灵县","140224":"灵丘县","140225":"浑源县","140226":"左云县","140227":"大同县","140300":"阳泉市","140301":"市辖区","140302":"城 区","140303":"矿 区","140311":"郊 区","140321":"平定县","140322":"盂 县","140400":"长治市","140401":"市辖区","140402":"城 区","140411":"郊 区","140421":"长治县","140423":"襄垣县","140424":"屯留县","140425":"平顺县","140426":"黎城县","140427":"壶关县","140428":"长子县","140429":"武乡县","140430":"沁 县","140431":"沁源县","140481":"潞城市","140500":"晋城市","140501":"市辖区","140502":"城 区","140521":"沁水县","140522":"阳城县","140524":"陵川县","140525":"泽州县","140581":"高平市","140600":"朔州市","140601":"市辖区",

gllzch

太多了要分几次才能发完,而且还要间隔一定时间,真是...

逍遥派掌门人

可以使用附件功能啊

gllzch