一个18位身份证校验计算函数.docx

-个18位身份证校验计算函数

因需要对15位旧身份证号码进行升位和校验、查询处理，又没有搜索到现成的函数，于是自己写了一个简单的过程，希望能够帮得上需要的朋友。

本函数的功能单一，只能校验第18位号码是否正确或者取得第18位号码，其他功能留给人家自C扩展吧！

<%

' Version: 1. 0. 1

'Author: sfply(sfply@163. com)

'Last Modified: 2004/7/17 12:03

'Src是身份证号码，可以是15位也可以是18位，15位时只能返回验证码方式使用

'iChk参数取值真假，真代表校验Six是否18位身份证，并且校验第18位是否

正确号码而确定是否有效身份证，返冋只值为true或false

' 假代表返回止确的校验码，返回值为(l~x)

dim myldentify

myTdentify 二〃36050219781218133?〃

response .write chkldentiyCard(myldentify, false)

Function chkldentiyCard(Src,iChk)

dim myWi, myAi, mySrc(17), i, myCount myAi =，z 10X98765432'

myWi = split(z/7, 9, 10, 5, & 4, 2, 1, 6, 3, 7, 9, 10, 5, & 4, 2〃，〃，〃) if iChk then

if len (Src) = 18 then

for i = 0 to 16

mySrc(i)二mid(Src, i + 1, 1)

myCouni 二myCount + mySrc(i) * myWi(i)

next

if mid(myAi, (mycount mod 11)+1,1) = right (Src,1) then chkldcntiyCard = true '返回结果，TRUE为合法身份证验证码

el se

chkldentiyCard = false '返回结果，FALSE为非法身份证验证码

end if

else

chkldentiyCard = false '因为不是18位身份证所以返[H] FALSE

end if

el se

if len(Src)二15 or len(Src)二18 then

if len(Src) = 15 then Src = mid(Src, 1, 6) & "19〃 & mid(Src, 7, 9)

for i = 0 to 16

mySrc(i)二mid(Src, i + 1, 1)

myCount 二myCount + mySrc(i) * myWi (i)

n ext

chkldentiyCard = mid (myAi, (mycount mod 11)+1, 1)'返回正确的验证码else

chkldentiyCard二false '输入不不是15位或18位身份证号

end if

end if

Encl Function

%>

关于身份证第18是怎么计算的，原理如下

根据K屮华人民共和国国家标准GB 11643-19993屮有关公民身份号码的规定, 公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生H期码，三位数字顺序码和一位数字校验码。

地址码表示编码对象常住户口所在县（市、旗、区）的行政区划代码。生H期码表示编码对象出生的年、刀、FI,其屮年份用四位数字表示，年、月、HZ间不用分隔符。顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。校验码是根据前面十七位数字码，按照ISO 7064:1983. MOD 11-2校验码计算出来的检验码。下面举例说明该计算方法。

15位的身份证编码首先把出生年扩展为4位，简单的就是增加一个19,但是这对于1900年出生的人不使用（这样的寿星不多了）

某男性公民身份号码本体码为34052419800101001,首先按照公式⑴计算:

S (ai X Wi) (mod 11) (1)

公式⑴屮：

i——表示号码字符从由至左包括校验码在内的位置序号；

ai——表示第i位置上的号码字符值；

Wi——示第i位置上的加权因子，其数值依据公式肌二2 (n-1) (mod 11)计算得出。

18 17 16 15 14 13 12 11 10 9 8 7 6

ai 34052419800101 0 0 1 al

Wi 7 9 10 584216379 10 584

aiXWi 21 36 0 25 16 16 2 9 48 00905002a!

根据公式⑴进行计算:

L (aiXWi)二(21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2)二189

189 一11 二17 + 2/11

Z (ai XWi)(mod 11) = 2

然后根据计算的结果，从下面的表屮查岀相应的校验码，其屮X表示计算结果为10：

工(aiXWI) (mod 11) 0123456789 10

校验码字符值ai 10X98765432

根据上表，查出计算结果为2的校验码为所以该人员的公民身份号码应该为340524************o

a[0]*7+a[l]*9+a[2]*10+a[3]*5+a[4]*8+a[5]*4+a[6]*2+a[7]*l+a,[8]*6+a[9

]*3

+a[10]*7+a[ll]*9+a[12]*10+a[13]*5+a[14]*8+a[15]*4+a[16]* 2