《一个完整身份证效验程序.doc》由会员分享，可在线阅读，更多相关《一个完整身份证效验程序.doc（40页珍藏版）》请在三一文库上搜索。
1、根据中华人民共和国国家标准 GB 11643-1999中有关公民身份号码的规定，公民身份号码是特征组合码18位：由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。15位：六位数字地址码，六位数字出生日期码，三位数字顺序码和一位数字校验码。 varcod
2、eInfoTst: Tstrings; /总codeTst: Tstrings; /代码InfoTst: Tstrings; /地址信息function identityInfo(identitycode: string): string;/由年月日判断是否为有效日期function IsDate(Year, Month, Day: string): Boolean;varst: string;beginst := Year + - + Month + - + day;tryStrToDate(st);Result := True;exceptResult := False;end;end;f
3、unction getdetailedFromCode(code: string): string; /由身份证的前六位获得省份县市信息varIndex: integer;St: string;beginindex := codeTst.IndexOf(code);if index = -1 thenbeginResult := ;exit;end;st := infoTstindex; /县code := copy(code, 1, 4) + 00;index := codeTst.IndexOf(code);if index = -1 thenbeginResult := st;exit;
4、end;st := infoTstindex + st; /市code := copy(code, 1, 2) + 0000;index := codeTst.IndexOf(code);if index = -1 thenbeginResult := st;exit;end;st := infoTstindex + st; /省Result := st;end;varYLYear, YLMonth, YlDay, id, sex, code: string;E: integer;St: string;begine := Length(identitycode);if (e 18) or (e
5、 15) then result := ;if (e = 18) thenbeginYLYear := copy(identitycode, 7, 4);YlMonth := copy(identitycode, 11, 2);YLday := copy(identitycode, 13, 2);id := copy(identitycode, 18,1);end;if (e = 15) thenbeginYLYear := 19 + copy(identitycode, 7, 2);YlMonth := copy(identitycode, 9, 2);YLday := copy(ident
6、itycode, 11, 2);id := copy(identitycode, 15, 1);end;st := ;if IsDate(YlYear, YlMonth, Ylday) thenbeginst := YLYear + 年 + YlMonth + 月 + YLday + 日生end;code := copy(identitycode, 1, 6);st := getdetailedFromCode(code) + : + st;if (StrToInt(id) mod 2 = 1) thenbeginsex := 男;endelsebeginsex := 女;end;st :=
7、st + : + sex + 性！ + Trim(IntToStr(e) + 位证号！;Result := st;end;procedure TForm1.Button1Click(Sender: TObject);vari, num: integer;code, info: string;begincodeInfoTst := Tstringlist.Create;CodeTst := Tstringlist.Create;infotst := Tstringlist.Create;trycodeInfoTst.LoadFromFile(c:code.txt);/分解代码地址信息num :=
8、 Codeinfotst.Count;for i := 0 to num - 1 dobegincode := copy(Codeinfotsti, 1, 6);Info := copy(Codeinfotsti, 8, length(Codeinfotsti) - 7);codetst.Add(code);infotst.Add(info);end;showmessage(identityInfo(530101700205379);finallycodeTst.Free;infotst.Free;CodeinfoTst.Free;end;end;end.code.txt内容如下，你可以扩展1
9、50000,内蒙古自治区150100,呼和浩特市150101,呼和浩特市辖区150105,郊区150121,土默特左旗150122,托克托县150123,武川县150124,和林格尔县150125,清水河县150200,包头市150201,包头市辖区150205,石拐矿区150206,白云矿 区150207,郊区150221,土默特右旗150222,固阳县150223,达尔罕茂明安旗150300,乌海市150302,海勃湾区150303,海南区150304,乌达区150400,赤峰市150402,红山区150403,元宝山区150404,松山区150421,阿鲁科尔沁旗150422,巴林左旗1
10、50423,巴林右旗150424,林西县150425,克什克腾旗150426,翁牛特旗150428,喀喇沁旗150429,宁城县150430,敖汉旗152100,呼伦贝尔盟152101,海拉尔市152102,满洲里市152103,扎兰屯市152104,牙克石市152122,阿荣旗152123,莫力达瓦旗152125,额尔古纳右旗152126,额尔古纳左旗152127,鄂伦春旗152128,鄂温克旗152129,新巴尔虎右旗152130,新巴尔虎左旗152131,陈巴尔虎旗152200,兴安盟152201,乌兰浩特市152202,阿尔山市152221,科尔沁右翼前旗152222,科尔沁右翼中旗1
11、52223,扎赉特旗152224,突泉县152300,哲里木盟152301,通辽市152302,霍林郭勒市152322,科尔沁左翼中旗152323,科尔沁左翼后旗152324,开鲁县152325,库伦旗152326,奈曼旗152327,扎鲁特旗152500,锡林郭勒盟152501,二连浩特市152502,锡林浩特市152522,阿巴嘎旗152523,苏尼特左旗152524,苏尼特右旗152525,东乌珠穆沁旗152526,西乌珠穆沁旗152527,太仆寺旗152528,镶黄旗152529,正镶白旗152530,正兰旗152531,多伦县152600,乌兰察布盟152601,集宁市152624,
12、卓资县152625,化德县152626,商都县152627,兴和县152628,丰镇县152629,凉城县152630,察哈尔右翼前旗152631,察哈尔右翼中旗152632,察哈尔右翼后旗152634,四子王旗152700,伊克昭盟152701,东胜市152722,达拉特旗152723,准格尔旗152724,鄂托克前旗152725,鄂托克旗152726,杭锦旗152727,乌审旗152728,伊金霍洛旗152800,巴彦淖尔盟152801,临河市152822,五原县152823,磴口县152824,乌拉特前旗152825,乌拉特中旗152826,乌拉特后旗152827,杭锦后旗152900,
13、阿拉善盟152921,阿拉善左旗152922,阿拉善右旗152923,额济纳旗153000,黑龙江153100,吉林153200,辽宁153300,河北153400,山西153500,陕西153600,甘肃153700,宁夏153800,接边调整500000,重庆市500200,重庆直属500201,渝中区500211,江北区500212,沙坪坝区500213,九龙坡区500214,南岸区500215,北碚区500216,万盛区500217,双桥区500221,长寿县500222,巴南区500223,綦江县500224,渝北区500225,江津市500226,合川市500227,潼南县5002
14、28,铜梁县500229,永川市500230,大足县500231,荣昌县500232,璧山县501200,重庆万州移民开发区501202,龙宝501203,天城501204,五桥501222,开县501223,忠县501224,梁平县501225,云阳县501226,奉节县501227,巫山县501228,巫溪县501229,城口县502300,涪陵市502311,涪陵区502322,垫江县502323,南川市502324,丰都县502326,武隆县503500,黔江地区503521,石柱县国土局503522,秀山县503523,黔江县503524,酉阳县国土局503525,彭水县国土局520
15、000,贵州省520100,贵阳市520102,南明区520103,云岩区520104,小河镇520111,花溪区520112,乌当区520113,白云区520114,修文县520115,开阳县520116,息烽县520117,清镇市522100,遵义市522101,红花岗区522102,赤水市522103,仁怀市522121,遵义县522122,桐梓县522123,绥阳县522124,正安县522125,道真县522126,务川县522127,凤冈县522128,湄潭县522129,余庆县522132,习水县522200,铜仁地区522221,铜仁市522222,江口县522223,玉屏县5
16、22224,石阡县522225,思南县522226,印江县522227,德江县522228,沿河县522229,松桃县522230,万山特区522300,黔西南州522301,兴义市522322,兴仁县522323,普安县522324,晴隆县522325,贞丰县522326,望谟县522327,册亨县522328,安龙县522400,毕节地区522401,毕节市522422,大方县522423,黔西县522424,金沙县522425,织金县522426,纳雍县522427,威宁县522428,赫章县522500,安顺地区522501,安顺市522526,平坝县522527,普定县522528,
17、关岭县522529,镇宁县522530,紫云县522600,黔东南州522601,凯里市522622,黄平县522623,施秉县522624,三穗县522625,镇远县522626,岑巩县522627,天柱县522628,锦屏县522629,剑河县522630,台江县522631,黎平县522632,榕江县522633,从江县522634,雷山县522635,麻江县522636,丹寨县522700,黔南州522701,都匀市522722,荔波县522723,贵定县522724,福泉市522725,瓮安县522726,独山县522727,平塘县522728,罗甸县522729,长顺县522730
18、,龙里县522731,惠水县522732,三都县522800,六盘水市522821,六枝特区522822,盘县特区522823,水城县522824,钟山区540000,西藏自治区540100,拉萨市540120,城关区540121,林周县540122,当雄县540123,尼木县540124,曲水县540125,堆龙德庆540126,达孜县540127,墨竹工卡县542100,昌都地区542121,昌都县542122,江达县542123,贡觉县542124,类乌齐县542125,丁青县542126,察雅县542127,八宿县542128,左贡县542129,芒康县542132,洛隆县542133
19、,边坝县542200,山南地区542221,乃东县542222,扎朗县542223,贡嘎县542224,桑日县542225,琼结县542226,曲松县542227,措美县542228,洛扎县542229,加查县542231,隆子县542232,错那县542233,浪卡子县542300,日喀则地区542301,日喀则市542322,南木林县542323,江孜县542324,定日县542325,萨迦县542326,拉孜县542327,昂仁县542328,谢通门县542332,定结县542333,仲巴县542334,亚东县542335,吉隆县542336,聂拉木县542337,萨嘎县542338,岗
20、巴县542339,白朗县542340,仁布县542341,康马县542400,那曲地区542421,那曲县542422,嘉黎县542423,比如县542424,聂荣县542425,安多县542426,申扎县542427,索县542428,班戈县542429,巴青县542431,文部办事处542432,双湖办事处542500,阿里地区542521,普兰县542522,札达县542523,噶尔县542524,日土县542525,革吉县542526,改则县542527,措勤县542600,林芝地区542621,林芝县542622,工布江达县542623,米林县542624,墨脱县542625,波密县
21、542626,察隅县542627,朗县549900,接边(青)620000,甘肃省620100,兰州市620102,城关区620103,七里河620104,西固区620105,安宁区620111,红古区620121,永登县620122,皋兰县620123,榆中县620200,嘉峪关市620202,嘉峪关区620300,金昌市620302,金川区620321,永昌县620400,白银市620402,白银区620403,平川区620421,靖远县620422,会宁县620423,景泰县620500,天水市620502,秦城区620503,北道区620521,清水县620522,秦安县620523,
22、甘谷县620524,武山县620525,张川县622100,酒泉地区622101,玉,门,市622102,酒,泉,市622103,敦,煌,市622123,金,塔,县622124,肃,北,县622125,阿克塞县622126,安,西,县622200,张掖地区622201,张掖市622222,肃南县622223,民乐县622224,临泽县622225,高台县622226,山丹县622300,武威地区622301,武威市622322,民勤县622323,古浪县622326,天祝县622400,定西地区622421,定西县622424,通渭县622425,陇西县622426,渭源县622427,临洮县
23、622428,漳县622429,岷县622600,陇南地区622621,武都县622623,宕昌县622624,成 县622625,康 县622626,文 县622627,西和县622628,礼 县622629,两当县622630,徽 县622700,平凉地区622701,平凉市622722,泾川县622723,灵台县622724,崇信县622725,华亭县622726,庄浪县622727,静宁县622800,庆阳地区622801,西峰市622821,庆阳县622822,环 县622823,华池县622824,合水县622825,正宁县622826,宁 县622827,镇原县622900,临夏
24、州622901,临夏市622921,临夏县622922,康乐县622923,永靖县622924,广河县622925,和政县622926,东乡县622927,积石山623000,甘南州623021,临潭县623022,卓尼县623023,舟曲县623024,迭部县623025,玛曲县623026,碌曲县623027,夏河县640000,宁夏自治区640200,石嘴山市640201,石嘴市辖区640222,陶乐县642100,吴忠市642200,固原地区642222,海原县642223,西吉县642224,隆德县642225,泾源县642226,彭阳县640221,平罗县642124,中宁县642
25、125,灵武市642101,利通区642127,同心县642221,固原县640100,银川市642126,盐池县642123,中卫县640223,惠农县642102,青铜峡市640111,银川市郊区640121,永宁县640122,贺兰县640101,城区140000,山西省140300,阳泉市140500,晋城市140600,朔州市142700,运城地区140601,朔州市辖140603,平鲁区140621,山阴县140631,右玉县140633,怀仁县140626,应县140400,长治市140402,长治城区140421,长治县140422,潞城市140423,襄垣县140424,屯留
26、县140425,平顺县140426,黎城县140427,壶关县140428,长子县140429,武乡县140430,沁 县140431,沁源县140411,长治郊区142600,临汾地区142628,安泽县142636,汾西县142629,浮山县142627,古县142625,洪洞县142602,侯马市142603,霍州市142630,吉县142632,蒲县142621,曲沃县142635,隰县142631,乡宁县142622,翼城县142634,永和县142633,大宁县140523,高平县140521,沁水县140522,阳城县140511,泽州县142200,忻州地区142201,忻州市
27、142222,定襄县142223,五台县142225,代县142226,繁峙县142229,神池县142231,苛岚县142232,河曲县142230,五寨县142234,偏关142202,原平市142300,吕梁地区142321,汾阳市142323,交城县142327,柳林县142322,文水县142325,兴县142330,方山县142331,离石市142301,孝义市142601,临汾市142623,襄汾县140524,陵川县140501,晋城市辖142333,交口县142332,中阳县142329,岚县142328,石楼县142326,临县142227,宁武县140321,平定县140
28、302,阳泉城区140303,阳泉矿区140100,太原市140103,北城区140104,河西区140105,小店区140106,迎泽区140107,杏花岭区140108,尖草坪区140109,万柏林区140110,晋源区140122,阳曲县140123,娄烦县140181,古交市140102,南城区140121,清徐县140200,大同市140202,大同城区140203,大同矿区140212,新荣区140221,阳高县140222,天镇县140223,广灵县140225,浑源县140230,左支县140232,大同县140224,灵丘县142400,晋中地区142422,左权县14240
29、1,榆次市142402,介休市142424,昔阳县142429,太谷县142430,祁 县142431,平遥县142433,灵石县142427,寿阳县142423,和顺142421,榆社县142725,万荣县142727,稷山县142728,河津市142732,平陆县142733,垣曲县142723,芮城县142722,永济市142724,临猗县142729,闻喜县142730,夏 县140322,盂 县142731,绛 县140211,大同南郊142701,运城市140311,阳泉郊区140602,朔城区142228,静乐县142726,新绛县142233,保德县420000,湖北省4207
30、00,鄂州市420702,梁子区420703,华容区420704,鄂城区423000,省农林系统429000,省直辖行政单位420800,荆门市420881,钟祥市420821,京山县420802,东宝区420803,沙洋423021,五三农场422801,恩施市422802,利川市422822,建始县422823,巴东县422826,咸丰县422825,宣恩县422827,来凤县422800,恩施州422828,鹤峰县420100,武汉市420103,江汉区420104,桥口区420105,汉阳区420106,武昌区420107,青山区420121,蔡甸区420114,东湖高新技术开发区42
31、0115,武汉经济开发区420112,东西湖区420109,东湖管理分局420124,新洲县420123,黄陂区420113,汉南区420102,江岸区420122,江夏区420111,洪山区420200,黄石市420205,铁山区420204,下陆区420202,黄石港区420203,石灰窑区420281,大冶市420222,阳新县420500,宜昌市420502,西陵区420503,伍家岗区420504,点军区420505,猇亭区420506,宜昌开发区420507,草埠湖管理区420521,宜昌县420525,远安县420526,兴山县420527,秭归县420528,长阳土家族自治县4
32、20529,五峰土家族自治县420581,宜都市420582,当阳市420583,枝江市420600,襄樊市420683,枣阳市420607,高新技术开发区420606,樊城区420602,襄城区420625,谷城县420682,老河口420684,宜城市420608,汽车产业开发区420626,保康县420621,襄阳县420900,孝感市420902,孝南区420921,孝昌县420923,云梦县420922,大悟县420924,汉川市420983,广水市420981,应城市420982,安 陆421000,荆州市421002,沙市421087,松滋市421083,洪湖市421023,监利
33、县421022,公安县421006,城南开发区421081,石首市421003,荆州区421005,玉桥开发区421004,江陵区421100,黄冈市421102,黄州区421121,团风县421122,红安县421123,罗田县421124,英山县421125,浠水县421126,蕲春县421127,黄梅县421181,麻城市421182,武穴市422300,咸宁地区422302,赤壁市422324,通城县422326,通山县422325,崇阳县422301,咸宁市422322,嘉鱼县423022,沙洋监狱管理局429001,随州市429004,仙桃市429005,潜江市429006,天门市
34、429021,神农架420300,十堰市420302,茅箭区420303,张湾区420323,竹山县420321,郧县420381,丹江口市420324,竹溪县420322,郧西县420325,房县410000,河南省410600,鹤壁市410602,鹤山区410603,山城区410611,郊区410621,浚县410622,淇县410700,新乡市410702,红旗区410703,新华区410704,北站区410711,郊 区410721,新乡县410724,获嘉县410725,原阳县410726,延津县410727,封丘县410728,长垣县410781,卫辉市410782,辉县市4108
35、00,焦作市410802,解放区410803,中站区410804,马村区410811,山阳区410821,修武410822,博爱410823,武陟410824,沁阳410825,温县410826,孟州市410900,濮阳市410902,濮阳市区410922,清丰县410923,南乐县410926,范县410927,台前县410928,濮阳县411200,三门峡市411202,湖滨区411221,渑池县411222,陕县411223,灵宝市411224,卢氏县411281,义马市412800,驻马店地区412801,驻马店市412821,确山县412822,泌阳县412823,遂平县412824
36、,西平县412825,上蔡县412826,汝南县412827,平舆县412828,新蔡县412829,正阳县410500,安阳市410502,文峰区410503,北关区410504,铁西区410511,郊 区410522,安阳县410523,汤阴县410524,林州市410526,滑 县410527,内黄县410200,开封市410201,市辖区410231,龙亭区410232,鼓楼区410233,顺河区410234,南关区410223,尉氏县410211,郊区410225,兰考县410221,杞县410224,开封县410222,通许县412700,周口地区412725,鹿邑县412723,
37、商水县412721,扶沟县412722,西华县412724,太康县412726,郸城县412727,淮阳县412701,周口市412729,项城市412730,国营黄泛区农场412728,沈丘县410300,洛阳市410326,汝阳县410321,偃师市410323,新安县410324,栾川县410304,廛河区410308,开发区410302,老城区410311,郊区410325,嵩县410305,涧西区410328,洛宁县410303,西工区410327,宜阳县410329,伊川县410306,吉利区410322,孟津县411025,襄城县411022,长葛市411024,鄢陵县41102
38、3,许昌县411081,禹州市410400,平顶山市410427,白龟山水库410402,新华区410403,卫东区410404,石龙区410405,湛河区410421,宝丰县410422,叶县410423,鲁山县410425,郏县410481,舞钢市410482,汝州市412300,商丘市412302,市辖区412325,睢县412321,虞城县412322,睢阳区412301,梁园区412326,夏邑县412931,新野县412932,桐柏县412933,规划控制区412929,唐河县412903,宛城区412926,内乡县411100,漯河市411121,舞阳县411123,郾城县411
39、122,临颍县411102,源汇区510000,四川省510100,成都市510104,成都市锦江区510105,青羊区510106,金牛区510107,武侯区510108,成华区510109,成都高新区510112,龙泉驿区510113,青白江区510121,金堂县510122,双流县510123,温江县511124,井研县511126,夹江县511129,沐川县511132,峨边县511133,马边县513200,阿坝州513221,汶川县513222,理县513223,茂县513224,松潘县513225,南坪县513226,金川县513227,小金县513228,黑水县513229,马
40、尔康县513230,壤塘县513231,阿坝县513232,若尔盖县513233,红原县510900,遂宁市510923,大英县510922,射洪县510902,市中区510921,篷溪县513326,道孚县513327,炉霍县513328,甘孜县513329,新龙县513330,德格县513331,白玉县513332,石渠县513333,色达县513334,理塘县513335,巴塘县513336,乡城县513337,稻城县513338,得荣县513321,康定县513600,广安市513601,华蓥市513621,岳池县513622,广安县513623,武胜县513624,邻水县510800,广元市510824,苍溪县510802,市中区510812,朝天区513125,石棉县513123,荥经县513124