一个18位×××校验计算函数

精选转载

ruby20 2007-11-12 21:25:41

一个18位×××校验计算函数
作者：admin　时间：2005-2-28 　来自：ASP教程　

因需要对15位旧×××号码进行升位和校验、查询处理，又没有搜索到现成的函数，于是自己写了一个简单的过程，希望能够帮得上需要的朋友。
本函数的功能单一，只能校验第18位号码是否正确或者取得第18位号码，其他功能留给大家自己扩展吧！

<%
' Version: 1.0.1
' Author: sfply([email]sfply@163.com[/email])
' Last Modified: 2004/7/17 12:03
' Src是×××号码,可以是15位也可以是18位,15位时只能返回验证码方式使用
' iChk参数取值真假,真代表校验Src是否18位×××，并且校验第18位是否正确号码而确定是否有效×××,返回只值为true或false
' 假代表返回正确的校验码，返回值为(1~x)
dim myIdentify
myIdentify = "36050219781218133?"

response.write chkIdentiyCard(myIdentify,false)

Function chkIdentiyCard(Src,iChk)
dim myWi,myAi,mySrc(17),i,myCount
myAi = "10X98765432"
myWi = split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",")
if iChk then
if len(Src) = 18 then
   for i = 0 to 16
    mySrc(i) = mid(Src,i+1,1)
    myCount = myCount + mySrc(i) * myWi(i)
   next
   if mid(myAi,(mycount mod 11)+1,1) = right(Src,1) then
    chkIdentiyCard = true '返回结果，TRUE为合法×××验证码
   else
    chkIdentiyCard = false '返回结果，FALSE为非法×××验证码
   end if
else
   chkIdentiyCard = false   '因为不是18位×××所以返回FALSE
end if
else
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)
   next
   chkIdentiyCard = mid (myAi,(mycount mod 11)+1,1) '返回正确的验证码
else
   chkIdentiyCard = false        '输入不不是15位或18位×××号
end if
end if
End Function
%>

关于×××第18是怎么计算的，原理如下

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

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

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

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

∑(ai×Wi)(mod 11)……………………………………(1)

公式(1)中：
i----表示号码字符从由至左包括校验码在内的位置序号；
ai----表示第i位置上的号码字符值；
Wi----示第i位置上的加权因子，其数值依据公式Wi=2（n-1）(mod 11)计算得出。

i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1

ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 a1

Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1

ai×Wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 a1

根据公式(1)进行计算：

∑(ai×Wi) =（21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2) = 189

189 ÷ 11 = 17 + 2/11

∑(ai×Wi)(mod 11) = 2